Rのdata.table：ループ

Question

のために参照によりサブセットと割り当てが

正規表現とデータテーブルの名前のベクトルを考えるには、以下のように...よく...簡単なもののように思えるが、：

library(data.table) 
regexes <- c(a="^A$") 
dt <- fread(" 
a,A,1 
a,B,1 
b,A,1 
") 

入力データテーブルが

dt 
# V1 V2 V3 
# 1: a A 1 
# 2: a B 1 
# 3: b A 1 

あるregexesにおける第一の要素のための私の目標は、次のようになります。

V1=="a"セットV3:=2。 V2が対応する正規表現^A$と一致する場合を除き、V3:=3。

（aは、私はまた、より多くの名前とオーバーループに正規表現を得た。^A$はregexes[1]、2と3はデモの目的のためだけであるである、names(regexes)[1]であり、データセットは、およそ300.000行です。）だから、

V1はaとV2（01

# V1 V2 V3 
# 1: a A 3 (*) 
# 2: a B 2 (**) 
# 3: b A 1 

（*）3ため期待出力であります）はV1がaとV2（Bであるため）、
（**）2を正規表現に一致する^A$と一致していません。

私はこのようなサブセット化による正規表現とパイプをループにを試してみました：grepl、期待どおりに動作しません...

for (x in seq(regexes)) 
    dt[V1==names(regexes)[x], V3:=2][grepl(regexes[x], V2), V3:=3] 

しかし...

dt 
# V1 V2 V3 
# 1: a A 3 
# 2: a B 2 
# 3: b A 3 <- wrong, should remain 2 

V1=="a"サブセットだけでなく、完全なV2列を使用します。私もうまくいきましたが、時間がかかりました（つまり、data.tableを使用する方法ではありません）。

質問：ここに行く最良のデータテーブルの方法は？私はpackageVersion("data.table")‘1.9.7’を使用しています。

---

私はデータフレームの経路に行くことができることに注意してください。もちろん - - この

df <- as.data.frame(dt) 
for (x in seq(regexes)) { 
    idx <- df$V1==names(regexes)[x] 
    df$V3[idx] <- 2 
    df$V3[idx][grepl(regexes[x], df$V2[idx])] <- 3 # or ifelse() 
} 

しかしように私は、可能な場合data.tableに戻し、その後data.frameにdata.tableを変換したくないでしょう。

ありがとうございます！予想通り

Answer 1

...それはgreplが完了V2列だけでなく、V1=="a"サブセットを使用して、動作しません。

library(stringi) 
dt[V1 %in% names(regexes), 
    V3 := V3 + 1L + stri_detect(V2, regex = regexes[V1]) 
] 

    V1 V2 V3 
1: a A 3 
2: a B 2 
3: b A 1 

機能のstri_detect家族がベースからgreplのようなものです：

私は正規表現のテストを簡単にベクトル化することができますstringiを使用します。