Twitter Analysis of #HariAyahNasional on Twitter

Mengutip Tweet dari Twitter

Mengambil Tweet dari Twitter

# Load packages
library(rtweet)

Melakukan pendaftaran API twitter untuk mendapatkan akses.

# Twitter authentication
create_token(
  app             = "my_twitter_research_app",
  consumer_key    = consumer_key,
  consumer_secret = consumer_secret,
  access_token    = access_token,
  access_secret   = access_secret)

<Token>
<oauth_endpoint>
 request:   https://api.twitter.com/oauth/request_token
 authorize: https://api.twitter.com/oauth/authenticate
 access:    https://api.twitter.com/oauth/access_token
<oauth_app> my_twitter_research_app
  key:    9kFECTgM6pabxmHTokUdFsNiS
  secret: <hidden>
<credentials> oauth_token, oauth_token_secret
---

# Retrieve tweets
tweets <- search_tweets("#HariAyahNasional", n = 10000, langs="en", tweet_mode="extended")

Searching for tweets...
Rate limit exceeded - 88Rate limit exceededFinished collecting tweets!

Tweets Description

## plot time series of tweets
ts_plot(tweets, "3 hours") +
  ggplot2::theme_minimal() +
  ggplot2::theme(plot.title = ggplot2::element_text(face = "bold")) +
  ggplot2::labs(
    x = NULL, y = NULL,
    title = "Frequency of #Educations Twitter statuses from past 30 days",
    subtitle = "Twitter status (tweet) counts aggregated using three-hour intervals",
    caption = "\nSource: Data collected from Twitter's REST API via rtweet"
  )

Berdasarkan grafik diatas diketahui bahwa masyarakat yang membahas tentang #HariAyahNasional dalam sehari terlihat pada jam 09.00 ada 6000 masyarakat yang memberikan tweet tentang #HariAyahNasional dan pada jam 12.00 masyarakat yg memberikan tweet tentang #HariAyahNasional menurun hingga 4000 tweet dari jam 09.00. Hal ini dapat dikatakan bahwa sudah menurunnya antusiasme masyarakat yg memberikan tweet tentang #HariAyahNasional

Pengguna Twitter menggunakan #HariAyahNasional seperti berikut.

head(tweets)

Text Cleaning

library(tm)

Build corpus

# build a corpus, and specify the source to be character vectors 
myCorpus <- Corpus(VectorSource(tweets$text))
# convert to lower case
myCorpus <- tm_map(myCorpus, content_transformer(tolower))

Error in FUN(content(x), ...) : 
  invalid input 'Hade goreng babeh sorangan .
Hampura pah ❤️🙏🏻 .
.
.
#hariayah 
#hariayahnasional 
#alhamdulilah 
#kieuwe 
.
.
#burgerkill 
#undefeated
#begundal 
#chronicrock 
#chronicrockmerch https://t.co/b2QcnYwB9G' in 'utf8towcs'

Frequent Words

Build Term Document Matrix

Top Frequent Terms

Apabila grafik yang di

Wordcloud

Build Wordcloud