UAS KOMPUTASI
HASTUTI
E0221301
Introduction
#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(parallel)
library(tokenizers)
library(tau)
library(NLP)
library(stringr)
library(devtools)## Loading required package: usethislibrary(quanteda)## Package version: 3.3.1
## Unicode version: 13.0
## ICU version: 69.1## Parallel computing: 4 of 4 threads used.## See https://quanteda.io for tutorials and examples.##
## Attaching package: 'quanteda'## The following object is masked from 'package:tm':
##
## stopwords## The following objects are masked from 'package:NLP':
##
## meta, meta<-library(kayadata)
library(syuzhet)
library(e1071)
library(sentimentr)##
## Attaching package: 'sentimentr'## The following object is masked from 'package:syuzhet':
##
## get_sentenceslibrary(SentimentAnalysis)##
## Attaching package: 'SentimentAnalysis'## The following object is masked from 'package:base':
##
## writelibrary(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(pacman)
library(readxl)
pacman::p_load_gh("trinker/textstem")
pacman::p_load(textstem, dplyr)Tentang Dataset
setwd("C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan")
Datakorupsi<- read.csv("korupsi.csv")
rev<-Datakorupsi$full_text
head(rev)## [1] "@LlaganS67549 @txtangkringan @CNNIndonesia @mohmahfudmd Korupsi pajak gw goblok"
## [2] "@StefanAntonio__ NEPOTISME adalah pintu masuknya kolusi & korupsi. Nepotisme adl awal bencana terjadinya korupsi. Bahaya memang nepotism itu."
## [3] "Baguslah seenggaknnya ahy blm pernah kedengeran kesangkut kasus korupsi"
## [4] "@MahasiswaUMS @umsofficialid kurang2 in korupsi didalem lu sejahterain pegawe2 lu yang udah lama ngabdi"
## [5] "Jaksa Usut Dugaan Korupsi Penyalahgunaan Alsintan di Dinas Pertanian Abdya https://t.co/nzjZJbpCTc"
## [6] "'@tiindonesia bakal selenggarakan Indonesia Integrity Forum #IIF2023: Sustaining Alliance"Membuat Dataframe dengan nama “datapilpres”yang hanya berisi kolom Full Text
1.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
rev <- tolower(rev)
head(rev)## [1] "@llagans67549 @txtangkringan @cnnindonesia @mohmahfudmd korupsi pajak gw goblok"
## [2] "@stefanantonio__ nepotisme adalah pintu masuknya kolusi & korupsi. nepotisme adl awal bencana terjadinya korupsi. bahaya memang nepotism itu."
## [3] "baguslah seenggaknnya ahy blm pernah kedengeran kesangkut kasus korupsi"
## [4] "@mahasiswaums @umsofficialid kurang2 in korupsi didalem lu sejahterain pegawe2 lu yang udah lama ngabdi"
## [5] "jaksa usut dugaan korupsi penyalahgunaan alsintan di dinas pertanian abdya https://t.co/nzjzjbpctc"
## [6] "'@tiindonesia bakal selenggarakan indonesia integrity forum #iif2023: sustaining alliance"Mengembalikan Kata yang disingkat Menjadi Kata Aslinya.
#contraction
rev <- replace_contraction(rev)
head(rev)## [1] "@llagans67549 @txtangkringan @cnnindonesia @mohmahfudmd korupsi pajak gw goblok"
## [2] "@stefanantonio__ nepotisme adalah pintu masuknya kolusi & korupsi. nepotisme adl awal bencana terjadinya korupsi. bahaya memang nepotism itu."
## [3] "baguslah seenggaknnya ahy blm pernah kedengeran kesangkut kasus korupsi"
## [4] "@mahasiswaums @umsofficialid kurang2 in korupsi didalem lu sejahterain pegawe2 lu yang udah lama ngabdi"
## [5] "jaksa usut dugaan korupsi penyalahgunaan alsintan di dinas pertanian abdya https://t.co/nzjzjbpctc"
## [6] "'@tiindonesia bakal selenggarakan indonesia integrity forum #iif2023: sustaining alliance"#elongasi
rev <- replace_word_elongation(rev)
head(rev)## [1] "@llagans67549 @txtangkringan @cnnindonesia @mohmahfudmd korupsi pajak gw goblok"
## [2] "@stefanantonio__ nepotisme adalah pintu masuknya kolusi & korupsi. nepotisme adl awal bencana terjadinya korupsi. bahaya memang nepotism itu."
## [3] "baguslah seenggaknnya ahy blm pernah kedengeran kesangkut kasus korupsi"
## [4] "@mahasiswaums @umsofficialid kurang2 in korupsi didalem lu sejahterain pegawe2 lu yang udah lama ngabdi"
## [5] "jaksa usut dugaan korupsi penyalahgunaan alsintan di dinas pertanian abdya https://t.co/nzjzjbpctc"
## [6] "'@tiindonesia bakal selenggarakan indonesia integrity forum #iif2023: sustaining alliance"#Menghapus simbol
rev <- strip(rev)
head(rev)## [1] "llagans txtangkringan cnnindonesia mohmahfudmd korupsi pajak gw goblok"
## [2] "stefanantonio nepotisme adalah pintu masuknya kolusi amp korupsi nepotisme adl awal bencana terjadinya korupsi bahaya memang nepotism itu"
## [3] "baguslah seenggaknnya ahy blm pernah kedengeran kesangkut kasus korupsi"
## [4] "mahasiswaums umsofficialid kurang in korupsi didalem lu sejahterain pegawe lu yang udah lama ngabdi"
## [5] "jaksa usut dugaan korupsi penyalahgunaan alsintan di dinas pertanian abdya httpstconzjzjbpctc"
## [6] "'tiindonesia bakal selenggarakan indonesia integrity forum iif sustaining alliance"2.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(rev)## [1] "llagan txtangkringan cnnindonesia mohmahfudmd korupsi pajak gw goblok"
## [2] "stefanantonio nepotism adalah pintu masuknya kolusi amp korupsi nepotism adl awal bencana terjadinya korupsi bahaya memang nepot itu"
## [3] "baguslah seenggaknnya ahi blm pernah kedengeran kesangkut kasu korupsi"
## [4] "mahasiswaum umsofficialid kurang in korupsi didalem lu sejahterain pegaw lu yang udah lama ngabdi"
## [5] "jaksa usut dugaan korupsi penyalahgunaan alsintan di dina pertanian abdya httpstconzjzjbpctc"
## [6] "'tiindonesia bakal selenggarakan indonesia integr forum iif sustain allianc"
## [7] "abuwara membangun korupsi nye cendana"
## [8] "sagung b nt ngk r r chchotimah jokowi korupsi lem aibon"
## [9] "busung lapar di lumbung padi anak bangsa mati pemerintah tak peduli kata orang negeri ini subur makmur gemah ripah loh jinawi hancur karena korupsi"
## [10] "gibraltarnc biasanya orang yg tau agama itu cenderung korupsi karena dia tau caranya nanti bertobat"
## [11] "sagung zuhripud bennyharmanid korupsi lem aibon"
## [12] "catatan romo magni suseno"
## [13] "chchotimah ganjarpranowo mohmahfudmd kapan pernah melakukan hal berani dalam memberanta korupsi saat kasu ektp atau kasu pajak slogan pembusukan saja"
## [14] "tvindonesiawkwk pantesan ngankat mentrinya asal"
## [15] "sagung edykiantolol zuhripud bennyharmanid korupsi lem aibon"
## [16] "senin"
## [17] "sagung anasisferi korupsi lem aibon"
## [18] "ahmadjunaidist hasyimmah bisa"
## [19] "oh ya pantesan aja budaya korupsi kita teru berlanjut ternyata emg dari nenek moyang kita udh mendarah dage"
## [20] "di sisi lain"
## [21] "korantempo para ketum partai tersandera kasu korupsi amp sebagian takut dibeg kacung ki lurah"
## [22] "mantriss kejauhan ke dulu kan belum tentu menang mendingan pak mahfud"
## [23] "chchotimah ganjarpranowo mohmahfudmd jgn bilang bernyali beranta korupsi malu tau"
## [24] "kompastv ngasih duit ke fakir miskin dr hasil korupsi tetap salah"
## [25] "lhayesno emangnya cuma jokowi yang punya otak kpk hancur juga dibawah jokowi birokrasi lebih buruk dari jaman sby korupsi dimanamana mau konsolidasi kekuasaan terangterangan tapi dianggap jeniu kenapa tidak terbaca karena tidak ada yang menebak"
## [26] "mantriss pale utama amp pent buat saat ini well sebenarnya udah lama adalah penegakan hukum amp keadilan udh senep muak bgt bnyk nya ketidakadilanamp lemahnya hukum korupsi semakin tinggi merajalela terutama di era jkw gak hr sempurna"
## [27] "rembukpsi kalau kaesangb emang niat tinggal minta pak jokowi terbitkan perpu perampasan aset omnibu law yg rumit saja bisa diperpukan konon lagi sekadar perpu perampasan aset alasan perlu amp mendesak sudah terpenuhi dng terjun bebasnya indek p"
## [28] "ajengcut kesempatan ni sisa bulan utk korupsi bagi menteri baru yg akan ditunjuk jokowi nanti"
## [29] "dinasti pdip ketakutan pale besar di tahun"
## [30] "tvonenew generasi muda mileni sampai z"
## [31] "cnnindonesia kita terancam krisi pangan tapi masih ada yg korupsi di sektor pertanian kan asu namanya"
## [32] "fakta baru sidang korupsi dak bantuan madu"
## [33] "chrisj sejak pdip berkuasa isu radik tr di gemakan utk menutupi korupsi"
## [34] "dewan sebut ada potensi korupsi di proyek rehabilitasi sdn sumberdem wonosari malang httpstcoe sk urbi httpstcowckzcuba b"
## [35] "wagimandeep saya prihatin waktunya hanya singkat apa dia kuat mendorong beban yg berat pasca ditingg korupsi yg ugal ugalan 🡧🡧"
## [36] "pemberantasan korupsi"
## [37] "foto hoak"
## [38] "orang ini lebih takut sama pk yang track recordnya ga ngerusak negara dibandingkan sama partai partai yg jela buruk track recordnya dan merusak negara dari mulai sarang korupsi"
## [39] "democrazymedia dak b lawan diband kan dengan pak sudomo"
## [40] "chave romi ini bukannya mantan napi korupsi ya klo ga salah"
## [41] "gmgm korupsi belum tentu kolusi dan nepotism"
## [42] "mantriss kembali ke uud aja untuk point amp fakir miskin amp anak terlantar dipelihara oleh negara kebebasan amp toleransi antarumat beragama koruptor dihukum mati amp dimiskinkan aparat pelaku pungli"
## [43] "untuk akun yg sang jadi buzzrp gemukin dulu follow minim tujuh digit yg rtcl minim dari follow jika akun masih duatiga digit haru punya hub baik dg ring n buzerp ring tanpa mengemi anda otomati jadi buzerp jangan dm sy"
## [44] "notsa kompascom yg termasuk pidana itu kkn bukan cuma korupsi makanya pinter dikit napa"
## [45] "mantan penyidik komisi pemberantasan korupsi kpk"
## [46] "gibraltarnc capresmu disangka korupsi gak capresmu doyan mainin anggaran gak capresmu suka bohong gak"
## [47] "facialwashh neohistoriaid aniesbaswedan kalau masnya mau baha dari sisi korupsi"
## [48] "dua terdakwa kasu tindak pidana korupsi kegiatan belanja bahan bakar minyak bbm transportasi laut dan sungai bersumb dari anggaran apbd kabupaten lingga tahun httpstcoydj kslqtw"
## [49] "radioelshinta bukannya kpk cuma nanganin korupsi doank ya emang nepotism amp kolusi bisa dihandl kpk"
## [50] "facialwashh malfiardtra neohistoriaid aniesbaswedan betul"
## [51] "break new ternyata nama anggota bpk yang disebut di sidang korupsi bt dan telah menerima uang miliar adalah achsanulqosasi saudara tahu yang dimaksud aq itu siapa tanya jaksa kepada direktur utama pt mora telematika indonesia"
## [52] "jokowi dan gibran menghormati pelaporan ke komisi pemberantasan korupsi kpk karena dugaan kolusi dan nepotism terkait putusan mahkamah konstitusi mk soal bata usia capr dan cawapr httpstcotizmbsmvlg"
## [53] "jokowi dan gibran menghormati pelaporan ke komisi pemberantasan korupsi kpk karena dugaan kolusi dan nepotism terkait putusan mahkamah konstitusi mk soal bata usia capr dan cawapr httpstcotizmbsmvlg"
## [54] "iya"
## [55] "detikcom kkn itu kependekan dari korupsi"
## [56] "thinkerbal gibraltarnc deniareef gk taat agama bkn brarti rusak"
## [57] "ajudan syl tiba di kpk"
## [58] "ketua komisi pemberantasan korupsi firli bahuri diperiksa sebagai saksi oleh polda metro jaya"
## [59] "mohon maaf pak mohmahfudmd berita ini menurut analisa pribadi saya ibarat meludah di bejana sendiri bapak kan udah tau uu perampasan aset dan pembentukan pansu triliun itu siapa ug menolaknya kok mala ngomongin korupsi kan bapak ada ditempat yg sama httpstcold yj lnry"
## [60] "jimlya mahfud kalo ngomong emang nyablak"
## [61] "minietweet koruptor tidak hr dihukum mati"
## [62] "narasinewsroom dinasti politik"
## [63] "rembukpsi usut dulu korupsi sanv pangeran bacod"
## [64] "mencoba naif dgn menandai partai mana yg menyumbangkan menteri yg korupsi di era presiden jokowi"
## [65] "umarsyadathsb nepotism terbesar ada setelah reformasi korupsi terbesar ada setelah reformasi nepotism terbesar ada setelah reformasi uu yang diubah sesuai keinginan ada di reformasi hasil reformasi"
## [66] "asumsico aneh pada kepoinn jokowi tru ni presiden dan anak baik jujur amanahdiusik tru dewasa dongyg korupsi lo biarin yg jujur loo usikberat cara berpikir"
## [67] "rajajuliantoni tjahjantohadi korupsi kebijakan ketika pelaksana lembaga di amanatkan uu untuk membina"
## [68] "membersihkan indonesia dari praktik praktik korupsi bukanlah mimpi"
## [69] "heraloebss korupsi adalah budaya kita"
## [70] "dmarginal msaiddidu walau tidak suks memberanta korupsi"
## [71] "bisa ubah uud bikin kebijakankebijakan politi bisa korupsi suap petinggi fraksi kerja sama internasion membangun aliansi linta negara bikin propaganda propemerintah di media massa bikin janji dan kampany tiap pemilu meredakan prote warga"
## [72] "chrisj pilar terkuatekonomi nyungsep"
## [73] "rizkiasihan tanda ketidak mampuan memilih amp mengendalikan pembantunyakalau piawai kabinet itu ramp tdk obesita"
## [74] "gmgm mereka gak butuh hormat gmgm kan budaya indonesia yg mengharuskan rakyat hormat kepada pemimpinnya dan itu udah hilang termasuk dari para katanya intelektu pemimpin yg dibutuhkan itu hanya tidak korupsi amp tdk melanggar uu kalo pre"
## [75] "mmamaww guijzhong d sneyjunior tanyakanrl iya cuman mengingat kan saja"
## [76] "pengen banget rasanya hal seperti ini dibuat dokumen khusu dan tertuli sehingga apa yang dilakukan badan usaha itu sudah disadari bahwa memang akan rugi dan terlepa dari ketentuan tindak pidana korupsi ya tentu bjrnya haru dibuktikan juga"
## [77] "zombiekota doankwarto ternyata juara korupsi"
## [78] "malfiardtra neohistoriaid aniesbaswedan oh yg korupsi sapi itu ya"
## [79] "dua menteri kabinet jokowi terseret pusaran dugaan kasu korupsi belum ada reshuffl kabinet efektivita berjalannya kabinet dipertanyakan httpstcoeo khluj"
## [80] "dehoutmanid mungkin kadrun menganggap korupsi halal asal bukan utk memb dage babi"
## [81] "irwndfrri perjela regulasi"
## [82] "aanmuba tuanku rakyat"
## [83] "sigmahalim msaiddidu emamng pemguasa yang mana yang bisa suks membranta korupsi httpstco uthcx x l"
## [84] "chrisj cari aja di googl bang kepala daerah mana atau pejabat dr partai mana yg pale banyak korupsi selama th terakhir ini dan hasilnyajeng jeng jeng😲😲😲😲😲"
## [85] "surotobravo follow bunyi pasalnya dah bener yang songong ya pelaksana kedaulatan parpol ma dpr nya pada hedon"
## [86] "heraloebss berarti korupsi itu termasuk warisan budaya ya"
## [87] "bisexualssr beda konsep orang kristen itu mau zina"
## [88] "kompascom sepanjang tidak menyalahi aturan undang undang"
## [89] "temponewsroom group tempo membesarkan orang yg diyakini bisa memberanta korupsi dan menjaga nilai nilai demokrasi"
## [90] "ancaman oligarki korupsi di tahun politik httpstcoujj vnwpv"
## [91] "cnnindonesia kompensasi ikut di kim apel malang sandi korupsi hambalang😀"
## [92] "alnilamomar kompascom sudah rusak dari dulu dan gak ada perbaikannya karna sudah regenerasi korupsi"
## [93] "gibran rakabum raka"
## [94] "pasangan ganjarmahfud siap beranta korupsi 🃡🃡 sma v sekarang pdip mkmk baekhyun i ezreal prabowo nana senin rayuan jisoo kepak mau min nawid winter drama teaser lue time old trafford jokowi talk saxi we love taehyung httpstco v vg rm"
## [95] "sptnya bakal gantiin mentan yasin limpo yg terjerat korupsi httpstcowvq sgjtud"
## [96] "huhu"
## [97] "tim penyidik komisi pemberantasan korupsi kpk menjadwalkan pemeriksaan ajudan sekjen kementerian pertanian kementan"
## [98] "cnnindonesia ayo pak milih kader parpol yo gpp tapi sing pent berkualita dan bersih moso menteri gaiso opo we ngono korupsi pisan"
## [99] "mahfud md bisa memberanta korupsi dll kalau beliau punya power lebih apakah ini saatnya ah bing ung"
## [100] "islahbahrawi kompascom jadi pepemimpin yang perlu jangan korupsikalau pemimpin prase sudah nutupi bohong rakyat mau kemana hin"
## [101] "ainzkurokun hasyimmah gibrantweet intinya beranta koruptor bukan branta korupsi lagi"
## [102] "lutfijunior kader nya korupsi gak diginiin yg berhasil doang yg dianggap semua karna partai nya"
## [103] "nasdem menteri kesayangannya ditangkap karena korupsi adil dan sejahtera nya mau dibawa berlayar kemana kapalkaram"
## [104] "kepada pengacaranya"
## [105] "mbaksri parpol tindak pidana korupsi bisa di bubarkan kl di lakukan peserta individu tdk bisa parpol di bubarkan"
## [106] "txtdrpemerintah yakin berani sikat korupsi bilang gitu apa karena sama partai merah 🤔🤭"
## [107] "tanmar m partai yg pale banyak anggotanya korupsi siapa ya tanmar m"
## [108] "dennysiregar mungkin kpk juga haru membuka kembali kasu aliran dana ektp di komisi ii dpr ri karena sarat dengan korupsi disana diantara nya ada wakil ketua komisi ii yang menerima uang sebesar u ribu"
## [109] "hahahatpdi laporkan jokowigibrankaesangusmank kpk karena nepotism amp korupsi rasa 😡😡😡😡😡😡😡 httpstcozkkd uenwg"
## [110] "cnnindonesia apel malang itu kata sandi korupsi 🤣"
## [111] "heraloebss ternyata budaya kita adalah korupsi 🫣"
## [112] "owiowl partonoadjem kredivo ojkindonesia pinjollaknat baznasindonesia haedarn yaqutcqouma nucarelazisnu generasimudanu lakpesdampbnu pbnu ronnierusli ramliriz maar semua paham kemampuan dan batasan pejabat struktur di indon"
## [113] "gmgm tolak dinasti"
## [114] "kemacetan no"
## [115] "cnnindonesia ga ngaruh apa apa penjara apa apa penjara untuk rakyat no yg korupsi penggal kepalanya rakyat mll di intimidasi"
## [116] "sedang melakukan adegan dewasa jam rapat korupsi jam makan siang"
## [117] "geowanapurmana nclrza chrisj korupsi adalah oli pembangunan"
## [118] "bachrumachmadi si faldomaldini ini tipik generasi muda oportuni dan penjilat ntar lagi tinggal nunggu kapan dia akan korupsi aja"
## [119] "mrmatchamu adaa"
## [120] "fagtng dprri bpkri kalau mendukung ponakan"
## [121] "msaiddidu mohmahfudmd jimlya kayak nya kela pak jimli"
## [122] "mantan mentan syahrul yasin limpo dan menpora dito ariotedjo terbelit dugaan kasu korupsi berpengaruh pada tingkat kepuasan publik terhadap jokowi dan lembaga penegak hukum httpstcodstzxtybt"
## [123] "adiprayitno semangat perjuangan pergerakan reformasi adalah melawan korupsi kolusi dan nepotism"
## [124] "kpkri sangat mengenaskan dikala pimpinan kpk dituduh memera tidak yg bersuara dan membela kecuali fahri c dan pejabat korup"
## [125] "prabororo"
## [126] "chrisj om kkn itu kepanjangan dr korupsi"
## [127] "wiridkh taka morphomenelausx buang sampah sembarangan"
## [128] "savicali dinasti boleh asal tujuanya untuk rakyat apakah lanta"
## [129] "shalihinnad cnnindonesia pksejahtera oposisi pk sampah yang dibaha tuh cuman sektor agama"
## [130] "kurawa orang tdk suka jokowi itu macem sebabnyakecewa krn sesuatu halada jg sbb keluarganya di ringku krn korupsiada yg ngarep jabatan tp di angkatdl"
## [131] "notsa kompascom kkn bkn hanya korupsi tp ada nepotism"
## [132] "adnan nur yusuf mantan dirut pdpl diperiksa sebagai saksi di terkait kasu korupsi pt r arun httpstcom wxwyrz via pujatvaceh"
## [133] "ketika gibran jd walikota solo kemana aja"
## [134] "rajajuliantoni tjahjantohadi lawan teru korupsi"
## [135] "psiid bibit korupsi disemai dari politik dinasti b a c o t httpstcocouiydg lr"
## [136] "inspektoratjtg provjateng kpkri pjnanasudjana semoga semua warga jateng terlindung dari praktik korupsi"
## [137] "wagimandeep media barat tidak independen"
## [138] "tanmar m tolong kembalikan dulu koper ektp nya ke setnop dia sedang butuh uang setelah itu baru katakan anti korupsi"
## [139] "kasu korupsi pada pengadaan barang dan jasa merupakan kasu terbanyak yang ditangani kpk setelah penyuapan kpk teru mendorong pemerintah daerah untuk melakukan evaluasi dan perbaikan tata kelola sistem khususnya pada prose pengadaan barang dan jasa"
## [140] "jakarta"
## [141] "hasil survei indek kepuasan masyarakat ikm dan indek persepsi korupsi ipk berdasarkan data survei balitbang kemenkumham priod triwulan ii dan triwulan i tahun survei kepuasan masyarakat httpstcosfg tg ak kumhamsemakinpasti rutansoepasti httpstcokiij jpz"
## [142] "raih rekor muri"
## [143] "orang asik korupsi di negeri ini sementara kita haru menangi setiap hari mencari rejeki"
## [144] "bisexualssr raykairi anjai kristen radik pasti partainya yang suka korupsi wkwk"
## [145] "rajajuliantoni tjahjantohadi negara kita haru beba dari korupsi"
## [146] "cecepsihab gibrantweet ya wajar di solo pak"
## [147] "chchotimah ganjarpranowo mohmahfudmd capresmu pernah dituduh korupsi ktp lo"
## [148] "partai kalo ga korupsi tru bisa hidup dari mana"
## [149] "puluhan milyar proyek di rsduam diduga sarat korupsi dan upeti"
## [150] "ketua kpk firli bahuri diamdiam penuhi panggilan penyidikan httpstcoz bfj o i radarjabar kpk firlibahuri panggilan penyidik korupsi pemerasan"
## [151] "bukannyanak ginanjarfindana umarsyadathsb kasu uda clear"
## [152] "ryawiedi iya mbak dg adanya perubahan bata umur"
## [153] "tempodotco transaksi gelap di kementerian apa pak"
## [154] "pksejahtera korupsi sunah rasul bukan"
## [155] "dmarginal msaiddidu penguasa hari ini adalah bukti kegagalan era reformasi dalam memberanta korupsi"
## [156] "deklarasi anti korupsi kementerian atrbpn di kantor pertanahan kabupaten kepulauan meranti httpstcoie cja bcy"
## [157] "kasih hukaman death lah 👀"
## [158] "pilipius msaiddidu manfaatnya adalah agar penguasa tidak semena mena dlm mengelola keuangan negara prinsip pemerataan"
## [159] "assigli hersn dari rusaknya moral anak anak bangsa juga udah kelihatan pki itu ada dan jadi kanker dinegeri ini lihat ajah partai yg pki nya banyak jadi juaranya korupsi dan skandal yg lain"
## [160] "kontenberfaedah gaji pn gol i segitu"
## [161] "miduk fadjroel tolong tanyakan ke bang fadjroel tentang tatacara praktek korupsi amp penyuapan di pt adhi karya beliau lama menikmati jabatan komisari di pt adhi karya amp gak memiliki karya apapun"
## [162] "parigi moutong sulawesi tengah korupsi kpkri kejaksaanri bpkpgoid kemenkopukm laodemsyarif aodebojhttpsfbwatchnt jdbxyarmibextid i"
## [163] "notsa kompascom sepanjang korupsi gak keliatan gak amsalah ya bong kan kalau ketahun korupsi elu iuga baru tau ka bong kalau ketahuan korupsi penjara juga udah disiapin kayak hotel kok bong"
## [164] "hilmi lagipula orang kepo soal politik hanya berapa persen di indonesia"
## [165] "dennysiregar kalo suap kan masuk kategori korupsi yak"
## [166] "kejari tangsel menyidiki korupsi kredit bank banten httpstcoyhf lqngkx"
## [167] "marahichsan tidak ada yg salah dg keputusan mk karena itu unt kebaikan negara ke depan"
## [168] "ariekrit dgn pengalaman dipemerintah yg bejibun"
## [169] "tvonenew kiranya pak jokowi segera melakukan resufl kabinet"
## [170] "mabe polri menegaskan tak ada perlakuan terhadap ketua komisi pemberantasan korupsi kpk"
## [171] "kompastv etika politik itu lebih tinggi dari aturan"
## [172] "imadshinnyuki taka morphomenelausx sek beba bukan budaya indonesia"
## [173] "waduh parah banget akibat korupsi yg menjadi raja httpstcodtv lr rv"
## [174] "alurnya gini senyam senyum sok polo korupsi"
## [175] "kejaksaan agung usut korupsi impor gula kemendag baru ini kejagung telah memeriksa dua orang saksi sebagai saksi dlm kasu korupsi penyalahgunaan wewenang impor gula th waw"
## [176] "heraloebss berarti korupsi di indonesia sudah level tingkat dewa"
## [177] "demi tuhan paslon ini adalah satu satunya paslon yang anti male apbd anti male apbn anti pungli anti kelebihan bayar kalau yang lain sih gak ada jaminan dan tidak ada kader nya yang becu sama sekali apbd apbn itu amat sangat rawan di korupsi oleh pemimpin jaman now"
## [178] "karedokleunca dulu karena korupsi kolusi dan nepotism maka ada gerakan reformasi yg banyak makan korban loh sekarang muncul lagi kolusi nepotism apa kita diam aja"
## [179] "gw pengen kembali ke zaman sebelum sembako murah pendidikan murah rakyat dapat tanah grati hidup rukun korupsi dikit ekonomi relatif stabil mudah cari kerja minusnya krimin"
## [180] "liputan dotcom beehh koruptor n de genk keknya makin ketar katir bila pak firli bongkar semua kasuss korupsi 🙰🙰🙰 kuncen ehh juru kunci kasu korupsi mau dihabisi yuk pak firli segera gassken"
## [181] "tenaga nuklir limbahnya gimana tru di korup ga itu dana nya wkwkwk kalo ini sih pasti di korupsi ya kata netizen sih bakalan jd chernobyl part 🐠"
## [182] "detikcom beh keren pak jokowi"
## [183] "apa kabarnya program kartu prekerja dibawah naungan menko perekonomian program yg sarat korupsi dan kolusi ' proyek ' bagi jatah"
## [184] "kejari lampung utara melalui kasi intel guntoro menerangkan bahwa pihaknya hari ini menerima pelimpahan berka"
## [185] "mahfud pelanggaran hukum"
## [186] "deklarasi anti korupsi bertujuan inisiasi langkah preventifupaya pencegahan korupsi di lingkungan kementerian atrbpn"
## [187] "halo sobatrbpn"
## [188] "jadi tersangka korupsi sppd fiktif rp"
## [189] "ganjarpranowo ada gambar ttg korupsi d bank jateng pak"
## [190] "kabupaten kepulauan meranti senin komitmen kegiatan ini mendapat apreasiasi penganugrahan museum rekor muri dunia indonesia"
## [191] "hallo sobatrbpn kantor pertanahan kabupaten kepulauan meranti"
## [192] "presiden joko widodo jokowi bersama dengan putranya gibran rakabum raka dilaporkan ke komisi pemberantasan korupsi kpk ata dugaan melakukan ko httpstcofi gfoz tb"
## [193] "korupsi serta kolusi dan nepotism merupakan musuh manusia sepanjang zaman yang haru senantiasa diperangi benni susetyo ganjarmahfud"
## [194] "kejagung bakal periksa achsanul qosasi usai disebut di sidang korupsi bt g httpstcopnu kjex y"
## [195] "itscinat bagu mari beranta korupsi bijakkelolainformasi"
## [196] "ruangngupi hcpoirot translat gestur mereka seperti ada tekanan terikat rantai korupsi sampai mau relax aja bingung caranya😀 sudah terlanjur mandi lumpur kali yaa😅"
## [197] "polda papua barat menunggu audit bpkp kasu korupsi pbvsi httpstco sfvppqkdf beritapapua beritaterbaru beritaupd beritahariini beritaterkini papua papuabarat beritapapuabarat manokwari httpstco cxovovb"
## [198] "ketua kpk"lemmatize_strings(rev)## [1] "llagans txtangkringan cnnindonesia mohmahfudmd korupsi pajak gw goblok"
## [2] "stefanantonio nepotisme adalah pintu masuknya kolusi amp korupsi nepotisme adl awal bencana terjadinya korupsi bahaya memang nepotism itu"
## [3] "baguslah seenggaknnya ahy blm pernah kedengeran kesangkut kasus korupsi"
## [4] "mahasiswaums umsofficialid kurang in korupsi didalem lu sejahterain pegawe lu yang udah lama ngabdi"
## [5] "jaksa usut dugaan korupsi penyalahgunaan alsintan di dinas pertanian abdya httpstconzjzjbpctc"
## [6] "'tiindonesia bakal selenggarakan indonesia integrity forum iif sustain alliance"
## [7] "abuwaras membangun korupsi nye cendana"
## [8] "sagungs b not ngk r r chchotimah jokowi korupsi lem aibon"
## [9] "busung lapar di lumbung padi anak bangsa mati pemerintah tak peduli kata orang negeri ini subur makmur gemah ripah loh jinawi hancur karena korupsi"
## [10] "gibraltarnc biasanya orang yg tau agama itu cenderung korupsi karena dia tau caranya nanti bertobat"
## [11] "sagungs zuhripuding bennyharmanid korupsi lem aibon"
## [12] "catatan romo magnis suseno"
## [13] "chchotimah ganjarpranowo mohmahfudmd kapan pernah melakukan hal berani dalam memberantas korupsi saat kasus ektp atau kasus pajak slogan pembusukan saja"
## [14] "tvindonesiawkwk pantesan ngankat mentrinya asal"
## [15] "sagungs edykiantolol zuhripuding bennyharmanid korupsi lem aibon"
## [16] "senin"
## [17] "sagungs anasisferi korupsi lem aibon"
## [18] "ahmadjunaidist hasyimmah bisa"
## [19] "oh you pantesan aja budaya korupsi kita terus berlanjut ternyata emg dari nenek moyang kita udh mendarah daging"
## [20] "di sisi lie"
## [21] "korantempo para ketum partai tersandera kasus korupsi amp sebagian takut dibegal kacung ki lurah"
## [22] "mantriss kejauhan ke dulu kan belum tentu menang mendingan pak mahfud"
## [23] "chchotimah ganjarpranowo mohmahfudmd jgn bilang bernyali berantas korupsi malu tau"
## [24] "kompastv ngasih duit ke fakir miskin dr hasil korupsi tetap salah"
## [25] "lhayesno emangnya cuma jokowi yang punya otak kpk hancur juga dibawah jokowi birokrasi lebih buruk dari jaman sby korupsi dimanamana mau konsolidasi kekuasaan terangterangan tapi dianggap jenius kenapa tidak terbaca karena tidak ada yang menebak"
## [26] "mantriss pale utama amp penting buat saat ini good sebenarnya udah lama adalah penegakan hukum amp keadilan udh senep muak bgt bnyk nya ketidakadilanamp lemahnya hukum korupsi semakin tinggi merajalela terutama di era jkw gak hr sempurna"
## [27] "rembukpsi kalau kaesangb emang niat tinggal minta pak jokowi terbitkan perpu perampasan aset omnibus law yg rumit saja bisa diperpukan konon lagi sekadar perpu perampasan aset alasan perlu amp mendesak sudah terpenuhi dng terjun bebasnya indeks p"
## [28] "ajengcute kesempatan ni sisa bulan utk korupsi bagi menteri baru yg akan ditunjuk jokowi nanti"
## [29] "dinasti pdip ketakutan pale besar di tahun"
## [30] "tvonenews generasi muda milenial sampai z"
## [31] "cnnindonesia kita terancam krisis pangan tapi masih ada yg korupsi di sektor pertanian kan asu namanya"
## [32] "fakta baru sidang korupsi dak bantuan madu"
## [33] "chrisj sejak pdip berkuasa isu radikal tr di gemakan utk menutupi korupsi"
## [34] "dewan sebut ada potensi korupsi di proyek rehabilitasi sdn sumberdem wonosari malang httpstcoe sk urby httpstcowckzcuba b"
## [35] "wagimandeep saya prihatin waktunya hanya singkat apa dia kuat mendorong beban yg berat pasca ditinggal korupsi yg ugal ugalan 🡧🡧"
## [36] "pemberantasan korupsi"
## [37] "foto hoaks"
## [38] "orang ini lebih takut sama pk yang track recordnya ga ngerusak negara dibandingkan sama partai partai yg jelas buruk track recordnya dan merusak negara dari mulai sarang korupsi"
## [39] "democrazymedia dak b lawan dibanding kan dengan pak sudomo"
## [40] "chaves romi ini bukannya mantan napi korupsi you klo ga salah"
## [41] "gmgm korupsi belum tentu kolusi dan nepotisme"
## [42] "mantriss kembali ke uud aja untuk point amp fakir miskin amp anak terlantar dipelihara oleh negara kebebasan amp toleransi antarumat beragama koruptor dihukum mati amp dimiskinkan aparat pelaku pungli"
## [43] "untuk akun yg sange jadi buzzrp gemukin dulu follower minimal tujuh digit yg rtcl minimal dari follower jika akun masih duatiga digit harus punya hub baik dg ring n buzerp ring tanpa mengemis anda otomatis jadi buzerp jangan dm sy"
## [44] "notsa kompascom yg termasuk pidana itu kkn bukan cuma korupsi makanya pinter dikit napa"
## [45] "mantan penyidik komisi pemberantasan korupsi kpk"
## [46] "gibraltarnc capresmu disangka korupsi gak capresmu doyan mainin anggaran gak capresmu suka bohong gak"
## [47] "facialwashh neohistoriaid aniesbaswedan kalau masnya mau bahas dari sisi korupsi"
## [48] "dua terdakwa kasus tindak pidana korupsi kegiatan belanja bahan bakar minyak bbm transportasi laut dan sungai bersumber dari anggaran apbd kabupaten lingga tahun httpstcoydj kslqtw"
## [49] "radioelshinta bukannya kpk cuma nanganin korupsi doank you emang nepotisme amp kolusi bisa dihandle kpk"
## [50] "facialwashh malfiardtra neohistoriaid aniesbaswedan betul"
## [51] "break news ternyata nama anggota bpk yang disebut di sidang korupsi bts dan telah menerima uang miliar adalah achsanulqosasi saudara tahu yang dimaksud aq itu siapa tanya jaksa kepada direktur utama pt mora telematika indonesia"
## [52] "jokowi dan gibran menghormati pelaporan ke komisi pemberantasan korupsi kpk karena dugaan kolusi dan nepotisme terkait putusan mahkamah konstitusi mk soal batas usia capres dan cawapres httpstcotizmbsmvlg"
## [53] "jokowi dan gibran menghormati pelaporan ke komisi pemberantasan korupsi kpk karena dugaan kolusi dan nepotisme terkait putusan mahkamah konstitusi mk soal batas usia capres dan cawapres httpstcotizmbsmvlg"
## [54] "iya"
## [55] "detikcom kkn itu kependekan dari korupsi"
## [56] "thinkerball gibraltarnc deniareef gk taat agama bkn brarti rusak"
## [57] "ajudan syl tiba di kpk"
## [58] "ketua komisi pemberantasan korupsi firli bahuri diperiksa sebagai saksi oleh polda metro jaya"
## [59] "mohon maaf pak mohmahfudmd berita ini menurut analisa pribadi saya ibarat meludah di bejana sendiri bapak kan udah tau uu perampasan aset dan pembentukan pansus triliun itu siapa ug menolaknya kok mala ngomongin korupsi kan bapak ada ditempat yg sama httpstcold yj lnry"
## [60] "jimlyas mahfud kalo ngomong emang nyablak"
## [61] "minietweets koruptor tidak hr dihukum mati"
## [62] "narasinewsroom dinasti politik"
## [63] "rembukpsi usut dulu korupsi sanv pangeran bacod"
## [64] "mencoba naif dgn menandai partai mana yg menyumbangkan menteri yg korupsi di era presiden jokowi"
## [65] "umarsyadathsb nepotisme terbesar ada setelah reformasi korupsi terbesar ada setelah reformasi nepotisme terbesar ada setelah reformasi uu yang diubah sesuai keinginan ada di reformasi hasil reformasi"
## [66] "asumsico aneh pada kepoinn jokowi trus ni presiden dan anak baik jujur amanahdiusik trus dewasa dongyg korupsi lo biarin yg jujur loo usikberat cara berpikir"
## [67] "rajajuliantoni tjahjantohadi korupsi kebijakan ketika pelaksana lembaga di amanatkan uu untuk membina"
## [68] "membersihkan indonesia dari praktik praktik korupsi bukanlah mimpi"
## [69] "heraloebss korupsi adalah budaya kita"
## [70] "dmarginale msaiddidu walau tidak sukses memberantas korupsi"
## [71] "bisa ubah uud bikin kebijakankebijakan politis bisa korupsi suap petinggi fraksi kerja sama internasional membangun aliansi lintas negara bikin propaganda propemerintah di medium massa bikin janji dan kampanye tiap pemilu meredakan protes warga"
## [72] "chrisj pilar terkuatekonomi nyungsep"
## [73] "rizkiasihan tanda ketidak mampuan memilih amp mengendalikan pembantunyakalau piawai kabinet itu ramp tdk obesitas"
## [74] "gmgm mereka gak butuh hormat gmgm kan budaya indonesia yg mengharuskan rakyat hormat kepada pemimpinnya dan itu udah hilang termasuk dari para katanya intelektual pemimpin yg dibutuhkan itu hanya tidak korupsi amp tdk melanggar uu kalo pres"
## [75] "mmamaww guijzhong have sneyjunior tanyakanrl iya cuman mengingat kan saja"
## [76] "pengen banget rasanya hal seperti ini dibuat dokumen khusus dan tertulis sehingga apa yang dilakukan badan usaha itu sudah disadari bahwa memang akan rugi dan terlepas dari ketentuan tindak pidana korupsi you tentu bjrnya harus dibuktikan juga"
## [77] "zombiekota doankwarto ternyata juara korupsi"
## [78] "malfiardtra neohistoriaid aniesbaswedan oh yg korupsi sapi itu you"
## [79] "dua menteri kabinet jokowi terseret pusaran dugaan kasus korupsi belum ada reshuffle kabinet efektivitas berjalannya kabinet dipertanyakan httpstcoeo khluj"
## [80] "dehoutmanid mungkin kadrun menganggap korupsi halal asal bukan utk membeli daging babi"
## [81] "irwndfrry perjelas regulasi"
## [82] "aanmuba tuanku rakyat"
## [83] "sigmahalim msaiddidu emamng pemguasa yang mana yang bisa sukses membrantas korupsi httpstco uthcx x l"
## [84] "chrisj cari aja di google bang kepala daerah mana atau pejabat dr partai mana yg pale banyak korupsi selama th terakhir ini dan hasilnyajeng jeng jeng😲😲😲😲😲"
## [85] "surotobravo follower bunyi pasalnya dah bener yang songong you pelaksana kedaulatan parpol ma dpr nya pada hedon"
## [86] "heraloebss berarti korupsi itu termasuk warisan budaya you"
## [87] "bisexualssr beda konsep orang kristen itu mau zina"
## [88] "kompascom sepanjang tidak menyalahi aturan undang undang"
## [89] "temponewsroom group tempo membesarkan orang yg diyakini bisa memberantas korupsi dan menjaga nilai nilai demokrasi"
## [90] "ancaman oligarki korupsi di tahun politik httpstcoujj vnwpv"
## [91] "cnnindonesia kompensasi ikut di kim apel malang sandi korupsi hambalang😀"
## [92] "alnilamomar kompascom sudah rusak dari dulu dan gak ada perbaikannya karna sudah regenerasi korupsi"
## [93] "gibran rakabuming raka"
## [94] "pasangan ganjarmahfud siap berantas korupsi 🃡🃡 sma vs sekarang pdip mkmk baekhyun be ezreal prabowo nana senin rayuan jisoo kepake mau min nawid winter drama teaser lue time old trafford jokowi talk saxy we love taehyung httpstco v vg rm"
## [95] "sptnya bakal gantiin mentan yasin limpo yg terjerat korupsi httpstcowvq sgjtud"
## [96] "huhu"
## [97] "tim penyidik komisi pemberantasan korupsi kpk menjadwalkan pemeriksaan ajudan sekjen kementerian pertanian kementan"
## [98] "cnnindonesia ayo pak milih kader parpol yo gpp tapi sing penting berkualitas dan bersih moso menteri gaiso opo wes ngono korupsi pisan"
## [99] "mahfud md bisa memberantas korupsi dll kalau beliau punya power lebih apakah ini saatnya ah bing ung"
## [100] "islahbahrawi kompascom jadi pepemimpin yang perlu jangan korupsikalau pemimpin prase sudah nutupi bohong rakyat mau kemana hin"
## [101] "ainzkurokun hasyimmah gibrantweet intinya berantas koruptor bukan brantas korupsi lagi"
## [102] "lutfijunior kader nya korupsi gak diginiin yg berhasil doang yg dianggap semua karna partai nya"
## [103] "nasdem menteri kesayangannya ditangkap karena korupsi adil dan sejahtera nya mau dibawa berlayar kemana kapalkaram"
## [104] "kepada pengacaranya"
## [105] "mbaksri parpol tindak pidana korupsi bisa di bubarkan kl di lakukan peserta individu tdk bisa parpol di bubarkan"
## [106] "txtdrpemerintah yakin berani sikat korupsi bilang gitu apa karena sama partai merah 🤔🤭"
## [107] "tanmar be partai yg pale banyak anggotanya korupsi siapa you tanmar be"
## [108] "dennysiregar mungkin kpk juga harus membuka kembali kasus aliran dana ektp di komisi ii dpr ri karena sarat dengan korupsi disana diantara nya ada wakil ketua komisi ii yang menerima uang sebesar us ribu"
## [109] "hahahatpdi laporkan jokowigibrankaesangusmanke kpk karena nepotisme amp korupsi rasa 😡😡😡😡😡😡😡 httpstcozkkd uenwg"
## [110] "cnnindonesia apel malang itu kata sandi korupsi 🤣"
## [111] "heraloebss ternyata budaya kita adalah korupsi 🫣"
## [112] "owiowl partonoadjem kredivo ojkindonesia pinjollaknat baznasindonesia haedarns yaqutcqoumas nucarelazisnu generasimudanu lakpesdampbnu pbnu ronnierusli ramlirizal maar semua paham kemampuan dan batasan pejabat struktural di indone"
## [113] "gmgm tolak dinasti"
## [114] "kemacetan no"
## [115] "cnnindonesia ga ngaruh apa apa penjara apa apa penjara untuk rakyat no yg korupsi penggal kepalanya rakyat mll di intimidasi"
## [116] "sedang melakukan adegan dewasa jam rapat korupsi jam makan siang"
## [117] "geowanapurmana nclrza chrisj korupsi adalah oli pembangunan"
## [118] "bachrumachmadi si faldomaldini ini tipikal generasi muda oportunis dan penjilat ntar lagi tinggal nunggu kapan dia akan korupsi aja"
## [119] "mrmatchamu adaa"
## [120] "fagtng dprri bpkri kalau mendukung ponakan"
## [121] "msaiddidu mohmahfudmd jimlyas kayak nya kelas pak jimly"
## [122] "mantan mentan syahrul yasin limpo dan menpora dito ariotedjo terbelit dugaan kasus korupsi berpengaruh pada tingkat kepuasan publik terhadap jokowi dan lembaga penegak hukum httpstcodstzxtybts"
## [123] "adiprayitno semangat perjuangan pergerakan reformasi adalah melawan korupsi kolusi dan nepotisme"
## [124] "kpkri sangat mengenaskan dikala pimpinan kpk dituduh memeras tidak yg bersuara dan membela kecuali fahri c dan pejabat korup"
## [125] "prabororo"
## [126] "chrisj om kkn itu kepanjangan dr korupsi"
## [127] "wiridkh taka morphomenelausx buang sampah sembarangan"
## [128] "savicali dinasti boleh asal tujuanya untuk rakyat apakah lantas"
## [129] "shalihinnad cnnindonesia pksejahtera oposisi pk sampah yang dibahas tuh cuman sektor agama"
## [130] "kurawa orang tdk suka jokowi itu macem sebabnyakecewa krn sesuatu halada jg sbb keluarganya di ringkus krn korupsiada yg ngarep jabatan tp di angkatdll"
## [131] "notsa kompascom kkn bkn hanya korupsi tp ada nepotisme"
## [132] "adnan nur yusuf mantan dirut pdpl diperiksa sebagai saksi di terkait kasus korupsi pt r arun httpstcom wxwyrz via pujatvaceh"
## [133] "ketika gibran jd walikota solo kemana aja"
## [134] "rajajuliantoni tjahjantohadi lawan terus korupsi"
## [135] "psiid bibit korupsi disemai dari politik dinasti b a c o t httpstcocouiydg lr"
## [136] "inspektoratjtg provjateng kpkri pjnanasudjana semoga semua warga jateng terlindung dari praktik korupsi"
## [137] "wagimandeep medium barat tidak independen"
## [138] "tanmar be tolong kembalikan dulu koper ektp nya ke setnop dia sedang butuh uang setelah itu baru katakan anti korupsi"
## [139] "kasus korupsi pada pengadaan barang dan jasa merupakan kasus terbanyak yang ditangani kpk setelah penyuapan kpk terus mendorong pemerintah daerah untuk melakukan evaluasi dan perbaikan tata kelola sistem khususnya pada prose pengadaan barang dan jasa"
## [140] "jakarta"
## [141] "hasil survey indeks kepuasan masyarakat ikm dan indeks persepsi korupsi ipk berdasarkan datum survei balitbang kemenkumham priode triwulan ii dan triwulan i tahun survey kepuasan masyarakat httpstcosfg tg ak kumhamsemakinpasti rutansoepasti httpstcokiij jpz"
## [142] "raih rekor muri"
## [143] "orang asik korupsi di negeri ini sementara kita harus menangis setiap hari mencari rejeki"
## [144] "bisexualssr raykairi anjay kristen radikal pasti partainya yang suka korupsi wkwk"
## [145] "rajajuliantoni tjahjantohadi negara kita harus bebas dari korupsi"
## [146] "cecepsihab gibrantweet you wajar di solo pak"
## [147] "chchotimah ganjarpranowo mohmahfudmd capresmu pernah dituduh korupsi ktp lo"
## [148] "partai kalo ga korupsi trus bisa hidup dari mana"
## [149] "puluhan milyar proyek di rsduam diduga sarat korupsi dan upeti"
## [150] "ketua kpk firli bahuri diamdiam penuhi panggilan penyidikan httpstcoz bfj o i radarjabar kpk firlibahuri panggilan penyidik korupsi pemerasan"
## [151] "bukannyanakal ginanjarfindana umarsyadathsb kasus uda clear"
## [152] "ryawiedy iya mbak dg adanya perubahan batas umur"
## [153] "tempodotco transaksi gelap di kementerian apa pak"
## [154] "pksejahtera korupsi sunah rasul bukan"
## [155] "dmarginale msaiddidu penguasa hari ini adalah bukti kegagalan era reformasi dalam memberantas korupsi"
## [156] "deklarasi anti korupsi kementerian atrbpn di kantor pertanahan kabupaten kepulauan meranti httpstcoie cja bcy"
## [157] "kasih hukaman death lah 👀"
## [158] "pilipiuser msaiddidu manfaatnya adalah agar penguasa tidak semena mena dlm mengelola keuangan negara prinsip pemerataan"
## [159] "assiglie hersning dari rusaknya moral anak anak bangsa juga udah kelihatan pki itu ada dan jadi kanker dinegeri ini lihat ajah partai yg pki nya banyak jadi juaranya korupsi dan skandal yg lie"
## [160] "kontenberfaedah gaji pns gol i segitu"
## [161] "miduk fadjroel tolong tanyakan ke bang fadjroel tentang tatacara praktek korupsi amp penyuapan di pt adhi karya beliau lama menikmati jabatan komisaris di pt adhi karya amp gak memiliki karya apapun"
## [162] "parigi moutong sulawesi tengah korupsi kpkri kejaksaanri bpkpgoid kemenkopukm laodemsyarif aodebojhttpsfbwatchnt jdbxyarmibextid i"
## [163] "notsa kompascom sepanjang korupsi gak keliatan gak amsalah you bong kan kalau ketahun korupsi elu iuga baru tau ka bong kalau ketahuan korupsi penjara juga udah disiapin kayak hotel kok bong"
## [164] "hilmi lagipula orang kepo soal politik hanya berapa persen di indonesia"
## [165] "dennysiregar kalo suap kan masuk kategori korupsi yak"
## [166] "kejari tangsel menyidiki korupsi kredit bank banten httpstcoyhf lqngkx"
## [167] "marahichsan tidak ada yg salah dg keputusan mk karena itu unt kebaikan negara ke depan"
## [168] "ariekriting dgn pengalaman dipemerintah yg bejibun"
## [169] "tvonenews kiranya pak jokowi segera melakukan resufle kabinet"
## [170] "mabes polri menegaskan tak ada perlakuan terhadap ketua komisi pemberantasan korupsi kpk"
## [171] "kompastv etika politik itu lebih tinggi dari aturan"
## [172] "imadshinnyuki taka morphomenelausx seks bebas bukan budaya indonesia"
## [173] "waduh parah banget akibat korupsi yg menjadi raja httpstcodtv lr rvs"
## [174] "alurnya gini senyam senyum sok polos korupsi"
## [175] "kejaksaan agung usut korupsi impor gula kemendag baru ini kejagung telah memeriksa dua orang saksi sebagai saksi dlm kasus korupsi penyalahgunaan wewenang impor gula th waw"
## [176] "heraloebss berarti korupsi di indonesia sudah level tingkat dewa"
## [177] "demi tuhan paslon ini adalah satu satunya paslon yang anti maling apbd anti maling apbn anti pungli anti kelebihan bayar kalau yang lie sih gak ada jaminan dan tidak ada kader nya yang becus sama sekali apbd apbn itu amat sangat rawan di korupsi oleh pemimpin jaman now"
## [178] "karedokleunca dulu karena korupsi kolusi dan nepotisme maka ada gerakan reformasi yg banyak makan korban loh sekarang muncul lagi kolusi nepotisme apa kita diam aja"
## [179] "gw pengen kembali ke zaman sebelum sembako murah pendidikan murah rakyat dapat tanah gratis hidup rukun korupsi dikit ekonomi relatif stabil mudah cari kerja minusnya kriminal"
## [180] "liputan dotcom beehh koruptor n de genk keknya makin ketar katir bila pak firli bongkar semua kasuss korupsi 🙰🙰🙰 kuncen ehh juru kunci kasus korupsi mau dihabisi yuk pak firli segera gassken"
## [181] "tenaga nuklir limbahnya gimana trus di korup ga itu dana nya wkwkwk kalo ini sih pasti di korupsi you kata netizen sih bakalan jd chernobyl part 🐠"
## [182] "detikcom beh keren pak jokowi"
## [183] "apa kabarnya program kartu prekerja dibawah naungan menko perekonomian program yg sarat korupsi dan kolusi ' proyek ' bagi jatah"
## [184] "kejari lampung utara melalui kasi intel guntoro menerangkan bahwa pihaknya hari ini menerima pelimpahan berkas"
## [185] "mahfud pelanggaran hukum"
## [186] "deklarasi anti korupsi bertujuan inisiasi langkah preventifupaya pencegahan korupsi di lingkungan kementerian atrbpn"
## [187] "halo sobatrbpn"
## [188] "jadi tersangka korupsi sppd fiktif rp"
## [189] "ganjarpranowo ada gambar ttg korupsi have bank jateng pak"
## [190] "kabupaten kepulauan meranti senin komitmen kegiatan ini mendapat apreasiasi penganugrahan museum rekor muri dunia indonesia"
## [191] "hallo sobatrbpn kantor pertanahan kabupaten kepulauan meranti"
## [192] "presiden joko widodo jokowi bersama dengan putranya gibran rakabuming raka dilaporkan ke komisi pemberantasan korupsi kpk atas dugaan melakukan ko httpstcofy gfoz tb"
## [193] "korupsi serta kolusi dan nepotisme merupakan musuh manusia sepanjang zaman yang harus senantiasa diperangi benny susetyo ganjarmahfud"
## [194] "kejagung bakal periksa achsanul qosasi usai disebut di sidang korupsi bts g httpstcopnu kjex y"
## [195] "itscinat bagus mari berantas korupsi bijakkelolainformasi"
## [196] "ruangngupi hcpoirot translate gesture mereka seperti ada tekanan terikat rantai korupsi sampai mau relax aja bingung caranya😀 sudah terlanjur mandi lumpur kali yaa😅"
## [197] "polda papua barat menunggu audit bpkp kasus korupsi pbvsi httpstco sfvppqkdf beritapapua beritaterbaru beritaupdate beritahariini beritaterkini papua papuabarat beritapapuabarat manokwari httpstco cxovovb"
## [198] "ketua kpk"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"3.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 <- rev %>%
rev()
head(rev)## [1] "ketua kpk"
## [2] "polda papua barat menunggu audit bpkp kasus korupsi pbvsi httpstco sfvppqkdf beritapapua beritaterbaru beritaupdate beritahariini beritaterkini papua papuabarat beritapapuabarat manokwari httpstco cxovovb"
## [3] "ruangngupi hcpoirot translate gesture mereka seperti ada tekanan terikat rantai korupsi sampai mau relax aja bingung caranya😀 sudah terlanjur mandi lumpur kali yaa😅"
## [4] "itscinat bagus mari berantas korupsi bijakkelolainformasi"
## [5] "kejagung bakal periksa achsanul qosasi usai disebut di sidang korupsi bts g httpstcopnu kjex y"
## [6] "korupsi serta kolusi dan nepotisme merupakan musuh manusia sepanjang zaman yang harus senantiasa diperangi benny susetyo ganjarmahfud"#menghapus kata penghubung
rev <-removeWords(rev,c("di","dan","yang","akan","agar","seperti","yaitu","kami","kami","mari","pada","jelang","dimana","dengan","sudah","ini","seluruh",
"diminta","tak","itu","hai","bisa","wib","oleh","mai","jam",
"masa","berikut","kalau","klik","ibodwq","terd","httpstconvv",
"httpstcoxu","yzmrlyx","tahapan","refaabdi","kota","kpu",
"kpuid","rt","hingga","saat","belum","apa","sih","suara",
"pesta","dindap","http","httpstco","asn","bakal"))
head(rev)## [1] "ketua kpk"
## [2] "polda papua barat menunggu audit bpkp kasus korupsi pbvsi sfvppqkdf beritapapua beritaterbaru beritaupdate beritahariini beritaterkini papua papuabarat beritapapuabarat manokwari cxovovb"
## [3] "ruangngupi hcpoirot translate gesture mereka ada tekanan terikat rantai korupsi sampai mau relax aja bingung caranya😀 terlanjur mandi lumpur kali yaa😅"
## [4] "itscinat bagus berantas korupsi bijakkelolainformasi"
## [5] "kejagung periksa achsanul qosasi usai disebut sidang korupsi bts g httpstcopnu kjex y"
## [6] "korupsi serta kolusi nepotisme merupakan musuh manusia sepanjang zaman harus senantiasa diperangi benny susetyo ganjarmahfud"write.csv(rev,file = "C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/bersihkorupsituti.csv",row.names = F,) 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
d <- data.frame(word = names(v), freq = v)
wordcloud(d$word, d$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
#menyimpan hasil term matriks ke variabel Tdm
tdm <- TermDocumentMatrix(rev,
control = list(wordLengths = c(1, Inf)))
tdm## <<TermDocumentMatrix (terms: 1422, documents: 198)>>
## Non-/sparse entries: 2354/279202
## Sparsity : 99%
## Maximal term length: 26
## Weighting : term frequency (tf)5.Frequent Words and Association
Visualisasi dengan Barplot untuk Menemukan kata-kata yang muncul setidaknya 50 kali.
5.1 Frequent Words
# inspect frequent words
(freq.terms <- findFreqTerms(tdm, lowfreq = 50))## [1] "korupsi"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()
5.2 Association
Menemukan korelasi antara kata-kata atau konsep dalam teks
# which words are associated with 'r'?
findAssocs(tdm, "pilpres", 0.2)## $pilpres
## numeric(0)Hasil di atas menampilkan kata kata yang berhubungan dengan kata “Pilpres”
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)6.Analisys cluster hierarchical
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: 16plot(fit)
rect.hclust(fit, k = 2) # cut tree into 6 clusters
7.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## kpk kasus korupsi ada nepotisme jokowi ke pak yg nya ya karena
## 1 0.095 0.089 0.661 0.048 0.060 0.054 0.054 0.065 0.0 0.042 0.054 0.042
## 2 0.067 0.000 0.800 0.400 0.133 0.233 0.033 0.067 1.1 0.133 0.067 0.133
## adalah tidak dari amp
## 1 0.054 0.03 0.071 0.077
## 2 0.033 0.20 0.167 0.067for (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: korupsi kpk kasus amp dari /ncluster 2: yg korupsi ada jokowi tidak /nBerdasarkan hasil klastering k-means yang telah dilakukan dengan mentode centers,dapat disimpulkan sebagai berikut
Cluster 1:
Kata kunci dominan termasuk “pilpres,” “prabowo,” “pak,” “untuk,” dan “menang.” Kemungkinan terkait dengan isu-isu pilpres, khususnya terkait dengan calon presiden Prabowo dan upaya untuk memenangkan pilpres.
Cluster 2:
Kata kunci dominan termasuk “prabowo,” “demokrat,” “pilpres,” “agusyudhoyono,” dan “kawal.” Kemungkinan terkait dengan isu-isu politik yang mencakup calon presiden Prabowo, partai politik Demokrat, dan upaya pengawalan (kawal) terhadap suatu hal.
Analisis Sentiment
Analisis di bawah ini menggunakan algoritma Naive Bayes untuk melakukan klasifikasi tweet negatif,positif,dan netral menggunakan dataset tweet tentang pemilihan presiden tahun 2023 .
Mengmpor data Tweet pilpres yang berjumlah 230 baris
##Analisis Sentiment
setwd("C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan")
# import data dari excel (.csv)
dataaa <- read.csv('databersihkorupsii.csv')
View(dataaa)Buat DataFrame hanya untuk komentar positif
Membuat dataframe yang berisi tweet positif
komentar_positif <- dataaa %>%
filter(label == "Positive")
komentar_positif## x
## 1 korupsi ( serta kolusi nepotism ) merupakan musuh manusia sepanjang zaman haru senantiasa diperangi. - benni susetyo # ganjarmahfud
## 2 kejari lampung utara melalui kasi intel guntoro menerangkan bahwa pihaknya hari menerima pelimpahan berka
## 3 kabarnya program kartu prekerja dibawah naungan menko perekonomian? program yg sarat korupsi kolusi. ' proyek ' bagi� jatah..
## 4 @ liputan6dotcom beehh koruptor n de genk keknya makin ketar katir bila pak firli bongkar semua kasuss korupsi 😁😁😁 kuncen ehh juru kunci kasu korupsi mau dihabisi?? yuk pak firli segera gassken.
## 5 @ karedokleunca _ _ dulu karena korupsi. kolusi nepotism. maka ada gerakan reformasi 98. yg banyak makan korban. loh sekarang muncul lagi kolusi. nepotism kita diam aja
## 6 @ kompastv etika politik lebih tinggi dari aturan
## 7 kejari tangsel menyidiki korupsi kredit bank banten : / / t. co / yhf8lqngkx
## 8 @ dennysiregar7 kalo suap " kan masuk kategori korupsi yak
## 9 @ a _ sigli @ hersn dari rusaknya moral anak anak bangsa juga udah kelihatan pki ada jadi kanker dinegeri lihat ajah partai yg pki nya banyak jadi juaranya korupsi skandal� yg lie
## 10 @ pilipius @ msaid _ didu manfaatnya adalah penguasa tidak semena mena dlm mengelola keuangan negara. prinsip pemerataan
## 11 deklarasi anti korupsi kementerian atr / bpn kantor pertanahan kabupaten kepulauan meranti : / / t. co / ie9cja8bci
## 12 @ dmarginal @ msaid _ didu penguasa hari adalah bukti kegagalan era reformasi dalam memberanta korupsi.
## 13 @ rajajuliantoni @ tjahjantohadi negara kita haru beba dari korupsi
## 14 adnan nur yusuf mantan dirut pdpl diperiksa sebagai saksi terkait kasu korupsi pt r arun : / / t. co / m373wxwyrz via @ pujatvaceh
## 15 @ notsa1103 @ kompascom kkn bkn hanya korupsi tp ada nepotism
## 16 @ savicali dinasti boleh asal tujuanya untuk rakyat. (? ) apakah lanta
## 17 @ wiridkh @ taka _ 99 _ _ 77 @ morphomenelausx buang sampah sembarangan
## 18 prabororo
## 19 @ kpk _ ri sangat mengenaskan dikala pimpinan kpk dituduh memera tidak yg bersuara membela kecuali fahri c pejabat korup
## 20 @ adiprayitno _ 20 semangat perjuangan pergerakan reformasi 98 adalah melawan korupsi. kolusi nepotism
## 21 @ geowanapurmana @ _ nclrza @ chrisj _ 2211 korupsi adalah oli pembangunan
## 22 @ cnnindonesia ga ngaruh... penjara penjara untuk rakyat no yg korupsi penggal kepalanya....... rakyat mll intimidasi.. …!!!!!
## 23 @ txtdrpemerintah yakin berani sikat korupsi? bilang gitu karena sama� partai merah? 🤔🤭
## label
## 1 Positive
## 2 Positive
## 3 Positive
## 4 Positive
## 5 Positive
## 6 Positive
## 7 Positive
## 8 Positive
## 9 Positive
## 10 Positive
## 11 Positive
## 12 Positive
## 13 Positive
## 14 Positive
## 15 Positive
## 16 Positive
## 17 Positive
## 18 Positive
## 19 Positive
## 20 Positive
## 21 Positive
## 22 Positive
## 23 Positivekomentar_positif <-komentar_positif$x
head(komentar_positif)## [1] "korupsi ( serta kolusi nepotism ) merupakan musuh manusia sepanjang zaman haru senantiasa diperangi. - benni susetyo # ganjarmahfud"
## [2] "kejari lampung utara melalui kasi intel guntoro menerangkan bahwa pihaknya hari menerima pelimpahan berka"
## [3] " kabarnya program kartu prekerja dibawah naungan menko perekonomian? program yg sarat korupsi kolusi. ' proyek ' bagi� jatah.."
## [4] "@ liputan6dotcom beehh koruptor n de genk keknya makin ketar katir bila pak firli bongkar semua kasuss korupsi 😁😁😁 kuncen ehh juru kunci kasu korupsi mau dihabisi?? yuk pak firli segera gassken."
## [5] "@ karedokleunca _ _ dulu karena korupsi. kolusi nepotism. maka ada gerakan reformasi 98. yg banyak makan korban. loh sekarang muncul lagi kolusi. nepotism kita diam aja"
## [6] "@ kompastv etika politik lebih tinggi dari aturan"Membuat Word Cloud komentar Positif
Mengubah Data Frame Menjadi Data Faktor
tdm_pos <- TermDocumentMatrix(komentar_positif)
tdm_pos## <<TermDocumentMatrix (terms: 241, documents: 23)>>
## Non-/sparse entries: 282/5261
## Sparsity : 95%
## Maximal term length: 16
## Weighting : term frequency (tf)m_pos <- as.matrix(tdm_pos)
View(m_pos)v_pos <- sort(rowSums(m_pos),decreasing = TRUE)
head(v_pos)## korupsi nepotism adalah kolusi ada korupsi.
## 13 4 4 3 3 3#Mengubah Data Faktor Menjadi Data Frame
d_pos <- data.frame(word = names(v_pos), freq = v_pos)
head(d_pos)## word freq
## korupsi korupsi 13
## nepotism nepotism 4
## adalah adalah 4
## kolusi kolusi 3
## ada ada 3
## korupsi. korupsi. 3wordcloud(d_pos$word, d_pos$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 ))
Term Dokument Matriks
tdm_positif <- TermDocumentMatrix(komentar_positif,
control = list(wordLengths = c(1, Inf)))
tdm_positif## <<TermDocumentMatrix (terms: 269, documents: 23)>>
## Non-/sparse entries: 346/5841
## Sparsity : 94%
## Maximal term length: 16
## Weighting : term frequency (tf)inspect frequent words
(freq.terms <- findFreqTerms(tdm_positif, lowfreq = 10))## [1] "korupsi" "@" "_" "/"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 <- dataaa %>%
filter(label == "Negative")
komentar_negatif<-komentar_negatif$x
komentar_negatif## [1] "polda papua barat menunggu audit bpkp kasu korupsi pbvsi - : / / t. co / 9sfvppqkdf # beritapapua # beritaterbaru # beritaupd # beritahariini # beritaterkini # papua # papuabarat # beritapapuabarat # manokwari : / / t. co / 710cxovovb"
## [2] "presiden joko widodo ( jokowi ) bersama putranya gibran rakabum raka dilaporkan ke komisi pemberantasan korupsi ( kpk ) ata dugaan melakukan ko... : / / t. co / fy3gfoz2tb"
## [3] "kabupaten kepulauan meranti. senin ( 23 / 10 / 2023 ). komitmen kegiatan mendapat apreasiasi penganugrahan museum rekor ( muri ) dunia indonesia"
## [4] "@ ganjarpranowo ada gambar ttg korupsi have bank jateng pak?"
## [5] "jadi tersangka korupsi sppd fiktif rp1"
## [6] "deklarasi anti korupsi bertujuan inisiasi langkah preventif / upaya pencegahan korupsi lingkungan kementerian atr / bpn"
## [7] "mahfud: pelanggaran hukum"
## [8] "@ detikcom beh keren pak jokowi"
## [9] "2030 tenaga nuklir? limbahnya gimana? tru korup ga dana nya wkwkwk kalo pasti korupsi you ☺️ kata netizen bakalan jd chernobyl part 2 😭"
## [10] "gw pengen kembali ke zaman sebelum 2.14 1. sembako murah 2. pendidikan murah 3. rakyat dapat tanah grati 4. hidup rukun 5. korupsi dikit 6. ekonomi relatif stabil 7. mudah cari kerja minusnya 1. krimin"
## [11] "@ heraloebss berarti korupsi indonesia level tingkat dewa"
## [12] "alurnya gini senyam senyum - sok polo - korupsi \" \""
## [13] "waduh parah banget.... akibat korupsi yg menjadi raja : / / t. co / dtv6lr5rv"
## [14] "@ imad _ shinnyuki @ taka _ 99 _ _ 77 @ morphomenelausx sek beba bukan budaya indonesia"
## [15] "@ marahichsan tidak ada yg salah dg keputusan mk karena unt kebaikan negara ke depan"
## [16] "@ hilmi28 lagipula orang kepo soal politik hanya berapa persen indonesia"
## [17] "@ miduk17 @ fadjroel tolong tanyakan ke bang @ fadjroel tentang tatacara / praktek korupsi & amp penyuapan pt. adhi karya?? beliau lama menikmati jabatan komisari pt. adhi karya & amp gak memiliki karya apapun"
## [18] "@ pksejahtera korupsi sunah rasul bukan?"
## [19] "@ tempodotco transaksi gelap kementerian pak"
## [20] "ketua kpk firli bahuri diam - diam penuhi panggilan penyidikan : / / t. co / z66bfj9o4i # radarjabar # kpk # firlibahuri # panggilan # penyidik # korupsi # pemerasan"
## [21] "partai kalo ga korupsi tru hidup dari mana?"
## [22] "@ ch _ chotimah2 @ ganjarpranowo @ mohmahfudmd capresmu pernah dituduh korupsi ktp lo"
## [23] "@ bisexualssr @ raykairi anjai kristen radik pasti partainya suka korupsi wkwk"
## [24] "orang asik korupsi negeri sementara kita haru menangi setiap hari mencari rejeki"
## [25] "hasil survei indek kepuasan masyarakat ( ikm ) indek persepsi korupsi ( ipk ) berdasarkan datum survei balitbang kemenkumham priod triwulan ii triwulan i tahun 2023. survei kepuasan masyarakat: : / / t. co / sfg54tg7ak # kumhamsemakinpasti # rutansoepasti : / / t. co / kiij81jpz7"
## [26] "kasu korupsi pengadaan barang jasa merupakan kasu terbanyak ditangani kpk setelah penyuapan. kpk teru mendorong pemerintah daerah untuk melakukan evaluasi perbaikan tata kelola sistem khususnya prose pengadaan barang jasa"
## [27] "ketika gibran jd walikota solo kemana aja"
## [28] "@ kurawa orang tdk suka jokowi macem2 sebabnya.. kecewa krn sesuatu hal.. ada jg sbb keluarganya ringku krn korupsi.. ada yg ngarep jabatan tp angkat.. dll."
## [29] "@ shalihin _ nad @ cnnindonesia @ pksejahtera oposisi pk sampah dibaha tuh cuman sektor agama"
## [30] "mantan mentan syahrul yasin limpo menpora dito ariotedjo terbelit dugaan kasu korupsi. berpengaruh tingkat kepuasan publik terhadap jokowi lembaga penegak hukum? : / / t. co / dstzxtybt"
## [31] "@ bachrum _ achmadi si @ faldomaldini tipik generasi muda oportuni penjilat.. ntar lagi tinggal nunggu kapan dia korupsi aja..."
## [32] "sedang melakukan adegan dewasa [ rapat korupsi makan siang ]"
## [33] "kemacetan no"
## [34] "hahaha.... tpdi laporkan jokowi... gibran... kaesang... usman... ke kpk karena nepotism & amp korupsi \" rasa \" \" \" 😂😂😂😂😂😂😂 : / / t. co / zkkd0uenwg \""
## [35] "@ dennysiregar7 mungkin kpk juga haru membuka kembali kasu aliran dana e - ktp komisi ii dpr ri karena sarat korupsi disana diantara nya ada wakil ketua komisi ii menerima uang sebesar us$500 ribu..."
## [36] "@ tan _ mar3m partai yg pale banyak anggotanya korupsi siapa you @ tan _ mar3m...?"
## [37] "@ nasdem 2 menteri kesayangannya ditangkap karena korupsi. “ adil sejahtera ” nya mau dibawa berlayar kemana??? # kapalkaram"
## [38] "@ lutfijunior98 kader nya korupsi gak diginiin?? yg berhasil doang yg dianggap semua karna partai nya??"
## [39] "@ ainzkurokun @ hasyimmah @ gibran _ tweet intinya beranta koruptor bukan branta korupsi lagi"Membuat Word Cloud komentar Positif
#Mengubah Data Frame Menjadi Data Faktor
tdm_neg <- TermDocumentMatrix(komentar_negatif)
tdm_neg## <<TermDocumentMatrix (terms: 411, documents: 39)>>
## Non-/sparse entries: 491/15538
## Sparsity : 97%
## Maximal term length: 18
## Weighting : term frequency (tf)m_neg <- as.matrix(tdm_neg)
View(m_neg)v_neg <- sort(rowSums(m_neg),decreasing = TRUE)
head(v_neg)## korupsi kpk kasu ada jokowi indonesia
## 27 7 5 5 4 4Membuat Word Cloud Tweet Negatif
d_neg <- data.frame(word = names(v_neg), freq = v_neg)
head(d_neg)## word freq
## korupsi korupsi 27
## kpk kpk 7
## kasu kasu 5
## ada ada 5
## jokowi jokowi 4
## indonesia indonesia 4wordcloud(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: 456, documents: 39)>>
## Non-/sparse entries: 610/17174
## Sparsity : 97%
## Maximal term length: 18
## Weighting : term frequency (tf)inspect frequent words
(freq.terms <- findFreqTerms(tdm_negatif, lowfreq = 5))## [1] "#" "-" "/" ":" "co" "kasu" "korupsi"
## [8] "t." "(" ")" "ke" "kpk" "@" "ada"
## [15] "\"" "yg" "_"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 <- dataaa %>%
filter(label == "Neutral")
komentar_neutral<-komentar_neutral$x
komentar_neutral## [1] "ketua kpk"
## [2] "@ ruangngupi @ hc _ poirot translat gestur mereka ada tekanan terikat rantai korupsi. sampai mau relax aja bingung caranya😀 terlanjur mandi lumpur kali yaa😅"
## [3] "@ itscinat bagu beranta korupsi # bijakkelolainformasi"
## [4] "kejagung periksa achsanul qosasi usai disebut sidang korupsi bt 4g : / / t. co / pnu6kjex5i"
## [5] "hallo # sobatrbpn kantor pertanahan kabupaten kepulauan meranti"
## [6] "halo # sobatrbpn"
## [7] "demi tuhan� paslon adalah satu satunya paslon anti male apbd anti male apbn anti pungli anti kelebihan bayar� lie gak ada jaminan tidak ada kader nya becu sama sekali apbd apbn amat sangat rawan korupsi pemimpin jaman now"
## [8] "kejaksaan agung usut korupsi impor gula kemendag baru2 kejagung telah memeriksa dua orang saksi sebagai saksi dlm kasu korupsi penyalahgunaan wewenang impor gula th 2015 - 2023. waw"
## [9] "mabe polri menegaskan ada perlakuan terhadap ketua komisi pemberantasan korupsi ( kpk )"
## [10] "@ tvonenew kiranya pak @ jokowi segera melakukan resufl kabinet"
## [11] "@ ari _ krite dgn pengalaman dipemerintah yg bejibun"
## [12] "@ notsa1103 @ kompascom sepanjang korupsi gak keliatan gak amsalah you bong. kan ketahun korupsi elu iuga baru tau ka bong... ketahuan korupsi penjara juga udah disiapin kayak hotel kok bong"
## [13] "parigi moutong sulawesi tengah korupsi @ kpk _ ri @ kejaksaanri @ bpkpgoid @ kemenkopukm @ laodemsyarif aod @ bojhttp: / / fb. watch / nt1jdbxyar /? mibextid=47172i"
## [14] "@ kontenberfaedah gaji pn gol i segitu 3"
## [15] "kasih hukaman death lah 👀"
## [16] "@ ryawiedi iya mbak dg adanya perubahan bata umur"
## [17] "@ bukannyanak @ ginanjarfindana @ umarsyadathsb _ _ kasu uda clear"
## [18] "puluhan milyar proyek rsduam diduga sarat korupsi upeti"
## [19] "@ cecepsihab @ gibran _ tweet you wajar solo pak"
## [20] "raih rekor muri"
## [21] "jakarta"
## [22] "@ tan _ mar3m tolong kembalikan dulu koper e - ktp nya ke setnop dia sedang butuh uang setelah baru katakan anti korupsi"
## [23] "@ wagimandeep212 _ medium barat tidak independen"
## [24] "@ inspektorat _ jtg @ provjateng @ kpk _ ri @ pjnanasudjana semoga semua warga jateng terlindung dari praktik korupsi"
## [25] "@ psi _ id bibit korupsi disemai dari politik dinasti. b a c o t!!! : / / t. co / couiydg3lr"
## [26] "@ rajajuliantoni @ tjahjantohadi lawan teru korupsi!"
## [27] "@ chrisj _ 2211 om kkn kepanjangan dr korupsi"
## [28] "@ msaid _ didu @ mohmahfudmd @ jimlya kayak nya kela pak jimli"
## [29] "@ fagtng @ dpr _ ri @ bpkri mendukung ponakan"
## [30] "@ mrmatchamu adaa"
## [31] "@ gm _ gm tolak dinasti"
## [32] "@ owiowl1 @ partono _ adjem @ kredivo @ ojkindonesia @ pinjollaknat @ baznasindonesia @ haedarn @ yaqutcqouma @ nucar _ lazisnu @ generasi _ mudanu @ lakpesdam _ pbnu @ pbnu _ 164 @ ronni _ rusli @ ramliriz @ maar semua paham kemampuan batasan pejabat struktur indon"
## [33] "@ heraloebss ternyata budaya kita adalah korupsi \" 🫣 \""
## [34] "@ cnnindonesia apel malang kata sandi korupsi 🤣"
## [35] "@ _ mbaksri _ parpol. tindak pidana korupsi bubarkan. kl lakukan peserta individu tdk parpol bubarkan"
## [36] "kepada pengacaranya"Membuat Word Cloud komentar Neutral
Mengubah Data Frame Menjadi Data Faktor
tdm_neutral <- TermDocumentMatrix(komentar_neutral)
tdm_neutral## <<TermDocumentMatrix (terms: 297, documents: 36)>>
## Non-/sparse entries: 333/10359
## Sparsity : 97%
## Maximal term length: 20
## Weighting : term frequency (tf)m_neutral <- as.matrix(tdm_neutral)
View(m_neutral)v_neutral <- sort(rowSums(m_neutral),decreasing = TRUE)
head(v_neutral)## korupsi anti kpk ada gak nya
## 18 5 4 4 3 3library(RColorBrewer)
d_neutral <- data.frame(word = names(v_neutral), freq = v_neutral)
head(d_neutral)## word freq
## korupsi korupsi 18
## anti anti 5
## kpk kpk 4
## ada ada 4
## gak gak 3
## nya nya 3wordcloud(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(dataaa$label, p = 0.8, list=F)
training<- dataaa[bagi,]
head(training)## x
## 3 @ ruangngupi @ hc _ poirot translat gestur mereka ada tekanan terikat rantai korupsi. sampai mau relax aja bingung caranya😀 terlanjur mandi lumpur kali yaa😅
## 4 @ itscinat bagu beranta korupsi # bijakkelolainformasi
## 6 korupsi ( serta kolusi nepotism ) merupakan musuh manusia sepanjang zaman haru senantiasa diperangi. - benni susetyo # ganjarmahfud
## 7 presiden joko widodo ( jokowi ) bersama putranya gibran rakabum raka dilaporkan ke komisi pemberantasan korupsi ( kpk ) ata dugaan melakukan ko... : / / t. co / fy3gfoz2tb
## 8 hallo # sobatrbpn kantor pertanahan kabupaten kepulauan meranti
## 9 kabupaten kepulauan meranti. senin ( 23 / 10 / 2023 ). komitmen kegiatan mendapat apreasiasi penganugrahan museum rekor ( muri ) dunia indonesia
## label
## 3 Neutral
## 4 Neutral
## 6 Positive
## 7 Negative
## 8 Neutral
## 9 Negativetesting<- dataaa[-bagi,]
head(testing)## x
## 1 ketua kpk
## 2 polda papua barat menunggu audit bpkp kasu korupsi pbvsi - : / / t. co / 9sfvppqkdf # beritapapua # beritaterbaru # beritaupd # beritahariini # beritaterkini # papua # papuabarat # beritapapuabarat # manokwari : / / t. co / 710cxovovb
## 5 kejagung periksa achsanul qosasi usai disebut sidang korupsi bt 4g : / / t. co / pnu6kjex5i
## 15 kejari lampung utara melalui kasi intel guntoro menerangkan bahwa pihaknya hari menerima pelimpahan berka
## 20 gw pengen kembali ke zaman sebelum 2.14 1. sembako murah 2. pendidikan murah 3. rakyat dapat tanah grati 4. hidup rukun 5. korupsi dikit 6. ekonomi relatif stabil 7. mudah cari kerja minusnya 1. krimin
## 25 alurnya gini senyam senyum - sok polo - korupsi " "
## label
## 1 Neutral
## 2 Negative
## 5 Neutral
## 15 Positive
## 20 Negative
## 25 NegativeMETODE 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: 0x000001c6320ae458>
## <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
1.Naive Bayes
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.
modelNB<-naiveBayes(label~.,data = training)
head(modelNB)## $apriori
## Y
## Negative Neutral Positive
## 32 29 19
##
## $tables
## $tables$x
## x
## Y kabarnya program kartu prekerja dibawah naungan menko perekonomian? program yg sarat korupsi kolusi. ' proyek ' bagi� jatah..
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ _ mbaksri _ parpol. tindak pidana korupsi bubarkan. kl lakukan peserta individu tdk parpol bubarkan
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ a _ sigli @ hersn dari rusaknya moral anak anak bangsa juga udah kelihatan pki ada jadi kanker dinegeri lihat ajah partai yg pki nya banyak jadi juaranya korupsi skandal� yg lie
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ adiprayitno _ 20 semangat perjuangan pergerakan reformasi 98 adalah melawan korupsi. kolusi nepotism
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ bachrum _ achmadi si @ faldomaldini tipik generasi muda oportuni penjilat.. ntar lagi tinggal nunggu kapan dia korupsi aja...
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ bisexualssr @ raykairi anjai kristen radik pasti partainya suka korupsi wkwk
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ bukannyanak @ ginanjarfindana @ umarsyadathsb _ _ kasu uda clear
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ cecepsihab @ gibran _ tweet you wajar solo pak
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ ch _ chotimah2 @ ganjarpranowo @ mohmahfudmd capresmu pernah dituduh korupsi ktp lo
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ chrisj _ 2211 om kkn kepanjangan dr korupsi
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ cnnindonesia apel malang kata sandi korupsi 🤣
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ dennysiregar7 kalo suap " kan masuk kategori korupsi yak
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ dennysiregar7 mungkin kpk juga haru membuka kembali kasu aliran dana e - ktp komisi ii dpr ri karena sarat korupsi disana diantara nya ada wakil ketua komisi ii menerima uang sebesar us$500 ribu...
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ detikcom beh keren pak jokowi
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ dmarginal @ msaid _ didu penguasa hari adalah bukti kegagalan era reformasi dalam memberanta korupsi.
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ fagtng @ dpr _ ri @ bpkri mendukung ponakan
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ ganjarpranowo ada gambar ttg korupsi have bank jateng pak?
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ geowanapurmana @ _ nclrza @ chrisj _ 2211 korupsi adalah oli pembangunan
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ gm _ gm tolak dinasti
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ heraloebss berarti korupsi indonesia level tingkat dewa
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ hilmi28 lagipula orang kepo soal politik hanya berapa persen indonesia
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ imad _ shinnyuki @ taka _ 99 _ _ 77 @ morphomenelausx sek beba bukan budaya indonesia
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ inspektorat _ jtg @ provjateng @ kpk _ ri @ pjnanasudjana semoga semua warga jateng terlindung dari praktik korupsi
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ itscinat bagu beranta korupsi # bijakkelolainformasi
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ karedokleunca _ _ dulu karena korupsi. kolusi nepotism. maka ada gerakan reformasi 98. yg banyak makan korban. loh sekarang muncul lagi kolusi. nepotism kita diam aja
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ kompastv etika politik lebih tinggi dari aturan
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ kontenberfaedah gaji pn gol i segitu 3
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ kpk _ ri sangat mengenaskan dikala pimpinan kpk dituduh memera tidak yg bersuara membela kecuali fahri c pejabat korup
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ kurawa orang tdk suka jokowi macem2 sebabnya.. kecewa krn sesuatu hal.. ada jg sbb keluarganya ringku krn korupsi.. ada yg ngarep jabatan tp angkat.. dll.
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ liputan6dotcom beehh koruptor n de genk keknya makin ketar katir bila pak firli bongkar semua kasuss korupsi 😁😁😁 kuncen ehh juru kunci kasu korupsi mau dihabisi?? yuk pak firli segera gassken.
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ lutfijunior98 kader nya korupsi gak diginiin?? yg berhasil doang yg dianggap semua karna partai nya??
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ marahichsan tidak ada yg salah dg keputusan mk karena unt kebaikan negara ke depan
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ mrmatchamu adaa
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ msaid _ didu @ mohmahfudmd @ jimlya kayak nya kela pak jimli
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ nasdem 2 menteri kesayangannya ditangkap karena korupsi. “ adil sejahtera ” nya mau dibawa berlayar kemana??? # kapalkaram
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ notsa1103 @ kompascom kkn bkn hanya korupsi tp ada nepotism
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ owiowl1 @ partono _ adjem @ kredivo @ ojkindonesia @ pinjollaknat @ baznasindonesia @ haedarn @ yaqutcqouma @ nucar _ lazisnu @ generasi _ mudanu @ lakpesdam _ pbnu @ pbnu _ 164 @ ronni _ rusli @ ramliriz @ maar semua paham kemampuan batasan pejabat struktur indon
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ pilipius @ msaid _ didu manfaatnya adalah penguasa tidak semena mena dlm mengelola keuangan negara. prinsip pemerataan
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ pksejahtera korupsi sunah rasul bukan?
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ psi _ id bibit korupsi disemai dari politik dinasti. b a c o t!!! : / / t. co / couiydg3lr
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ rajajuliantoni @ tjahjantohadi lawan teru korupsi!
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ rajajuliantoni @ tjahjantohadi negara kita haru beba dari korupsi
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ ruangngupi @ hc _ poirot translat gestur mereka ada tekanan terikat rantai korupsi. sampai mau relax aja bingung caranya😀 terlanjur mandi lumpur kali yaa😅
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ ryawiedi iya mbak dg adanya perubahan bata umur
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ shalihin _ nad @ cnnindonesia @ pksejahtera oposisi pk sampah dibaha tuh cuman sektor agama
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ tan _ mar3m partai yg pale banyak anggotanya korupsi siapa you @ tan _ mar3m...?
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ tan _ mar3m tolong kembalikan dulu koper e - ktp nya ke setnop dia sedang butuh uang setelah baru katakan anti korupsi
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ tempodotco transaksi gelap kementerian pak
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ tvonenew kiranya pak @ jokowi segera melakukan resufl kabinet
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y @ txtdrpemerintah yakin berani sikat korupsi? bilang gitu karena sama� partai merah? 🤔🤭
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y @ wagimandeep212 _ medium barat tidak independen
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y 2030 tenaga nuklir? limbahnya gimana? tru korup ga dana nya wkwkwk kalo pasti korupsi you ☺️ kata netizen bakalan jd chernobyl part 2 😭
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y adnan nur yusuf mantan dirut pdpl diperiksa sebagai saksi terkait kasu korupsi pt r arun : / / t. co / m373wxwyrz via @ pujatvaceh
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y deklarasi anti korupsi bertujuan inisiasi langkah preventif / upaya pencegahan korupsi lingkungan kementerian atr / bpn
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y deklarasi anti korupsi kementerian atr / bpn kantor pertanahan kabupaten kepulauan meranti : / / t. co / ie9cja8bci
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y demi tuhan� paslon adalah satu satunya paslon anti male apbd anti male apbn anti pungli anti kelebihan bayar� lie gak ada jaminan tidak ada kader nya becu sama sekali apbd apbn amat sangat rawan korupsi pemimpin jaman now
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y hallo # sobatrbpn kantor pertanahan kabupaten kepulauan meranti
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y halo # sobatrbpn
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y hasil survei indek kepuasan masyarakat ( ikm ) indek persepsi korupsi ( ipk ) berdasarkan datum survei balitbang kemenkumham priod triwulan ii triwulan i tahun 2023. survei kepuasan masyarakat: : / / t. co / sfg54tg7ak # kumhamsemakinpasti # rutansoepasti : / / t. co / kiij81jpz7
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y jadi tersangka korupsi sppd fiktif rp1 jakarta
## Negative 0.03125000 0.00000000
## Neutral 0.00000000 0.03448276
## Positive 0.00000000 0.00000000
## x
## Y kabupaten kepulauan meranti. senin ( 23 / 10 / 2023 ). komitmen kegiatan mendapat apreasiasi penganugrahan museum rekor ( muri ) dunia indonesia
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y kasih hukaman death lah 👀
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y kasu korupsi pengadaan barang jasa merupakan kasu terbanyak ditangani kpk setelah penyuapan. kpk teru mendorong pemerintah daerah untuk melakukan evaluasi perbaikan tata kelola sistem khususnya prose pengadaan barang jasa
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y kejaksaan agung usut korupsi impor gula kemendag baru2 kejagung telah memeriksa dua orang saksi sebagai saksi dlm kasu korupsi penyalahgunaan wewenang impor gula th 2015 - 2023. waw
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y kejari tangsel menyidiki korupsi kredit bank banten : / / t. co / yhf8lqngkx
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y kemacetan no kepada pengacaranya
## Negative 0.03125000 0.00000000
## Neutral 0.00000000 0.03448276
## Positive 0.00000000 0.00000000
## x
## Y ketua kpk firli bahuri diam - diam penuhi panggilan penyidikan : / / t. co / z66bfj9o4i # radarjabar # kpk # firlibahuri # panggilan # penyidik # korupsi # pemerasan
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y korupsi ( serta kolusi nepotism ) merupakan musuh manusia sepanjang zaman haru senantiasa diperangi. - benni susetyo # ganjarmahfud
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.05263158
## x
## Y mabe polri menegaskan ada perlakuan terhadap ketua komisi pemberantasan korupsi ( kpk )
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y mahfud: pelanggaran hukum
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y mantan mentan syahrul yasin limpo menpora dito ariotedjo terbelit dugaan kasu korupsi. berpengaruh tingkat kepuasan publik terhadap jokowi lembaga penegak hukum? : / / t. co / dstzxtybt
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y orang asik korupsi negeri sementara kita haru menangi setiap hari mencari rejeki
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y partai kalo ga korupsi tru hidup dari mana? prabororo
## Negative 0.03125000 0.00000000
## Neutral 0.00000000 0.00000000
## Positive 0.00000000 0.05263158
## x
## Y presiden joko widodo ( jokowi ) bersama putranya gibran rakabum raka dilaporkan ke komisi pemberantasan korupsi ( kpk ) ata dugaan melakukan ko... : / / t. co / fy3gfoz2tb
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y raih rekor muri
## Negative 0.00000000
## Neutral 0.03448276
## Positive 0.00000000
## x
## Y sedang melakukan adegan dewasa [ rapat korupsi makan siang ]
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y waduh parah banget.... akibat korupsi yg menjadi raja : / / t. co / dtv6lr5rv
## Negative 0.03125000
## Neutral 0.00000000
## Positive 0.00000000
##
##
## $levels
## [1] "Negative" "Neutral" "Positive"
##
## $isnumeric
## x
## 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)
hasil_testNB=confusionMatrix(table(prediksiNB_test,testing$label))
hasil_testNB## Confusion Matrix and Statistics
##
##
## prediksiNB_test Negative Neutral Positive
## Negative 7 7 4
## Neutral 0 0 0
## Positive 0 0 0
##
## Overall Statistics
##
## Accuracy : 0.3889
## 95% CI : (0.173, 0.6425)
## No Information Rate : 0.3889
## P-Value [Acc > NIR] : 0.5883
##
## Kappa : 0
##
## Mcnemar's Test P-Value : NA
##
## Statistics by Class:
##
## Class: Negative Class: Neutral Class: Positive
## Sensitivity 1.0000 0.0000 0.0000
## Specificity 0.0000 1.0000 1.0000
## Pos Pred Value 0.3889 NaN NaN
## Neg Pred Value NaN 0.6111 0.7778
## Prevalence 0.3889 0.3889 0.2222
## Detection Rate 0.3889 0.0000 0.0000
## Detection Prevalence 1.0000 0.0000 0.0000
## Balanced Accuracy 0.5000 0.5000 0.5000