从R中单个用户的推文中获取评论

Question

我收集了一个用户的推文：

api_key <- "XXXX"
api_secret <- "XXXX"
access_token <- "XXXX"
access_token_secret <- "XXXX"
setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret)
salvini <- rtweet::get_timeline(user = "matteosalvinimi", n = 3600)

从这里，我只知道每条推文收到了多少点赞或转发(分别通过salvini$favourite_count和salvini$retweet_count(。我想做的是收集这些推文的每条评论的文本。

有人知道怎么做吗？

Answer 1

首先，请查看提问协议。你被降级是因为你(1(没有提供可复制的数据集，(2(在这里的其他地方问了一个问题。

这里有一个快速的答案：

library(twitteR);library(dplyr); library(ROAuth)
#set API Keys; to obtain, go here: https://apps.twitter.com/ and make an application for  your twitter account
api_key <- "paste yours here"      # create a set of 'keys' & 'tokens'
api_secret <- "paste yours here"
access_token <- "paste yours here"
access_token_secret <- "paste yours here"
setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret)
#grab latest tweet data
tweets1 <- searchTwitter('@oprah', n=1000)
TweetsBy1<-twListToDF(tweets1)  #convert to dataframe
TweetsBy1$account<-"Oprah"  # useful to have this
glimpse(TweetsBy1) # look at your data; the text variable is what you're after
temp<- TweetsBy1 %>% 
group_by(created) %>%   # you will need to reformat this date variable
summarise(numTweets=n())
TweetsBy1$text   # this is the text of the tweets
ggplot(temp, aes(created,numTweets))+geom_bar(stat="identity")+
theme_bw()+ylab("Number of Tweets")+
ggtitle("Number of Tweets by Date")

至于文本分析，那完全是另一回事。有关更多信息，请参阅tidytext软件包。