Analisis Dat Tweet Pesta Rakyatn
ST NURAVIAT AWAINA
2023-11-28
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)## Warning in stringi::stri_info(): Your current locale is not in the list of
## available locales. Some functions may not work properly. Refer to
## stri_locale_list() for more details on known locale specifiers.
## Warning in stringi::stri_info(): Your current locale is not in the list of
## available locales. Some functions may not work properly. Refer to
## stri_locale_list() for more details on known locale specifiers.## 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)
pacman::p_load_gh("trinker/textstem")
pacman::p_load(textstem, dplyr)#input data
setwd("C:/Users/LENOVO/Documents/UTS_ST NURAVIAT AWAINA_E0221003")
datapestarakyat<- read.csv("~/UTS_ST NURAVIAT AWAINA_E0221003/pesta_rakyat.csv", sep=";")
rev<-datapestarakyat$full_text
head(rev)## [1] "Gilaa banget akun bot byk banget"
## [2] "Pecah ya...seuprit gitu...pecah piring gelas mangkok embokmu wkwkwkwkwkwk"
## [3] "Pesta Rakyat Jakarta Pecah penonton pada tertib acaranya berjalan lancar"
## [4] "sepi goblog"
## [5] "Pinter yg edit photo. Kikikikik"
## [6] "salut bgt deh walau penonton nya banyak & Pesta Rakyat Jakarta Pecah namun demikian mereka tetap tertib 👍🏻"lower case = mengubah huruf kapital menjadi huruf kecil
rev <- tolower(rev)
head(rev)## [1] "gilaa banget akun bot byk banget"
## [2] "pecah ya...seuprit gitu...pecah piring gelas mangkok embokmu wkwkwkwkwkwk"
## [3] "pesta rakyat jakarta pecah penonton pada tertib acaranya berjalan lancar"
## [4] "sepi goblog"
## [5] "pinter yg edit photo. kikikikik"
## [6] "salut bgt deh walau penonton nya banyak & pesta rakyat jakarta pecah namun demikian mereka tetap tertib 👍🏻"#Mengembalikan Kata yang disingkat Menjadi Kata Aslinya
rev <- replace_contraction(rev)
head(rev)## [1] "gilaa banget akun bot byk banget"
## [2] "pecah ya...seuprit gitu...pecah piring gelas mangkok embokmu wkwkwkwkwkwk"
## [3] "pesta rakyat jakarta pecah penonton pada tertib acaranya berjalan lancar"
## [4] "sepi goblog"
## [5] "pinter yg edit photo. kikikikik"
## [6] "salut bgt deh walau penonton nya banyak & pesta rakyat jakarta pecah namun demikian mereka tetap tertib 👍🏻"#Mengembalikan Kata yang Mengalami Perpanjangan Menjadi Kata Aslinya
rev <- replace_word_elongation(rev)
head(rev)## [1] "gilaa banget akun bot byk banget"
## [2] "pecah ya...seuprit gitu...pecah piring gelas mangkok embokmu wkwkwkwkwkwk"
## [3] "pesta rakyat jakarta pecah penonton pada tertib acaranya berjalan lancar"
## [4] "sepi goblog"
## [5] "pinter yg edit photo. kikikikik"
## [6] "salut bgt deh walau penonton nya banyak & pesta rakyat jakarta pecah namun demikian mereka tetap tertib 👍🏻"#Menghapus simbol
rev <- strip(rev)
head(rev)## [1] "gilaa banget akun bot byk banget"
## [2] "pecah yaseuprit gitupecah piring gelas mangkok embokmu wkwkwkwkwkwk"
## [3] "pesta rakyat jakarta pecah penonton pada tertib acaranya berjalan lancar"
## [4] "sepi goblog"
## [5] "pinter yg edit photo kikikikik"
## [6] "salut bgt deh walau penonton nya banyak amp pesta rakyat jakarta pecah namun demikian mereka tetap tertib 👍🏻"#stemming/lemmatizing = kata dasar
stem_strings(rev)## [1] "gilaa banget akun bot byk banget"
## [2] "pecah yaseuprit gitupecah pire gela mangkok embokmu wkwkwkwkwkwk"
## [3] "pesta rakyat jakarta pecah penonton pada tertib acaranya berjalan lancar"
## [4] "sepi goblog"
## [5] "pinter yg edit photo kikikikik"
## [6] "salut bgt deh walau penonton nya banyak amp pesta rakyat jakarta pecah namun demikian mereka tetap tertib 👍🏻"
## [7] "semoga aja pak ganjar pranowo bisa hadirkan lagi di laintempat pesta rakyat jakarta pecah"
## [8] "nah ini hari ini pesta rakyat jakarta pecah banget woii"
## [9] "wahh suks acaranya nih pesta rakyat jakarta pecah karena semua penontonnya tertib"
## [10] "seru abiss sih pesta rakyat jakarta pecah aku yg liat aja turut merasakan euforianya"
## [11] "asli sih pesta rakyat jakarta pecah banget woi"
## [12] "pastinya masyarakat jakarta sangat terhibur nih dengan adanya pesta rakyat jakarta pecah"
## [13] "asli pesta rakyat jakarta pecah seru abi dan bintang tamunya juga keren"
## [14] "banyak juga umkm disana jadi memborong banyak jajanan aku pesta rakyat jakarta pecah"
## [15] "suka deh liatnya pesta rakyat jakarta pecah rame dan seru bgtt loh"
## [16] "keren bgt sih pesta rakyat jakarta pecah ginii"
## [17] "pesta rakyat jakarta pecah habi"
## [18] "gokil ya pesta rakyat jakarta pecah makin meriah dengan panggung musik"
## [19] "alhamdulillah kalau pesta rakyat jakarta pecah"
## [20] "nah gini enak liatnya rame juga ttep tertib pesta rakyat jakarta pecah"
## [21] "yuhuu seneng bgt liat pesta rakyat jakarta pecah pol byk bgt yg hadir dan lancar"
## [22] "yang ikutan nonton pasti setuju kalo pesta rakyat jakarta pecah bangettacaranya rame dan asik juga"
## [23] "bener pesta rakyat jakarta pecah dan seru banget apalagi berjalan dengan tertib dan lancar gokil sih"
## [24] "sangat meriah gui pesta rakyat jakarta pecah"
## [25] "gokil abi mihh emang acara pesta rakyat jakarta pecah jga seru dan jga tertib penontonnya pesta rakyat jakarta pecah"
## [26] "pesta rakyat jakarta pecah banget dan penonton merasa pua menikmati acara demi acara yang digelar"
## [27] "wah beneran tertib si pesta rakyat jakarta pecah"
## [28] "emang pesta rakyat jakarta pecah banget dan seru abi loh semuanya happi banget"
## [29] "seneng banget acaranya seru dan penontonnya juga tertib pesta rakyat jakarta pecah"
## [30] "pesta rakyat jakarta pecah abi dan euforia nya masih kerasa sampai sekarang 🤭"
## [31] "gak pecah pecah amat editan fotonya narasinya bagu untuk menipu netizen"
## [32] "pesta rakyat jakarta pecah luar biasa"
## [33] "alhamdulillahpesta rakyat jakarta pecah dan berjalan dengan lancar"
## [34] "salut banget ama acaranya bisa semeriah itu pesta rakyat jakarta pecah"
## [35] "rame banget yg hadir di pesta rakyat jakarta pecah acaranya juga seruu ya"
## [36] "pasti bakalan seru sih soalnya pesta rakyat jakarta pecah bgt"
## [37] "asli ini tuh kern abi ya pesta rakyat jakarta pecah rame bnget pula"
## [38] "terimakasih banyak pak ata hiburan nya pesta rakyat jakarta pecah"
## [39] "next kemana lagi yaa"
## [40] "pesta rakyat jakarta pecah banget dongg"
## [41] "keren banget pesta rakyat jakarta pecah semoga penontonnya pada heppi"
## [42] "pesta rakyat jakarta pecah dan seru bgt acaranya juga banyak dan tertib lg"
## [43] "disiplin ya penonton nya ga rusuh rusuh di pesta rakyat jakarta pecah"
## [44] "wah jadi pengen ikutan pesta rakyat jakarta pecah"
## [45] "ini pasti meriah banget dehh pesta rakyat jakarta pecah"
## [46] "pesta rakyat jakarta pecah abi seruu banget nih rame yang dateng"
## [47] "wah pesta rakyat jakarta pecah mana tertib suka deh"
## [48] "wah pesta rakyat jakarta pecah gae acara berlangsung lancar dan tertib ada doorpriz dibagikan pula loh"
## [49] "pesta rakyat jakarta pecah banget sih meriah poll"
## [50] "pesta rakyat jakarta pecah selain ada live musik juga ada doorpriz juga tau widih emang gak kaleng nih acara"
## [51] "pesta rakyat jakarta pecah banget siapa yang seru an bareng disana keren kan"
## [52] "full bahagia pesta rakyat jakarta pecah banget"
## [53] "ini nii yang buat pesta rakyat jakarta pecah penonton nya tertib"
## [54] "pesta rakyat jakarta pecah dan lancarr warga diluar jakarta pun banyak yang turut meramaikan"
## [55] "asli pecah bgtt"
## [56] "wow pesta rakyat jakarta pecah liat penonton nya bnyk dan tertib suka bgt"
## [57] "pesta rakyat jakarta pecah ini pasti seru banget"
## [58] "semua orang happi dan antusia sekali pesta rakyat jakarta pecah"
## [59] "alhamdulillah pesta rakyat jakarta pecah berjalan dengan lancar tertib semoga di kesempatan lain waktu juga begini"
## [60] "emang pale mantap nih seru dan pesta rakyat jakarta pecah apalagi berjalan lancar dan tertib gini"
## [61] "meriah sekali nih pesta rakyat jakarta pecah banget dah"
## [62] "tertib banget"
## [63] "penonton nya begitu meriah banget pesta rakyat jakarta pecah sama keseruannya"
## [64] "beneran pesta rakyat jakarta pecah bgt sih"
## [65] "pesta rakyat jakarta pecah dibanjiri dengan para penonton"
## [66] "nah ini wah beneran dong pesta rakyat jakarta pecah banget nih seru abi semuanya pada rame"
## [67] "seru banget pesta rakyat jakarta pecah aku juga nonton kak"
## [68] "banyak banget nih pak yang hadir di acara pesta rakyat jakarta pecah"
## [69] "sumpah sih pesta rakyat jakarta pecah banget"
## [70] "pesta rakyat jakarta pecah keren sih"
## [71] "suks selalu acara pesta rakyat jakarta pecah apalagi penonton yang tertib dan pasti seru"
## [72] "luar biasa pesta rakyat jakarta pecah semua pada terhibur"
## [73] "tertib banget ya yang nonton pesta rakyat jakarta pecah"
## [74] "semua nya pada seneng"
## [75] "wih rame bngt pecah abi pesta rakyat jakarta pecah"
## [76] "pesta rakyat jakarta pecah dan pastinya seru banget gui"
## [77] "seperti yang sudah diperkirakan sebelumnya jika pesta rakyat jakarta pecah 🔥"
## [78] "seneng banget ya pada tertib penontonnya acaranya juga seru banget pesta rakyat jakarta pecah"
## [79] "seru banget acara nya pesta rakyat jakarta pecah dan rame sekali"
## [80] "sumpahh ini seruu puoll pesta rakyat jakarta pecah abi"
## [81] "pesta rakyat jakarta pecah banget nih"
## [82] "pokoknya pesta rakyat jakarta pecah banget"
## [83] "alhamdulillah berjalan dengan sangat lancar pesta rakyat jakarta pecah"
## [84] "bener seneng banget akhirnya diadakan juga di jakarta tertib ya gui happi banget gw cuss besok pesta rakyat jakarta pecah"
## [85] "bertabur penampilan dari para arti dan banyak doorpriz yang dibagikan di pesta rakyat jakarta pecah"
## [86] "keren acara pesta rakyat jakarta pecah"
## [87] "pecah abi pokoknua acara ini pesta rakyat jakarta pecah"
## [88] "pesta rakyat jakarta pecah acaranya berjalan dengan lancar"
## [89] "pua banget nonton nya karena pesta rakyat jakarta pecah gila"
## [90] "wahh keren pesta rakyat jakarta pecah rame dan seru abiss"
## [91] "beneran luar biasa bgt yaa pesta rakyat jakarta pecah sekeren ituu"
## [92] "aku terhibur banget dgn adanya pesta rakyat jakarta pecah dan antusia warga jakarta rame bgt"
## [93] "ternyata banyak doortrim juga"
## [94] "keren sih"
## [95] "pesta rakyat jakarta pecah dan menghibur banget"
## [96] "pesta rakyat jakarta pecah nih mantap bener dah"
## [97] "pesta rakyat jakarta pecah bgt"
## [98] "anjai akun bot semua wkwkwkwk"
## [99] "keren rame pool pesta rakyat jakarta pecah yang dateng"
## [100] "pesta rakyat jakarta pecah banget loh tadi"
## [101] "yuhu pesta rakyat jakarta pecah gaas🥳 semua happi pastinya🥰"
## [102] "mantep nih yah pesta rakyat jakarta pecah 😍"
## [103] "pesta rakyat jakarta pecah seruu banget acaranya"
## [104] "bner seru ya gae pesta rakyat jakarta pecah"
## [105] "pesta rakyat jakarta pecah"
## [106] "pecah banget ya pesta rakyat jakarta pecah tuhh seru"
## [107] "semua berjalan dengan baik pesta rakyat jakarta pecah ini"
## [108] "kereenn emng pesta rakyat jakarta pecah ditambah juga lancar"
## [109] "nah sip pesta rakyat jakarta pecah emang keren bnget dah acaranya"
## [110] "mantap banget pesta rakyat jakarta pecah banget nih seru abi pokoknya"
## [111] "seru banget ini pesta rakyat jakarta pecah rame banget lagi mantap"
## [112] "seru banget pastinya pesta rakyat jakarta pecah banget"
## [113] "antusia para sahabat ganjar sangat luar biasa pesta rakyat jakarta pecah"
## [114] "seruu banget"
## [115] "acaranya sangat meriah dan rame ya gui"
## [116] "gokil pesta rakyat jakarta pecah habiss emang ni"
## [117] "pesta rakyat jakarta pecah"
## [118] "hiburannya juga keren banget lho makanya pesta rakyat jakarta pecah dan meriah"
## [119] "receipts🧾 i back with our hilari season final tap in for walmart amp revolt' game show celebr blackandunlimit individu a our host quinci battl it out with lalamilan watch now on revolt' youtube📺"
## [120] "para penonton sangat bersemangat nih dan pesta rakyat jakarta pecah gae suks menghibur warga jakarta pastinya👏"
## [121] "happi banget dong pesta rakyat jakarta pecah ga ada obat"
## [122] "ye pesta rakyat jakarta pecah banget nih gui rame yang dateng"
## [123] "alhamdulillah yaah pesta rakyat jakarta pecah selalu rame"
## [124] "aku seneng banget tadi liat pesta rakyat jakarta pecah amaz gai"
## [125] "tadi siapa yg ada di pesta rakyat jakarta pecah banget kan gui"
## [126] "asli deh pesta rakyat jakarta pecah penontonnya banyak bgt keliatan kalo masyarakat antusia sama acara ini"
## [127] "selain bintang tamunya keren"
## [128] "ah ini mah bukan pecah lagi sangat pecah 😍😍 pesta rakyat jakarta pecah"
## [129] "beneran meriah banget acaranya pesta rakyat jakarta pecah"
## [130] "dan senang banget ada pesta rakyat lho buruan datang ajak keluarga nya benar open gate dan berjalan tertib lho pesta rakyat jakarta pecah"
## [131] "penonton nya rame banget kak"
## [132] "wah rame banget nih pesta rakyat jakarta pecah"
## [133] "banyak arti dan doorpriz pesta rakyat jakarta pecah semua tertib 👍"
## [134] "pesta rakyat jakarta pecah parah hiburan dan bintang tamu nya smua kerenn"
## [135] "seruseruan bareng arti pesta rakyat jakarta pecah seruu banget acaranya"
## [136] "banyak arti dan doorpriz 😍 semua ikut antusia pesta rakyat jakarta pecah"
## [137] "pesta rakyat jakarta pecah dan seru abi"
## [138] "syukurlah pesta rakyat jakarta pecah dan lancar aku turut seneng siapa yg dapat doorpriz"
## [139] "pesta rakyat jakarta pecah gaess seru"
## [140] "seperti pesta rakyat sebelum nya"
## [141] "pesta rakyat jakarta pecah keren bgt"
## [142] "kalau liat antusiasm nya yakin sih pesta rakyat jakarta pecah syukur deh semuanya berjalan tertib"
## [143] "wahh kerenn nihh tertib jugapesta rakyat jakarta pecah"
## [144] "makin keren kan pesta rakyat jakarta pecah kalo pada tertib begini"
## [145] "wah besok ya jangan lupa besok ada pesta rakyat pak ganjar datang ini pesta rakyat jakarta pecah"
## [146] "pesta rakyat jakarta pecah banget orang yang nonton membludak kaya gini"
## [147] "pesta rakyat jakarta pecah banget emang gak pernah gagal deh pesta rakyat tuh"
## [148] "kok bisa sekeren ini mantap pesta rakyat jakarta pecah"
## [149] "pesta rakyat jakarta pecah masyarakat sangat antusia dan yang datang juga banyak banget"lemmatize_strings(rev)## [1] "gilaa banget akun bot byk banget"
## [2] "pecah yaseuprit gitupecah piring gelas mangkok embokmu wkwkwkwkwkwk"
## [3] "pesta rakyat jakarta pecah penonton pada tertib acaranya berjalan lancar"
## [4] "sepi goblog"
## [5] "pinter yg edit photo kikikikik"
## [6] "salut bgt deh walau penonton nya banyak amp pesta rakyat jakarta pecah namun demikian mereka tetap tertib 👍🏻"
## [7] "semoga aja pak ganjar pranowo bisa hadirkan lagi di laintempat pesta rakyat jakarta pecah"
## [8] "nah ini hari ini pesta rakyat jakarta pecah banget woii"
## [9] "wahh sukses acaranya nih pesta rakyat jakarta pecah karena semua penontonnya tertib"
## [10] "seru abiss sih pesta rakyat jakarta pecah aku yg liat aja turut merasakan euforianya"
## [11] "asli sih pesta rakyat jakarta pecah banget woi"
## [12] "pastinya masyarakat jakarta sangat terhibur nih dengan adanya pesta rakyat jakarta pecah"
## [13] "asli pesta rakyat jakarta pecah seru abis dan bintang tamunya juga keren"
## [14] "banyak juga umkm disana jadi memborong banyak jajanan aku pesta rakyat jakarta pecah"
## [15] "suka deh liatnya pesta rakyat jakarta pecah rame dan seru bgtt loh"
## [16] "keren bgt sih pesta rakyat jakarta pecah ginii"
## [17] "pesta rakyat jakarta pecah habis"
## [18] "gokil you pesta rakyat jakarta pecah makin meriah dengan panggung musik"
## [19] "alhamdulillah kalau pesta rakyat jakarta pecah"
## [20] "nah gini enak liatnya rame juga ttep tertib pesta rakyat jakarta pecah"
## [21] "yuhuu seneng bgt liat pesta rakyat jakarta pecah pol byk bgt yg hadir dan lancar"
## [22] "yang ikutan nonton pasti setuju kalo pesta rakyat jakarta pecah bangettacaranya rame dan asik juga"
## [23] "bener pesta rakyat jakarta pecah dan seru banget apalagi berjalan dengan tertib dan lancar gokil sih"
## [24] "sangat meriah guy pesta rakyat jakarta pecah"
## [25] "gokil abis mihh emang acara pesta rakyat jakarta pecah jga seru dan jga tertib penontonnya pesta rakyat jakarta pecah"
## [26] "pesta rakyat jakarta pecah banget dan penonton merasa puas menikmati acara demi acara yang digelar"
## [27] "wah beneran tertib si pesta rakyat jakarta pecah"
## [28] "emang pesta rakyat jakarta pecah banget dan seru abis loh semuanya happy banget"
## [29] "seneng banget acaranya seru dan penontonnya juga tertib pesta rakyat jakarta pecah"
## [30] "pesta rakyat jakarta pecah abis dan euforia nya masih kerasa sampai sekarang 🤭"
## [31] "gak pecah pecah amat editan fotonya narasinya bagus untuk menipu netizen"
## [32] "pesta rakyat jakarta pecah luar biasa"
## [33] "alhamdulillahpesta rakyat jakarta pecah dan berjalan dengan lancar"
## [34] "salut banget ama acaranya bisa semeriah itu pesta rakyat jakarta pecah"
## [35] "rame banget yg hadir di pesta rakyat jakarta pecah acaranya juga seruu you"
## [36] "pasti bakalan seru sih soalnya pesta rakyat jakarta pecah bgt"
## [37] "asli ini tuh kern abis you pesta rakyat jakarta pecah rame bnget pula"
## [38] "terimakasih banyak pak atas hiburan nya pesta rakyat jakarta pecah"
## [39] "next kemana lagi yaa"
## [40] "pesta rakyat jakarta pecah banget dongg"
## [41] "keren banget pesta rakyat jakarta pecah semoga penontonnya pada heppy"
## [42] "pesta rakyat jakarta pecah dan seru bgt acaranya juga banyak dan tertib lg"
## [43] "disiplin you penonton nya ga rusuh rusuh di pesta rakyat jakarta pecah"
## [44] "wah jadi pengen ikutan pesta rakyat jakarta pecah"
## [45] "ini pasti meriah banget dehh pesta rakyat jakarta pecah"
## [46] "pesta rakyat jakarta pecah abis seruu banget nih rame yang dateng"
## [47] "wah pesta rakyat jakarta pecah mana tertib suka deh"
## [48] "wah pesta rakyat jakarta pecah gaes acara berlangsung lancar dan tertib ada doorprize dibagikan pula loh"
## [49] "pesta rakyat jakarta pecah banget sih meriah poll"
## [50] "pesta rakyat jakarta pecah selain ada live musik juga ada doorprize juga tau widih emang gak kaleng nih acara"
## [51] "pesta rakyat jakarta pecah banget siapa yang seru a bareng disana keren kan"
## [52] "full bahagia pesta rakyat jakarta pecah banget"
## [53] "ini nii yang buat pesta rakyat jakarta pecah penonton nya tertib"
## [54] "pesta rakyat jakarta pecah dan lancarr warga diluar jakarta pun banyak yang turut meramaikan"
## [55] "asli pecah bgtt"
## [56] "wow pesta rakyat jakarta pecah liat penonton nya bnyk dan tertib suka bgt"
## [57] "pesta rakyat jakarta pecah ini pasti seru banget"
## [58] "semua orang happy dan antusias sekali pesta rakyat jakarta pecah"
## [59] "alhamdulillah pesta rakyat jakarta pecah berjalan dengan lancar tertib semoga di kesempatan lie waktu juga begini"
## [60] "emang pale mantap nih seru dan pesta rakyat jakarta pecah apalagi berjalan lancar dan tertib gini"
## [61] "meriah sekali nih pesta rakyat jakarta pecah banget dah"
## [62] "tertib banget"
## [63] "penonton nya begitu meriah banget pesta rakyat jakarta pecah sama keseruannya"
## [64] "beneran pesta rakyat jakarta pecah bgt sih"
## [65] "pesta rakyat jakarta pecah dibanjiri dengan para penonton"
## [66] "nah ini wah beneran dong pesta rakyat jakarta pecah banget nih seru abis semuanya pada rame"
## [67] "seru banget pesta rakyat jakarta pecah aku juga nonton kak"
## [68] "banyak banget nih pak yang hadir di acara pesta rakyat jakarta pecah"
## [69] "sumpah sih pesta rakyat jakarta pecah banget"
## [70] "pesta rakyat jakarta pecah keren sih"
## [71] "sukses selalu acara pesta rakyat jakarta pecah apalagi penonton yang tertib dan pasti seru"
## [72] "luar biasa pesta rakyat jakarta pecah semua pada terhibur"
## [73] "tertib banget you yang nonton pesta rakyat jakarta pecah"
## [74] "semua nya pada seneng"
## [75] "wih rame bngt pecah abis pesta rakyat jakarta pecah"
## [76] "pesta rakyat jakarta pecah dan pastinya seru banget guy"
## [77] "seperti yang sudah diperkirakan sebelumnya jika pesta rakyat jakarta pecah 🔥"
## [78] "seneng banget you pada tertib penontonnya acaranya juga seru banget pesta rakyat jakarta pecah"
## [79] "seru banget acara nya pesta rakyat jakarta pecah dan rame sekali"
## [80] "sumpahh ini seruu puoll pesta rakyat jakarta pecah abis"
## [81] "pesta rakyat jakarta pecah banget nih"
## [82] "pokoknya pesta rakyat jakarta pecah banget"
## [83] "alhamdulillah berjalan dengan sangat lancar pesta rakyat jakarta pecah"
## [84] "bener seneng banget akhirnya diadakan juga di jakarta tertib you guy happy banget gw cuss besok pesta rakyat jakarta pecah"
## [85] "bertabur penampilan dari para artis dan banyak doorprize yang dibagikan di pesta rakyat jakarta pecah"
## [86] "keren acara pesta rakyat jakarta pecah"
## [87] "pecah abis pokoknua acara ini pesta rakyat jakarta pecah"
## [88] "pesta rakyat jakarta pecah acaranya berjalan dengan lancar"
## [89] "puas banget nonton nya karena pesta rakyat jakarta pecah gila"
## [90] "wahh keren pesta rakyat jakarta pecah rame dan seru abiss"
## [91] "beneran luar biasa bgt yaa pesta rakyat jakarta pecah sekeren ituu"
## [92] "aku terhibur banget dgn adanya pesta rakyat jakarta pecah dan antusias warga jakarta rame bgt"
## [93] "ternyata banyak doortrim juga"
## [94] "keren sih"
## [95] "pesta rakyat jakarta pecah dan menghibur banget"
## [96] "pesta rakyat jakarta pecah nih mantap bener dah"
## [97] "pesta rakyat jakarta pecah bgt"
## [98] "anjay akun bot semua wkwkwkwk"
## [99] "keren rame pool pesta rakyat jakarta pecah yang dateng"
## [100] "pesta rakyat jakarta pecah banget loh tadi"
## [101] "yuhu pesta rakyat jakarta pecah gaas🥳 semua happy pastinya🥰"
## [102] "mantep nih yah pesta rakyat jakarta pecah 😍"
## [103] "pesta rakyat jakarta pecah seruu banget acaranya"
## [104] "bner seru you gaes pesta rakyat jakarta pecah"
## [105] "pesta rakyat jakarta pecah"
## [106] "pecah banget you pesta rakyat jakarta pecah tuhh seru"
## [107] "semua berjalan dengan baik pesta rakyat jakarta pecah ini"
## [108] "kereenn emng pesta rakyat jakarta pecah ditambah juga lancar"
## [109] "nah sip pesta rakyat jakarta pecah emang keren bnget dah acaranya"
## [110] "mantap banget pesta rakyat jakarta pecah banget nih seru abis pokoknya"
## [111] "seru banget ini pesta rakyat jakarta pecah rame banget lagi mantap"
## [112] "seru banget pastinya pesta rakyat jakarta pecah banget"
## [113] "antusias para sahabat ganjar sangat luar biasa pesta rakyat jakarta pecah"
## [114] "seruu banget"
## [115] "acaranya sangat meriah dan rame you guy"
## [116] "gokil pesta rakyat jakarta pecah habiss emang ni"
## [117] "pesta rakyat jakarta pecah"
## [118] "hiburannya juga keren banget lho makanya pesta rakyat jakarta pecah dan meriah"
## [119] "receipts🧾 be back with our hilarious season finale tap in for walmart amp revolt's game show celebrate blackandunlimited individual as our host quincy battle it out with lalamilan watch now on revolt's youtube📺"
## [120] "para penonton sangat bersemangat nih dan pesta rakyat jakarta pecah gaes sukses menghibur warga jakarta pastinya👏"
## [121] "happy banget dong pesta rakyat jakarta pecah ga ada obat"
## [122] "yes pesta rakyat jakarta pecah banget nih guy rame yang dateng"
## [123] "alhamdulillah yaah pesta rakyat jakarta pecah selalu rame"
## [124] "aku seneng banget tadi liat pesta rakyat jakarta pecah amaze gais"
## [125] "tadi siapa yg ada di pesta rakyat jakarta pecah banget kan guy"
## [126] "asli deh pesta rakyat jakarta pecah penontonnya banyak bgt keliatan kalo masyarakat antusias sama acara ini"
## [127] "selain bintang tamunya keren"
## [128] "ah ini mah bukan pecah lagi sangat pecah 😍😍 pesta rakyat jakarta pecah"
## [129] "beneran meriah banget acaranya pesta rakyat jakarta pecah"
## [130] "dan senang banget ada pesta rakyat lho buruan datang ajak keluarga nya benar open gate dan berjalan tertib lho pesta rakyat jakarta pecah"
## [131] "penonton nya rame banget kak"
## [132] "wah rame banget nih pesta rakyat jakarta pecah"
## [133] "banyak artis dan doorprize pesta rakyat jakarta pecah semua tertib 👍"
## [134] "pesta rakyat jakarta pecah parah hiburan dan bintang tamu nya smua kerenn"
## [135] "seruseruan bareng artis pesta rakyat jakarta pecah seruu banget acaranya"
## [136] "banyak artis dan doorprize 😍 semua ikut antusias pesta rakyat jakarta pecah"
## [137] "pesta rakyat jakarta pecah dan seru abis"
## [138] "syukurlah pesta rakyat jakarta pecah dan lancar aku turut seneng siapa yg dapat doorprize"
## [139] "pesta rakyat jakarta pecah gaess seru"
## [140] "seperti pesta rakyat sebelum nya"
## [141] "pesta rakyat jakarta pecah keren bgt"
## [142] "kalau liat antusiasme nya yakin sih pesta rakyat jakarta pecah syukur deh semuanya berjalan tertib"
## [143] "wahh kerenn nihh tertib jugapesta rakyat jakarta pecah"
## [144] "makin keren kan pesta rakyat jakarta pecah kalo pada tertib begini"
## [145] "wah besok you jangan lupa besok ada pesta rakyat pak ganjar datang ini pesta rakyat jakarta pecah"
## [146] "pesta rakyat jakarta pecah banget orang yang nonton membludak kaya gini"
## [147] "pesta rakyat jakarta pecah banget emang gak pernah gagal deh pesta rakyat tuh"
## [148] "kok bisa sekeren ini mantap pesta rakyat jakarta pecah"
## [149] "pesta rakyat jakarta pecah masyarakat sangat antusias dan yang datang juga banyak banget"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"#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] "gilaa banget akun bot byk banget"
## [2] "pecah yaseuprit gitupecah piring gelas mangkok embokmu wkwkwkwkwkwk"
## [3] " rakyat jakarta pecah penonton tertib acaranya berjalan lancar"
## [4] "sepi goblog"
## [5] "pinter yg edit photo kikikikik"
## [6] "salut bgt deh walau penonton nya banyak amp rakyat jakarta pecah namun demikian mereka tetap tertib 👍🏻"write.csv(rev,file = "C:/Users/LENOVO/Documents/UTS_ST NURAVIAT AWAINA_E0221003/databersih.csv", row.names = F) ##Membuat Word Cloud #Mengubah Data Frame Menjadi Data Faktor
tdm <- TermDocumentMatrix(rev)
m <- as.matrix(tdm)
v <- sort(rowSums(m),decreasing = TRUE)#Mengubah Data Faktor Menjadi Data Frame
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)))
tdm## <<TermDocumentMatrix (terms: 334, documents: 149)>>
## Non-/sparse entries: 1232/48534
## Sparsity : 98%
## Maximal term length: 18
## Weighting : term frequency (tf)inspect frequent words
(freq.terms <- findFreqTerms(tdm, lowfreq = 50))## [1] "banget" "pecah" "jakarta" "rakyat"term.freq <- rowSums(as.matrix(tdm))
term.freq <- subset(term.freq, term.freq >= 50)
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 ‘pesta’?
findAssocs(tdm, "pesta_rakyat", 0.25)## $pesta_rakyat
## numeric(0)#which words are associated with ‘rakyat’?
findAssocs(tdm, "pesta_rakyat", 0.2)## $pesta_rakyat
## numeric(0)remove sparse terms
tdm2 <- removeSparseTerms(tdm, sparse = 0.95)
m2 <- as.matrix(tdm2)cluster terms
distMatrix <- dist(scale(m2))
fit <- hclust(distMatrix, method = "ward.D")
plot(fit)
rect.hclust(fit, k = 5) # cut tree into 6 clusters
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## banget pecah acaranya berjalan jakarta lancar penonton rakyat tertib banyak
## 1 0.00 0.947 0.063 0.084 0.895 0.105 0.084 0.884 0.189 0.116
## 2 1.13 0.944 0.130 0.037 0.963 0.019 0.056 0.963 0.130 0.037
## bgt nya nih semua seru sangat abis juga keren rame meriah ya
## 1 0.126 0.105 0.074 0.095 0.126 0.074 0.084 0.105 0.116 0.095 0.032 0.063
## 2 0.019 0.093 0.148 0.000 0.259 0.019 0.074 0.130 0.056 0.167 0.111 0.093
## acara
## 1 0.074
## 2 0.074for (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: pecah jakarta rakyat tertib bgt
## cluster 2: banget jakarta rakyat pecah seru