Rの同じデータフレーム内の別の列を持つ1つの列の単語の位置を見つけるにはどうすればよいですか？

Question

私は、データフレームの電車の中で二つの列があります：彼らはサーブも果たす配信
| | |キーワード

---

ボックスが美しいです|
配達は時間に達しボックス

件名を果たす

件名のキーワードの位置を見つける方法は？

現在、私は、forループを使用しています：

for(k in 1:nrow(train)){ 
l <- unlist(gregexpr(train$keyword[k],train$subject[k],ignore.case = T)) 
train$position[k] <- l} 

は、他の方法はありますか？

Answer 1

ループは必要ない、ちょうどstringrまたはstringiパッケージ内で検索機能を使用しています。

train <- data.frame(subject = c("the box is beauty", "delivery reached on time", "they serve well"), 
        keyword = c("box", "delivery", "serve"), 
        stringsAsFactors = FALSE) 


library(stringr) 
train$position_stringr <- str_locate(train$subject, train$keyword)[,1] 
#locate returns a matrix and we are just interested in the start of keyword. 

library(stringi) 
train$position_stringi <- stri_locate_first(train$subject, regex = train$keyword)[,1] 
#locate returns a matrix and we are just interested in the start of keyword. 

train 
        subject keyword position_stringr position_stringi 
1  the box is beauty  box    5    5 
2 delivery reached on time delivery    1    1 
3   they serve well serve    6    6 

Answer 2

以下を使用できます。

#data.frame created using the below statements 
Subject <- c("the box is beauty","delivery reached on time","they serve well") 
Keyword <- c("box","delivery","serve") 
train <- data.frame(Subject,Keyword) 


#Solution 
library(stringr) 
for(k in 1:nrow(train)) 
{ 
    t1 <- as.character(train$Subject[k]) 
    t2 <- as.character(train$Keyword[k]) 
    locate_vector <- str_locate(t1,regex(t2,ignore.case=true))[[1]] 
    train$start_position[k] <- locate_vector 
    #If end position is also required, the second column from str_locate 
    #function could be used. 

}