résultats limités dans searchTwitter() ou userTimeline()

Question

Je suis en train de chercher des tweets à l'aide searchTwitter() et/ou userTimeline() Je veux chercher tweets nombre maximum autorisés à aller chercher par API twitterr (je crois que la limite est d'environ 3000.) Mais en résultat, je reçois seulement très peu de messages (comme 83 ou 146). Je suis sûr qu'il y a plus de nombre de messages, quand je regarde le scénario de cet utilisateur (via le navigateur ou l'application), je vois qu'il y a plus de 3000 messages.
Voici le message que je reçois.

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 

Y at-il quelque chose qui me manque? PS: J'ai vérifié toutes les questions connexes avant de poster. Avant de marquer le doublon, s'il vous plaît aidez-moi avec la solution.

Answer 1

En fait, vous utilisez est le Twitter Search API et il retourne seulement un échantillon de résultats, et non pas la recherche complète.

Vous avez besoin de l'API Twitter Streaming.

S'il vous plaît noter que l'API de recherche Twitter ne retourne pas une liste exhaustive de tweets correspondant à vos critères de recherche, que Twitter ne fait que disponible un échantillon de tweets récents. Pour une recherche plus complète, vous devrez utiliser l'API de streaming Twitter, créer une base de données de et les mettre à jour régulièrement, ou utilisez un service en ligne que faites pour vous.

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

Answer 2

installer le library twitteR de git hub et cela est tout à fait important que la version est de git pas CRAN Than a mis en place

setup_twitter_oauth("xxxxxxx", "xxxxx") 

et que vous pouvez utiliser les Félicite comme

Pour obtenir twitts de les utilisateurs chronologie

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

ou de rechercher l'hast spécifique ags

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

Il fonctionne parfaitement pour moi

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 3

Depuis twitteR va être dépréciée, ce que vous devez faire est d'installer rtweet.

Voici le code:

# 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)