Analisis Data Twitter Eruption Marapi
SYARLAH ULFIANTY
30 November 2023
#Library
library(wordcloud)## Loading required package: RColorBrewerlibrary(tm)## Loading required package: NLPlibrary(textclean)
library(tidytext)
library(ggplot2)##
## Attaching package: 'ggplot2'## The following object is masked from 'package:NLP':
##
## annotatelibrary(parallel)
library(tokenizers)
library(tau)
library(NLP)
library(stringr)
library(devtools)## Loading required package: usethislibrary(quanteda)## Package version: 3.3.1
## Unicode version: 13.0
## ICU version: 69.1## Parallel computing: 4 of 4 threads used.## See https://quanteda.io for tutorials and examples.##
## Attaching package: 'quanteda'## The following object is masked from 'package:tm':
##
## stopwords## The following objects are masked from 'package:NLP':
##
## meta, meta<-library(kayadata)
library(syuzhet)
library(e1071)
library(sentimentr)##
## Attaching package: 'sentimentr'## The following object is masked from 'package:syuzhet':
##
## get_sentenceslibrary(SentimentAnalysis)##
## Attaching package: 'SentimentAnalysis'## The following object is masked from 'package:base':
##
## writelibrary(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(pacman)
library(readxl)
pacman::p_load_gh("trinker/textstem")
pacman::p_load(textstem, dplyr)DATASET
Dataset yang digunakan adalah dataset tentang sianida yang diambil dari hasil tweet.Yang bisa di akses di bawah ini:
Import Dataset
setwd("C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/Tugas PRA UAS")
Datasianida<- read.csv("eruptionmarapi.csv")
tweetsianida<-Datasianida$full_textLowercase
#lowercase
tweetsianida <- tolower(tweetsianida)
head(tweetsianida)## [1] "indonesia: death toll from mt. marapi eruption rises to 22\" the death toll from the eruption of mount marapi on the island of sumatra"
## [2] "🚨 breaking news - authorities end search after marapi volcano eruption kills 23 - the jakarta post the jakarta post https://t.co/wgz84glhlu #breakingnews #breaking #volcano"
## [3] "https://t.co/eyviab7xth indonesia ends search operation after marapi eruption kills 23 https://t.co/dmi4g0ytqi"
## [4] "indonésie : l’éruption du volcan marapi fait au moins onze morts. ça semble cuit également pour les 12 randonneurs toujours recherchés l'article sur https://t.co/6vogn797jz #indonésie #volcanmarapi #éruption #randonneurs #humour #satire #actualités #international #jeudiphoto https://t.co/c9q6i1px85"
## [5] "survivor of indonesia's marapi eruption says will never hike again https://t.co/o41per2gyv"
## [6] "⚫️nous déplorons la perte de vies humaines suite à l'éruption du volcan marapi sur l'île de sumatra. j'adresse nos condoléances au peuple et au gouvernement indonésiens et notre sympathie aux familles et aux proches des victimes."#contraction:kata singkat menjadi kata asli
tweetsianida <- replace_contraction(tweetsianida)
head(tweetsianida)## [1] "indonesia: death toll from mt. marapi eruption rises to 22\" the death toll from the eruption of mount marapi on the island of sumatra"
## [2] "🚨 breaking news - authorities end search after marapi volcano eruption kills 23 - the jakarta post the jakarta post https://t.co/wgz84glhlu #breakingnews #breaking #volcano"
## [3] "https://t.co/eyviab7xth indonesia ends search operation after marapi eruption kills 23 https://t.co/dmi4g0ytqi"
## [4] "indonésie : l’éruption du volcan marapi fait au moins onze morts. ça semble cuit également pour les 12 randonneurs toujours recherchés l'article sur https://t.co/6vogn797jz #indonésie #volcanmarapi #éruption #randonneurs #humour #satire #actualités #international #jeudiphoto https://t.co/c9q6i1px85"
## [5] "survivor of indonesia's marapi eruption says will never hike again https://t.co/o41per2gyv"
## [6] "⚫️nous déplorons la perte de vies humaines suite à l'éruption du volcan marapi sur l'île de sumatra. j'adresse nos condoléances au peuple et au gouvernement indonésiens et notre sympathie aux familles et aux proches des victimes."tweetsianida <- replace_word_elongation(tweetsianida)
head(tweetsianida)## [1] "indonesia: death toll from mt. marapi eruption rises to 22\" the death toll from the eruption of mount marapi on the island of sumatra"
## [2] "🚨 breaking news - authorities end search after marapi volcano eruption kills 23 - the jakarta post the jakarta post https://t.co/wgz84glhlu #breakingnews #breaking #volcano"
## [3] "https://t.co/eyviab7xth indonesia ends search operation after marapi eruption kills 23 https://t.co/dmi4g0ytqi"
## [4] "indonésie : l’éruption du volcan marapi fait au moins onze morts. ça semble cuit également pour les 12 randonneurs toujours recherchés l'article sur https://t.co/6vogn797jz #indonésie #volcanmarapi #éruption #randonneurs #humour #satire #actualités #international #jeudiphoto https://t.co/c9q6i1px85"
## [5] "survivor of indonesia's marapi eruption says will never hike again https://t.co/o41per2gyv"
## [6] "⚫️nous déplorons la perte de vies humaines suite à l'éruption du volcan marapi sur l'île de sumatra. j'adresse nos condoléances au peuple et au gouvernement indonésiens et notre sympathie aux familles et aux proches des victimes."Menghapus simbol
tweetsianida <- strip(tweetsianida)
head(tweetsianida)## [1] "indonesia death toll from mt marapi eruption rises to the death toll from the eruption of mount marapi on the island of sumatra"
## [2] "🚨 breaking news authorities end search after marapi volcano eruption kills the jakarta post the jakarta post httpstcowgz glhlu breakingnews breaking volcano"
## [3] "httpstcoeyviab xth indonesia ends search operation after marapi eruption kills httpstcodmi g ytqi"
## [4] "indonésie léruption du volcan marapi fait au moins onze morts ça semble cuit également pour les randonneurs toujours recherchés l'article sur httpstco vogn jz indonésie volcanmarapi éruption randonneurs humour satire actualités international jeudiphoto httpstcoc q i px"
## [5] "survivor of indonesia's marapi eruption says will never hike again httpstcoo per gyv"
## [6] "nous déplorons la perte de vies humaines suite à l'éruption du volcan marapi sur l'île de sumatra j'adresse nos condoléances au peuple et au gouvernement indonésiens et notre sympathie aux familles et aux proches des victimes"stemming/lemmatizing = kata dasar
stem_strings(tweetsianida)## [1] "indonesia death toll from mt marapi erupt rise to the death toll from the erupt of mount marapi on the island of sumatra"
## [2] "🚨 break new author end search after marapi volcano erupt kill the jakarta post the jakarta post httpstcowgz glhlu breakingnew break volcano"
## [3] "httpstcoeyviab xth indonesia end search oper after marapi erupt kill httpstcodmi g ytqi"
## [4] "indonési léruption du volcan marapi fait au moin onz mort ça sembl cuit également pour le randonneur toujour recherché l'articl sur httpstco vogn jz indonési volcanmarapi éruption randonneur humour satir actualité intern jeudiphoto httpstcoc q i px"
## [5] "survivor of indonesia' marapi erupt sai will never hike again httpstcoo per gyv"
## [6] "nou déploron la pert de vi humain suit à l'éruption du volcan marapi sur l'île de sumatra j'adress no condolé au peupl et au gouvern indonésien et notr sympathi aux famil et aux proch de victim"
## [7] "marapi volcano"
## [8] "🚨 break new survivor of indonesia' marapi erupt sai will never hike again reuter httpstcolscz c mvl breakingnew break volcano"
## [9] "indonesia end search for victim of erupt at mount marapi volcano that kill climber trend latestnew httpstcoatja tueh"
## [10] "indonesia end search for victim of erupt at mount marapi volcano that kill climber trend latestnew httpstcoia af meam"
## [11] "mt marapi erupt no malaysian affect bernamanew httpstcolqeefm xbn httpstcowrhi h tcz"
## [12] "author end search after marapi volcano erupt kill jakpost httpstcobhfnwujfqg httpstcoc lctm wbl"
## [13] "tom efp it been happen too mani time lt it veri alarm tbh"
## [14] "mount marapi erupt victim found"
## [15] "i am scare and i do not want to do thi hike again"
## [16] "the death toll from a volcan erupt in indonesia ha gone up to"
## [17] "survivor of indonesia' marapi erupt sai will never hike again httpstcowxctgpr pi httpstcopboi fput"
## [18] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcoxklnsk kob"
## [19] "indonési fin de recherch aprè léruption du volcan marapi"
## [20] "corp ont été retrouvé"
## [21] "survivor of indonesia' marapi erupt sai will never hike again httpstco wp kzmhyb httpstcozv z peasc"
## [22] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcoefkowzgkcu"
## [23] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcoh ppbiq ua"
## [24] "survivor of indonesia' marapi erupt sai will never hike again httpstcokpmw zv wv"
## [25] "at least peopl have been kill a a result of mt marapi' erupt in western sumatra indonesia sit on the socal ' pacif ring of fire ' and ha activ volcano but how easi i it to predict volcan erupt httpstcoavrkpjt gr httpstco kscsdxfbj"
## [26] "survivor of indonesia' marapi erupt sai will never hike again httpstcolpcmsfjxpk httpstcoulfi oqgi"
## [27] "indonési fin de recherch aprè léruption du volcan marapi"
## [28] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcotpt dilv"
## [29] "rewrit thi titl indonesia end search for victim of erupt at mount marapi volcano after dead detail on httpstcor kynqbrsu batu palano"
## [30] "rewrit thi titl indonesia end search for victim of erupt at mount marapi volcano after dead detail on httpstcojhbdw kc batu palano"
## [31] "survivor of indonesia' marapi erupt sai will never hike again httpstcogpxjj ytui"
## [32] "indonesia end search for victim of erupt at mount marapi volcano that kill climber wftv indonesianew asianew breakingnew video indonesian author have end the search for ani more victim among climber who were caught by a httpstcoqpu rgyhwi"
## [33] "franc info 👮 indonési le autorité mettent fin aux recherch aprè léruption du volcan marapi qui a fait mort 👮 lire l'articl httpstcok m oxw de httpstcodjkcqxo fn"
## [34] "survivor of indonesia' marapi erupt sai no more hike for her httpstcodrwbgtdbfx"
## [35] "indonési fin de recherch aprè l'éruption meurtrièr du volcan marapi httpstcoqwyzjotap indonési volcan éruption secour httpstco hq remu"
## [36] "indonési le autorité mettent fin aux recherch aprè l'éruption du volcan marapi qui a fait mort httpstcojsu hyhdu"
## [37] "indonési fin de recherch aprè l'éruption meurtrièr du volcan marapi httpstco nnonqk ff"
## [38] "indonesia end search after volcano erupt kill mount marapi stand a the most activ volcano in sumatra and i on of nearli activ volcano in the indonesian archipelago indonesiavolcano volcanoerupt httpstcop wykwbo"
## [39] "indonesia end search for victim of erupt at mount marapi volcano that kill climber world httpstcoifbxxrgdhv"
## [40] "survivor of indonesia' marapi erupt sai will never hike again httpstcomkshlor rl"
## [41] "indonesia end search for victim of erupt at mount marapi volcano that kill climber wsoc tv indonesianew indonesianew asianew breakingnew video indonesian author have end the search for ani more victim among climber who were httpstco hk iv t"
## [42] "at least climber dead in indonesia mount marapi volcano erupt nation rescuer search the hazard slope of indonesia mount marapi volcano found httpstco l jvym e"
## [43] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcoiln cd"
## [44] "no malaysian were report to be affect by the erupt of mount marapi in west sumatra provinc"
## [45] "disusul pada pukul po pengamatan gunung api pga marapi pun membuat ven volcan erupt notic adapun penyebab terjadinya erupsi gunung marapi ini diduga akibat akumulasi ga yang sudah terjadi bertahuntahun sebelumnya httpstcoata h eiwx"
## [46] "no malaysian affect by mount marapi erupt fmtnew fmteng httpstcobutf aiebi"
## [47] "massiv erupt at the marapi volcano in the west sumatra provinc of indonesia 🃳🃳 httpstcodzgq hoyck"
## [48] "woman record her own death"
## [49] "indonesia video fatal erupt of mount marapi climber di"
## [50] "the search ha end for ani more victim among climber who were caught by a weekend erupt of indonesia mount marapi volcano that kill peopl and injur sever other"
## [51] "indonési fin de recherch aprè l'éruption meurtrièr du volcan marapi httpstcovbowsxodhp"
## [52] "indonesia end search for victim of erupt at mount marapi volcano after dead httpstcokbsjgzkrfw"
## [53] "indonesia end search for victim of erupt at mount marapi volcano that kill climber wsbtv channel indonesianew indonesianew indonesia indonesiabreakingnew video indonesian author have end the search for ani more victim among httpstcodbqz itim"
## [54] "mani climber die a victim of the marapi volcano erupt in indonesia marapi volcano erupt indonesia httpstcorymwx l u"
## [55] "rescuer sai at least ar dead in indonesia after mount marapi erupt on saturdai about climber were strand on the peak after the erupt danger weather condit and the steep terrain ar be blame for delai rescu effort httpstcoeurpfdt"
## [56] "indonési fin de recherch aprè léruption meurtrièr du volcan marapi httpstcobu vkkiux mond"
## [57] "🚨 break new indonesia end search for victim of erupt at marapi volcano httpstcofixh nyvu httpstcoe cnoefk"
## [58] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcomojp mnbo"
## [59] "indonesia end search for victim of erupt at marapi volcano httpstcotrgkdsrjjm"
## [60] "hubgeologi youtub question could the past marapi erupt have been a veri earli warn of the new erupt httpstco qwblgkrwb"
## [61] "indonési fin de recherch aprè léruption meurtrièr du volcan marapi httpstcoxrgw q bwy"
## [62] "fin de recherch aprè léruption meurtrièr du volcan marapi httpstcofa qygednc httpstco e qc iz"
## [63] "🚨 break new death toll from indonesia' marapi volcano erupt hit rescu mission complet httpstcohz ecrnrdj english httpstco uqxmab"
## [64] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber wv new httpstcoa d lx lcc"
## [65] "i it safe to travel to indonesia follow the mount marapi erupt httpstcoar m vadxk"
## [66] "indonesia end search for victim of marapi volcano erupt that kill climber httpstcowppb gmdqj"
## [67] "indonesia end search for victim of marapi volcano erupt that kill climber httpstcoj ticvvmp"
## [68] "indonesia end search for victim of marapi volcano erupt that kill climber httpstconpwgamonfb"
## [69] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber newspress now httpstcotaiuc ntd"
## [70] "death toll from indonesia' marapi volcano erupt hit rescu mission complet httpstcouu kwokou tempoenglish"
## [71] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber abc new httpstcodevm ycvqf"
## [72] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber abc new httpstcoazcej jkui"
## [73] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano honolulu staradvertis httpstcoql lo emil"
## [74] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstco gk xhtin"
## [75] "🇵🇵a m earthquak struck surigaldelsur affect over k ppl 🇵🇵the erupt of mt marapi in indonesia claim total of live 🇵🇵over k ppl displac in rakhin"
## [76] "mount marapi erupt no malaysian affect httpstcox nczcn um tmrworld tmrnew"
## [77] "mt marapi erupt no malaysian affect"
## [78] "indonesia video fatal erupt of mount marapi volcano local climber di"
## [79] "mt marapi erupt no malaysian affect"
## [80] "mount marapi erupt no m'sian affect httpstcogzvbchegju"
## [81] "mt marapi erupt no malaysian affect"
## [82] "indonesia rescuer evacu all climber from marapi volcano after erupt kill httpstcok islcqgb httpstcok g mihst"
## [83] "selangor journal indonesia rescuer evacu all climber from marapi volcano after erupt kill httpstcozwt ut httpstcoxfuccexkwi"
## [84] "mount marapi erupt rescu team battl element a death toll rise to httpstcomoaezogclb indonesia volcanicerupt mountmarapi"
## [85] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber abc new httpstco c dj f k breakingnew break volcano"
## [86] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcoorvtujmf y httpstcodqayk pjcb"
## [87] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcodbqbh so via stcatstandard"
## [88] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcosuynjemr via wellandtribun"
## [89] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber watertown daili time httpstcov vjhzgueq breakingnew break volcano"
## [90] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcodu hjckztp httpstcoh au o c breakingnew break volcano"
## [91] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber hamilton spectat httpstcohtcqgxnlet breakingnew break volcano"
## [92] "indonesia end search for victim of erupt at mount marapi volcano that kill climber httpstcoaww jfiyjh sdld sandiego jdata"
## [93] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber toronto star httpstco k k ycpl breakingnew break volcano"
## [94] "🚨 break new indonesia end search for victim of erupt at mount marapi volcano that kill climber ktvz httpstcozvzyxhvet breakingnew break volcano"
## [95] "mount marapi death toll from indonesian erupt rise to httpstcofyijg vr x httpstcou gyrgqtxr"
## [96] "a a result of the erupt of the marapi volcano in indonesia"
## [97] "sumatra"
## [98] "massiv erupt at the marapi volcano in the west sumatra provinc of indonesia 🃳🃳 video fpmki httpstco uzepn bwf"
## [99] "rescuer found the remain of the last victim of the marapi volcano erupt wednesdai"
## [100] "indonesia' marapi volcano erupt leav dead on still miss tran canadian hardest hit"
## [101] "massiv erupt at the marapi volcano in the west sumatra provinc of indonesia 🃳🃳 httpstcomjqpzzpgo"
## [102] "indonesia' marapi volcano erupt leav dead articl china daili httpstcoj kh fzah"
## [103] "indonesia' marapi volcano erupt"
## [104] "httpstcopi nkq gio dead after marapi volcano after erupt"
## [105] "dead after marapi volcano erupt"
## [106] "the erupt of the marapi volcano continu"
## [107] "🚨 break new death toll in indonesia' mount marapi volcano erupt reach indiabloom first portal on digit new indiabloom httpstcozf drxpbt breakingnew break volcano"
## [108] "death toll in indonesia' mount marapi volcano erupt reach indiabloom first portal on digit new manag httpstcou jdkmobv mountmarapi indonesia volcanoerupt westsumatra"
## [109] "rescuer found the remain of the last victim of the marapi volcano erupt wednesdai"lemmatize_strings(tweetsianida)## [1] "indonesia death toll from mt marapi eruption rise to the death toll from the eruption of mount marapi on the island of sumatra"
## [2] "🚨 break news authority end search after marapi volcano eruption kill the jakarta post the jakarta post httpstcowgz glhlu breakingnews break volcano"
## [3] "httpstcoeyviab xth indonesia end search operation after marapi eruption kill httpstcodmi g ytqi"
## [4] "indonésie léruption du volcan marapi fait au moins onze morts ça semble cuit également pour les randonneurs toujours recherchés l'article sur httpstco vogn jz indonésie volcanmarapi éruption randonneurs humour satire actualités international jeudiphoto httpstcoc q i px"
## [5] "survivor of indonesia's marapi eruption say will never hike again httpstcoo per gyv"
## [6] "nous déplorons la perte de vie humaines suite à l'éruption du volcan marapi sur l'île de sumatra j'adresse no condoléances au peuple et au gouvernement indonésiens et notre sympathie aux familles et aux proches des victimes"
## [7] "marapi volcano"
## [8] "🚨 break news survivor of indonesia's marapi eruption say will never hike again reuters httpstcolscz c mvl breakingnews break volcano"
## [9] "indonesia end search for victim of eruption at mount marapi volcano that kill climber trend latestnews httpstcoatja tueh"
## [10] "indonesia end search for victim of eruption at mount marapi volcano that kill climber trend latestnews httpstcoia af meam"
## [11] "mt marapi eruption no malaysian affect bernamanews httpstcolqeefm xbn httpstcowrhy h tcz"
## [12] "authority end search after marapi volcano eruption kill jakpost httpstcobhfnwujfqg httpstcoc lctm wbl"
## [13] "tom efps its be happen too many time lt its very alarm tbh"
## [14] "mount marapi eruption victim find"
## [15] "i be scare and i do not want to do this hike again"
## [16] "the death toll from a volcanic eruption in indonesia have go up to"
## [17] "survivor of indonesia's marapi eruption say will never hike again httpstcowxctgpr pi httpstcopboy fput"
## [18] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcoxklnsk kob"
## [19] "indonésie fin des recherches après léruption du volcan marapi"
## [20] "corp ont été retrouvés"
## [21] "survivor of indonesia's marapi eruption say will never hike again httpstco wp kzmhyb httpstcozv z peasc"
## [22] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcoefkowzgkcu"
## [23] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcoh ppbiq ua"
## [24] "survivor of indonesia's marapi eruption say will never hike again httpstcokpmw zv wv"
## [25] "at less people have be kill as a result of mt marapi's eruption in western sumatra indonesia sit on the socalled ' pacific ring of fire ' and have active volcano but how easy be it to predict volcanic eruption httpstcoavrkpjt gr httpstco kscsdxfbj"
## [26] "survivor of indonesia's marapi eruption say will never hike again httpstcolpcmsfjxpk httpstcoulfy oqgys"
## [27] "indonésie fin des recherches après léruption du volcan marapi"
## [28] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcotpt dilv"
## [29] "rewrite this title indonesia end search for victim of eruption at mount marapi volcano after dead detail on httpstcor kynqbrsu batu palano"
## [30] "rewrite this title indonesia end search for victim of eruption at mount marapi volcano after dead detail on httpstcojhbdw kc batu palano"
## [31] "survivor of indonesia's marapi eruption say will never hike again httpstcogpxjj ytui"
## [32] "indonesia end search for victim of eruption at mount marapi volcano that kill climber wftv indonesianews asianews breakingnews video indonesian authority have end the search for any much victim among climber who be catch by a httpstcoqpu rgyhwy"
## [33] "france info 👮 indonésie les autorités mettent fin aux recherches après léruption du volcan marapi qui a fait morts 👮 lira l'article httpstcok be oxw de httpstcodjkcqxo fn"
## [34] "survivor of indonesia's marapi eruption say no much hike for her httpstcodrwbgtdbfx"
## [35] "indonésie fin des recherches après l'éruption meurtrière du volcan marapi httpstcoqwyzjotap indonésie volcan éruption secours httpstco hq remu"
## [36] "indonésie les autorités mettent fin aux recherches après l'éruption du volcan marapi qui a fait morts httpstcojsu hyhdu"
## [37] "indonésie fin des recherches après l'éruption meurtrière du volcan marapi httpstco nnonqk ff"
## [38] "indonesia end search after volcano eruption kill mount marapi stand as the much active volcano in sumatra and be one of nearly active volcano in the indonesian archipelago indonesiavolcano volcanoeruption httpstcop wykwbos"
## [39] "indonesia end search for victim of eruption at mount marapi volcano that kill climber world httpstcoifbxxrgdhv"
## [40] "survivor of indonesia's marapi eruption say will never hike again httpstcomkshlor rl"
## [41] "indonesia end search for victim of eruption at mount marapi volcano that kill climber wsoc tv indonesianews indonesianews asianews breakingnews video indonesian authority have end the search for any much victim among climber who be httpstco hk iv t"
## [42] "at less climber dead in indonesias mount marapi volcano eruption national rescuer search the hazardous slope of indonesias mount marapi volcano find httpstco l jvym e"
## [43] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcoiln cd"
## [44] "no malaysian be report to be affect by the eruption of mount marapi in west sumatra province"
## [45] "disusul pada pukul pos pengamatan gunung api pga marapi pun membuat ven volcanic eruption notice adapun penyebab terjadinya erupsi gunung marapi ini diduga akibat akumulasi gas yang sudah terjadi bertahuntahun sebelumnya httpstcoata h eiwx"
## [46] "no malaysian affect by mount marapi eruption fmtnews fmteng httpstcobutf aieby"
## [47] "massive eruption at the marapi volcano in the west sumatra province of indonesia 🃳🃳 httpstcodzgq hoyck"
## [48] "woman record her own death"
## [49] "indonesia video fatal eruption of mount marapi climber die"
## [50] "the search have end for any much victim among climber who be catch by a weekend eruption of indonesias mount marapi volcano that kill people and injure several other"
## [51] "indonésie fin des recherches après l'éruption meurtrière du volcan marapi httpstcovbowsxodhp"
## [52] "indonesia end search for victim of eruption at mount marapi volcano after dead httpstcokbsjgzkrfw"
## [53] "indonesia end search for victim of eruption at mount marapi volcano that kill climber wsbtv channel indonesianews indonesianews indonesia indonesiabreakingnews video indonesian authority have end the search for any much victim among httpstcodbqz itim"
## [54] "many climber die as victim of the marapi volcano eruption in indonesia marapi volcano eruption indonesia httpstcorymwx l u"
## [55] "rescuer say at less be dead in indonesia after mount marapi erupt on saturday about climber be strand on the peak after the eruption dangerous weather condition and the steep terrain be be blame for delay rescue effort httpstcoeurpfdt"
## [56] "indonésie fin des recherches après léruption meurtrière du volcan marapi httpstcobu vkkiux monde"
## [57] "🚨 break news indonesia end search for victim of eruption at marapi volcano httpstcofixh nyvus httpstcoe cnoefk"
## [58] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcomojp mnbo"
## [59] "indonesia end search for victim of eruption at marapi volcano httpstcotrgkdsrjjm"
## [60] "hubgeology youtube question can the past marapi eruption have be a very early warn of the new eruption httpstco qwblgkrwb"
## [61] "indonésie fin des recherches après léruption meurtrière du volcan marapi httpstcoxrgw q bwy"
## [62] "fin des recherches après léruption meurtrière du volcan marapi httpstcofa qygednc httpstcos e qc iz"
## [63] "🚨 break news death toll from indonesia's marapi volcano eruption hit rescue mission complete httpstcohz ecrnrdj english httpstco uqxmab"
## [64] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber wv news httpstcoa have lx lcc"
## [65] "be it safe to travel to indonesia follow the mount marapi eruption httpstcoar be vadxk"
## [66] "indonesia end search for victim of marapi volcano eruption that kill climber httpstcowppb gmdqj"
## [67] "indonesia end search for victim of marapi volcano eruption that kill climber httpstcoj ticvvmp"
## [68] "indonesia end search for victim of marapi volcano eruption that kill climber httpstconpwgamonfb"
## [69] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber newspress now httpstcotaiuc ntd"
## [70] "death toll from indonesia's marapi volcano eruption hit rescue mission complete httpstcouu kwokou tempoenglish"
## [71] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber abc news httpstcodevm ycvqf"
## [72] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber abc news httpstcoazcej jkui"
## [73] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano honolulu staradvertiser httpstcoql lo emil"
## [74] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstco gk xhtin"
## [75] "🇵🇵a be earthquake strike surigaldelsur affect over k ppl 🇵🇵the eruption of mt marapi in indonesia claim total of life 🇵🇵over k ppl displace in rakhine"
## [76] "mount marapi eruption no malaysian affect httpstcox nczcn um tmrworld tmrnews"
## [77] "mt marapi eruption no malaysian affect"
## [78] "indonesia video fatal eruption of mount marapi volcano local climber die"
## [79] "mt marapi eruption no malaysian affect"
## [80] "mount marapi eruption no m'sians affect httpstcogzvbchegju"
## [81] "mt marapi eruption no malaysian affect"
## [82] "indonesia rescuer evacuate all climber from marapi volcano after eruption kill httpstcok islcqgbs httpstcok g mihst"
## [83] "selangor journal indonesia rescuer evacuate all climber from marapi volcano after eruption kill httpstcozwt ute httpstcoxfuccexkwi"
## [84] "mount marapi eruption rescue team battle element as death toll rise to httpstcomoaezogclb indonesia volcaniceruption mountmarapi"
## [85] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber abc news httpstco c dj f k breakingnews break volcano"
## [86] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcoorvtujmf y httpstcodqayk pjcb"
## [87] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcodbqbh s so via stcatstandard"
## [88] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcosuynjemre via wellandtribune"
## [89] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber watertown daily time httpstcov vjhzgueq breakingnews break volcano"
## [90] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcodu hjckztp httpstcohs au o c breakingnews break volcano"
## [91] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber hamilton spectator httpstcohtcqgxnlet breakingnews break volcano"
## [92] "indonesia end search for victim of eruption at mount marapi volcano that kill climber httpstcoaww jfiyjh sdld sandiego jdata"
## [93] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber toronto star httpstco k k ycpl breakingnews break volcano"
## [94] "🚨 break news indonesia end search for victim of eruption at mount marapi volcano that kill climber ktvz httpstcozvzyxhvete breakingnews break volcano"
## [95] "mount marapi death toll from indonesian eruption rise to httpstcofyijg vr x httpstcou gyrgqtxr"
## [96] "as a result of the eruption of the marapi volcano in indonesia"
## [97] "sumatra"
## [98] "massive eruption at the marapi volcano in the west sumatra province of indonesia 🃳🃳 video fpmki httpstco uzepn bwf"
## [99] "rescuer find the remain of the last victim of the marapi volcano eruption wednesday"
## [100] "indonesia's marapi volcano eruption leave dead one still miss trans canadian hard hit"
## [101] "massive eruption at the marapi volcano in the west sumatra province of indonesia 🃳🃳 httpstcomjqpzzpgos"
## [102] "indonesia's marapi volcano eruption leave dead article china daily httpstcoj kh fzah"
## [103] "indonesia's marapi volcano erupt"
## [104] "httpstcopy nkq gio dead after marapi volcano after eruption"
## [105] "dead after marapi volcano eruption"
## [106] "the eruption of the marapi volcano continue"
## [107] "🚨 break news death toll in indonesia's mount marapi volcano eruption reach indiablooms first portal on digital news indiablooms httpstcozf drxpbt breakingnews break volcano"
## [108] "death toll in indonesia's mount marapi volcano eruption reach indiablooms first portal on digital news management httpstcou jdkmobve mountmarapi indonesia volcanoeruption westsumatra"
## [109] "rescuer find the remain of the last victim of the marapi volcano eruption wednesday"sc<-c("driver","drive","drove","driven","drives","driving")
stem_words(sc)## [1] "driver" "drive" "drove" "driven" "drive" "drive"lemmatize_words(sc)## [1] "driver" "drive" "drive" "drive" "drive" "drive"Tokenization
#pemisahan kata dalam suatu kalimat dengan
rev <- tweetsianida %>%
rev()
rev## [1] "rescuers found the remains of the last victim of the marapi volcano eruption wednesday"
## [2] "death toll in indonesia's mount marapi volcano eruption reaches indiablooms first portal on digital news management httpstcou jdkmobve mountmarapi indonesia volcanoeruption westsumatra"
## [3] "🚨 breaking news death toll in indonesia's mount marapi volcano eruption reaches indiablooms first portal on digital news indiablooms httpstcozf drxpbt breakingnews breaking volcano"
## [4] "the eruption of the marapi volcano continues"
## [5] "dead after marapi volcano eruption"
## [6] "httpstcopy nkq gio dead after marapi volcano after eruption"
## [7] "indonesia's marapi volcano erupts"
## [8] "indonesia's marapi volcano eruption leaves dead article china daily httpstcoj kh fzah"
## [9] "massive eruption at the marapi volcano in the west sumatra province of indonesia 🃳🃳 httpstcomjqpzzpgos"
## [10] "indonesia's marapi volcano eruption leaves dead one still missing trans canadians hardest hit"
## [11] "rescuers found the remains of the last victim of the marapi volcano eruption wednesday"
## [12] "massive eruption at the marapi volcano in the west sumatra province of indonesia 🃳🃳 video fpmki httpstco uzepn bwf"
## [13] "sumatra"
## [14] "as a result of the eruption of the marapi volcano in indonesia"
## [15] "mount marapi death toll from indonesian eruption rises to httpstcofyijg vr x httpstcou gyrgqtxr"
## [16] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers ktvz httpstcozvzyxhvete breakingnews breaking volcano"
## [17] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers toronto star httpstco k k ycpl breakingnews breaking volcano"
## [18] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcoaww jfiyjh sdld sandiego jdata"
## [19] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers hamilton spectator httpstcohtcqgxnlet breakingnews breaking volcano"
## [20] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcodu hjckztp httpstcohs au o c breakingnews breaking volcano"
## [21] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers watertown daily times httpstcov vjhzgueq breakingnews breaking volcano"
## [22] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcosuynjemre via wellandtribune"
## [23] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcodbqbh s so via stcatstandard"
## [24] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcoorvtujmf y httpstcodqayk pjcb"
## [25] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers abc news httpstco c dj f k breakingnews breaking volcano"
## [26] "mount marapi eruption rescue teams battle elements as death toll rises to httpstcomoaezogclb indonesia volcaniceruption mountmarapi"
## [27] "selangor journal indonesia rescuers evacuate all climbers from marapi volcano after eruption killed httpstcozwt ute httpstcoxfuccexkwi"
## [28] "indonesia rescuers evacuate all climbers from marapi volcano after eruption killed httpstcok islcqgbs httpstcok g mihst"
## [29] "mt marapi eruption no malaysians affected"
## [30] "mount marapi eruption no m'sians affected httpstcogzvbchegju"
## [31] "mt marapi eruption no malaysians affected"
## [32] "indonesia video fatal eruption of mount marapi volcano local climbers died"
## [33] "mt marapi eruption no malaysians affected"
## [34] "mount marapi eruption no malaysians affected httpstcox nczcn um tmrworld tmrnews"
## [35] "🇵🇵a m earthquake struck surigaldelsur affected over k ppl 🇵🇵the eruption of mt marapi in indonesia claimed total of lives 🇵🇵over k ppl displaced in rakhine"
## [36] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstco gk xhtin"
## [37] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano honolulu staradvertiser httpstcoql lo emil"
## [38] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers abc news httpstcoazcej jkui"
## [39] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers abc news httpstcodevm ycvqf"
## [40] "death toll from indonesia's marapi volcano eruption hits rescue mission completed httpstcouu kwokou tempoenglish"
## [41] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers newspress now httpstcotaiuc ntd"
## [42] "indonesia ends search for victims of marapi volcano eruption that killed climbers httpstconpwgamonfb"
## [43] "indonesia ends search for victims of marapi volcano eruption that killed climbers httpstcoj ticvvmp"
## [44] "indonesia ends search for victims of marapi volcano eruption that killed climbers httpstcowppb gmdqj"
## [45] "is it safe to travel to indonesia following the mount marapi eruption httpstcoar m vadxk"
## [46] "🚨 breaking news indonesia ends search for victims of eruption at mount marapi volcano that killed climbers wv news httpstcoa d lx lcc"
## [47] "🚨 breaking news death toll from indonesia's marapi volcano eruption hits rescue mission completed httpstcohz ecrnrdj english httpstco uqxmab"
## [48] "fin des recherches après léruption meurtrière du volcan marapi httpstcofa qygednc httpstcos e qcs iz"
## [49] "indonésie fin des recherches après léruption meurtrière du volcan marapi httpstcoxrgw q bwy"
## [50] "hubgeology youtube question could the past marapi eruption have been a very early warning of the new eruption httpstco qwblgkrwb"
## [51] "indonesia ends search for victims of eruption at marapi volcano httpstcotrgkdsrjjm"
## [52] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcomojp mnbo"
## [53] "🚨 breaking news indonesia ends search for victims of eruption at marapi volcano httpstcofixh nyvus httpstcoe cnoefk"
## [54] "indonésie fin des recherches après léruption meurtrière du volcan marapi httpstcobu vkkiux monde"
## [55] "rescuers say at least are dead in indonesia after mount marapi erupted on saturday about climbers were stranded on the peak after the eruption dangerous weather conditions and the steep terrain are being blamed for delayed rescue efforts httpstcoeurpfdt"
## [56] "many climbers die as victims of the marapi volcano eruption in indonesia marapi volcano eruption indonesia httpstcorymwx l u"
## [57] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers wsbtv channel indonesianews indonesianews indonesia indonesiabreakingnews video indonesian authorities have ended the search for any more victims among httpstcodbqz itim"
## [58] "indonesia ends search for victims of eruption at mount marapi volcano after dead httpstcokbsjgzkrfw"
## [59] "indonésie fin des recherches après l'éruption meurtrière du volcan marapi httpstcovbowsxodhp"
## [60] "the search has ended for any more victims among climbers who were caught by a weekend eruption of indonesias mount marapi volcano that killed people and injured several others"
## [61] "indonesia video fatal eruption of mount marapi climbers died"
## [62] "woman records her own death"
## [63] "massive eruption at the marapi volcano in the west sumatra province of indonesia 🃳🃳 httpstcodzgq hoyck"
## [64] "no malaysians affected by mount marapi eruption fmtnews fmteng httpstcobutf aieby"
## [65] "disusul pada pukul pos pengamatan gunung api pga marapi pun membuat ven volcanic eruption notice adapun penyebab terjadinya erupsi gunung marapi ini diduga akibat akumulasi gas yang sudah terjadi bertahuntahun sebelumnya httpstcoata h eiwx"
## [66] "no malaysians were reported to be affected by the eruption of mount marapi in west sumatra province"
## [67] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcoiln cd"
## [68] "at least climbers dead in indonesias mount marapi volcano eruption national rescuers searching the hazardous slopes of indonesias mount marapi volcano found httpstco l jvym e"
## [69] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers wsoc tv indonesianews indonesianews asianews breakingnews video indonesian authorities have ended the search for any more victims among climbers who were httpstco hk iv t"
## [70] "survivor of indonesia's marapi eruption says will never hike again httpstcomkshlor rl"
## [71] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers world httpstcoifbxxrgdhv"
## [72] "indonesia ends search after volcano eruption kills mount marapi stands as the most active volcano in sumatra and is one of nearly active volcanoes in the indonesian archipelago indonesiavolcano volcanoeruption httpstcop wykwbos"
## [73] "indonésie fin des recherches après l'éruption meurtrière du volcan marapi httpstco nnonqk ff"
## [74] "indonésie les autorités mettent fin aux recherches après l'éruption du volcan marapi qui a fait morts httpstcojsu hyhdu"
## [75] "indonésie fin des recherches après l'éruption meurtrière du volcan marapi httpstcoqwyzjotap indonésie volcan éruption secours httpstco hq remu"
## [76] "survivor of indonesia's marapi eruption says no more hikes for her httpstcodrwbgtdbfx"
## [77] "france info 👮 indonésie les autorités mettent fin aux recherches après léruption du volcan marapi qui a fait morts 👮 lire l'article httpstcok m oxw de httpstcodjkcqxo fn"
## [78] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers wftv indonesianews asianews breakingnews video indonesian authorities have ended the search for any more victims among climbers who were caught by a httpstcoqpu rgyhwy"
## [79] "survivor of indonesia's marapi eruption says will never hike again httpstcogpxjj ytui"
## [80] "rewrite this title indonesia ends search for victims of eruption at mount marapi volcano after dead details on httpstcojhbdw kcs batu palano"
## [81] "rewrite this title indonesia ends search for victims of eruption at mount marapi volcano after dead details on httpstcor kynqbrsu batu palano"
## [82] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcotpt dilv"
## [83] "indonésie fin des recherches après léruption du volcan marapi"
## [84] "survivor of indonesia's marapi eruption says will never hike again httpstcolpcmsfjxpk httpstcoulfy oqgys"
## [85] "at least people have been killed as a result of mt marapi's eruption in western sumatra indonesia sits on the socalled 'pacific ring of fire' and has active volcanoes but how easy is it to predict volcanic eruptions httpstcoavrkpjt gr httpstco kscsdxfbj"
## [86] "survivor of indonesia's marapi eruption says will never hike again httpstcokpmw zv wv"
## [87] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcoh ppbiq ua"
## [88] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcoefkowzgkcu"
## [89] "survivor of indonesia's marapi eruption says will never hike again httpstco wp kzmhyb httpstcozv z peasc"
## [90] "corps ont été retrouvés"
## [91] "indonésie fin des recherches après léruption du volcan marapi"
## [92] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers httpstcoxklnsk kob"
## [93] "survivor of indonesia's marapi eruption says will never hike again httpstcowxctgpr pi httpstcopboy fput"
## [94] "the death toll from a volcanic eruption in indonesia has gone up to"
## [95] "i am scared and i do not want to do this hiking again"
## [96] "mount marapi eruption victims found"
## [97] "tom efps its been happening too many time lt its very alarming tbh"
## [98] "authorities end search after marapi volcano eruption kills jakpost httpstcobhfnwujfqg httpstcoc lctm wbl"
## [99] "mt marapi eruption no malaysians affected bernamanews httpstcolqeefm xbn httpstcowrhy h tcz"
## [100] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers trending latestnews httpstcoia af meam"
## [101] "indonesia ends search for victims of eruption at mount marapi volcano that killed climbers trending latestnews httpstcoatja tueh"
## [102] "🚨 breaking news survivor of indonesia's marapi eruption says will never hike again reuters httpstcolscz c mvl breakingnews breaking volcano"
## [103] "marapi volcano"
## [104] "nous déplorons la perte de vies humaines suite à l'éruption du volcan marapi sur l'île de sumatra j'adresse nos condoléances au peuple et au gouvernement indonésiens et notre sympathie aux familles et aux proches des victimes"
## [105] "survivor of indonesia's marapi eruption says will never hike again httpstcoo per gyv"
## [106] "indonésie léruption du volcan marapi fait au moins onze morts ça semble cuit également pour les randonneurs toujours recherchés l'article sur httpstco vogn jz indonésie volcanmarapi éruption randonneurs humour satire actualités international jeudiphoto httpstcoc q i px"
## [107] "httpstcoeyviab xth indonesia ends search operation after marapi eruption kills httpstcodmi g ytqi"
## [108] "🚨 breaking news authorities end search after marapi volcano eruption kills the jakarta post the jakarta post httpstcowgz glhlu breakingnews breaking volcano"
## [109] "indonesia death toll from mt marapi eruption rises to the death toll from the eruption of mount marapi on the island of sumatra"#menghapus kata penghubung
rev <-removeWords(rev, c("di","dan","yang","akan","agar","seperti","yaitu","kami","kami",
"mari","pada","jelang","dimana","dengan","sudah","ini","seluruh",
"diminta","tak","itu","hai","bisa","wib","oleh","mai","jam",
"masa","berikut","kalau","klik","ibodwq","terd","httpstconvv",
"httpstcoxu","yzmrlyx","tahapan","refaabdi","kota","kpu","kpuid","rt","hingga","saat",
"belum","apa","sih","suara","pesta","dindap","http","httpstco","asn","bakal"))
head(rev)## [1] "rescuers found the remains of the last victim of the marapi volcano eruption wednesday"
## [2] "death toll in indonesia's mount marapi volcano eruption reaches indiablooms first portal on digital news management httpstcou jdkmobve mountmarapi indonesia volcanoeruption westsumatra"
## [3] "🚨 breaking news death toll in indonesia's mount marapi volcano eruption reaches indiablooms first portal on digital news indiablooms httpstcozf drxpbt breakingnews breaking volcano"
## [4] "the eruption of the marapi volcano continues"
## [5] "dead after marapi volcano eruption"
## [6] "httpstcopy nkq gio dead after marapi volcano after eruption"## menyimpan data yang bersih
write.csv(rev,file = "C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/datasianida.csv", row.names = F) TermDocumenMatrix
tdm <- TermDocumentMatrix(rev)
m <- as.matrix(tdm)
View(m)
v <- sort(rowSums(m),decreasing = TRUE)WordCloud
d <- data.frame(word = names(v), freq = v)
wordcloud(d$word, d$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
tdm <- TermDocumentMatrix(rev,
control = list(wordLengths = c(1, Inf)))Frequency Matrix
# inspect frequent words
(freq.terms <- findFreqTerms(tdm, lowfreq = 10))## [1] "eruption" "marapi" "of" "the" "volcano"
## [6] "death" "in" "indonesia" "indonesia's" "mount"
## [11] "news" "breaking" "breakingnews" "🚨" "after"
## [16] "at" "ends" "for" "killed" "search"
## [21] "that" "victims" "climbers" "après" "du"
## [26] "fin" "recherches" "volcan" "indonésie"term.freq <- rowSums(as.matrix(tdm))
term.freq <- subset(term.freq, term.freq >= 10)
df <- data.frame(term = names(term.freq), freq = term.freq)
ggplot(df, aes(x = term, y = freq)) + geom_bar(stat = "identity") +
xlab("Terms") + ylab("Count") + coord_flip()
# which words are associated with 'r'?
findAssocs(tdm, "sianida", 0.2)## $sianida
## numeric(0)remove sparse terms
tdm2 <- removeSparseTerms(tdm, sparse = 0.95)
m2 <- as.matrix(tdm2)distMatrix <- dist(scale(m2))
fit <- hclust(distMatrix, method = "ward")## The "ward" method has been renamed to "ward.D"; note new "ward.D2"fit##
## Call:
## hclust(d = distMatrix, method = "ward")
##
## Cluster method : ward.D
## Distance : euclidean
## Number of objects: 51plot(fit)
rect.hclust(fit, k = 2) # cut tree into 6 clusters
Analisis Cluster K-Means
#Cluster k-means
m3 <- t(m2) # transpose the matrix to cluster documents (tweets)
set.seed(122) # set a fixed random seed
k <- 2 # number of clusters
kmeansResult <- kmeans(m3, k)
round(kmeansResult$centers, digits = 3) # cluster centers## eruption marapi of rescuers the volcano death in indonesia
## 1 0.000 1.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
## 2 0.959 0.969 0.711 0.062 0.381 0.742 0.103 0.165 0.588
## indonesia's mount news on toll breaking breakingnews 🚨 after dead
## 1 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
## 2 0.165 0.505 0.227 0.082 0.093 0.258 0.113 0.165 0.144 0.093
## at sumatra video a from to ends for killed search that victims
## 1 0.000 0.083 0.000 0.167 0.000 0.000 0.000 0.000 0.000 0.000 0.00 0.000
## 2 0.402 0.082 0.062 0.062 0.082 0.093 0.392 0.433 0.351 0.454 0.32 0.433
## climbers affected malaysians mt no après des du fin léruption
## 1 0.000 0.000 0.000 0.000 0.000 0.833 0.75 1 0.833 0.583
## 2 0.309 0.093 0.072 0.072 0.093 0.000 0.00 0 0.000 0.000
## meurtrière recherches volcan indonésie again hike never says survivor will
## 1 0.5 0.833 1.083 0.917 0.000 0.000 0.000 0.000 0.000 0.000
## 2 0.0 0.000 0.000 0.000 0.082 0.082 0.082 0.093 0.093 0.082for (i in 1:k) {
cat(paste("cluster ", i, ": ", sep = ""))
s <- sort(kmeansResult$centers[i, ], decreasing = T)
cat(names(s)[1:5], "\n")
# print the tweets of every cluster
# print(tweets[which(kmeansResult£cluster==i)])
}## cluster 1: volcan marapi du indonésie après
## cluster 2: marapi eruption volcano of indonesia