twitteR 2つのハッシュタグを検索する方法

Question

ここにコードを入力してくださいsearchTwitterコマンドで2つの異なるハスタグを探すことは可能ですか？

例

my_h <- as.POSIXlt(Sys.time()) 
my_h <- strptime(my_h, format = "%Y-%m-%d %H:%M:%S", tz = "CET") 

hrs <- function(u) { 
    x <- u * 3600 
    return(x) 
} 
my_h <- my_h - hrs(24) 
my_h <- data.frame(day = strptime(my_h, "%Y-%m-%d", tz = "")) 

私はこれら二つが一つに絞らできるのであれば問題はあり

tweets<-twListToDF(searchTwitter("#dn", n=5000, since = as.character(my_h$day))) 
write.table(tweets, "all_dn_tweets.csv", row.names = F, append = T, sep = ";", col.names = F) 

tweets<-twListToDF(searchTwitter("#park", n=5000, since = as.character(my_h$day))) 
write.table(tweets, "all_park_tweets.csv", row.names = F, append = T, sep = ";", col.names = F) 

以下のように、私は別にそれを行うことができますhastags #dnと#park のために見てみたいですか？

Answer 1

ツイートにtolowerを使用して、この

hashtags <- c("#metallica", "#slayer") 
needle <- paste(hashtags, collapse = " OR ") 
tweets <- searchTwitter(needle, n = 10) 
df <- twListToDF(tweets) 
for (hashtag in hashtags) { 
    write.csv(df[grep(hashtag, tolower(df$text), fixed = TRUE), ], paste0(hashtag, ".csv")) 
} 

のようなものを試してみて、いくつかのエラー処理が必要な場合があります - あなたは、ウェブ上でその上に関する情報の多くを見つけることができます。