r - lapply 与 gregexpr 和字符向量

Question

我刚开始使用 lapply 等。我的代码和数据如下...

b  = c( "ZFW", "ZTL" )

我有一个更大的字符向量 dfNames (length = 147)，它包含像...这样的实例

dfNames[ 113 ] "arr_to_KEWR_in_ZFW"
dfNames[ 147 ] "arr_to_KEWR_in_ZTL"

当我应用此代码时...

indx = which( unlist( lapply( paste( '_in_', b, sep = '' ), function(v){gregexpr( v, dfNames )} ) ) != -1 )

我在 indx 中收到一个整数列表，长度至少为 294...

6  41  58  75 101 118 135 165 200 217 234 260 277 294

在 dfNames[ indx ] 上产生...

"all_in_ZFW" "dep_from_KCLT_in_ZFW" "dep_from_KDFW_in_ZFW" "dep_from_KEWR_in_ZFW"
"arr_to_KCLT_in_ZFW"   "arr_to_KDFW_in_ZFW"   "arr_to_KEWR_in_ZFW"   NA                    
NA                     NA                     NA                     NA                    
NA                     NA   

很明显，我对 lapply 的使用导致 R 环绕，我没有从包含模式 = 'ZTL' 的 dfNames 返回索引。

抱歉问了一个愚蠢的问题。

Answer 1

我的理解，你正在寻找

b = c("ZFW", "ZTL" )
lapply(b, function(x) grepl(x, list))