Analisis Data Tweet Prabowo Gibran
Nur Aisyah
2023-11-27
Introduction
Text mining adalah proses mengeksplorasi dan menganalisis sejumlah besar data teks tidak terstruktur dengan bantuan perangkat lunak yang dapat mengidentifikasi konsep, pola, topik, kata kunci, dan atribut lain dalam data. Ini juga dikenal sebagai analitik teks, meskipun beberapa orang membedakan antara kedua istilah tersebut; dalam pandangan ini, analitik teks mengacu pada aplikasi yang menggunakan teknik Text mining untuk memberi peringkat kumpulan data.
#Library yang di butuhkan
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(textclean)
library(tidytext)
library(ggplot2)
library(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)Tentang Dataset
Dataset yang digunakan adalah data yang diperolah dari hasil Crawling data Twitter.Dataset ini berisi 600 lebih tweet Tentang Pemilihan Presiden Tahun 2023. Dapat di akses melalui link di bawah ini : https://1drv.ms/x/c/d55d26b12803f916/EbXiHqsqlt1KlfDN5AiuOM0BVfl0KiQ_ZhBc019GH3vwIg?e=dzuzy
setwd("C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/Tugas PRA UAS")
prabowogibran <- read.csv("prabowogibran.csv")
View(prabowogibran)
pilpres<-prabowogibran$full_text
pilpres## [1] "@ZUL_Hasan @gibran_tweet @prabowo Kader PAN bnyak yg bagus dan Pinter ......."
## [2] "prabowo - gibran"
## [3] "@Gerindra @NAUFALFffff @prabowo @gibran_tweet Top banget guys"
## [4] "@Maruahalsiahaa2 @psi_id @grace_nat @kaesangp @jokowi @ganjarpranowo @gibran_tweet @prabowo @Gerindra 🙏🤣"
## [5] "@pedagang_kritik @TeddGus @gibran_tweet @prabowo Anaknya siapa dan apa kaitannya dengan Jokowi"
## [6] "@Gerindra @prabowo @gibran_tweet Betul sekali"
## [7] "@Gerindra @prabowo @gibran_tweet Inget teman"
## [8] "@Gerindra @prabowo @gibran_tweet capek kuliah min"
## [9] "@Gerindra @prabowo @gibran_tweet Kawin Paksa"
## [10] "@idextratime Bagi pecinta bola pertahanin Pak Erick ketum PSSI kolaborasi dengan Pak Prabowo x Pak Gibran. 💪🏻 kalo bukan pecinta bola silahkan pilih yg ga peduli sampe batalin pildun 😁"
## [11] "Biodata Profil Gibran Rakabuming yang Resmi Jadi Cawapres Prabowo Subianto untuk Pilpres 2024 https://t.co/Bop0HZI6aU"
## [12] "Ke Mana Perginya Gibran Rakabuming saat Deklarasi Cawapres Prabowo Subianto untuk Pemilu 2024? https://t.co/cVPi5df4E0"
## [13] "@MataNajwa Adanya Gibran bukti bahwa Prabowo gak yakin dengan diri nya sendiri serta parpol yg mendukungnya🤗"
## [14] "@vaniepink @AgusYudhoyono Prabowo kan cuma butuh satu partai pink"
## [15] "@detikcom Kalau emang @prabowo tidak ada apa2nya..berarti mudah dong buat Ganjar menang tanpa perlu tim pemenangan nasionalnya berstatemen kayak gini.lagipula Gibran kan katanya kader PDIP kenapa gak diusung jadi cawapres"
## [16] "@Gerindra @prabowo @gibran_tweet Bener fren"
## [17] "Kata Gibran soal Nasibnya di PDIP Usai Jadi Cawapres Prabowo Nasib Gibran Rakabuming Raka di PDIP dipertanyakan usai namanya resmi dideklarasikan menjadi cawapres Prabowo. Begini jawaban Gibran soal hal tersebut. > > https://t.co/c92HZBUSDc #detikJateng"
## [18] "@KangAwi1 @ch_chotimah2 @ReIawanMoeldoko @ganjarpranowo @mohmahfudmd @gibran_tweet Prabowo hebatnya apa? Gibran hebatnya apa? Kalau cuma bilang hebat sih nenek gw juga hebat bisa bikin 10 anaknya jadi sarjana semua tapi gw sadar nenek gw ga ada kapasitas "
## [19] "@Gerindra @prabowo @gibran_tweet Inget ya"
## [20] "@Gerindra @pacarjihyooooo @prabowo @gibran_tweet Min bagi kaos hehe"
## [21] "@Gerindra @prabowo @gibran_tweet Setuju sekali"
## [22] "@NOTASLIMBOY Ini deklarasi @gibran_tweet ? Tapi mase kenapa gak disebelah Pak @prabowo saat itu?"
## [23] "@Gerindra @prabowo @gibran_tweet Inget bro"
## [24] "@neohistoria_id Terpaksa gw Vote Prabowo- Gibran"
## [25] "Wali Kota Surakarta Gibran Rakabuming Raka mengakui sudah bertemu dengan Ketua DPP PDI Perjuangan (PDIP) Puan Maharani sebelum pengumuman dari Prabowo Subianto terkait capres dan cawapres di Jakarta"
## [26] "@Gerindra @prabowo @gibran_tweet Tetap semangat walau cipung tidak terpilih.. Agar silaturahmi tetap terjaga adakah?"
## [27] "Airlangga pimpin Rapimnas"
## [28] "@Gerindra @prabowo @gibran_tweet Min bagi kaos"
## [29] "Misalnya… Prabowo-Gibran jadi"
## [30] "@Gerindra @prabowo @gibran_tweet Setuju nih"
## [31] "Wuih ganteng e Mas @prabowo karo mas @gibran_tweet 👍"
## [32] "Gw sih sekarang ok aja siapapun presidennya nanti yang menang Periode 2024-2029 asal jangan Prabowo - Gibran #KecewaJokowi"
## [33] "PAN Legawa Gibran Jadi Bakal Cawapres Pendamping Prabowo https://t.co/V5vLmi7dUn"
## [34] "Politisi PDIP"
## [35] "Senin Gibran saatnyakita beranijuara kitamuda kerenbarengpg Tebar Kebaikan Bersama pks maulid nabi Bakri Sarwendah Golput PDIP Undip Gondangdia Sarwendah satukanlangkah menangkanpagi Golkar Senin Prabowo Jokowi Bagas Demokrat KIPAS ANGIN BELI DISINi https://t.co/VMoRzF1Ubp https://t.co/WCaiMZQ8E1"
## [36] "Dulu Jokowi Bilang Gibran 'Anak Bawang'"
## [37] "Koalisi Indonesia Maju (KIM) resmi mengusung Gibran Rakabuming Raka sebagai cawapres Prabowo Subianto. Prabowo mengaku siap maju bersama Gibran untuk Indonesia yang lebih maju. https://t.co/q1FwZXQnwS"
## [38] "@Gerindra @prabowo @gibran_tweet Asik banget teman"
## [39] "Prabowo ga salah nih pilih cawapres? Wajah culun kaya gibran mau mimpinya Indonesia! https://t.co/0IucCVI9fv"
## [40] "@Gerindra @prabowo @gibran_tweet Inget bro"
## [41] "@Gerindra @prabowo @gibran_tweet Inget teman"
## [42] "@Gerindra @prabowo @gibran_tweet lesu bgt min kaya abis kena tipu😢"
## [43] "Agus Harimurti Yudhoyono (AHY) menyebut rangkaian acara pendaftaran pasangan Prabowo Subianto-Gibran Rakabuming Raka ke Komisi Pemilihan Umum (KPU) RI dimulai dari kediaman Prabowo di Jalan Kertanegara No. 4"
## [44] "@Gerindra @prabowo @gibran_tweet Keren banget sis"
## [45] "@fadlizon @prabowo @gibran_tweet Jika terpilih nanti"
## [46] "@supraward @tinggipasaribu @FlaAgung @AndreasSolusi @bentangnegeri @Lembayung071 @Rara29803002 @tonybulumanu @putri_Aalona @Ndaxwz @PS_presiden2024 @jimmyherdyansy2 Kenapa tidak? Orang berpotensi besar pasti didukung"
## [47] "PAN Tepis Isu Ada Perbedaan Pendapat Terkait Penetapan Gibran Jadi Cawapres Prabowo https://t.co/vPJtX9fLww"
## [48] "@Gerindra @prabowo @gibran_tweet Keyakinan orang2 makin terlihat ke ayahbowo"
## [49] "Ketua Umum Partai Gerindra sekaligus bakal calon presiden dari Koalisi Indonesia Maju"
## [50] "@Gerindra @prabowo @gibran_tweet Kepercayaan saya semakin besar pada ayahbowo"
## [51] "@Gerindra @prabowo @gibran_tweet Najisssss 🦶🤣🤣🤣🤣"
## [52] "@junregar30 @TeddGus @gibran_tweet @prabowo Nah"
## [53] "@shoto_foot @Gerindra @prabowo @gibran_tweet Lewat di tl 😅"
## [54] "@Gerindra @prabowo @gibran_tweet min mas Gibran kok wajah nya jadi agak berisi 🙄🙄🙄"
## [55] "@Gerindra @prabowo @gibran_tweet Inget fren"
## [56] "Gibran"
## [57] "@msaid_didu Mereka masih malu mengakui selama 9 tahun terkecoh oleh bapaknya "
## [58] "@Gerindra @prabowo @gibran_tweet Sepakat banget"
## [59] "@Gerindra @prabowo @gibran_tweet Fakta"
## [60] "@hujanskuy @Gerindra @prabowo @gibran_tweet Loh loh loh🤣🫠"
## [61] "@Naz_lira Gibran prabowo demokrat https://t.co/7D1vHQz4a0"
## [62] "@Gerindra @prabowo @gibran_tweet Inget teman"
## [63] "@Gerindra @prabowo @gibran_tweet Inget teman"
## [64] "Klo @gibran_tweet kyk gini ke pak @prabowo "
## [65] "@Gerindra @prabowo @gibran_tweet Benar"
## [66] "@Gerindra @prabowo @gibran_tweet Bener sekali"
## [67] "@Gerindra @prabowo @gibran_tweet Faktanya bray"
## [68] "anjir beneran ini prabowo sama gibran"
## [69] "@Gerindra @prabowo @gibran_tweet Asik sekali"
## [70] "@Gerindra @prabowo @gibran_tweet Dukung sekali"
## [71] "@shoto_foot @Gerindra @prabowo @gibran_tweet Wkwkwk"
## [72] "Nama Wali Kota Solo Gibran Rakabuming Raka kian santer dikabarkan menjadi cawapres Prabowo Subianto. dekade08"
## [73] "@Gerindra @prabowo @gibran_tweet Sepakat banget"
## [74] "Rapimnas Golkar: Gibran calon cawapres Prabowo"
## [75] "@Resty_J_Cayah pendukung anies sama ganjar malah kompak hujat Prabowo Gibran"
## [76] "@TeddGus @gibran_tweet @prabowo horre rameee.👏👏👏👏"
## [77] "@Gerindra @prabowo @gibran_tweet Faktanya bro"
## [78] "Gibran Jadi Cawapres Prabowo"
## [79] "@Gerindra @prabowo @gibran_tweet Kepercayaan orang2 makin tebal pada ayahbowo"
## [80] "@Gerindra @prabowo @gibran_tweet Bapaknya jg dulu gitu"
## [81] "@memelord_666666 info prabowo-gibran versi 2 https://t.co/FVu36Mb8Vm"
## [82] "@Gerindra @prabowo @gibran_tweet Ga bosan kalah min?"
## [83] "Pagii 🥱 mau tanya sama pak Prabowo"
## [84] "@Gerindra @prabowo @gibran_tweet Betul nih"
## [85] "@Gerindra @Heppyaja10 @prabowo @gibran_tweet Benar"
## [86] "Jd aneh. Waktu Gibran yg nota bene gibran gak kelihatan"
## [87] "@WagimanDeep212_ AROGAN Prabowo Gibran"
## [88] "@RibbonJoul @TeddGus @prabowo @ganjarpranowo @gibran_tweet @jokowi @PDI_Perjuangan @Gerindra Haaaaaaa.. ngarang aja.. hahaha... sak karepmu lah... 🤣🤣"
## [89] "@fyasof83 @TeddGus @gibran_tweet @prabowo krn gak segerbong dan searah pilihan pada treak ... kemaren2 kemana aja .. ikut nikmatin wakakakak"
## [90] "Koalisi Indonesia Maju mendaftarkan Prabowo Subianto dan Gibran Rakabuming Raka sebagai pasangan calon presiden dan wakil presiden ke Komisi Pemilihan Umum (KPU) RI pada hari terakhir pendaftaran"
## [91] "@Gerindra @prabowo @gibran_tweet Semoga amanah."
## [92] "Gibran officially got declared as Prabowo’s running mate. And of course"
## [93] "@Gerindra @prabowo @gibran_tweet Kepercayaan saya bertambah tinggi pada ayahbowo"
## [94] "Prabowo Subianto mengumumkan Gibran Rakabuming Raka"
## [95] "Kerja nyata pak @jokowi akan selalu di hati 😍 ... dulu bisa sabar dan legowo sekarang juga pasti bisa.. 💪semoga langkah caturmu demi #NKRI diteruskan @prabowo dan @gibran_tweet 😘 #istandwithjokowi #prabowo #gibranrakabuming #Gerindra #koalisiindonesiamaju https://t.co/boUnUrI5Zr"
## [96] "@Gerindra @prabowo @gibran_tweet Betul"
## [97] "@Gerindra @prabowo @gibran_tweet Asik nih sis"
## [98] "@DediMulyadi71 Aq gak mau pilh prabowo gibran"
## [99] "@Melihat_Indo Kita sebagai pemilih harus menghukum cara berpolitik seperti ini dengan tidak memilih pasangan Prabowo Gibran bukan tidak suka tapi memberi pelajaran bahwa etika politik seperti itu tidak akan pernah laku"
## [100] "@Gerindra @prabowo @gibran_tweet Asik sekali bro"
## [101] "@fadlizon @prabowo @gibran_tweet Ciah jilat jilat sampai bersih"
## [102] "@Gerindra @prabowo @gibran_tweet 🫶🏻🫶🏻🫶🏻🫶🏻"Membuat Dataframe dengan nama “pilpres”yang hanya berisi kolom Full Text
#lowercase
pilpres <- tolower(pilpres)
head(pilpres)## [1] "@zul_hasan @gibran_tweet @prabowo kader pan bnyak yg bagus dan pinter ......."
## [2] "prabowo - gibran"
## [3] "@gerindra @naufalfffff @prabowo @gibran_tweet top banget guys"
## [4] "@maruahalsiahaa2 @psi_id @grace_nat @kaesangp @jokowi @ganjarpranowo @gibran_tweet @prabowo @gerindra 🙏🤣"
## [5] "@pedagang_kritik @teddgus @gibran_tweet @prabowo anaknya siapa dan apa kaitannya dengan jokowi"
## [6] "@gerindra @prabowo @gibran_tweet betul sekali"#contraction
pilpres <- replace_contraction(pilpres)
head(pilpres)## [1] "@zul_hasan @gibran_tweet @prabowo kader pan bnyak yg bagus dan pinter ......."
## [2] "prabowo - gibran"
## [3] "@gerindra @naufalfffff @prabowo @gibran_tweet top banget guys"
## [4] "@maruahalsiahaa2 @psi_id @grace_nat @kaesangp @jokowi @ganjarpranowo @gibran_tweet @prabowo @gerindra 🙏🤣"
## [5] "@pedagang_kritik @teddgus @gibran_tweet @prabowo anaknya siapa dan apa kaitannya dengan jokowi"
## [6] "@gerindra @prabowo @gibran_tweet betul sekali"pilpres <- replace_word_elongation(pilpres)
head(pilpres)## [1] "@zul_hasan @gibran_tweet @prabowo kader pan bnyak yg bagus dan pinter ......."
## [2] "prabowo - gibran"
## [3] "@gerindra @naufalf @prabowo @gibran_tweet top banget guys"
## [4] "@maruahalsiahaa2 @psi_id @grace_nat @kaesangp @jokowi @ganjarpranowo @gibran_tweet @prabowo @gerindra 🙏🤣"
## [5] "@pedagang_kritik @teddgus @gibran_tweet @prabowo anaknya siapa dan apa kaitannya dengan jokowi"
## [6] "@gerindra @prabowo @gibran_tweet betul sekali"menghapus simbol
#Menghapus simbol
pilpres <- strip(pilpres)
head(pilpres)## [1] "zulhasan gibrantweet prabowo kader pan bnyak yg bagus dan pinter"
## [2] "prabowo gibran"
## [3] "gerindra naufalf prabowo gibrantweet top banget guys"
## [4] "maruahalsiahaa psiid gracenat kaesangp jokowi ganjarpranowo gibrantweet prabowo gerindra 👲🡲"
## [5] "pedagangkritik teddgus gibrantweet prabowo anaknya siapa dan apa kaitannya dengan jokowi"
## [6] "gerindra prabowo gibrantweet betul sekali"#stemming/lemmatizing = kata dasar
stem_strings(pilpres)## [1] "zulhasan gibrantweet prabowo kader pan bnyak yg bagu dan pinter"
## [2] "prabowo gibran"
## [3] "gerindra naufalf prabowo gibrantweet top banget gui"
## [4] "maruahalsiahaa psiid gracenat kaesangp jokowi ganjarpranowo gibrantweet prabowo gerindra 👲🡲"
## [5] "pedagangkritik teddgu gibrantweet prabowo anaknya siapa dan apa kaitannya dengan jokowi"
## [6] "gerindra prabowo gibrantweet betul sekali"
## [7] "gerindra prabowo gibrantweet inget teman"
## [8] "gerindra prabowo gibrantweet capek kuliah min"
## [9] "gerindra prabowo gibrantweet kawin paksa"
## [10] "idextratim bagi pecinta bola pertahanin pak erick ketum pssi kolaborasi dengan pak prabowo x pak gibran 💪🏻 kalo bukan pecinta bola silahkan pilih yg ga peduli samp batalin pildun 😁"
## [11] "biodata profil gibran rakabum yang resmi jadi cawapr prabowo subianto untuk pilpr httpstcobop hzi au"
## [12] "ke mana perginya gibran rakabum saat deklarasi cawapr prabowo subianto untuk pemilu httpstcocvpi df e"
## [13] "matanajwa adanya gibran bukti bahwa prabowo gak yakin dengan diri nya sendiri serta parpol yg mendukungnya🤗"
## [14] "vaniepink agusyudhoyono prabowo kan cuma butuh satu partai pink"
## [15] "detikcom kalau emang prabowo tidak ada apa nyaberarti mudah dong buat ganjar menang tanpa perlu tim pemenangan nasionalnya berstatemen kayak ginilagipula gibran kan katanya kader pdip kenapa gak diusung jadi cawapr"
## [16] "gerindra prabowo gibrantweet bener fren"
## [17] "kata gibran soal nasibnya di pdip usai jadi cawapr prabowo nasib gibran rakabum raka di pdip dipertanyakan usai namanya resmi dideklarasikan menjadi cawapr prabowo begini jawaban gibran soal hal tersebut gt gt httpstcoc hzbusdc detikjateng"
## [18] "kangawi chchotimah reiawanmoeldoko ganjarpranowo mohmahfudmd gibrantweet prabowo hebatnya apa gibran hebatnya apa kalau cuma bilang hebat sih nenek gw juga hebat bisa bikin anaknya jadi sarjana semua tapi gw sadar nenek gw ga ada kapasita"
## [19] "gerindra prabowo gibrantweet inget ya"
## [20] "gerindra pacarjihyo prabowo gibrantweet min bagi kao hehe"
## [21] "gerindra prabowo gibrantweet setuju sekali"
## [22] "notaslimboi ini deklarasi gibrantweet tapi mase kenapa gak disebelah pak prabowo saat itu"
## [23] "gerindra prabowo gibrantweet inget bro"
## [24] "neohistoriaid terpaksa gw vote prabowo gibran"
## [25] "wali kota surakarta gibran rakabum raka mengakui sudah bertemu dengan ketua dpp pdi perjuangan pdip puan maharani sebelum pengumuman dari prabowo subianto terkait capr dan cawapr di jakarta"
## [26] "gerindra prabowo gibrantweet tetap semangat walau cipung tidak terpilih agar silaturahmi tetap terjaga adakah"
## [27] "airlangga pimpin rapimna"
## [28] "gerindra prabowo gibrantweet min bagi kao"
## [29] "misalnya prabowogibran jadi"
## [30] "gerindra prabowo gibrantweet setuju nih"
## [31] "wuih ganteng e ma prabowo karo ma gibrantweet 👍"
## [32] "gw sih sekarang ok aja siapapun presidennya nanti yang menang period asal jangan prabowo gibran kecewajokowi"
## [33] "pan legawa gibran jadi bakal cawapr pendamp prabowo httpstcov vlmi dun"
## [34] "politisi pdip"
## [35] "senin gibran saatnyakita beranijuara kitamuda kerenbarengpg tebar kebaikan bersama pk maulid nabi bakri sarwendah golput pdip undip gondangdia sarwendah satukanlangkah menangkanpagi golkar senin prabowo jokowi baga demokrat kipa angin beli disini httpstcovmorzf ubp httpstcowcaimzq e"
## [36] "dulu jokowi bilang gibran ' anak bawang '"
## [37] "koalisi indonesia maju kim resmi mengusung gibran rakabum raka sebagai cawapr prabowo subianto prabowo mengaku siap maju bersama gibran untuk indonesia yang lebih maju httpstcoq fwzxqnw"
## [38] "gerindra prabowo gibrantweet asik banget teman"
## [39] "prabowo ga salah nih pilih cawapr wajah culun kaya gibran mau mimpinya indonesia httpstco iuccvi fv"
## [40] "gerindra prabowo gibrantweet inget bro"
## [41] "gerindra prabowo gibrantweet inget teman"
## [42] "gerindra prabowo gibrantweet lesu bgt min kaya abi kena tipu😢"
## [43] "agu harimurti yudhoyono ahi menyebut rangkaian acara pendaftaran pasangan prabowo subiantogibran rakabum raka ke komisi pemilihan umum kpu ri dimulai dari kediaman prabowo di jalan kertanegara no"
## [44] "gerindra prabowo gibrantweet keren banget si"
## [45] "fadlizon prabowo gibrantweet jika terpilih nanti"
## [46] "supraward tinggipasaribu flaagung andreassolusi bentangnegeri lembayung rara tonybulumanu putriaalona ndaxwz pspresiden jimmyherdyansi kenapa tidak orang berpotensi besar pasti didukung"
## [47] "pan tepi isu ada perbedaan pendapat terkait penetapan gibran jadi cawapr prabowo httpstcovpjtx flww"
## [48] "gerindra prabowo gibrantweet keyakinan orang makin terlihat ke ayahbowo"
## [49] "ketua umum partai gerindra sekaligu bakal calon presiden dari koalisi indonesia maju"
## [50] "gerindra prabowo gibrantweet kepercayaan saya semakin besar pada ayahbowo"
## [51] "gerindra prabowo gibrantweet naji 🦶🤣🤣🤣🤣"
## [52] "junregar teddgu gibrantweet prabowo nah"
## [53] "shotofoot gerindra prabowo gibrantweet lewat di tl 😅"
## [54] "gerindra prabowo gibrantweet min ma gibran kok wajah nya jadi agak berisi 🙄🙄🙄"
## [55] "gerindra prabowo gibrantweet inget fren"
## [56] "gibran"
## [57] "msaiddidu mereka masih malu mengakui selama tahun terkecoh oleh bapaknya"
## [58] "gerindra prabowo gibrantweet sepakat banget"
## [59] "gerindra prabowo gibrantweet fakta"
## [60] "hujanskui gerindra prabowo gibrantweet loh loh loh🤣🫠"
## [61] "nazlira gibran prabowo demokrat httpstco d vhqz a"
## [62] "gerindra prabowo gibrantweet inget teman"
## [63] "gerindra prabowo gibrantweet inget teman"
## [64] "klo gibrantweet kyk gini ke pak prabowo"
## [65] "gerindra prabowo gibrantweet benar"
## [66] "gerindra prabowo gibrantweet bener sekali"
## [67] "gerindra prabowo gibrantweet faktanya brai"
## [68] "anjir beneran ini prabowo sama gibran"
## [69] "gerindra prabowo gibrantweet asik sekali"
## [70] "gerindra prabowo gibrantweet dukung sekali"
## [71] "shotofoot gerindra prabowo gibrantweet wkwkwk"
## [72] "nama wali kota solo gibran rakabum raka kian santer dikabarkan menjadi cawapr prabowo subianto dekad"
## [73] "gerindra prabowo gibrantweet sepakat banget"
## [74] "rapimna golkar gibran calon cawapr prabowo"
## [75] "restyjcayah pendukung ani sama ganjar malah kompak hujat prabowo gibran"
## [76] "teddgu gibrantweet prabowo horr rame👏👏👏👏"
## [77] "gerindra prabowo gibrantweet faktanya bro"
## [78] "gibran jadi cawapr prabowo"
## [79] "gerindra prabowo gibrantweet kepercayaan orang makin tebal pada ayahbowo"
## [80] "gerindra prabowo gibrantweet bapaknya jg dulu gitu"
## [81] "memelord info prabowogibran versi httpstcofvu mb vm"
## [82] "gerindra prabowo gibrantweet ga bosan kalah min"
## [83] "pagii 🥱 mau tanya sama pak prabowo"
## [84] "gerindra prabowo gibrantweet betul nih"
## [85] "gerindra heppyaja prabowo gibrantweet benar"
## [86] "jd aneh waktu gibran yg nota bene gibran gak kelihatan"
## [87] "wagimandeep arogan prabowo gibran"
## [88] "ribbonjoul teddgu prabowo ganjarpranowo gibrantweet jokowi pdiperjuangan gerindra ha ngarang aja hahaha sak karepmu lah 🤣🤣"
## [89] "fyasof teddgu gibrantweet prabowo krn gak segerbong dan searah pilihan pada treak kemaren kemana aja ikut nikmatin wakakakak"
## [90] "koalisi indonesia maju mendaftarkan prabowo subianto dan gibran rakabum raka sebagai pasangan calon presiden dan wakil presiden ke komisi pemilihan umum kpu ri pada hari terakhir pendaftaran"
## [91] "gerindra prabowo gibrantweet semoga amanah"
## [92] "gibran offici got declar a prabowo run mate and of cours"
## [93] "gerindra prabowo gibrantweet kepercayaan saya bertambah tinggi pada ayahbowo"
## [94] "prabowo subianto mengumumkan gibran rakabum raka"
## [95] "kerja nyata pak jokowi akan selalu di hati 💪 dulu bisa sabar dan legowo sekarang juga pasti bisa 💪semoga langkah caturmu demi nkri diteruskan prabowo dan gibrantweet 💪 istandwithjokowi prabowo gibranrakabum gerindra koalisiindonesiamaju httpstcobounuri zr"
## [96] "gerindra prabowo gibrantweet betul"
## [97] "gerindra prabowo gibrantweet asik nih si"
## [98] "dedimulyadi aq gak mau pilh prabowo gibran"
## [99] "melihatindo kita sebagai pemilih haru menghukum cara berpolitik seperti ini dengan tidak memilih pasangan prabowo gibran bukan tidak suka tapi memberi pelajaran bahwa etika politik seperti itu tidak akan pernah laku"
## [100] "gerindra prabowo gibrantweet asik sekali bro"
## [101] "fadlizon prabowo gibrantweet ciah jilat jilat sampai bersih"
## [102] "gerindra prabowo gibrantweet 🫶🏻🫶🏻🫶🏻🫶🏻"lemmatize_strings(pilpres)## [1] "zulhasan gibrantweet prabowo kader pan bnyak yg bagus dan pinter"
## [2] "prabowo gibran"
## [3] "gerindra naufalf prabowo gibrantweet top banget guy"
## [4] "maruahalsiahaa psiid gracenat kaesangp jokowi ganjarpranowo gibrantweet prabowo gerindra 👲🡲"
## [5] "pedagangkritik teddgus gibrantweet prabowo anaknya siapa dan apa kaitannya dengan jokowi"
## [6] "gerindra prabowo gibrantweet betul sekali"
## [7] "gerindra prabowo gibrantweet inget teman"
## [8] "gerindra prabowo gibrantweet capek kuliah min"
## [9] "gerindra prabowo gibrantweet kawin paksa"
## [10] "idextratime bagi pecinta bola pertahanin pak erick ketum pssi kolaborasi dengan pak prabowo x pak gibran 💪🏻 kalo bukan pecinta bola silahkan pilih yg ga peduli sampe batalin pildun 😁"
## [11] "biodata profil gibran rakabuming yang resmi jadi cawapres prabowo subianto untuk pilpres httpstcobop hzi au"
## [12] "ke mana perginya gibran rakabuming saat deklarasi cawapres prabowo subianto untuk pemilu httpstcocvpi df e"
## [13] "matanajwa adanya gibran bukti bahwa prabowo gak yakin dengan diri nya sendiri serta parpol yg mendukungnya🤗"
## [14] "vaniepink agusyudhoyono prabowo kan cuma butuh satu partai pink"
## [15] "detikcom kalau emang prabowo tidak ada apa nyaberarti mudah dong buat ganjar menang tanpa perlu tim pemenangan nasionalnya berstatemen kayak ginilagipula gibran kan katanya kader pdip kenapa gak diusung jadi cawapres"
## [16] "gerindra prabowo gibrantweet bener fren"
## [17] "kata gibran soal nasibnya di pdip usai jadi cawapres prabowo nasib gibran rakabuming raka di pdip dipertanyakan usai namanya resmi dideklarasikan menjadi cawapres prabowo begini jawaban gibran soal hal tersebut gt gt httpstcoc hzbusdc detikjateng"
## [18] "kangawi chchotimah reiawanmoeldoko ganjarpranowo mohmahfudmd gibrantweet prabowo hebatnya apa gibran hebatnya apa kalau cuma bilang hebat sih nenek gw juga hebat bisa bikin anaknya jadi sarjana semua tapi gw sadar nenek gw ga ada kapasitas"
## [19] "gerindra prabowo gibrantweet inget you"
## [20] "gerindra pacarjihyo prabowo gibrantweet min bagi kaos hehe"
## [21] "gerindra prabowo gibrantweet setuju sekali"
## [22] "notaslimboy ini deklarasi gibrantweet tapi mase kenapa gak disebelah pak prabowo saat itu"
## [23] "gerindra prabowo gibrantweet inget bro"
## [24] "neohistoriaid terpaksa gw vote prabowo gibran"
## [25] "wali kota surakarta gibran rakabuming raka mengakui sudah bertemu dengan ketua dpp pdi perjuangan pdip puan maharani sebelum pengumuman dari prabowo subianto terkait capres dan cawapres di jakarta"
## [26] "gerindra prabowo gibrantweet tetap semangat walau cipung tidak terpilih agar silaturahmi tetap terjaga adakah"
## [27] "airlangga pimpin rapimnas"
## [28] "gerindra prabowo gibrantweet min bagi kaos"
## [29] "misalnya prabowogibran jadi"
## [30] "gerindra prabowo gibrantweet setuju nih"
## [31] "wuih ganteng e ma prabowo karo ma gibrantweet 👍"
## [32] "gw sih sekarang okay aja siapapun presidennya nanti yang menang periode asal jangan prabowo gibran kecewajokowi"
## [33] "pan legawa gibran jadi bakal cawapres pendamping prabowo httpstcov vlmi dun"
## [34] "politisi pdip"
## [35] "senin gibran saatnyakita beranijuara kitamuda kerenbarengpg tebar kebaikan bersama pk maulid nabi bakri sarwendah golput pdip undip gondangdia sarwendah satukanlangkah menangkanpagi golkar senin prabowo jokowi bagas demokrat kipas angin beli disini httpstcovmorzf ubp httpstcowcaimzq e"
## [36] "dulu jokowi bilang gibran ' anak bawang '"
## [37] "koalisi indonesia maju kim resmi mengusung gibran rakabuming raka sebagai cawapres prabowo subianto prabowo mengaku siap maju bersama gibran untuk indonesia yang lebih maju httpstcoq fwzxqnws"
## [38] "gerindra prabowo gibrantweet asik banget teman"
## [39] "prabowo ga salah nih pilih cawapres wajah culun kaya gibran mau mimpinya indonesia httpstco iuccvi fv"
## [40] "gerindra prabowo gibrantweet inget bro"
## [41] "gerindra prabowo gibrantweet inget teman"
## [42] "gerindra prabowo gibrantweet lesu bgt min kaya abis kena tipu😢"
## [43] "agus harimurti yudhoyono ahy menyebut rangkaian acara pendaftaran pasangan prabowo subiantogibran rakabuming raka ke komisi pemilihan umum kpu ri dimulai dari kediaman prabowo di jalan kertanegara no"
## [44] "gerindra prabowo gibrantweet keren banget sis"
## [45] "fadlizon prabowo gibrantweet jika terpilih nanti"
## [46] "supraward tinggipasaribu flaagung andreassolusi bentangnegeri lembayung rara tonybulumanu putriaalona ndaxwz pspresiden jimmyherdyansy kenapa tidak orang berpotensi besar pasti didukung"
## [47] "pan tepis isu ada perbedaan pendapat terkait penetapan gibran jadi cawapres prabowo httpstcovpjtx flww"
## [48] "gerindra prabowo gibrantweet keyakinan orang makin terlihat ke ayahbowo"
## [49] "ketua umum partai gerindra sekaligus bakal calon presiden dari koalisi indonesia maju"
## [50] "gerindra prabowo gibrantweet kepercayaan saya semakin besar pada ayahbowo"
## [51] "gerindra prabowo gibrantweet najis 🦶🤣🤣🤣🤣"
## [52] "junregar teddgus gibrantweet prabowo nah"
## [53] "shotofoot gerindra prabowo gibrantweet lewat di tl 😅"
## [54] "gerindra prabowo gibrantweet min ma gibran kok wajah nya jadi agak berisi 🙄🙄🙄"
## [55] "gerindra prabowo gibrantweet inget fren"
## [56] "gibran"
## [57] "msaiddidu mereka masih malu mengakui selama tahun terkecoh oleh bapaknya"
## [58] "gerindra prabowo gibrantweet sepakat banget"
## [59] "gerindra prabowo gibrantweet fakta"
## [60] "hujanskuy gerindra prabowo gibrantweet loh loh loh🤣🫠"
## [61] "nazlira gibran prabowo demokrat httpstco have vhqz a"
## [62] "gerindra prabowo gibrantweet inget teman"
## [63] "gerindra prabowo gibrantweet inget teman"
## [64] "klo gibrantweet kyk gini ke pak prabowo"
## [65] "gerindra prabowo gibrantweet benar"
## [66] "gerindra prabowo gibrantweet bener sekali"
## [67] "gerindra prabowo gibrantweet faktanya bray"
## [68] "anjir beneran ini prabowo sama gibran"
## [69] "gerindra prabowo gibrantweet asik sekali"
## [70] "gerindra prabowo gibrantweet dukung sekali"
## [71] "shotofoot gerindra prabowo gibrantweet wkwkwk"
## [72] "nama wali kota solo gibran rakabuming raka kian santer dikabarkan menjadi cawapres prabowo subianto dekade"
## [73] "gerindra prabowo gibrantweet sepakat banget"
## [74] "rapimnas golkar gibran calon cawapres prabowo"
## [75] "restyjcayah pendukung anies sama ganjar malah kompak hujat prabowo gibran"
## [76] "teddgus gibrantweet prabowo horre rame👏👏👏👏"
## [77] "gerindra prabowo gibrantweet faktanya bro"
## [78] "gibran jadi cawapres prabowo"
## [79] "gerindra prabowo gibrantweet kepercayaan orang makin tebal pada ayahbowo"
## [80] "gerindra prabowo gibrantweet bapaknya jg dulu gitu"
## [81] "memelord info prabowogibran versi httpstcofvu mb vm"
## [82] "gerindra prabowo gibrantweet ga bosan kalah min"
## [83] "pagii 🥱 mau tanya sama pak prabowo"
## [84] "gerindra prabowo gibrantweet betul nih"
## [85] "gerindra heppyaja prabowo gibrantweet benar"
## [86] "jd aneh waktu gibran yg notum bene gibran gak kelihatan"
## [87] "wagimandeep arogan prabowo gibran"
## [88] "ribbonjoul teddgus prabowo ganjarpranowo gibrantweet jokowi pdiperjuangan gerindra ha ngarang aja hahaha sak karepmu lah 🤣🤣"
## [89] "fyasof teddgus gibrantweet prabowo krn gak segerbong dan searah pilihan pada treak kemaren kemana aja ikut nikmatin wakakakak"
## [90] "koalisi indonesia maju mendaftarkan prabowo subianto dan gibran rakabuming raka sebagai pasangan calon presiden dan wakil presiden ke komisi pemilihan umum kpu ri pada hari terakhir pendaftaran"
## [91] "gerindra prabowo gibrantweet semoga amanah"
## [92] "gibran officially get declare as prabowos run mate and of course"
## [93] "gerindra prabowo gibrantweet kepercayaan saya bertambah tinggi pada ayahbowo"
## [94] "prabowo subianto mengumumkan gibran rakabuming raka"
## [95] "kerja nyata pak jokowi akan selalu di hati 💪 dulu bisa sabar dan legowo sekarang juga pasti bisa 💪semoga langkah caturmu demi nkri diteruskan prabowo dan gibrantweet 💪 istandwithjokowi prabowo gibranrakabuming gerindra koalisiindonesiamaju httpstcobounuri zr"
## [96] "gerindra prabowo gibrantweet betul"
## [97] "gerindra prabowo gibrantweet asik nih sis"
## [98] "dedimulyadi aq gak mau pilh prabowo gibran"
## [99] "melihatindo kita sebagai pemilih harus menghukum cara berpolitik seperti ini dengan tidak memilih pasangan prabowo gibran bukan tidak suka tapi memberi pelajaran bahwa etika politik seperti itu tidak akan pernah laku"
## [100] "gerindra prabowo gibrantweet asik sekali bro"
## [101] "fadlizon prabowo gibrantweet ciah jilat jilat sampai bersih"
## [102] "gerindra prabowo gibrantweet 🫶🏻🫶🏻🫶🏻🫶🏻"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"#pemisahan kata dalam suatu kalimat dengan
rev <- pilpres %>%
rev()
rev## [1] "gerindra prabowo gibrantweet 🫶🏻🫶🏻🫶🏻🫶🏻"
## [2] "fadlizon prabowo gibrantweet ciah jilat jilat sampai bersih"
## [3] "gerindra prabowo gibrantweet asik sekali bro"
## [4] "melihatindo kita sebagai pemilih harus menghukum cara berpolitik seperti ini dengan tidak memilih pasangan prabowo gibran bukan tidak suka tapi memberi pelajaran bahwa etika politik seperti itu tidak akan pernah laku"
## [5] "dedimulyadi aq gak mau pilh prabowo gibran"
## [6] "gerindra prabowo gibrantweet asik nih sis"
## [7] "gerindra prabowo gibrantweet betul"
## [8] "kerja nyata pak jokowi akan selalu di hati 💪 dulu bisa sabar dan legowo sekarang juga pasti bisa 💪semoga langkah caturmu demi nkri diteruskan prabowo dan gibrantweet 💪 istandwithjokowi prabowo gibranrakabuming gerindra koalisiindonesiamaju httpstcobounuri zr"
## [9] "prabowo subianto mengumumkan gibran rakabuming raka"
## [10] "gerindra prabowo gibrantweet kepercayaan saya bertambah tinggi pada ayahbowo"
## [11] "gibran officially got declared as prabowos running mate and of course"
## [12] "gerindra prabowo gibrantweet semoga amanah"
## [13] "koalisi indonesia maju mendaftarkan prabowo subianto dan gibran rakabuming raka sebagai pasangan calon presiden dan wakil presiden ke komisi pemilihan umum kpu ri pada hari terakhir pendaftaran"
## [14] "fyasof teddgus gibrantweet prabowo krn gak segerbong dan searah pilihan pada treak kemaren kemana aja ikut nikmatin wakakakak"
## [15] "ribbonjoul teddgus prabowo ganjarpranowo gibrantweet jokowi pdiperjuangan gerindra ha ngarang aja hahaha sak karepmu lah 🤣🤣"
## [16] "wagimandeep arogan prabowo gibran"
## [17] "jd aneh waktu gibran yg nota bene gibran gak kelihatan"
## [18] "gerindra heppyaja prabowo gibrantweet benar"
## [19] "gerindra prabowo gibrantweet betul nih"
## [20] "pagii 🥱 mau tanya sama pak prabowo"
## [21] "gerindra prabowo gibrantweet ga bosan kalah min"
## [22] "memelord info prabowogibran versi httpstcofvu mb vm"
## [23] "gerindra prabowo gibrantweet bapaknya jg dulu gitu"
## [24] "gerindra prabowo gibrantweet kepercayaan orang makin tebal pada ayahbowo"
## [25] "gibran jadi cawapres prabowo"
## [26] "gerindra prabowo gibrantweet faktanya bro"
## [27] "teddgus gibrantweet prabowo horre rame👏👏👏👏"
## [28] "restyjcayah pendukung anies sama ganjar malah kompak hujat prabowo gibran"
## [29] "rapimnas golkar gibran calon cawapres prabowo"
## [30] "gerindra prabowo gibrantweet sepakat banget"
## [31] "nama wali kota solo gibran rakabuming raka kian santer dikabarkan menjadi cawapres prabowo subianto dekade"
## [32] "shotofoot gerindra prabowo gibrantweet wkwkwk"
## [33] "gerindra prabowo gibrantweet dukung sekali"
## [34] "gerindra prabowo gibrantweet asik sekali"
## [35] "anjir beneran ini prabowo sama gibran"
## [36] "gerindra prabowo gibrantweet faktanya bray"
## [37] "gerindra prabowo gibrantweet bener sekali"
## [38] "gerindra prabowo gibrantweet benar"
## [39] "klo gibrantweet kyk gini ke pak prabowo"
## [40] "gerindra prabowo gibrantweet inget teman"
## [41] "gerindra prabowo gibrantweet inget teman"
## [42] "nazlira gibran prabowo demokrat httpstco d vhqz a"
## [43] "hujanskuy gerindra prabowo gibrantweet loh loh loh🤣🫠"
## [44] "gerindra prabowo gibrantweet fakta"
## [45] "gerindra prabowo gibrantweet sepakat banget"
## [46] "msaiddidu mereka masih malu mengakui selama tahun terkecoh oleh bapaknya"
## [47] "gibran"
## [48] "gerindra prabowo gibrantweet inget fren"
## [49] "gerindra prabowo gibrantweet min mas gibran kok wajah nya jadi agak berisi 🙄🙄🙄"
## [50] "shotofoot gerindra prabowo gibrantweet lewat di tl 😅"
## [51] "junregar teddgus gibrantweet prabowo nah"
## [52] "gerindra prabowo gibrantweet najis 🦶🤣🤣🤣🤣"
## [53] "gerindra prabowo gibrantweet kepercayaan saya semakin besar pada ayahbowo"
## [54] "ketua umum partai gerindra sekaligus bakal calon presiden dari koalisi indonesia maju"
## [55] "gerindra prabowo gibrantweet keyakinan orang makin terlihat ke ayahbowo"
## [56] "pan tepis isu ada perbedaan pendapat terkait penetapan gibran jadi cawapres prabowo httpstcovpjtx flww"
## [57] "supraward tinggipasaribu flaagung andreassolusi bentangnegeri lembayung rara tonybulumanu putriaalona ndaxwz pspresiden jimmyherdyansy kenapa tidak orang berpotensi besar pasti didukung"
## [58] "fadlizon prabowo gibrantweet jika terpilih nanti"
## [59] "gerindra prabowo gibrantweet keren banget sis"
## [60] "agus harimurti yudhoyono ahy menyebut rangkaian acara pendaftaran pasangan prabowo subiantogibran rakabuming raka ke komisi pemilihan umum kpu ri dimulai dari kediaman prabowo di jalan kertanegara no"
## [61] "gerindra prabowo gibrantweet lesu bgt min kaya abis kena tipu😢"
## [62] "gerindra prabowo gibrantweet inget teman"
## [63] "gerindra prabowo gibrantweet inget bro"
## [64] "prabowo ga salah nih pilih cawapres wajah culun kaya gibran mau mimpinya indonesia httpstco iuccvi fv"
## [65] "gerindra prabowo gibrantweet asik banget teman"
## [66] "koalisi indonesia maju kim resmi mengusung gibran rakabuming raka sebagai cawapres prabowo subianto prabowo mengaku siap maju bersama gibran untuk indonesia yang lebih maju httpstcoq fwzxqnws"
## [67] "dulu jokowi bilang gibran 'anak bawang'"
## [68] "senin gibran saatnyakita beranijuara kitamuda kerenbarengpg tebar kebaikan bersama pks maulid nabi bakri sarwendah golput pdip undip gondangdia sarwendah satukanlangkah menangkanpagi golkar senin prabowo jokowi bagas demokrat kipas angin beli disini httpstcovmorzf ubp httpstcowcaimzq e"
## [69] "politisi pdip"
## [70] "pan legawa gibran jadi bakal cawapres pendamping prabowo httpstcov vlmi dun"
## [71] "gw sih sekarang ok aja siapapun presidennya nanti yang menang periode asal jangan prabowo gibran kecewajokowi"
## [72] "wuih ganteng e mas prabowo karo mas gibrantweet 👍"
## [73] "gerindra prabowo gibrantweet setuju nih"
## [74] "misalnya prabowogibran jadi"
## [75] "gerindra prabowo gibrantweet min bagi kaos"
## [76] "airlangga pimpin rapimnas"
## [77] "gerindra prabowo gibrantweet tetap semangat walau cipung tidak terpilih agar silaturahmi tetap terjaga adakah"
## [78] "wali kota surakarta gibran rakabuming raka mengakui sudah bertemu dengan ketua dpp pdi perjuangan pdip puan maharani sebelum pengumuman dari prabowo subianto terkait capres dan cawapres di jakarta"
## [79] "neohistoriaid terpaksa gw vote prabowo gibran"
## [80] "gerindra prabowo gibrantweet inget bro"
## [81] "notaslimboy ini deklarasi gibrantweet tapi mase kenapa gak disebelah pak prabowo saat itu"
## [82] "gerindra prabowo gibrantweet setuju sekali"
## [83] "gerindra pacarjihyo prabowo gibrantweet min bagi kaos hehe"
## [84] "gerindra prabowo gibrantweet inget ya"
## [85] "kangawi chchotimah reiawanmoeldoko ganjarpranowo mohmahfudmd gibrantweet prabowo hebatnya apa gibran hebatnya apa kalau cuma bilang hebat sih nenek gw juga hebat bisa bikin anaknya jadi sarjana semua tapi gw sadar nenek gw ga ada kapasitas"
## [86] "kata gibran soal nasibnya di pdip usai jadi cawapres prabowo nasib gibran rakabuming raka di pdip dipertanyakan usai namanya resmi dideklarasikan menjadi cawapres prabowo begini jawaban gibran soal hal tersebut gt gt httpstcoc hzbusdc detikjateng"
## [87] "gerindra prabowo gibrantweet bener fren"
## [88] "detikcom kalau emang prabowo tidak ada apa nyaberarti mudah dong buat ganjar menang tanpa perlu tim pemenangan nasionalnya berstatemen kayak ginilagipula gibran kan katanya kader pdip kenapa gak diusung jadi cawapres"
## [89] "vaniepink agusyudhoyono prabowo kan cuma butuh satu partai pink"
## [90] "matanajwa adanya gibran bukti bahwa prabowo gak yakin dengan diri nya sendiri serta parpol yg mendukungnya🤗"
## [91] "ke mana perginya gibran rakabuming saat deklarasi cawapres prabowo subianto untuk pemilu httpstcocvpi df e"
## [92] "biodata profil gibran rakabuming yang resmi jadi cawapres prabowo subianto untuk pilpres httpstcobop hzi au"
## [93] "idextratime bagi pecinta bola pertahanin pak erick ketum pssi kolaborasi dengan pak prabowo x pak gibran 💪🏻 kalo bukan pecinta bola silahkan pilih yg ga peduli sampe batalin pildun 😁"
## [94] "gerindra prabowo gibrantweet kawin paksa"
## [95] "gerindra prabowo gibrantweet capek kuliah min"
## [96] "gerindra prabowo gibrantweet inget teman"
## [97] "gerindra prabowo gibrantweet betul sekali"
## [98] "pedagangkritik teddgus gibrantweet prabowo anaknya siapa dan apa kaitannya dengan jokowi"
## [99] "maruahalsiahaa psiid gracenat kaesangp jokowi ganjarpranowo gibrantweet prabowo gerindra 👲🡲"
## [100] "gerindra naufalf prabowo gibrantweet top banget guys"
## [101] "prabowo gibran"
## [102] "zulhasan gibrantweet prabowo kader pan bnyak yg bagus dan pinter"#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","hinga","saat",
"belum","apa","sih","suara","pesta","dindap","http","httpstco","asn","bakal"))
head(rev)## [1] "gerindra prabowo gibrantweet 🫶🏻🫶🏻🫶🏻🫶🏻"
## [2] "fadlizon prabowo gibrantweet ciah jilat jilat sampai bersih"
## [3] "gerindra prabowo gibrantweet asik sekali bro"
## [4] "melihatindo kita sebagai pemilih harus menghukum cara berpolitik tidak memilih pasangan prabowo gibran bukan tidak suka tapi memberi pelajaran bahwa etika politik tidak pernah laku"
## [5] "dedimulyadi aq gak mau pilh prabowo gibran"
## [6] "gerindra prabowo gibrantweet asik nih sis"write.csv(rev,file = "C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/Tugas PRA UAS/databersihprabowogobran.csv")#Mengubah Data Frame Menjadi Data Faktor
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 )) 
#menyimpan hasil term matriks ke variabel Tdm
tdm <- TermDocumentMatrix(rev,
control = list(wordLengths = c(1, Inf)))# inspect frequent words
(freq.terms <- findFreqTerms(tdm, lowfreq = 14))## [1] "gerindra" "gibrantweet" "prabowo" "gibran"term.freq <- rowSums(as.matrix(tdm))
term.freq <- subset(term.freq, term.freq >= 14)
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, "gibran", 0.2)## $gibran
## cawapres resmi rakabuming begini detikjateng
## 0.64 0.50 0.47 0.46 0.46
## dideklarasikan dipertanyakan gt hal httpstcoc
## 0.46 0.46 0.46 0.46 0.46
## hzbusdc jawaban kata namanya nasib
## 0.46 0.46 0.46 0.46 0.46
## nasibnya soal tersebut usai raka
## 0.46 0.46 0.46 0.46 0.44
## pdip jadi menjadi subianto sebagai
## 0.43 0.41 0.41 0.38 0.30
## untuk aneh bene jd kelihatan
## 0.30 0.29 0.29 0.29 0.29
## nota waktu fwzxqnws httpstcoq kim
## 0.29 0.29 0.29 0.29 0.29
## lebih mengaku mengusung siap indonesia
## 0.29 0.29 0.29 0.29 0.28
## maju bersama yg gak
## 0.28 0.28 0.23 0.21# remove sparse terms
tdm2 <- removeSparseTerms(tdm, sparse = 0.95)
m2 <- as.matrix(tdm2)#analisis cluster
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: 14plot(fit)
rect.hclust(fit, k = 2) # cut tree into 6 clusters
#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## gerindra gibrantweet prabowo sekali gibran gak jokowi raka rakabuming
## 1 0.754 0.884 0.928 0.087 0.014 0.029 0.058 0.000 0.000
## 2 0.000 0.030 0.939 0.000 1.061 0.121 0.061 0.212 0.273
## subianto min cawapres jadi inget
## 1 0.000 0.087 0.000 0.014 0.116
## 2 0.212 0.000 0.394 0.242 0.000for (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: prabowo gibrantweet gerindra inget sekali
## cluster 2: gibran prabowo cawapres rakabuming jadi