R совпадающее выражение несколько раз в той же строке

Question

Я работаю с набором твитов (очень оригинальный, я знаю) в R и хотел бы извлечь текст после каждого знака @ и после каждого # и поместить их в отдельные переменные , Например:

Это тестовое твит, использующее #twitter. @johnsmith @joesmith.

В идеале я хотел бы, чтобы создать новые переменные в dataframe, который имеет твиттер JohnSmith joesmith и т.д.

В настоящее время я использую данных $ в < - str_match (данные $ tweet_text "\ s @ \ ш + ") данные $ хэш < - str_match (данные $ 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"