
ãããŒã¿ã®éãæ¹è¬åº§ã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ã䜿ã匷ã¿ã§ã.
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)
ãã£ãäžè¡ã§ããã ãã®æ å ±ãååŸããããšãã§ããŸã.
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
åèæç®
ããŸã
ä»å䜿ã£ãã³ãŒããèŒããŠãããŸãïŒ
å¿
èŠã«å¿ããŠäœ¿ã£ãŠã¿ãŠãã ãã.