twitteR 如何搜索两个主题标签答案

【问题标题】：twitteR how to search for two hashtagstwitteR 如何搜索两个主题标签
【发布时间】：2016-07-10 11:11:55
【问题描述】：

在此处输入代码是否可以在一个searchTwitter 命令中查找两个不同的标签？

例子

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 = ""))

我想查找标签#dn 和#park 我可以单独做如下

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)

问题是这两者是否可以合二为一？

【问题讨论】：

标签： r twitter hashtag

【解决方案1】：

试试这样的

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"))
}

在推文上使用 tolower 可能需要一些错误处理 - 您会在网络上找到大量相关信息。

【讨论】：

这是我想要的，我无法重现循环，但这不是问题的一部分。谢谢

【解决方案2】：

我发现here 发布的答案更优雅。对于目前的情况，它基本上是

hashtags <- '#metallica + #slayer'
tweets <- searchTwitter(hashtags, n = 10, lang = 'en', retryOnRateLimit = 100) 
tweetsDF <- twListToDF(tweets)

【讨论】：