R在同一行中多次匹配表達式

Question

我在R中使用了一組Tweets（非常原創，我知道），並且想要在每個@符號之後和每個＃之後提取文本，並將它們放入單獨的變量中。例如：

這是一個使用#twitter的測試推文。 @johnsmith @joesmith。

理想我想它有嘰嘰喳喳JohnSmith對JOESMITH數據幀等

目前創造新的變數，我使用 數據$在< - str_match（數據$ tweet_text，「\ S @ \ w + 「） data $ hash < - str_match（data $ tweet_text，」\ s＃\ w +「）

這顯然給了我第一次出現的每個新變量。有什麼建議麼？

Answer 1

strsplit和grep將工作：

x <-strsplit("This is a test tweet using #twitter. @johnsmith @joesmith."," ") 
grep("#|@",unlist(x), value=TRUE) 
#[1] "#twitter." "@johnsmith" "@joesmith." 

如果你只是想保留的話，沒有＃，@或：

out <-grep("#|@",unlist(x), value=TRUE) 
gsub("#|@|\\.","",out) 
[1] "twitter" "johnsmith" "joesmith" 

UPDATE把導致list：

my_list <-NULL 

x <-strsplit("This is a test tweet using #twitter. @johnsmith @joesmith."," ") 
my_list$hash <-c(my_list$hash,gsub("#|@|\\.","",grep("#",unlist(x), value=TRUE))) 
my_list$at <-c(my_list$at,gsub("#|@|\\.","",grep("@",unlist(x), value=TRUE))) 

x <-strsplit("2nd tweet using #second. @jillsmith @joansmith."," ") 
my_list$hash <-c(my_list$hash,gsub("#|@|\\.","",grep("#",unlist(x), value=TRUE))) 
my_list$at <-c(my_list$at,gsub("#|@|\\.","",grep("@",unlist(x), value=TRUE))) 

my_list 
$hash 
[1] "twitter" "second" 

$at 
[1] "johnsmith" "joesmith" "jillsmith" "joansmith"