回答編集履歴

微修正

2021/05/24 03:38

投稿

スコア85

answer CHANGED Viewed

@@ -12,7 +12,8 @@
   xnum <- grep(target[i], y ,FALSE, TRUE, FALSE)
   xn <- c(xn, xnum)
   }
+xn
-xn  # 1 283281 283344 283371 378933 378975
+# [1]      1 283281 283344 283371 378933 378975
 ans2 <- apply(target, 1, function(xx) grep(xx, y, FALSE, TRUE, FALSE))
 unlist(ans2)

変数名修正

2021/05/24 03:38

投稿

スコア85

answer CHANGED Viewed

@@ -8,11 +8,13 @@
 target数にもよりますが、コメントでcwi様が述べられているよう、targetについて繰り返し処理を行う方法もあります。
 ```r
 xn <- c()
+for (i in 1:length(target)) {
-for (i in 1:length(jusyo_mat)) {xnum <- grep(jusyo_mat[i], y ,FALSE, TRUE, FALSE); xn <- c(xn, xnum)}
+  xnum <- grep(target[i], y ,FALSE, TRUE, FALSE)
+  xn <- c(xn, xnum)
-xn
+  }
-# [1]      1 283281 283344 283371 378933 378975
+xn  # 1 283281 283344 283371 378933 378975
-ans2 <- apply(jusyo_mat, 1, function(target) grep(target, y, FALSE, TRUE, FALSE))
+ans2 <- apply(target, 1, function(xx) grep(xx, y, FALSE, TRUE, FALSE))
 unlist(ans2)
 # [1]      1 283281 283344 283371 378933 378975
 ```

日本語追記

2021/05/24 03:36

投稿

スコア85

answer CHANGED Viewed

@@ -1,4 +1,4 @@
-愚直に質問に回答するならば、grepのtargetを、orを意味する正規表現"|"でpasteすることとなります。
+愚直に質問に回答するならば、grepのtargetに用いたい候補を or を意味する正規表現"|"でpaste利用することとなります。
 ```r
 ans1 <- grep(paste0(target, collapse = "|"), y)
 ans1