Question

我正在尝试使用searchTwitter()和/或userTimeline()来抓取推文我想获取允许通过twitterR API获取的最大数量推文（我认为限制在3000左右。）但结果我只收到很少的帖子（比如83或146）。我确定有更多的帖子，当我查看该用户的时间轴（通过浏览器或应用程序）时，我看到有超过3000个帖子。
以下是我收到的消息。

r_stats <- searchTwitter("#ChangeToMeIs", n=2000)
Warning message:
In doRppAPICall("search/tweets", n, params = params, retryOnRateLimit =         retryOnRateLimit,  :
  2000 tweets were requested but the API can only return 83

我有什么遗失的吗？

PS：我在发帖前检查了所有相关问题。在标记重复之前，请帮我解决。

Answer 1

我从library twitteR安装了git hub，这个版本来自git而不是CRAN非常重要比设置

setup_twitter_oauth("xxxxxxx", "xxxxx")

并且你可以将赞誉用作

从用户时间线获取twitts

  ut <- userTimeline('xxxx', n=2000)
    ut <- twListToDF(ut)

或搜索特定的hastags

tweets<-twListToDF(searchTwitter("#f1", n=5000))

它对我来说很完美

R version 3.2.2 (2015-08-14)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=Swedish_Sweden.1252  LC_CTYPE=Swedish_Sweden.1252    LC_MONETARY=Swedish_Sweden.1252 LC_NUMERIC=C                    LC_TIME=Swedish_Sweden.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] twitteR_1.1.9

loaded via a namespace (and not attached):
 [1] bit_1.1-12         httr_1.1.0         rjson_0.2.15       plyr_1.8.3         R6_2.1.2           rsconnect_0.4.1.11 DBI_0.3.1          tools_3.2.2       
 [9] whisker_0.3-2      yaml_2.1.13        Rcpp_0.12.4        bit64_0.9-5        rCharts_0.4.5      RJSONIO_1.3-0      grid_3.2.2         lattice_0.20-33

Answer 2

实际上，您使用的是Twitter Search API，它只返回结果样本，而不是全面搜索。

您需要的是Twitter Streaming API。

请注意，Twitter搜索API不会返回详尽的内容与Twitter仅匹配的推文列表，符合您的搜索条件提供最近推文的样本。为了更全面的搜索，你将需要使用Twitter流API，创建一个数据库结果并定期更新，或使用可以的在线服务为你做这件事。

来源：https://colinpriest.com/2015/07/04/tutorial-using-r-and-twitter-to-analyse-consumer-sentiment/

Answer 3

由于twitteR将被弃用，您需要做的就是安装rtweet。

以下是代码：

# Install and load the 'rtweet' package
install.packages("rtweet")
library(rtweet)    

# whatever name you assigned to your created app
appname <- "tweet-search-app"

# api key (example below is not a real key)
key <- "9GmBeouvgfdljlBLryeIeqCHEt"

# api secret (example below is not a real key)
secret <- "ugdfdgdgrxOzjhlkhlxgdxllhoiofdtrrdytszghcv"

# create token named "twitter_token"
twitter_token <- create_token(
                 app = appname,
                 consumer_key = key,
                 consumer_secret = secret)

# Retrieve tweets for a particular hashtag
r_stats <- search_tweets("#ChangeToMeIs", n = 2000, token = twitter_token)

searchTwitter（）或userTimeline（）中的结果有限

3 个答案: