1 Objective

Menampilkan trending topic di twitter untuk region tertentu menggunakan wordcloud.

2 Load Package

library(rtweet)
library(wordcloud2)
library(dplyr)

3 Create Twitter API Token

create_token(app = "Your App Name", 
             consumer_key = "Your Consumer Key",
             consumer_secret = "Your Consumer Secret",
             access_token = "Your Access Token",
             access_secret = "Your Access Secret")

4 Available Twitter Trends

trend <- trends_available()
trend

trend %>% 
  filter(country == "Indonesia")

5 Get Trending Topics Data

get_trends(woeid = 23424846)

Atau

get_trends("Indonesia")

trends <- get_trends("Indonesia") %>% 
  select(trend, tweet_volume)
head(trends)

Ada beberapa kata yang sebenarnya menjadi trending topic tapi tidak mempunyai tweet_volume. Hal ini dikarenakan Twitter API tidak memberikan data yang lengkap.

trends <- trends %>% 
  filter(!is.na(tweet_volume)) %>%
  arrange(desc(tweet_volume))
# head(trends)
trends

6 Visualize With Wordcloud

trends %>% 
wordcloud2(size = 0.5)

Argumen size = 0.5 digunakan agar kata yang paling besar frekuensinya dapat muncul. Secara defaul size = 1.

LS0tDQp0aXRsZTogIlZpc3VsaXplIFR3aXR0ZXIgVHJyZW5kaW5nIFRvcGljIFdpdGggV29yZGNsb3VkIg0KYXV0aG9yOiAiQnkgQWVwIEhpZGF5YXR1bG9oIg0KZGF0ZTogIkxhc3QgVXBkYXRlOiBgciBmb3JtYXQoU3lzLkRhdGUoKSwgJyVZICViICVkJylgIg0Kb3V0cHV0OiANCiAgaHRtbF9ub3RlYm9vazoNCiAgICBudW1iZXJfc2VjdGlvbnM6IHllcw0KICAgIHRoZW1lOiBzcGFjZWxhYg0KICAgIGRmX3ByaW50OiBwYWdlZA0KICAgIHRvYzogeWVzDQogICAgdG9jX2RlcHRoOiA0DQogICAgdG9jX2Zsb2F0OiB0cnVlDQotLS0NCg0KPHN0eWxlIHR5cGU9InRleHQvY3NzIj4NCg0KYm9keXsgLyogTm9ybWFsICAgKi8NCiAgICAgIGZvbnQtc2l6ZTogMTRweDsNCiAgfQ0KdGQgeyAgLyogVGFibGUgICovDQogIGZvbnQtc2l6ZTogMTJweDsNCn0NCmgxLnRpdGxlIHsNCiAgZm9udC1zaXplOiAzOHB4Ow0KICBjb2xvcjogbGlnaHRibHVlOw0KICBmb250LXdlaWdodDogYm9sZDsNCn0NCmgxIHsgLyogSGVhZGVyIDEgKi8NCiAgZm9udC1zaXplOiAyNHB4Ow0KICBjb2xvcjogRGFya0JsdWU7DQp9DQpoMiB7IC8qIEhlYWRlciAyICovDQogIGZvbnQtc2l6ZTogMjBweDsNCiAgY29sb3I6IERhcmtCbHVlOw0KfQ0KaDMgeyAvKiBIZWFkZXIgMyAqLw0KICBmb250LXNpemU6IDE2cHg7DQojICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsNCiAgY29sb3I6IERhcmtCbHVlOw0KfQ0KaDQgeyAvKiBIZWFkZXIgNCAqLw0KICBmb250LXNpemU6IDE0cHg7DQogIGNvbG9yOiBEYXJrQmx1ZTsNCn0NCmNvZGUucnsgLyogQ29kZSBibG9jayAqLw0KICAgIGZvbnQtc2l6ZTogMTJweDsNCn0NCnByZSB7IC8qIENvZGUgYmxvY2sgLSBkZXRlcm1pbmVzIGNvZGUgc3BhY2luZyBiZXR3ZWVuIGxpbmVzICovDQogICAgZm9udC1zaXplOiAxMnB4Ow0KfQ0KPC9zdHlsZT4NCg0KDQpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0NCiNrbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpDQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobz1UUlVFLCByZXN1bHRzPSdob2xkJywgd2FybmluZz1GQUxTRSwgZmlnLnNob3c9J2hvbGQnLCBtZXNzYWdlPUZBTFNFKSANCm9wdGlvbnMoc2NpcGVuID0gOTkpDQpgYGANCg0KIyBPYmplY3RpdmUNCg0KTWVuYW1waWxrYW4gdHJlbmRpbmcgdG9waWMgZGkgdHdpdHRlciB1bnR1ayByZWdpb24gdGVydGVudHUgbWVuZ2d1bmFrYW4gd29yZGNsb3VkLg0KDQojIExvYWQgUGFja2FnZQ0KDQpgYGB7cn0NCmxpYnJhcnkocnR3ZWV0KQ0KbGlicmFyeSh3b3JkY2xvdWQyKQ0KbGlicmFyeShkcGx5cikNCmBgYA0KDQojIENyZWF0ZSBUd2l0dGVyIEFQSSBUb2tlbg0KDQpgYGB7ciBpbmNsdWRlPUZBTFNFfQ0KY3JlYXRlX3Rva2VuKGFwcCA9ICJhZXBUd2l0dGVSIiwgDQogICAgICAgICAgICAgY29uc3VtZXJfa2V5ID0gIjc3YzZ3NnE4VHZZcDlzckwxc1U0RURRdWwiLA0KICAgICAgICAgICAgIGNvbnN1bWVyX3NlY3JldCA9ICI0eFVNczRuSDBtcVRybHVqYXRZWjVIVmwzcXYzUjd6VzF4MnZwOGdydkpibnRTMUxURSIsDQogICAgICAgICAgICAgYWNjZXNzX3Rva2VuID0gIjIxODM2NzY2NC1YcE1wUjFZRXVQU0hQcU1DQ2ZKTFhNSjFzbnh1NkxUNlBKcjNWM2ZWIiwNCiAgICAgICAgICAgICBhY2Nlc3Nfc2VjcmV0ID0gImJ5QlFwTUpLZzg5bVdEcXhwdFo5aG5GaFB2STAzM1lxZ1hBbVF2RDQ5WkVYMSIpDQpgYGANCg0KYGBge3IgZXZhbD1GQUxTRX0NCmNyZWF0ZV90b2tlbihhcHAgPSAiWW91ciBBcHAgTmFtZSIsIA0KICAgICAgICAgICAgIGNvbnN1bWVyX2tleSA9ICJZb3VyIENvbnN1bWVyIEtleSIsDQogICAgICAgICAgICAgY29uc3VtZXJfc2VjcmV0ID0gIllvdXIgQ29uc3VtZXIgU2VjcmV0IiwNCiAgICAgICAgICAgICBhY2Nlc3NfdG9rZW4gPSAiWW91ciBBY2Nlc3MgVG9rZW4iLA0KICAgICAgICAgICAgIGFjY2Vzc19zZWNyZXQgPSAiWW91ciBBY2Nlc3MgU2VjcmV0IikNCmBgYA0KDQojIEF2YWlsYWJsZSBUd2l0dGVyIFRyZW5kcw0KDQpgYGB7cn0NCnRyZW5kIDwtIHRyZW5kc19hdmFpbGFibGUoKQ0KdHJlbmQNCnRyZW5kICU+JSANCiAgZmlsdGVyKGNvdW50cnkgPT0gIkluZG9uZXNpYSIpDQpgYGANCg0KIyBHZXQgVHJlbmRpbmcgVG9waWNzIERhdGENCmBgYHtyfQ0KZ2V0X3RyZW5kcyh3b2VpZCA9IDIzNDI0ODQ2KQ0KYGBgDQpBdGF1DQpgYGB7cn0NCmdldF90cmVuZHMoIkluZG9uZXNpYSIpDQpgYGANCg0KYGBge3J9DQp0cmVuZHMgPC0gZ2V0X3RyZW5kcygiSW5kb25lc2lhIikgJT4lIA0KICBzZWxlY3QodHJlbmQsIHR3ZWV0X3ZvbHVtZSkNCmhlYWQodHJlbmRzKQ0KYGBgDQoNCkFkYSBiZWJlcmFwYSBrYXRhIHlhbmcgc2ViZW5hcm55YSBtZW5qYWRpIHRyZW5kaW5nIHRvcGljIHRhcGkgdGlkYWsgbWVtcHVueWFpIGB0d2VldF92b2x1bWVgLiBIYWwgaW5pIGRpa2FyZW5ha2FuIFR3aXR0ZXIgQVBJIHRpZGFrIG1lbWJlcmlrYW4gZGF0YSB5YW5nIGxlbmdrYXAuDQoNCmBgYHtyfQ0KdHJlbmRzIDwtIHRyZW5kcyAlPiUgDQogIGZpbHRlcighaXMubmEodHdlZXRfdm9sdW1lKSkgJT4lDQogIGFycmFuZ2UoZGVzYyh0d2VldF92b2x1bWUpKQ0KIyBoZWFkKHRyZW5kcykNCnRyZW5kcw0KYGBgDQoNCiMgVmlzdWFsaXplIFdpdGggV29yZGNsb3VkDQoNCmBgYHtyIGZpZy53aWR0aD05fQ0KdHJlbmRzICU+JSANCndvcmRjbG91ZDIoc2l6ZSA9IDAuNSkNCmBgYA0KDQpBcmd1bWVuIGBzaXplID0gMC41YCBkaWd1bmFrYW4gYWdhciBrYXRhIHlhbmcgcGFsaW5nIGJlc2FyIGZyZWt1ZW5zaW55YSBkYXBhdCBtdW5jdWwuIFNlY2FyYSBkZWZhdWwgYHNpemUgPSAxYC4NCg0K

Visulize Twitter Trrending Topic With Wordcloud

By Aep Hidayatuloh

Last Update: 2019 Jul 22

1 Objective

2 Load Package

3 Create Twitter API Token

4 Available Twitter Trends

6 Visualize With Wordcloud