ANALISIS DATA TWEET PRABOWO GIBRAN
Nur Aisyah
2023-12-11
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)## Warning in .recacheSubclasses(def@className, def, env): undefined subclass
## "ndiMatrix" of class "replValueSp"; definition not updated## 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 103 lebih tweet Tentang Pemilihan Presiden Tahun 2023. Dapat di akses melalui link di bawah ini : https://drive.google.com/file/d/1hHfrg0c1dobRcdieq9A-bXwZI4w2YBhx/view?usp=sharing
setwd("D:/STATISTIKA 2021/SEMESTER 5/KOMSTAT LANJUT")
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 jadi presiden."
## [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 “datapilpres”yang hanya berisi kolom Full Text
Case Folding
Peran dari case folding adalah untuk menyamaratakan penggunaan huruf kapital. Misalnya data teks yang kita dapat berupa tulisan “DaTA SCIence” maka dengan case folding artinya kita mengubah semua huruf menjadi huruf kecil (lowercase) semua.
#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"#Mengembalikan Kata yang disingkat Menjadi Kata Aslinya
rev <- replace_contraction(pilpres)
head(rev)## [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"“replace_word_elongation” Fungsi ini berfungsi untuk menggantikan kata-kata yang memiliki elongasi (pemakaian berulang dari huruf yang sama, misalnya “haaaappppyyyyy”) dengan bentuk yang lebih singkat.Atau dapat diartikan mengembalikan kata yang mengalami perpanjangan menjadi kata asliya.
#Mengembalikan Kata yang Mengalami Perpanjangan Menjadi Kata Aslinya
rev <- replace_word_elongation(rev)
head(rev)## [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"Menghilangkan karakter khusus, tanda baca, atau simbol yang tidak diperlukan agar fokus pada makna dasar teks.
#Menghapus simbol
rev <- strip(rev)
head(rev)## [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
Mengubah kata-kata ke bentuk dasarnya. Stemming mereduksi kata-kata menjadi bentuk dasar dengan menghapus akhiran, sedangkan lemmatization menggunakan kamus untuk mengubah kata-kata ke bentuk dasar (lemma)
#stemming/lemmatizing = kata dasar
stem_strings(pilpres)## [1] "@ zul _ hasan @ gibran _ tweet @ prabowo kader pan bnyak yg bagu dan pinter......."
## [2] "prabowo - gibran"
## [3] "@ gerindra @ naufalfffff @ prabowo @ gibran _ tweet top banget gui"
## [4] "@ maruahalsiahaa2 @ psi _ id @ grace _ nat @ kaesangp @ jokowi @ ganjarpranowo @ gibran _ tweet @ prabowo @ gerindra 🙏🤣"
## [5] "@ pedagang _ kritik @ teddgu @ 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] "@ 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 2024 http: / / t. co / bop0hzi6au"
## [12] "ke mana perginya gibran rakabum saat deklarasi cawapr prabowo subianto untuk pemilu 2024? http: / / 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 cawapr"
## [16] "@ gerindra @ prabowo @ gibran _ tweet 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 http: / / 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 kapasita jadi presiden."
## [19] "@ gerindra @ prabowo @ gibran _ tweet inget ya"
## [20] "@ gerindra @ pacarjihyooooo @ prabowo @ gibran _ tweet min bagi kao hehe"
## [21] "@ gerindra @ prabowo @ gibran _ tweet setuju sekali"
## [22] "@ notaslimboi 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 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 @ gibran _ tweet tetap semangat walau cipung tidak terpilih.. agar silaturahmi tetap terjaga adakah?"
## [27] "airlangga pimpin rapimna"
## [28] "@ gerindra @ prabowo @ gibran _ tweet min bagi kao"
## [29] "misalnya … prabowo - gibran jadi"
## [30] "@ gerindra @ prabowo @ gibran _ tweet setuju nih"
## [31] "wuih ganteng e ma @ prabowo karo ma @ gibran _ tweet 👍"
## [32] "gw sih sekarang ok aja siapapun presidennya nanti yang menang period 2024 - 2029 asal jangan prabowo - gibran # kecewajokowi"
## [33] "pan legawa gibran jadi bakal cawapr pendamp prabowo http: / / t. co / v5vlmi7dun"
## [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 http: / / t. co / vmorzf1ubp http: / / t. co / wcaimzq8e1"
## [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. http: / / t. co / q1fwzxqnw"
## [38] "@ gerindra @ prabowo @ gibran _ tweet asik banget teman"
## [39] "prabowo ga salah nih pilih cawapr? wajah culun kaya gibran mau mimpinya indonesia! http: / / 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 abi kena tipu😢"
## [43] "agu harimurti yudhoyono ( ahi ) menyebut rangkaian acara pendaftaran pasangan prabowo subianto - gibran rakabum raka ke komisi pemilihan umum ( kpu ) ri dimulai dari kediaman prabowo di jalan kertanegara no. 4"
## [44] "@ gerindra @ prabowo @ gibran _ tweet keren banget si"
## [45] "@ fadlizon @ prabowo @ gibran _ tweet jika terpilih nanti"
## [46] "@ supraward @ tinggipasaribu @ flaagung @ andreassolusi @ bentangnegeri @ lembayung071 @ rara29803002 @ tonybulumanu @ putri _ aalona @ ndaxwz @ p _ presiden2024 @ jimmyherdyansy2 kenapa tidak? orang berpotensi besar pasti didukung"
## [47] "pan tepi isu ada perbedaan pendapat terkait penetapan gibran jadi cawapr prabowo http: / / t. co / vpjtx9flww"
## [48] "@ gerindra @ prabowo @ gibran _ tweet keyakinan orang2 makin terlihat ke ayahbowo"
## [49] "ketua umum partai gerindra sekaligu 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 @ teddgu @ gibran _ tweet @ prabowo nah"
## [53] "@ shoto _ foot @ gerindra @ prabowo @ gibran _ tweet lewat di tl 😅"
## [54] "@ gerindra @ prabowo @ gibran _ tweet min ma 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] "@ hujanskui @ gerindra @ prabowo @ gibran _ tweet loh loh loh🤣🫠"
## [61] "@ naz _ lira gibran prabowo demokrat http: / / 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 brai"
## [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 rakabum raka kian santer dikabarkan menjadi cawapr prabowo subianto. dekade08"
## [73] "@ gerindra @ prabowo @ gibran _ tweet sepakat banget"
## [74] "rapimna golkar: gibran calon cawapr prabowo"
## [75] "@ resti _ j _ cayah pendukung ani sama ganjar malah kompak hujat prabowo gibran"
## [76] "@ teddgu @ gibran _ tweet @ prabowo horr ramee. 👏👏👏👏"
## [77] "@ gerindra @ prabowo @ gibran _ tweet faktanya bro"
## [78] "gibran jadi cawapr 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 http: / / 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 @ teddgu @ prabowo @ ganjarpranowo @ gibran _ tweet @ jokowi @ pdi _ perjuangan @ gerindra haaaaaaa.. ngarang aja.. hahaha... sak karepmu lah... 🤣🤣"
## [89] "@ fyasof83 @ teddgu @ 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 rakabum 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 offici got declar a prabowo ’ run mate. and of cours"
## [93] "@ gerindra @ prabowo @ gibran _ tweet 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 @ gibran _ tweet 😘 # istandwithjokowi # prabowo # gibranrakabum # gerindra # koalisiindonesiamaju http: / / t. co / bounuri5zr"
## [96] "@ gerindra @ prabowo @ gibran _ tweet betul"
## [97] "@ gerindra @ prabowo @ gibran _ tweet asik nih si"
## [98] "@ dedimulyadi71 aq gak mau pilh prabowo gibran"
## [99] "@ melihat _ indo 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 @ gibran _ tweet asik sekali bro"
## [101] "@ fadlizon @ prabowo @ gibran _ tweet ciah jilat jilat sampai bersih"
## [102] "@ gerindra @ prabowo @ gibran _ tweet 🫶🏻🫶🏻🫶🏻🫶🏻"lemmatize_strings(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 guy"
## [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. & gt & gt 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 jadi presiden."
## [19] "@ gerindra @ prabowo @ gibran _ tweet inget you"
## [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 ma @ prabowo karo ma @ gibran _ tweet 👍"
## [32] "gw sih sekarang okay 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 pk 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 ma 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 notum 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 get declare as prabowo ’ s run 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 🫶🏻🫶🏻🫶🏻🫶🏻"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
Memecah teks menjadi unit-unit yang lebih kecil yang disebut token. Token bisa berupa kata, frasa, atau karakter tergantung pada kebutuhan analisis.
#pemisahan kata dalam suatu kalimat dengan
rev <- pilpres %>%
rev()
rev## [1] "@gerindra @prabowo @gibran_tweet 🫶🏻🫶🏻🫶🏻🫶🏻"
## [2] "@fadlizon @prabowo @gibran_tweet ciah jilat jilat sampai bersih"
## [3] "@gerindra @prabowo @gibran_tweet asik sekali bro"
## [4] "@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"
## [5] "@dedimulyadi71 aq gak mau pilh prabowo gibran"
## [6] "@gerindra @prabowo @gibran_tweet asik nih sis"
## [7] "@gerindra @prabowo @gibran_tweet 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 @gibran_tweet 😘 #istandwithjokowi #prabowo #gibranrakabuming #gerindra #koalisiindonesiamaju https://t.co/bounuri5zr"
## [9] "prabowo subianto mengumumkan gibran rakabuming raka"
## [10] "@gerindra @prabowo @gibran_tweet kepercayaan saya bertambah tinggi pada ayahbowo"
## [11] "gibran officially got declared as prabowo’s running mate. and of course"
## [12] "@gerindra @prabowo @gibran_tweet 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] "@fyasof83 @teddgus @gibran_tweet @prabowo krn gak segerbong dan searah pilihan pada treak ... kemaren2 kemana aja .. ikut nikmatin wakakakak"
## [15] "@ribbonjoul @teddgus @prabowo @ganjarpranowo @gibran_tweet @jokowi @pdi_perjuangan @gerindra haaaaaaa.. ngarang aja.. hahaha... sak karepmu lah... 🤣🤣"
## [16] "@wagimandeep212_ arogan prabowo gibran"
## [17] "jd aneh. waktu gibran yg nota bene gibran gak kelihatan"
## [18] "@gerindra @heppyaja10 @prabowo @gibran_tweet benar"
## [19] "@gerindra @prabowo @gibran_tweet betul nih"
## [20] "pagii 🥱 mau tanya sama pak prabowo"
## [21] "@gerindra @prabowo @gibran_tweet ga bosan kalah min?"
## [22] "@memelord_666666 info prabowo-gibran versi 2 https://t.co/fvu36mb8vm"
## [23] "@gerindra @prabowo @gibran_tweet bapaknya jg dulu gitu"
## [24] "@gerindra @prabowo @gibran_tweet kepercayaan orang2 makin tebal pada ayahbowo"
## [25] "gibran jadi cawapres prabowo"
## [26] "@gerindra @prabowo @gibran_tweet faktanya bro"
## [27] "@teddgus @gibran_tweet @prabowo horre rameee.👏👏👏👏"
## [28] "@resty_j_cayah pendukung anies sama ganjar malah kompak hujat prabowo gibran"
## [29] "rapimnas golkar: gibran calon cawapres prabowo"
## [30] "@gerindra @prabowo @gibran_tweet sepakat banget"
## [31] "nama wali kota solo gibran rakabuming raka kian santer dikabarkan menjadi cawapres prabowo subianto. dekade08"
## [32] "@shoto_foot @gerindra @prabowo @gibran_tweet wkwkwk"
## [33] "@gerindra @prabowo @gibran_tweet dukung sekali"
## [34] "@gerindra @prabowo @gibran_tweet asik sekali"
## [35] "anjir beneran ini prabowo sama gibran"
## [36] "@gerindra @prabowo @gibran_tweet faktanya bray"
## [37] "@gerindra @prabowo @gibran_tweet bener sekali"
## [38] "@gerindra @prabowo @gibran_tweet benar"
## [39] "klo @gibran_tweet kyk gini ke pak @prabowo "
## [40] "@gerindra @prabowo @gibran_tweet inget teman"
## [41] "@gerindra @prabowo @gibran_tweet inget teman"
## [42] "@naz_lira gibran prabowo demokrat https://t.co/7d1vhqz4a0"
## [43] "@hujanskuy @gerindra @prabowo @gibran_tweet loh loh loh🤣🫠"
## [44] "@gerindra @prabowo @gibran_tweet fakta"
## [45] "@gerindra @prabowo @gibran_tweet sepakat banget"
## [46] "@msaid_didu mereka masih malu mengakui selama 9 tahun terkecoh oleh bapaknya "
## [47] "gibran"
## [48] "@gerindra @prabowo @gibran_tweet inget fren"
## [49] "@gerindra @prabowo @gibran_tweet min mas gibran kok wajah nya jadi agak berisi 🙄🙄🙄"
## [50] "@shoto_foot @gerindra @prabowo @gibran_tweet lewat di tl 😅"
## [51] "@junregar30 @teddgus @gibran_tweet @prabowo nah"
## [52] "@gerindra @prabowo @gibran_tweet najisssss 🦶🤣🤣🤣🤣"
## [53] "@gerindra @prabowo @gibran_tweet kepercayaan saya semakin besar pada ayahbowo"
## [54] "ketua umum partai gerindra sekaligus bakal calon presiden dari koalisi indonesia maju"
## [55] "@gerindra @prabowo @gibran_tweet keyakinan orang2 makin terlihat ke ayahbowo"
## [56] "pan tepis isu ada perbedaan pendapat terkait penetapan gibran jadi cawapres prabowo https://t.co/vpjtx9flww"
## [57] "@supraward @tinggipasaribu @flaagung @andreassolusi @bentangnegeri @lembayung071 @rara29803002 @tonybulumanu @putri_aalona @ndaxwz @ps_presiden2024 @jimmyherdyansy2 kenapa tidak? orang berpotensi besar pasti didukung"
## [58] "@fadlizon @prabowo @gibran_tweet jika terpilih nanti"
## [59] "@gerindra @prabowo @gibran_tweet keren banget sis"
## [60] "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"
## [61] "@gerindra @prabowo @gibran_tweet lesu bgt min kaya abis kena tipu😢"
## [62] "@gerindra @prabowo @gibran_tweet inget teman"
## [63] "@gerindra @prabowo @gibran_tweet inget bro"
## [64] "prabowo ga salah nih pilih cawapres? wajah culun kaya gibran mau mimpinya indonesia! https://t.co/0iuccvi9fv"
## [65] "@gerindra @prabowo @gibran_tweet 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. https://t.co/q1fwzxqnws"
## [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 https://t.co/vmorzf1ubp https://t.co/wcaimzq8e1"
## [69] "politisi pdip"
## [70] "pan legawa gibran jadi bakal cawapres pendamping prabowo https://t.co/v5vlmi7dun"
## [71] "gw sih sekarang ok aja siapapun presidennya nanti yang menang periode 2024-2029 asal jangan prabowo - gibran #kecewajokowi"
## [72] "wuih ganteng e mas @prabowo karo mas @gibran_tweet 👍"
## [73] "@gerindra @prabowo @gibran_tweet setuju nih"
## [74] "misalnya… prabowo-gibran jadi"
## [75] "@gerindra @prabowo @gibran_tweet min bagi kaos"
## [76] "airlangga pimpin rapimnas"
## [77] "@gerindra @prabowo @gibran_tweet 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] "@neohistoria_id terpaksa gw vote prabowo- gibran"
## [80] "@gerindra @prabowo @gibran_tweet inget bro"
## [81] "@notaslimboy ini deklarasi @gibran_tweet ? tapi mase kenapa gak disebelah pak @prabowo saat itu?"
## [82] "@gerindra @prabowo @gibran_tweet setuju sekali"
## [83] "@gerindra @pacarjihyooooo @prabowo @gibran_tweet min bagi kaos hehe"
## [84] "@gerindra @prabowo @gibran_tweet inget ya"
## [85] "@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 jadi presiden."
## [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. > > https://t.co/c92hzbusdc #detikjateng"
## [87] "@gerindra @prabowo @gibran_tweet bener fren"
## [88] "@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"
## [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 2024? https://t.co/cvpi5df4e0"
## [92] "biodata profil gibran rakabuming yang resmi jadi cawapres prabowo subianto untuk pilpres 2024 https://t.co/bop0hzi6au"
## [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 @gibran_tweet kawin paksa"
## [95] "@gerindra @prabowo @gibran_tweet capek kuliah min"
## [96] "@gerindra @prabowo @gibran_tweet inget teman"
## [97] "@gerindra @prabowo @gibran_tweet betul sekali"
## [98] "@pedagang_kritik @teddgus @gibran_tweet @prabowo anaknya siapa dan apa kaitannya dengan jokowi"
## [99] "@maruahalsiahaa2 @psi_id @grace_nat @kaesangp @jokowi @ganjarpranowo @gibran_tweet @prabowo @gerindra 🙏🤣"
## [100] "@gerindra @naufalfffff @prabowo @gibran_tweet top banget guys"
## [101] "prabowo - gibran"
## [102] "@zul_hasan @gibran_tweet @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 @gibran_tweet 🫶🏻🫶🏻🫶🏻🫶🏻"
## [2] "@fadlizon @prabowo @gibran_tweet ciah jilat jilat sampai bersih"
## [3] "@gerindra @prabowo @gibran_tweet asik sekali bro"
## [4] "@melihat_indo 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] "@dedimulyadi71 aq gak mau pilh prabowo gibran"
## [6] "@gerindra @prabowo @gibran_tweet asik nih sis"write.csv(rev,file = "D:/STATISTIKA 2021/SEMESTER 5/KOMSTAT LANJUT/databersihprabowogibran.csv")Menggunakan fungsi write.csv untuk menulis data yang telah dibersihkan ke dalam file CSV. File CSV tersebut kemudian disimpan di lokasi yang di tentukan, yaitu “D:/STATISTIKA 2021/SEMESTER 5/KOMSTAT LANJUT/databersihprabowogibran.csv”
Visualisasi dengan Word Cloud
Word Cloud adalah representasi visual dari frekuensi kata. Ini adalah alat yang berguna untuk mengidentifikasi fokus materi tertulis. Word Cloud untuk tweet data “Pilpres” ditunjukkan di bawah ini.
Membuat Term Document Matriks
#Mengubah Data Frame Menjadi Data Faktor
tdm <- TermDocumentMatrix(rev)
m <- as.matrix(tdm)
View(m)
v <- sort(rowSums(m),decreasing = TRUE)Membuat Word Cloud
#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 )) 
Semakin sering istilah tersebut muncul dalam teks, semakin besar kata
tersebut muncul dalam gambar. Word Cloud tersebut menunjukkan bahwa
“Prabowo” dan “Gibrantweet”, adalah dua kata yang paling penting.
#menyimpan hasil term matriks ke variabel Tdm
tdm <- TermDocumentMatrix(rev,
control = list(wordLengths = c(1, Inf)))Frequent Words and Association
Visualisasi dengan Barplot untuk Menemukan kata-kata yang muncul setidaknya 50 kali.
Frequent Words
# inspect frequent words
(freq.terms <- findFreqTerms(tdm, lowfreq = 50))## [1] "@gerindra" "@gibran_tweet" "@prabowo"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()
Dari Barplot di atas kata yang paling sering muncul dari tweet data
pilpres adalah kata “Prabowo, gibran_tweet, dan gerindra”
Association
Menemukan korelasi antara kata-kata atau konsep dalam teks
# which words are associated with 'r'?
findAssocs(tdm, "pilpres", 0.2)## $pilpres
## 2024 biodata https://t.co/bop0hzi6au
## 1.00 1.00 1.00
## profil resmi untuk
## 1.00 0.57 0.57
## subianto rakabuming jadi
## 0.44 0.32 0.27
## cawapres
## 0.25# which words are associated with 'r'?
findAssocs(tdm, "prabowo", 0.2)## $prabowo
## gibran rakabuming raka
## 0.65 0.58 0.54
## cawapres pasangan sebagai
## 0.48 0.36 0.36
## resmi untuk ()
## 0.36 0.36 0.34
## komisi pemilihan pendaftaran
## 0.34 0.34 0.34
## ri subianto. (ahy)
## 0.34 0.34 0.34
## 4 acara agus
## 0.34 0.34 0.34
## dimulai harimurti jalan
## 0.34 0.34 0.34
## kediaman kertanegara menyebut
## 0.34 0.34 0.34
## no. rangkaian subianto-gibran
## 0.34 0.34 0.34
## yudhoyono (kim) bersama
## 0.34 0.34 0.34
## https://t.co/q1fwzxqnws lebih maju.
## 0.34 0.34 0.34
## mengaku mengusung siap
## 0.34 0.34 0.34
## subianto indonesia maju
## 0.32 0.32 0.32
## mau koalisi umum
## 0.25 0.25 0.25
## sama dari jadi
## 0.25 0.25 0.24
## ke bahwa bukan
## 0.23 0.20 0.20
## menjadi wali demokrat
## 0.20 0.20 0.20
## terkait pilih -
## 0.20 0.20 0.20
## cuma
## 0.20Hasil di atas menampilkan kata kata yang berhubungan dengan kata “Pilpres dan prabowo”
Menghapus kata-kata yang bersifat sparse (jarang muncul) dalam Term Document Matrix (TDM)
# remove sparse terms
tdm2 <- removeSparseTerms(tdm, sparse = 0.95)
m2 <- as.matrix(tdm2)Analisys cluster hierarchical
#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: 12plot(fit)
rect.hclust(fit, k = 2) # cut tree into 6 clusters
Dengan melihat selisih terpanjang dari gambar diatas terlihat bahwa
pemotongan yang tepat akan menghasilkan 2 cluster, dimana pada cluster 1
sebanyak 3 Word dan cluster 2 sebanyak 9 Word.
Analysis 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## @gerindra @gibran_tweet @prabowo sekali gibran prabowo gak raka rakabuming
## 1 0.00 0.024 0.024 0.000 0.829 0.732 0.098 0.171 0.22
## 2 0.82 1.000 1.000 0.098 0.016 0.000 0.033 0.000 0.00
## cawapres jadi inget
## 1 0.293 0.220 0.000
## 2 0.000 0.016 0.131for (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: gibran prabowo cawapres rakabuming jadi
## cluster 2: @gibran_tweet @prabowo @gerindra inget sekaliBerdasarkan hasil klastering k-means yang telah dilakukan dengan mentode centers,dapat disimpulkan sebagai berikut :
Cluster 1:
Kata kunci dominan termasuk “prabowo,” “gibran,” “gibrantweet,” dan “gerindra” Kemungkinan terkait dengan isu-isu pilpres, khususnya terkait dengan calon presiden Prabowo dan cawapres gibran serta partai politik gerindra.
Cluster 2:
Kata kunci dominan termasuk “kita,” “gerindra,” “gibrantweet,” “prabowo,” dan “maju sejahtera pastikan NKRI.” Kemungkinan terkait dengan isu-isu politik yang mencakup calon presiden Prabowo, partai politik gerindra, dan cawapres Gibran , serta upaya untuk memenangkan pilpres.
Analysis Sentiment
Analisis di bawah ini menggunakan algoritma Naive Bayes untuk melakukan klasifikasi tweet negatif,positif,dan netral menggunakan dataset tweet tentang pemilihan calon presiden dan wakil presiden tahun 2023 .
Mengimpor data Tweet prabowo gibran yang berjumlah 102 baris
##Analisis Sentiment
setwd("D:/STATISTIKA 2021/SEMESTER 5/KOMSTAT LANJUT")
# import data dari excel (.csv)
datagibran <- read.csv('databersihprabowogobran.csv', stringsAsFactors = T)
View(datagibran)Buat DataFrame hanya untuk komentar positif
Membuat dataframe yang berisi tweet positif
komentar_positif <- datagibran %>%
filter(Label == "Positive")
View(komentar_positif)
komentar_positif<-komentar_positif$x
komentar_positif## [1] prabowo gibran
## [2] gerindra naufalf prabowo gibrantweet top banget gui waktu ngeliat anak muda mampu meraih tujuannya bukti bahwa orang juga memiliki potensi utk mewujudkannya smangatpagi smangatmenang pastikannkri majusejahtera
## [3] gerindra prabowo gibrantweet betul sekali gibran buktiin bahwa harapan kita muda jadi kenyataan berarti dia mengatasi rintangan kita pun mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcoeetxhltfgi
## [4] gerindra prabowo gibrantweet inget teman keberhasilan pemuda lie menjadi pengingat jangan sampai tdk percaya diri kita jika pemuda lie mampu kita juga mampu smangatpagi smangatmenang pastikannkri majusejahtera
## [5] biodata profil gibran rakabum resmi jadi cawapr prabowo subianto untuk pilpr httpstcobop hzi au
## [6] ke mana perginya gibran rakabum deklarasi cawapr prabowo subianto untuk pemilu httpstcocvpi df e
## [7] gerindra prabowo gibrantweet bener fren kecondongan masyarakat memilih ayahbowo cenderung bertambah akibat dia menggunakan gaya baik dlm komunikasi smangatpagi smangatmenang pastikannkri majusejahtera httpstcocgt hpvhkq
## [8] gerindra prabowo gibrantweet inget you keberhasilan orang lie jadi acuan jangan kita tdk percaya diri sendiri jika pemuda lie mampu kita pasti smangatpagi smangatmenang pastikannkri majusejahtera httpstcoovxq brg
## [9] gerindra prabowo gibrantweet setuju sekali ayahbowo sangat mengerti diperlukan rakyat kita semua berharap negeri mencapai adil adem smangatpagi smangatmenang pastikannkri majusejahtera httpstcoruumoqokpm
## [10] gerindra prabowo gibrantweet inget bro suksesnya pemuda lie menjadi pengingat boleh kita meragukan diri kita jika orang lie kita juga mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcovh gem eq
## [11] wali surakarta gibran rakabum raka mengakui bertemu ketua dpp pdi perjuangan pdip puan maharani sebelum pengumuman dari prabowo subianto terkait capr cawapr jakarta minggu petanghttpstcopkula qi u
## [12] airlangga pimpin rapimna golkar usulkan gibran jadi cawapr prabowo dekad
## [13] gerindra prabowo gibrantweet setuju nih gibran buktiin bahwa keinginan anak muda jadi terwujud artinya dia mampu mengatasi masalah kita pun mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcoyjlz rzcwe
## [14] politisi pdip andrea hugo pareira mengaku kecewa keputusan wali solo gibran rakabum raka menerima pinangan golkar untuk menjadi cawapr pendamp prabowo subianto pilpr httpstcoubza tuuda
## [15] 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
## [16] dulu jokowi bilang gibran ' anak bawang ' sekarang selengkapnya httpstcoz lmvw nvx jokowi prabowo gibranrakabum pemilu prmn httpstcou sx yewr
## [17] koalisi indonesia maju kim resmi mengusung gibran rakabum raka sebagai cawapr prabowo subianto prabowo mengaku siap maju bersama gibran untuk indonesia lebih maju httpstcoq fwzxqnw
## [18] gerindra prabowo gibrantweet asik banget teman ketika ngeliat anak muda mampu mencapai mimpinya artinya bahwa kita juga memiliki potensi untuk melaksanakannya smangatpagi smangatmenang pastikannkri majusejahtera httpstconlxmpkfixm
## [19] gerindra prabowo gibrantweet inget bro kesuksesan pemuda lie adalah acuan boleh sampai meragukan diri sendiri orang lie mampu kita pasti mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcotxrhlv t
## [20] gerindra prabowo gibrantweet inget teman suksesnya orang lie jadi acuan jangan kita meragukan diri pemuda lie kita juga mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcowf fev lfk
## [21] agu harimurti yudhoyono ahi menyebut rangkaian acara pendaftaran pasangan prabowo subiantogibran rakabum raka ke komisi pemilihan umum ri dimulai dari kediaman prabowo jalan kertanegara no jakarta rabu wbnpjxc
## [22] gerindra prabowo gibrantweet keren banget si ketika ngeliat kita muda dapat mencapai tujuannya berarti bahwa orang juga punya kesempatan untuk mewujudkannya smangatpagi smangatmenang pastikannkri majusejahtera httpstcosanpshhmbh
## [23] supraward tinggipasaribu flaagung andreassolusi bentangnegeri lembayung rara tonybulumanu putriaalona ndaxwz pspresiden jimmyherdyansi kenapa tidak orang berpotensi besar pasti didukung contoh gibran dari pdip didukung jadi wakil prabowo 🥰
## [24] gerindra prabowo gibrantweet keyakinan orang makin terlihat ke ayahbowo karena sekarang terlihat jela dari cara kinerjanya bersemangat utk bangsa foku smangatpagi smangatmenang pastikannkri majusejahtera httpstcof xgcq c i
## [25] ketua umum partai gerindra sekaligu calon presiden dari koalisi indonesia maju prabowo subianto mengatakan gibran rakabum raka tidak hadir deklarasi jakarta minggu malam karena ada rapathttpstcojfpkpd gcq
## [26] gerindra prabowo gibrantweet kepercayaan saya semakin besar ayahbowo karena sekarang jela sekali dari bagaimana kerjanya mengbadi utk negeri sangat mumpuni smangatpagi smangatmenang pastikannkri majusejahtera httpstcour pvigsrj
## [27] junregar teddgu gibrantweet prabowo nah lah sebenarnya dipermasalahkan perputaran tingkat ata akhirnya hanya jatuh orang saja lingkaran saja muda silakan berprestasi silakan tapi apakah prestasi tadi hadir jika beliau bukan siapa prestasi dikondisikan
## [28] gerindra prabowo gibrantweet inget fren kesuksesan orang lie jadi contoh jangan kita tdk percaya diri jika pemuda lie kita juga smangatpagi smangatmenang pastikannkri majusejahtera
## [29] gibran pendongkrak atau beban prabowo pilpr cnn indonesia xst fvew jokowinom bersamaprabowo menatamasadepan
## [30] gerindra prabowo gibrantweet sepakat banget gibran buktiin sebenarnya mimpi orang muda menjadi terwujud berarti dia mengatasi rintangan kita juga smangatpagi smangatmenang pastikannkri majusejahtera httpstcoigd bt pb
## [31] gerindra prabowo gibrantweet fakta ketika kita orang muda percaya kebisaan kita sendiri anak muda memiliki kekuatan dalam wujudkan harapan menjadi nyata smangatpagi smangatmenang pastikannkri majusejahtera httpstcoofsz sqp a
## [32] nazlira gibran prabowo demokrat have vhqz a
## [33] gerindra prabowo gibrantweet inget teman berhasilnya orang lie menjadi pengingat jangan kita tidak yakin diri kita pemuda lie mampu kita pasti smangatpagi smangatmenang pastikannkri majusejahtera k oqplzk
## [34] gerindra prabowo gibrantweet inget teman berhasilnya orang lie jadi acuan boleh pernah meragukan diri orang lie mampu kita pasti mampu smangatpagi smangatmenang pastikannkri majusejahtera
## [35] gerindra prabowo gibrantweet benar waktu kita pemuda meyakini diri kita sendiri kita muda punya kemampuan untuk merubah harapan menjadi nyata smangatpagi smangatmenang pastikannkri majusejahtera
## [36] gerindra prabowo gibrantweet bener sekali gibran buktiin nyatanya keinginan kita muda mungkin jadi kenyataan artinya dia melewati halangan kita juga smangatpagi smangatmenang pastikannkri majusejahtera httpstcoc quambpdg
## [37] gerindra prabowo gibrantweet faktanya brai arah rakyat yg mendukung ayahbowo cenderung tinggi akibat dia pilih cara yg santun dlm berinteraksi smangatpagi smangatmenang pastikannkri majusejahtera
## [38] gerindra prabowo gibrantweet asik sekali ayahbowo sangat memperhatikan yg dimaui masyarakat aku kamu semua ingin supaya negeri mampu adil makmur smangatpagi smangatmenang pastikannkri majusejahtera
## [39] gerindra prabowo gibrantweet dukung sekali ayahbowo betul memperhatikan diperlukan warga bangsa aku kamu semua mau bangsa mampu adil makmur smangatpagi smangatmenang pastikannkri majusejahtera
## [40] nama wali solo gibran rakabum raka kian santer dikabarkan menjadi cawapr prabowo subianto dekad
## [41] gerindra prabowo gibrantweet sepakat banget ayahbowo sangat memperhatikan yg diharapkan rakyat aku kamu semua ingin bangsa adil makmur smangatpagi smangatmenang pastikannkri majusejahtera httpstcof ef kkfuj
## [42] rapimna golkar gibran calon cawapr prabowo dipimpin airlangga dekad
## [43] gerindra prabowo gibrantweet faktanya bro sekarang keinginan kita memilih ayahbowo tambah meningkat akibat beliau memilih cara baik dalam komunikasi smangatpagi smangatmenang pastikannkri majusejahtera httpstcosmoyz be gp
## [44] gibran jadi cawapr prabowo pan tegaskan ada kerenggangan dalam kim hcvj xkh
## [45] gerindra prabowo gibrantweet kepercayaan orang makin tebal ayahbowo karena selama jela sekali dari cara kerjanya lelah pd nusantara sangat seriu smangatpagi smangatmenang pastikannkri majusejahtera oa pfww
## [46] gerindra prabowo gibrantweet bapaknya jg dulu gitunampak polo culun planga plongosekali membalasbanteng kelimpungan ngadepinya kasian banteng pdiperjuangan skr tikung selanjutnya gerindra prabowo pat gulipat guligeng
## [47] gerindra prabowo gibrantweet betul nih gibran buktikan sebenarnya mimpi anak muda jadi terwujud berarti dia mampu melewati rintangan kita pasti mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcou ed o n u
## [48] gerindra heppyaja prabowo gibrantweet benar waktu kita pemuda mempercayai kebisaan kita sendiri kita muda memiliki kekuatan untuk wujudkan keinginan jadi kenyataan smangatpagi smangatmenang pastikannkri majusejahtera
## [49] wagimandeep arogan prabowo gibran
## [50] koalisi indonesia maju mendaftarkan prabowo subianto gibran rakabum raka sebagai pasangan calon presiden wakil presiden ke komisi pemilihan umum ri hari terakhir pendaftaran rabu httpstcoqujaq h
## [51] gibran offici get declar a prabowo run mate and of cours inevit a lot of peopl assum that thi all part of a plai that jokowi design how naiv we can be if be just see it a a natur polit dynam that happen
## [52] gerindra prabowo gibrantweet kepercayaan saya bertambah tinggi ayahbowo sebab selama jela sekali dari visi kinerjanya bersemangat nusantara begitu seriu smangatpagi smangatmenang pastikannkri majusejahtera httpstcojazbcgkewi
## [53] prabowo subianto mengumumkan gibran rakabum raka putra sulung presiden ri joko widodo sekaligu wali surakarta sebagai calon wakil presiden cawapr dari koalisi indonesia maju untuk pilpr lmgsogixk
## [54] kerja nyata pak jokowi selalu hati 💪 dulu sabar legowo sekarang juga pasti 💪semoga langkah caturmu demi nkri diteruskan prabowo gibrantweet 💪 istandwithjokowi prabowo gibranrakabum gerindra koalisiindonesiamaju httpstcobounuri zr
## [55] gerindra prabowo gibrantweet betul waktu kita muda mempercayai diri kita sendiri kita muda memiliki kekuatan utk wujudkan harapan menjadi nyata smangatpagi smangatmenang pastikannkri majusejahtera fsdwkwtg
## [56] gerindra prabowo gibrantweet asik nih si waktu terbukti orang muda dapat mencapai keinginannya berarti bahwa kita juga memiliki kesempatan utk melakukannya smangatpagi smangatmenang pastikannkri majusejahtera jpiu aq b
## [57] gerindra prabowo gibrantweet asik sekali bro waktu terbukti orang muda mampu meraih tujuannya bukti bahwa orang juga memiliki kesempatan utk melaksanakannya smangatpagi smangatmenang pastikannkri majusejahtera httpstcoyiskpouoa
## [58] gerindra prabowo gibrantweet 🫶🏻🫶🏻🫶🏻🫶🏻
## 102 Levels: agu harimurti yudhoyono ahi menyebut rangkaian acara pendaftaran pasangan prabowo subiantogibran rakabum raka ke komisi pemilihan umum ri dimulai dari kediaman prabowo jalan kertanegara no jakarta rabu wbnpjxc ...##Membuat Word Cloud komentar Positif
#Mengubah Data Frame Menjadi Data Faktor
tdm_pos <- TermDocumentMatrix(komentar_positif)
tdm_pos## <<TermDocumentMatrix (terms: 475, documents: 58)>>
## Non-/sparse entries: 1235/26315
## Sparsity : 96%
## Maximal term length: 20
## Weighting : term frequency (tf)m_pos <- as.matrix(tdm_pos)
View(m_pos)
v_pos <- sort(rowSums(m_pos),decreasing = TRUE)
head(v_pos)## prabowo kita gerindra gibrantweet majusejahtera
## 62 39 38 37 33
## pastikannkri
## 33#Mengubah Data Faktor Menjadi Data Frame
d_pos <- data.frame(word = names(v_pos), freq = v_pos)
head(d_pos)## word freq
## prabowo prabowo 62
## kita kita 39
## gerindra gerindra 38
## gibrantweet gibrantweet 37
## majusejahtera majusejahtera 33
## pastikannkri pastikannkri 33wordcloud(d_pos$word, d_pos$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 ))
Dari wordcloud di atas dapat terlihat bahwa hasil dari tweet positif
kata yang paling besar yaitu “prabowo”,“semangat menang” , ”
gibrantweet” dan “gerindra” hal ini menunjukkan bahwa banyak orang yang
melakukan tweet positif terhadap calon presiden dan cawapres 2024.
Term Dokument Matriks
tdm_positif <- TermDocumentMatrix(komentar_positif,
control = list(wordLengths = c(1, Inf)))
tdm_positif## <<TermDocumentMatrix (terms: 513, documents: 58)>>
## Non-/sparse entries: 1286/28468
## Sparsity : 96%
## Maximal term length: 20
## Weighting : term frequency (tf)inspect frequent words
(freq.terms <- findFreqTerms(tdm_positif, lowfreq = 10))## [1] "gibran" "prabowo" "gerindra" "gibrantweet"
## [5] "juga" "majusejahtera" "mampu" "muda"
## [9] "orang" "pastikannkri" "smangatmenang" "smangatpagi"
## [13] "jadi" "kita" "diri" "lie"
## [17] "pemuda" "cawapr" "rakabum" "ayahbowo"term.freq <- rowSums(as.matrix(tdm_positif))
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 Negatif") + ylab("Count") + coord_flip()
Menampilkan frequensi kata yang muncul minimal 10 kali
# Buat DataFrame hanya untuk komentar negatif
komentar_negatif <- datagibran%>%
filter(Label == "Negative")
komentar_negatif<-komentar_negatif$x
komentar_negatif## [1] maruahalsiahaa psiid gracenat kaesangp jokowi ganjarpranowo gibrantweet prabowo gerindra 👲🡲
## [2] gerindra prabowo gibrantweet capek kuliah min kirim hadiah dong
## [3] gerindra prabowo gibrantweet kawin paksa
## [4] idextratim bagi pecinta bola pertahanin pak erick ketum pssi kolaborasi pak prabowo x pak gibran 💪🏻 kalo bukan pecinta bola silahkan pilih yg ga peduli samp batalin pildun 😁
## [5] matanajwa adanya gibran bukti bahwa prabowo gak yakin diri nya sendiri serta parpol yg mendukungnya🤗
## [6] detikcom emang prabowo tidak ada nyaberarti mudah dong buat ganjar menang tanpa perlu tim pemenangan nasionalnya berstatemen kayak ginilagipula gibran kan katanya kader pdip kenapa gak diusung jadi cawapreskenapa kezel pa dicalonkan sama pihak lie 🕴🕴
## [7] kangawi chchotimah reiawanmoeldoko ganjarpranowo mohmahfudmd gibrantweet prabowo hebatnya gibran hebatnya cuma bilang hebat nenek gw juga hebat bikin anaknya jadi sarjana semua tapi gw sadar nenek gw ga ada kapasita jadi presiden
## [8] neohistoriaid terpaksa gw vote prabowo gibran kalo milih nanti kayaknya golput awalnya mo pilih ganjar namun berubah ketika indonesia gagal tuan rumah wc u
## [9] gerindra prabowo gibrantweet min bagi kao
## [10] misalnya prabowogibran jadi presidennya meningg kita merasakan untuk pertama kali dipimpin sama anak muda
## [11] gw sekarang okay aja siapapun presidennya nanti menang period asal jangan prabowo gibran kecewajokowi
## [12] prabowo ga salah nih pilih cawapr wajah culun kaya gibran mau mimpinya indonesia iuccvi fv
## [13] fadlizon prabowo gibrantweet jika terpilih nanti tahun keduabak konslet berjamaah tubuh koalisi gendut
## [14] pan tepi isu ada perbedaan pendapat terkait penetapan gibran jadi cawapr prabowo httpstcovpjtx flww
## [15] gerindra prabowo gibrantweet naji 🦶🤣🤣🤣🤣
## [16] klo gibrantweet kyk gini ke pak prabowo ditoyor pala nya 🤭
## [17] restyjcayah pendukung anus sama ganjar malah kompak hujat prabowo gibran udah gak ketolong beberapa pendukung perubahan 😄
## [18] gerindra prabowo gibrantweet ga bosan kalah min
## [19] jd aneh waktu gibran yg notum bene gibran gak kelihatan diumumkan sbg cawapr prabowo fahrihamzah juga hadir
## [20] dedimulyadi aq gak mau pilh prabowo gibran
## [21] melihatindo kita sebagai pemilih haru menghukum cara berpolitik tidak memilih pasangan prabowo gibran bukan tidak suka tapi memberi pelajaran bahwa etika politik tidak pernah laku
## [22] fadlizon prabowo gibrantweet ciah jilat jilat sampai bersih
## 102 Levels: agu harimurti yudhoyono ahi menyebut rangkaian acara pendaftaran pasangan prabowo subiantogibran rakabum raka ke komisi pemilihan umum ri dimulai dari kediaman prabowo jalan kertanegara no jakarta rabu wbnpjxc ...##Membuat Word Cloud komentar negatif
#Mengubah Data Frame Menjadi Data Faktor
tdm_neg <- TermDocumentMatrix(komentar_negatif)
tdm_neg## <<TermDocumentMatrix (terms: 216, documents: 22)>>
## Non-/sparse entries: 299/4453
## Sparsity : 94%
## Maximal term length: 15
## Weighting : term frequency (tf)m_neg <- as.matrix(tdm_neg)
View(m_neg)
v_neg <- sort(rowSums(m_neg),decreasing = TRUE)
head(v_neg)## prabowo gibran gibrantweet gerindra gak jadi
## 21 13 10 6 5 5#Mengubah Data Faktor Menjadi Data Frame
d_neg <- data.frame(word = names(v_neg), freq = v_neg)
head(d_neg)## word freq
## prabowo prabowo 21
## gibran gibran 13
## gibrantweet gibrantweet 10
## gerindra gerindra 6
## gak gak 5
## jadi jadi 5wordcloud(d_neg$word, d_neg$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
## Term Dokument Matriks Negatif
tdm_negatif <- TermDocumentMatrix(komentar_negatif,
control = list(wordLengths = c(1, Inf)))
tdm_negatif## <<TermDocumentMatrix (terms: 228, documents: 22)>>
## Non-/sparse entries: 318/4698
## Sparsity : 94%
## Maximal term length: 15
## Weighting : term frequency (tf)inspect frequent words
(freq.terms <- findFreqTerms(tdm_negatif, lowfreq = 5))## [1] "gerindra" "gibrantweet" "prabowo" "gibran" "gak"
## [6] "jadi" "gw"term.freq <- rowSums(as.matrix(tdm_negatif))
term.freq <- subset(term.freq, term.freq >= 5)
df <- data.frame(term = names(term.freq), freq = term.freq)
ggplot(df, aes(x = term, y = freq)) + geom_bar(stat = "identity") +
xlab("Terms Negatif") + ylab("Count") + coord_flip()
# Buat DataFrame hanya untuk komentar Neutral
komentar_neutral <- datagibran %>%
filter(Label == "Neutral")
komentar_neutral<-komentar_neutral$x
komentar_neutral## [1] zulhasan gibrantweet prabowo kader pan bnyak yg bagu pinter
## [2] pedagangkritik teddgu gibrantweet prabowo anaknya siapa kaitannya jokowicuba jelasin
## [3] vaniepink agusyudhoyono prabowo kan cuma butuh satu partai pink untuk memenuhi pt begitu golkar mendukung gibran otomati tiket didapat sementara lie mau ikut silahkan gak you gak apapa🡮🡮🡮
## [4] kata gibran soal nasibnya pdip usai jadi cawapr prabowo nasib gibran rakabum raka pdip dipertanyakan usai namanya resmi dideklarasikan menjadi cawapr prabowo begini jawaban gibran soal hal tersebut gt gt httpstcoc hzbusdc detikjateng
## [5] gerindra pacarjihyo prabowo gibrantweet min bagi kao hehe
## [6] notaslimboi deklarasi gibrantweet tapi mase kenapa gak disebelah pak prabowo
## [7] gerindra prabowo gibrantweet tetap semangat walau cipung tidak terpilih silaturahmi tetap terjaga adakah
## [8] wuih ganteng e ma prabowo karo ma gibrantweet 👍
## [9] pan legawa gibran jadi cawapr pendamp prabowo httpstcov vlmi dun
## [10] gerindra prabowo gibrantweet lesu bgt min kaya abi kena tipu😢
## [11] shotofoot gerindra prabowo gibrantweet lewat tl 😅
## [12] gerindra prabowo gibrantweet min ma gibran kok wajah nya jadi agak berisi 🙄🙄🙄
## [13] msaiddidu mereka masih malu mengakui selama tahun terkecoh bapaknya kalo gak nyalahin prabowo you gibran
## [14] hujanskui gerindra prabowo gibrantweet loh loh loh🤣🫠
## [15] anjir beneran prabowo sama gibran
## [16] shotofoot gerindra prabowo gibrantweet wkwkwk
## [17] teddgu gibrantweet prabowo horr rame👏👏👏👏
## [18] memelord info prabowogibran versi httpstcofvu mb vm
## [19] pagii 🥱 mau tanya sama pak prabowo kenapa gibran pak 😞 nanya doang seriu dah
## [20] ribbonjoul teddgu prabowo ganjarpranowo gibrantweet jokowi pdiperjuangan gerindra ha ngarang aja hahaha sak karepmu lah 🤣🤣
## [21] fyasof teddgu gibrantweet prabowo krn gak segerbong searah pilihan treak kemaren kemana aja ikut nikmatin wakakakak
## [22] gerindra prabowo gibrantweet semoga amanah
## 102 Levels: agu harimurti yudhoyono ahi menyebut rangkaian acara pendaftaran pasangan prabowo subiantogibran rakabum raka ke komisi pemilihan umum ri dimulai dari kediaman prabowo jalan kertanegara no jakarta rabu wbnpjxc ...##Membuat Word Cloud komentar Neutral
#Mengubah Data Frame Menjadi Data Faktor
tdm_neutral <- TermDocumentMatrix(komentar_neutral)
tdm_neutral## <<TermDocumentMatrix (terms: 164, documents: 22)>>
## Non-/sparse entries: 232/3376
## Sparsity : 94%
## Maximal term length: 14
## Weighting : term frequency (tf)m_neutral <- as.matrix(tdm_neutral)
View(m_neutral)
v_neutral <- sort(rowSums(m_neutral),decreasing = TRUE)
head(v_neutral)## prabowo gibrantweet gibran gerindra gak teddgu
## 22 15 9 9 5 4#Mengubah Data Faktor Menjadi Data Frame
d_neutral <- data.frame(word = names(v_neutral), freq = v_neutral)
head(d_neutral)## word freq
## prabowo prabowo 22
## gibrantweet gibrantweet 15
## gibran gibran 9
## gerindra gerindra 9
## gak gak 5
## teddgu teddgu 4wordcloud(d_neutral$word, d_neutral$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
PEMBAGIAN DATA
#set nilai random generator
set.seed(1234)
library(caret)## Loading required package: latticelibrary(Matrix)Membagi data 80% training, 20% testing
Membagi Data: Dataset dibagi menjadi data latih (train) dan data uji (test) dengan proporsi 80:20 menggunakan fungsi createDataPartition() dari paket ‘caret’.
bagi <- createDataPartition(datagibran$Label, p = 0.8, list
=F)
training<- datagibran[bagi,]
View(training)
testing<- datagibran[-bagi,]
View(testing)METODE VALIDASI
# cross-validasi 5 lipat
control <- trainControl(method = "cv", number = 5, classProbs = TRUE)
control## $method
## [1] "cv"
##
## $number
## [1] 5
##
## $repeats
## [1] NA
##
## $search
## [1] "grid"
##
## $p
## [1] 0.75
##
## $initialWindow
## NULL
##
## $horizon
## [1] 1
##
## $fixedWindow
## [1] TRUE
##
## $skip
## [1] 0
##
## $verboseIter
## [1] FALSE
##
## $returnData
## [1] TRUE
##
## $returnResamp
## [1] "final"
##
## $savePredictions
## [1] FALSE
##
## $classProbs
## [1] TRUE
##
## $summaryFunction
## function (data, lev = NULL, model = NULL)
## {
## if (is.character(data$obs))
## data$obs <- factor(data$obs, levels = lev)
## postResample(data[, "pred"], data[, "obs"])
## }
## <bytecode: 0x00000230d82cbc58>
## <environment: namespace:caret>
##
## $selectionFunction
## [1] "best"
##
## $preProcOptions
## $preProcOptions$thresh
## [1] 0.95
##
## $preProcOptions$ICAcomp
## [1] 3
##
## $preProcOptions$k
## [1] 5
##
## $preProcOptions$freqCut
## [1] 19
##
## $preProcOptions$uniqueCut
## [1] 10
##
## $preProcOptions$cutoff
## [1] 0.9
##
##
## $sampling
## NULL
##
## $index
## NULL
##
## $indexOut
## NULL
##
## $indexFinal
## NULL
##
## $timingSamps
## [1] 0
##
## $predictionBounds
## [1] FALSE FALSE
##
## $seeds
## [1] NA
##
## $adaptive
## $adaptive$min
## [1] 5
##
## $adaptive$alpha
## [1] 0.05
##
## $adaptive$method
## [1] "gls"
##
## $adaptive$complete
## [1] TRUE
##
##
## $trim
## [1] FALSE
##
## $allowParallel
## [1] TRUEAnalisis Klasifikasi
Membuat dan Melatih Model: Model Naive Bayes dibuat menggunakan fungsi naiveBayes() dari paket ‘e1071’. Model ini dilatih dengan menggunakan data latih dan label data latih.
#Naive bayes
modelNB<-naiveBayes(Label~.,data = training)
head(modelNB)## $apriori
## Y
## Negative Neutral Positive
## 18 18 47
##
## $tables
## $tables$X
## X
## Y [,1] [,2]
## Negative 46.77778 33.15659
## Neutral 49.72222 29.33539
## Positive 53.10638 28.71693
##
## $tables$x
## x
## Y agu harimurti yudhoyono ahi menyebut rangkaian acara pendaftaran pasangan prabowo subiantogibran rakabum raka ke komisi pemilihan umum ri dimulai dari kediaman prabowo jalan kertanegara no jakarta rabu wbnpjxc
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y airlangga pimpin rapimna golkar usulkan gibran jadi cawapr prabowo dekad
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y anjir beneran prabowo sama gibran
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y biodata profil gibran rakabum resmi jadi cawapr prabowo subianto untuk pilpr httpstcobop hzi au
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y dedimulyadi aq gak mau pilh prabowo gibran
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y detikcom emang prabowo tidak ada nyaberarti mudah dong buat ganjar menang tanpa perlu tim pemenangan nasionalnya berstatemen kayak ginilagipula gibran kan katanya kader pdip kenapa gak diusung jadi cawapreskenapa kezel pa dicalonkan sama pihak lie 🕴🕴
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y dulu jokowi bilang gibran ' anak bawang ' sekarang selengkapnya httpstcoz lmvw nvx jokowi prabowo gibranrakabum pemilu prmn httpstcou sx yewr
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y fadlizon prabowo gibrantweet ciah jilat jilat sampai bersih
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y fadlizon prabowo gibrantweet jika terpilih nanti tahun keduabak konslet berjamaah tubuh koalisi gendut
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y fyasof teddgu gibrantweet prabowo krn gak segerbong searah pilihan treak kemaren kemana aja ikut nikmatin wakakakak
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y gerindra heppyaja prabowo gibrantweet benar waktu kita pemuda mempercayai kebisaan kita sendiri kita muda memiliki kekuatan untuk wujudkan keinginan jadi kenyataan smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra naufalf prabowo gibrantweet top banget gui waktu ngeliat anak muda mampu meraih tujuannya bukti bahwa orang juga memiliki potensi utk mewujudkannya smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra pacarjihyo prabowo gibrantweet min bagi kao hehe
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet asik banget teman ketika ngeliat anak muda mampu mencapai mimpinya artinya bahwa kita juga memiliki potensi untuk melaksanakannya smangatpagi smangatmenang pastikannkri majusejahtera httpstconlxmpkfixm
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet asik nih si waktu terbukti orang muda dapat mencapai keinginannya berarti bahwa kita juga memiliki kesempatan utk melakukannya smangatpagi smangatmenang pastikannkri majusejahtera jpiu aq b
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet asik sekali ayahbowo sangat memperhatikan yg dimaui masyarakat aku kamu semua ingin supaya negeri mampu adil makmur smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet asik sekali bro waktu terbukti orang muda mampu meraih tujuannya bukti bahwa orang juga memiliki kesempatan utk melaksanakannya smangatpagi smangatmenang pastikannkri majusejahtera httpstcoyiskpouoa
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet bapaknya jg dulu gitunampak polo culun planga plongosekali membalasbanteng kelimpungan ngadepinya kasian banteng pdiperjuangan skr tikung selanjutnya gerindra prabowo pat gulipat guligeng
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet benar waktu kita pemuda meyakini diri kita sendiri kita muda punya kemampuan untuk merubah harapan menjadi nyata smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet bener fren kecondongan masyarakat memilih ayahbowo cenderung bertambah akibat dia menggunakan gaya baik dlm komunikasi smangatpagi smangatmenang pastikannkri majusejahtera httpstcocgt hpvhkq
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet bener sekali gibran buktiin nyatanya keinginan kita muda mungkin jadi kenyataan artinya dia melewati halangan kita juga smangatpagi smangatmenang pastikannkri majusejahtera httpstcoc quambpdg
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet betul nih gibran buktikan sebenarnya mimpi anak muda jadi terwujud berarti dia mampu melewati rintangan kita pasti mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcou ed o n u
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet betul sekali gibran buktiin bahwa harapan kita muda jadi kenyataan berarti dia mengatasi rintangan kita pun mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcoeetxhltfgi
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet betul waktu kita muda mempercayai diri kita sendiri kita muda memiliki kekuatan utk wujudkan harapan menjadi nyata smangatpagi smangatmenang pastikannkri majusejahtera fsdwkwtg
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet capek kuliah min kirim hadiah dong
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet dukung sekali ayahbowo betul memperhatikan diperlukan warga bangsa aku kamu semua mau bangsa mampu adil makmur smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet fakta ketika kita orang muda percaya kebisaan kita sendiri anak muda memiliki kekuatan dalam wujudkan harapan menjadi nyata smangatpagi smangatmenang pastikannkri majusejahtera httpstcoofsz sqp a
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet faktanya brai arah rakyat yg mendukung ayahbowo cenderung tinggi akibat dia pilih cara yg santun dlm berinteraksi smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet faktanya bro sekarang keinginan kita memilih ayahbowo tambah meningkat akibat beliau memilih cara baik dalam komunikasi smangatpagi smangatmenang pastikannkri majusejahtera httpstcosmoyz be gp
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet ga bosan kalah min
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet inget bro kesuksesan pemuda lie adalah acuan boleh sampai meragukan diri sendiri orang lie mampu kita pasti mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcotxrhlv t
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet inget bro suksesnya pemuda lie menjadi pengingat boleh kita meragukan diri kita jika orang lie kita juga mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcovh gem eq
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet inget fren kesuksesan orang lie jadi contoh jangan kita tdk percaya diri jika pemuda lie kita juga smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet inget teman berhasilnya orang lie jadi acuan boleh pernah meragukan diri orang lie mampu kita pasti mampu smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet inget teman berhasilnya orang lie menjadi pengingat jangan kita tidak yakin diri kita pemuda lie mampu kita pasti smangatpagi smangatmenang pastikannkri majusejahtera k oqplzk
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet inget teman keberhasilan pemuda lie menjadi pengingat jangan sampai tdk percaya diri kita jika pemuda lie mampu kita juga mampu smangatpagi smangatmenang pastikannkri majusejahtera
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet inget teman suksesnya orang lie jadi acuan jangan kita meragukan diri pemuda lie kita juga mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcowf fev lfk
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet inget you keberhasilan orang lie jadi acuan jangan kita tdk percaya diri sendiri jika pemuda lie mampu kita pasti smangatpagi smangatmenang pastikannkri majusejahtera httpstcoovxq brg
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet kawin paksa
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet kepercayaan orang makin tebal ayahbowo karena selama jela sekali dari cara kerjanya lelah pd nusantara sangat seriu smangatpagi smangatmenang pastikannkri majusejahtera oa pfww
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet kepercayaan saya bertambah tinggi ayahbowo sebab selama jela sekali dari visi kinerjanya bersemangat nusantara begitu seriu smangatpagi smangatmenang pastikannkri majusejahtera httpstcojazbcgkewi
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet kepercayaan saya semakin besar ayahbowo karena sekarang jela sekali dari bagaimana kerjanya mengbadi utk negeri sangat mumpuni smangatpagi smangatmenang pastikannkri majusejahtera httpstcour pvigsrj
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet keren banget si ketika ngeliat kita muda dapat mencapai tujuannya berarti bahwa orang juga punya kesempatan untuk mewujudkannya smangatpagi smangatmenang pastikannkri majusejahtera httpstcosanpshhmbh
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet keyakinan orang makin terlihat ke ayahbowo karena sekarang terlihat jela dari cara kinerjanya bersemangat utk bangsa foku smangatpagi smangatmenang pastikannkri majusejahtera httpstcof xgcq c i
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet lesu bgt min kaya abi kena tipu😢
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet min bagi kao
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet min ma gibran kok wajah nya jadi agak berisi 🙄🙄🙄
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet naji 🦶🤣🤣🤣🤣
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet semoga amanah
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet sepakat banget ayahbowo sangat memperhatikan yg diharapkan rakyat aku kamu semua ingin bangsa adil makmur smangatpagi smangatmenang pastikannkri majusejahtera httpstcof ef kkfuj
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet sepakat banget gibran buktiin sebenarnya mimpi orang muda menjadi terwujud berarti dia mengatasi rintangan kita juga smangatpagi smangatmenang pastikannkri majusejahtera httpstcoigd bt pb
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet setuju nih gibran buktiin bahwa keinginan anak muda jadi terwujud artinya dia mampu mengatasi masalah kita pun mampu smangatpagi smangatmenang pastikannkri majusejahtera httpstcoyjlz rzcwe
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet setuju sekali ayahbowo sangat mengerti diperlukan rakyat kita semua berharap negeri mencapai adil adem smangatpagi smangatmenang pastikannkri majusejahtera httpstcoruumoqokpm
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gerindra prabowo gibrantweet tetap semangat walau cipung tidak terpilih silaturahmi tetap terjaga adakah
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y gerindra prabowo gibrantweet 🫶🏻🫶🏻🫶🏻🫶🏻
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gibran jadi cawapr prabowo pan tegaskan ada kerenggangan dalam kim hcvj xkh
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y gibran offici get declar a prabowo run mate and of cours inevit a lot of peopl assum that thi all part of a plai that jokowi design how naiv we can be if be just see it a a natur polit dynam that happen
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gibran pendongkrak atau beban prabowo pilpr cnn indonesia xst fvew jokowinom bersamaprabowo menatamasadepan
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y gw sekarang okay aja siapapun presidennya nanti menang period asal jangan prabowo gibran kecewajokowi
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y hujanskui gerindra prabowo gibrantweet loh loh loh🤣🫠
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y idextratim bagi pecinta bola pertahanin pak erick ketum pssi kolaborasi pak prabowo x pak gibran 💪🏻 kalo bukan pecinta bola silahkan pilih yg ga peduli samp batalin pildun 😁
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y jd aneh waktu gibran yg notum bene gibran gak kelihatan diumumkan sbg cawapr prabowo fahrihamzah juga hadir
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y junregar teddgu gibrantweet prabowo nah lah sebenarnya dipermasalahkan perputaran tingkat ata akhirnya hanya jatuh orang saja lingkaran saja muda silakan berprestasi silakan tapi apakah prestasi tadi hadir jika beliau bukan siapa prestasi dikondisikan
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y kangawi chchotimah reiawanmoeldoko ganjarpranowo mohmahfudmd gibrantweet prabowo hebatnya gibran hebatnya cuma bilang hebat nenek gw juga hebat bikin anaknya jadi sarjana semua tapi gw sadar nenek gw ga ada kapasita jadi presiden
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y kata gibran soal nasibnya pdip usai jadi cawapr prabowo nasib gibran rakabum raka pdip dipertanyakan usai namanya resmi dideklarasikan menjadi cawapr prabowo begini jawaban gibran soal hal tersebut gt gt httpstcoc hzbusdc detikjateng
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y ke mana perginya gibran rakabum deklarasi cawapr prabowo subianto untuk pemilu httpstcocvpi df e
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y kerja nyata pak jokowi selalu hati 💪 dulu sabar legowo sekarang juga pasti 💪semoga langkah caturmu demi nkri diteruskan prabowo gibrantweet 💪 istandwithjokowi prabowo gibranrakabum gerindra koalisiindonesiamaju httpstcobounuri zr
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y ketua umum partai gerindra sekaligu calon presiden dari koalisi indonesia maju prabowo subianto mengatakan gibran rakabum raka tidak hadir deklarasi jakarta minggu malam karena ada rapathttpstcojfpkpd gcq
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y klo gibrantweet kyk gini ke pak prabowo ditoyor pala nya 🤭
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y koalisi indonesia maju kim resmi mengusung gibran rakabum raka sebagai cawapr prabowo subianto prabowo mengaku siap maju bersama gibran untuk indonesia lebih maju httpstcoq fwzxqnw
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y koalisi indonesia maju mendaftarkan prabowo subianto gibran rakabum raka sebagai pasangan calon presiden wakil presiden ke komisi pemilihan umum ri hari terakhir pendaftaran rabu httpstcoqujaq h
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y maruahalsiahaa psiid gracenat kaesangp jokowi ganjarpranowo gibrantweet prabowo gerindra 👲🡲
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y matanajwa adanya gibran bukti bahwa prabowo gak yakin diri nya sendiri serta parpol yg mendukungnya🤗
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y melihatindo kita sebagai pemilih haru menghukum cara berpolitik tidak memilih pasangan prabowo gibran bukan tidak suka tapi memberi pelajaran bahwa etika politik tidak pernah laku
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y memelord info prabowogibran versi httpstcofvu mb vm
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y misalnya prabowogibran jadi presidennya meningg kita merasakan untuk pertama kali dipimpin sama anak muda
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y msaiddidu mereka masih malu mengakui selama tahun terkecoh bapaknya kalo gak nyalahin prabowo you gibran
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y nama wali solo gibran rakabum raka kian santer dikabarkan menjadi cawapr prabowo subianto dekad
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y nazlira gibran prabowo demokrat have vhqz a
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y neohistoriaid terpaksa gw vote prabowo gibran kalo milih nanti kayaknya golput awalnya mo pilih ganjar namun berubah ketika indonesia gagal tuan rumah wc u
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y notaslimboi deklarasi gibrantweet tapi mase kenapa gak disebelah pak prabowo
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y pagii 🥱 mau tanya sama pak prabowo kenapa gibran pak 😞 nanya doang seriu dah
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y pan legawa gibran jadi cawapr pendamp prabowo httpstcov vlmi dun
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y pan tepi isu ada perbedaan pendapat terkait penetapan gibran jadi cawapr prabowo httpstcovpjtx flww
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y pedagangkritik teddgu gibrantweet prabowo anaknya siapa kaitannya jokowicuba jelasin
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y politisi pdip andrea hugo pareira mengaku kecewa keputusan wali solo gibran rakabum raka menerima pinangan golkar untuk menjadi cawapr pendamp prabowo subianto pilpr httpstcoubza tuuda
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y prabowo ga salah nih pilih cawapr wajah culun kaya gibran mau mimpinya indonesia iuccvi fv
## Negative 0.05555556
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y prabowo gibran
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y prabowo subianto mengumumkan gibran rakabum raka putra sulung presiden ri joko widodo sekaligu wali surakarta sebagai calon wakil presiden cawapr dari koalisi indonesia maju untuk pilpr lmgsogixk
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y rapimna golkar gibran calon cawapr prabowo dipimpin airlangga dekad
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y restyjcayah pendukung anus sama ganjar malah kompak hujat prabowo gibran udah gak ketolong beberapa pendukung perubahan 😄
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y ribbonjoul teddgu prabowo ganjarpranowo gibrantweet jokowi pdiperjuangan gerindra ha ngarang aja hahaha sak karepmu lah 🤣🤣
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y 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
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y shotofoot gerindra prabowo gibrantweet lewat tl 😅
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y shotofoot gerindra prabowo gibrantweet wkwkwk
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y supraward tinggipasaribu flaagung andreassolusi bentangnegeri lembayung rara tonybulumanu putriaalona ndaxwz pspresiden jimmyherdyansi kenapa tidak orang berpotensi besar pasti didukung contoh gibran dari pdip didukung jadi wakil prabowo 🥰
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y teddgu gibrantweet prabowo horr rame👏👏👏👏
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y vaniepink agusyudhoyono prabowo kan cuma butuh satu partai pink untuk memenuhi pt begitu golkar mendukung gibran otomati tiket didapat sementara lie mau ikut silahkan gak you gak apapa🡮🡮🡮
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y wagimandeep arogan prabowo gibran
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.02127660
## x
## Y wali surakarta gibran rakabum raka mengakui bertemu ketua dpp pdi perjuangan pdip puan maharani sebelum pengumuman dari prabowo subianto terkait capr cawapr jakarta minggu petanghttpstcopkula qi u
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y wuih ganteng e ma prabowo karo ma gibrantweet 👍
## Negative 0.00000000
## Neutral 0.05555556
## Positive 0.00000000
## x
## Y zulhasan gibrantweet prabowo kader pan bnyak yg bagu pinter
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.00000000
##
##
## $levels
## [1] "Negative" "Neutral" "Positive"
##
## $isnumeric
## X x
## TRUE FALSE
##
## $call
## naiveBayes.default(x = X, y = Y, laplace = laplace)Melakukan Prediksi Menggunakan Data Testing
Menguji Model: Model yang telah dilatih digunakan untuk memprediksi tweet netral,positive dan negative pada data uji menggunakan fungsi predict(). Prediksi tersebut disimpan dalam variabel predictions.
Menghitung Metrik Evaluasi: Dalam contoh ini, metrik evaluasi yang dihitung adalah akurasi, yaitu proporsi prediksi yang benar dari total prediksi. Akurasi dihitung dengan membandingkan prediksi dengan label sebenarnya pada data uji.
prediksiNB_test<-predict(modelNB,testing)
prediksiNB_test## [1] Positive Positive Positive Positive Positive Positive Positive Positive
## [9] Positive Positive Positive Positive Positive Positive Positive Positive
## [17] Positive Positive Positive
## Levels: Negative Neutral Positivehasil_testNB=confusionMatrix(table(prediksiNB_test,testing$Label))
hasil_testNB## Confusion Matrix and Statistics
##
##
## prediksiNB_test Negative Neutral Positive
## Negative 0 0 0
## Neutral 0 0 0
## Positive 4 4 11
##
## Overall Statistics
##
## Accuracy : 0.5789
## 95% CI : (0.335, 0.7975)
## No Information Rate : 0.5789
## P-Value [Acc > NIR] : 0.596
##
## Kappa : 0
##
## Mcnemar's Test P-Value : NA
##
## Statistics by Class:
##
## Class: Negative Class: Neutral Class: Positive
## Sensitivity 0.0000 0.0000 1.0000
## Specificity 1.0000 1.0000 0.0000
## Pos Pred Value NaN NaN 0.5789
## Neg Pred Value 0.7895 0.7895 NaN
## Prevalence 0.2105 0.2105 0.5789
## Detection Rate 0.0000 0.0000 0.5789
## Detection Prevalence 0.0000 0.0000 1.0000
## Balanced Accuracy 0.5000 0.5000 0.5000