匹配单词的两个列表，并通过字符串列表返回匹配的话

cutter_Ch <- c('happy','birthday','Lucia') 
pos <- c('Lucia','today')

一个办法，我可以做到这一点是与lapply

pos.matches = lapply(cutter_Ch, pmatch, pos) 

[[1]] 
[1] NA 

[[2]] 
[1] NA 

[[3]] 
[1] 1

然而，我想要函数返回匹配的字符串而不是NA和次数匹配，像这样

[[1]] 
[1] NA 

[[2]] 
[1] NA 

[[3]] 
[1] Lucia

2016-09-06 Lucia

我们需要使用索引子集“POS”

lapply(cutter_Ch, function(x) pos[pmatch(x, pos)])

目前尚不清楚这是否例如简化的东西更复杂的版本。无论如何，与str_extract我们可以得到相同的输出在vector

library(stringr) 
str_extract(cutter_Ch, paste(pos, collapse="|")) 
#[1] NA  NA  "Lucia"

2016-09-06 07:23:04 akrun

回答