RによるTweetデータの取得

ライブラリーの読み込み

> library(twitteR)

準備

Twitterの開発者としての登録(結構面倒)

このあたりから登録。 https://developer.twitter.com/

私の場合はここ。 https://developer.twitter.com/en/portal/projects/1293227305582510080/apps/18550830/keys

> CONSUMER_KEY <- "****"
> CONSUMER_SECRET <- "****"
> ACCESS_TOKEN <- "****"
> ACCESS_SECRET <- "****"
> setup_twitter_oauth(consumer_key = CONSUMER_KEY,
+                     consumer_secret = CONSUMER_SECRET,
+                     access_token = ACCESS_TOKEN,
+                     access_secret = ACCESS_SECRET
+ )
[1] "Using direct authentication"
> searchTerm <-iconv("自殺したい OR 死にたい","CP932","UTF-8")
> tweets <- searchTwitter(searchTerm, n=10, locale = "ja")
> tw0 <- twListToDF(tweets)
> head(tw0)
                                                                                                                                                                                                                                          text
1                                                                                                                                                 あとスコップでフロントガラス傷だらけになって死にたい。\n街乗り用の軽ちゃんで良かったけども。
2                                                                                                                                                                                           死にたいとか言うくらいなら燃やしてやるよ、安心しな
3                             RT @minakosaring: とても混乱しています。\n死にたい気持ちが消えてくれない。\nずっと死に場所を探しています。\n\nごめんなさい。\nごめんなさい。\nごめんなさい。\n\n生きてて\nごめんなさい。 https://t.co/jsJOGL1ypq
4                                                                                                                                                     化石PC(無線認識しなくなった)\nポケットWi-Fi(有線引けず)\nCoDアプリエラー\n\n死にたい
5                                                                                                                                                                                                                   おっぱいに挟まれて死にたい
6 昨日めちゃめちゃ意味もなく殴られたんだけど。は?\nあと最近めっちゃ涙腺死んでる。\n何かあってもなくても泣いちゃう。\n明日から部活あるのに寝れなくて気づいたら朝でさ…。無理。パフォーマンス下がったら顧問に嫌味言われるし。死にたいよ。くそが
  favorited favoriteCount replyToSN             created truncated replyToSID
1     FALSE             0      <NA> 2021-01-03 03:11:49     FALSE       <NA>
2     FALSE             0      <NA> 2021-01-03 03:11:45     FALSE       <NA>
3     FALSE             0      <NA> 2021-01-03 03:11:33     FALSE       <NA>
4     FALSE             0      <NA> 2021-01-03 03:11:28     FALSE       <NA>
5     FALSE             0      <NA> 2021-01-03 03:11:23     FALSE       <NA>
6     FALSE             0      <NA> 2021-01-03 03:11:14     FALSE       <NA>
                   id replyToUID
1 1345568519094640640       <NA>
2 1345568503177220096       <NA>
3 1345568453155979265       <NA>
4 1345568432406740993       <NA>
5 1345568413339557889       <NA>
6 1345568374948917248       <NA>
                                                                          statusSource
1   <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a>
2                       <a href="http://twittbot.net/" rel="nofollow">twittbot.net</a>
3 <a href="http://twitter.com/download/android" rel="nofollow">Twitter for Android</a>
4   <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a>
5   <a href="http://twitter.com/download/iphone" rel="nofollow">Twitter for iPhone</a>
6 <a href="http://twitter.com/download/android" rel="nofollow">Twitter for Android</a>
     screenName retweetCount isRetweet retweeted longitude latitude
1   etokimihusa            0     FALSE     FALSE        NA       NA
2 kagejyosi_bot            0     FALSE     FALSE        NA       NA
3    1jikuuline            1      TRUE     FALSE        NA       NA
4    kingdom254            0     FALSE     FALSE        NA       NA
5     chidusabu            0     FALSE     FALSE        NA       NA
6   tukaen_0373            0     FALSE     FALSE        NA       NA