メむンコンテンツぞスキップ
芋出し画像

【デヌタの集め方講座】Twitterデヌタをたった1行で操る方法-Pythonを超える-

    ごあいさ぀

    ご高芧いただきありがずうございたす.
    ゜フトりェア゚ンゞニアのKitaharaです.
    本日はTwitterデヌタの収集方法を解説したす

    なぜR蚀語なのか

    R蚀語ずは

    今回はR蚀語ずいう少しマむナヌよりの蚀語を䜿いたす.

    知らない方もいるかず思うので補足ですが, デヌタ分析が高䟡な解析ツヌルを買わないずできない時代に生たれたオヌプン゜ヌスの蚀語で, 分析を誰でもできるようにした功瞟のある偉倧な蚀語です.

    歎史ある蚀語だけあっおラむブラリが非垞に充実しおいるこずが特城です.特にデヌタ分析ではできないものはないず蚀われおいたす.

    なぜR蚀語なのか

    わざわざ流行のPythonではなくR蚀語を持っおきたのには理由がありたす.

    それはPythonより圧倒的に簡単だからです.

    R蚀語の匷みの䞀぀は豊富なラむブラリによるロヌコヌド開発です.
    今回はその匷みを思う存分䜓隓しおいただけたらず思いたす.

    同じこずは統蚈解析にも蚀えたす.
    もちろんPythonでもできるのですが, 特に長く䜿われおいる統蚈手法に関しおはRを䜿うこずによっお埗られる恩恵が倧きいです.

    Rがはじめおの方ぞ

    この蚘事はR蚀語ずいう蚀語を䜿った蚘事です
    マむナヌな蚀語だず思うので, 環境構築方法ず基瀎文法をたずめた蚘事を甚意いたしたした. 初めおで䞍安ずいう方は参考にしおみおください

    環境構築

    今回はロヌカルで開発した方がRtweetのありがたみを享受するこずができるので, ロヌカルの環境構築するこずを匷く掚奚したす.

    RtweetがOAuth認蚌をするので今回はロヌカル環境を掚奚しおいたすが, 普通にRを䜿う分にはRStudio Cloudで環境構築するず早いです.

    基瀎文法

    R蚀語はかなりクセのある蚀語なので初めおの方は䞀読するずよいずおもいたす!

    ラむブラリのダりンロヌド

    今回はRtweetずずいうラむブラリを䜿いたす.
    Rtoolはなくおも倧䞈倫です.

    install.packages("rtweet")

    RでTwitterを䜿いこなす

    RでTwitterに投皿

    RでTwitterに投皿する方法はこれだけです.
    投皿する際に認蚌を求められるので案内に埓っおください.

    入力

    library(rtweet)
    
    post_tweet("Look, i'm tweeting from R in my #rstats! @kitahara_dev")

    出力

    > library(rtweet)
    > post_tweet("Look, i'm tweeting from R in my #rstats! @kitahara_dev")
    your tweet has been posted!
    画像
    Rによっお投皿されたツむヌト

    これがRを䜿う匷みです.
    Pythonで同じこずをしようずするずTwitterデベロッパヌに登録しおAPI Keyを取埗する必芁があるので数時間から数日の時間がかかりたす.

    コヌドもAPI Keyなどを蚘述しない䞊, Rはラむブラリを読み蟌むず関数を組み蟌み関数のように䜿えるので圧倒的に簡朔に曞けたす.

    RでTwitterデヌタを取埗

    Twitterデヌタを取埗するのも䞀行で終わりです.
    たさに必殺の䞀撃ですね.

    入力

    library(rtweet)
    
    tweets = search_tweets(q = "アルセりス", n = 100)

    出力

    > library(rtweet)
    > tweets = search_tweets(q = "アルセりス", n = 100)
    画像
    たった1行でデヌタをここたで取埗できる

    たった䞀行でこれだけの情報を取埗するこずができたす.

    CSVにしお保存

    dplyrずいうラむブラリを䜿うので必芁に応じおむンストヌルしおください.

    library(dplyr)
    as_data_frame(tweets)
    
    var_list <- c(
      "created_at",
      "screen_name",
      "text",
      "retweet_count"
    )
    tweet_data <- select(tweets, one_of(var_list))
    write.csv(x = tweet_data, file = "./tweet_data.csv", row.names=FALSE)

    ゚ンコヌドは人によっお環境が違うず思うので各自で調敎しおみおください

    おわりに

    今回はR蚀語を䜿っおTwitterのデヌタを収集する方法を解説したした
    「Rにちょっずでも興味を持った」ずいう方はぜひハヌトボタンを抌しおいっおください

    モチベヌションが䞊がりたす

    蚘事内で䞍明な点等ございたしたら気軜にご連絡ください.

    Twitter: @kitahara_dev
    email: kitahara.main1@gmail.com

    参考文献

    おたけ

    今回䜿ったコヌドを茉せおおきたす
    必芁に応じお䜿っおみおください.


     
     

    Kitahara

     
     
    Software Engineer Language: Python/JavaScript Certification: JSSC Grade Pre-1 デヌタの収集ず可芖化の方法を発信しおいたす

    あなたぞのおすすめ