r - Grep 变量并将结果存储在 R 中的向量中

Question

我有一个存储在 A.path 中的 txt 文件列表我想使用 grep找到与该文件关联的年份，并将这一年保存到一个向量中。但是，由于其中一些 txt 文件的文本中有多年，我只想存储 第一 年。我怎样才能做到这一点？

我用 lapply 做过类似的事情，这就是我开始解决这个问题的方式:

lapply(A.path, function(i){
j <- paste0(scan(i, what = character(), comment.char='', quote=NULL),  collapse = " ")
year <- vector()
year[i] <- grep('[0-9][0-9][0-9][0-9]', j)
})

grep可能不是正确使用的函数，因为这会返回整个 j每个 i .在这里使用的正确功能是什么？

Answer 1

将评论转换为回答，您可以使用 gsub与 \\1提取第一个匹配项的值(即正则表达式中 () 之间匹配的文本)

gsub(".*?([0-9]{4}).*", "\\1", j)