Analisis Data Twitter Sianida
SYARLAH ULFIANTY
30 November 2023
#Library
library(wordcloud)## Loading required package: RColorBrewerlibrary(tm)## Loading required package: NLPlibrary(textclean)
library(tidytext)
library(ggplot2)##
## Attaching package: 'ggplot2'## The following object is masked from 'package:NLP':
##
## annotatelibrary(parallel)
library(tokenizers)
library(tau)
library(NLP)
library(stringr)
library(devtools)## Loading required package: usethislibrary(quanteda)## Package version: 3.3.1
## Unicode version: 13.0
## ICU version: 69.1## Parallel computing: 4 of 4 threads used.## See https://quanteda.io for tutorials and examples.##
## Attaching package: 'quanteda'## The following object is masked from 'package:tm':
##
## stopwords## The following objects are masked from 'package:NLP':
##
## meta, meta<-library(kayadata)
library(syuzhet)
library(e1071)
library(sentimentr)##
## Attaching package: 'sentimentr'## The following object is masked from 'package:syuzhet':
##
## get_sentenceslibrary(SentimentAnalysis)##
## Attaching package: 'SentimentAnalysis'## The following object is masked from 'package:base':
##
## writelibrary(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(pacman)
library(readxl)
pacman::p_load_gh("trinker/textstem")
pacman::p_load(textstem, dplyr)DATASET
Dataset yang digunakan adalah dataset tentang sianida yang diambil dari hasil tweet.Yang bisa di akses di bawah ini:
Import Dataset
setwd("C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/Tugas PRA UAS")
Datasianida<- read.csv("sianida.csv")
tweetsianida<-Datasianida$full_textLowercase
#lowercase
tweetsianida <- tolower(tweetsianida)
head(tweetsianida)## [1] "5 racun mematikan di dunia"
## [2] "@thepiscesy audy lu mau gue racun pake sianida kah??? bikin emosi aja berak. https://t.co/oza6mmaolu"
## [3] "@basebdg rek di racun sianida"
## [4] "@tyreseblooming tehnya mau ditambah sianida apa racun tikus"
## [5] "@gunromli mulutmu penuh racun sianida "
## [6] "@kegblgnunfaedh ingat kasus sianida polisi2 dr puslabfor pd demo sianida ada aiman hadir & ini jd pembelaan para org2 yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman & dr. djaya sempat bilang gak mungkin itu sianida 😅"#contraction:kata singkat menjadi kata asli
tweetsianida <- replace_contraction(tweetsianida)
head(tweetsianida)## [1] "5 racun mematikan di dunia"
## [2] "@thepiscesy audy lu mau gue racun pake sianida kah??? bikin emosi aja berak. https://t.co/oza6mmaolu"
## [3] "@basebdg rek di racun sianida"
## [4] "@tyreseblooming tehnya mau ditambah sianida apa racun tikus"
## [5] "@gunromli mulutmu penuh racun sianida "
## [6] "@kegblgnunfaedh ingat kasus sianida polisi2 dr puslabfor pd demo sianida ada aiman hadir & ini jd pembelaan para org2 yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman & dr. djaya sempat bilang gak mungkin itu sianida 😅"tweetsianida <- replace_word_elongation(tweetsianida)
head(tweetsianida)## [1] "5 racun mematikan di dunia"
## [2] "@thepiscesy audy lu mau gue racun pake sianida kah??? bikin emosi aja berak. https://t.co/oza6mmaolu"
## [3] "@basebdg rek di racun sianida"
## [4] "@tyreseblooming tehnya mau ditambah sianida apa racun tikus"
## [5] "@gunromli mulutmu penuh racun sianida "
## [6] "@kegblgnunfaedh ingat kasus sianida polisi2 dr puslabfor pd demo sianida ada aiman hadir & ini jd pembelaan para org2 yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman & dr. djaya sempat bilang gak mungkin itu sianida 😅"Menghapus simbol
tweetsianida <- strip(tweetsianida)
head(tweetsianida)## [1] "racun mematikan di dunia"
## [2] "thepiscesy audy lu mau gue racun pake sianida kah bikin emosi aja berak httpstcooza mmaolu"
## [3] "basebdg rek di racun sianida"
## [4] "tyreseblooming tehnya mau ditambah sianida apa racun tikus"
## [5] "gunromli mulutmu penuh racun sianida"
## [6] "kegblgnunfaedh ingat kasus sianida polisi dr puslabfor pd demo sianida ada aiman hadir amp ini jd pembelaan para org yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman amp dr djaya sempat bilang gak mungkin itu sianida 🕧"stemming/lemmatizing = kata dasar
stem_strings(tweetsianida)## [1] "racun mematikan di dunia"
## [2] "thepiscesi audi lu mau gue racun pake sianida kah bikin emosi aja berak httpstcooza mmaolu"
## [3] "basebdg rek di racun sianida"
## [4] "tyresebloom tehnya mau ditambah sianida apa racun tiku"
## [5] "gunromli mulutmu penuh racun sianida"
## [6] "kegblgnunfaedh ingat kasu sianida polisi dr puslabfor pd demo sianida ada aiman hadir amp ini jd pembelaan para org yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman amp dr djaya sempat bilang gak mungkin itu sianida 🕧"
## [7] "aiekspeechless dennysiregar airantier alnilamomar aynienaja dyahnezza daliliem hamidahnadya mantanajja humairah ge te gaknyerahbro denni kebingungan"
## [8] "waktu itu goebbel dan istrinya memberikan racun sianida untuk anak anaknya sebelum kemudian bunuh diri dilakukan dg imaginasi tidak bisa membayangkan hidup dimasa depan tanpa nazi dan hitler mirip alesanya mahasiswa itu tidak dpt membayangkan tanpa dipimpin"
## [9] "evywahudi kegblgnunfaedh dusta ndasmu"
## [10] "tumben"
## [11] "foodfess cium baunya kayak bau racun sianida"
## [12] "ainunnajib pole ini ibarat ngasih pilihan di suruh minum racun sianida atau atau digigit ular laut"
## [13] "kila balik kasu kematian munir karena racun arsenik dan mirna akibat racun sianida httpstcoe koqelo r temponasion"
## [14] "vivacoid kalo prabowo dan gerindra mengambil gibrantweet jadi cawapr saya pastikan ganjarpranowo dan anisbaswedan tinggal suit aja siapa yg akan di lantik tanggal oktob nanti hahahahaha ingat pak prabowo anda orang luru"
## [15] "nah ini baru benar"
## [16] "mengen racun sianida yang bikin heboh di film ic cold sianida jessicawongso mirnasalihin kopisianida singkong racun mediaindonesia referensibangsa httpstcopzjcvca m"
## [17] "beastsnharlot masalah sedotan ini muncul gegara ada doktor theo kimia lulusan jerman yg diwawancara inew urusan masukin sianida via sedotan gak dibaha di persidangan lagian racun yg dimasukkin kan katanya gram"
## [18] "penyefongmlbb psikopat kayaknya yg bikin gw kaget racun kyk sianida itu bisa dibe beba 😅"
## [19] "darmawan salihin ngaku beri napa buatan ke mirna"
## [20] "curiga"
## [21] "sianida adalah racun yang bekerja cepat dan dapat mematikan racun ini sere ditemukan di serialseri detektif dan juga dunia nyata httpstcoq x glawy httpstcoum qqa zf"
## [22] "chimmi andhikaswn narasinewsroom pertama racun dikirim ke puslabfor hasilnya sianida negatif muntahan itu masih hidup enggak ada siandia yg diambil tadi darah"
## [23] "andyhuski mana tau dalam dage itu ada racun sianida 😃"
## [24] "sehutf jonmwon kakak jenni racun apa sianida"
## [25] "lyu wkwk aku kasih racun sianida aja deh😭"
## [26] "skrg lg demam sianida"
## [27] "tdk di otopsi gt diotopsi kok gt partial otopsi 🛠 mati krn racun sianida gt negatif sianida gt ada mg sianida gt natrium sianida krn dlm tubuhnya ada mg sianida dan ion natrium jd kesimpulannya natrium sianida 🫠"
## [28] "kejanggalan kasu mirna shalihin yang diracuni jessica wongso dengan racun sianida short videovir fyp attentat indvspak httpstcoaviveo yu"
## [29] "racun sianida"
## [30] "berpihak pdhl harusnya netral sebagai penyidik yg nyari bukti"
## [31] "otopsi ulang krn terbukti ditubuh m gk ada sianida awalnya"
## [32] "mfahrozi ok"
## [33] "tanyarlf bukan masalah pro atau kontra"
## [34] "boikiboiki buka dong case nya"
## [35] "alvitaarumdati andhikaswn narasinewsroom mirna ga keracunan sianida mungkin racun yg lain"
## [36] "garagara kasu sianida meruak kembali"
## [37] "polisiidol admin nya siapa si mo gua racun pke sianida gak"
## [38] "nih berita tempo httpstco rtqedyigj biar klen tau siapa yg ngide racun sianida ini"
## [39] "chifkalong sianida racun tiku"
## [40] "drama ic cold"
## [41] "fluppyhooni mauveji bener banget teru dikasih racun sianida"
## [42] "pasokonotaku mati karena nacn kak maaf banget tapi nacn itu natrium sianida kalo dlm tubuh sdh terurai jadi ion na cn"
## [43] "skrg lagi rewatch sidangnya tbtb gw ngakak sendiri krn ngeliat muka si j🤣 j b lyk ah elu pada ngeributin sianida"
## [44] "dan selama dia diundang di podcast kaga ada satupun yang nanyain perih kemungkinan racun lain selain sianida😂🗿 emg nyari cuan aj ni yutub wkwk pdhl w penasaran"
## [45] "convomf racun aja nder kakanya pake sianida tuman 🙏"
## [46] "dr djaja singgung racun sianida ternyata banyak dikonsumsi orang indonesia secara tidak sadar"
## [47] "nah skrg kalo gk otopsi"
## [48] "meski umunya sianida diken sebagai racun"
## [49] "tr ada yg blg ata dasar apa anda blg lambung merah itu salah lah diakan dokter yg menel sianida😭 kita aja paham ye mksdnya dr djaja klo korban racun sianida hampir semuanya berubah jd warna merah terang dari darah"
## [50] "marwanfc partaisocm gw tetap yakin kl je lah pembunuh nya karna udah ada percobaan ahli soal pencampuran kopi dan sianida"
## [51] "penyebab kematiannya bkn racun sianida dan pelakunya bikan jessica"
## [52] "hilarlo partaisocm dah pada tau kali riwayatnya pa dijabarin semua lebih baik skepti kepada yang menangani kasusnya bang"
## [53] "cersmoi partaisocm nacn hcl hcn nacl nacn racun garam sianida yg dipak jessica hcl asam kloridaasam lambung yg di hasilkan dr sel pariet di dind lambung hcn hidrogen sianidaga yg dipak nazi buat holocaust nacl garam murni"
## [54] "twominuswon kembarannyabora vldzhrn vellionx tubirfess dalam prose konversi"
## [55] "fleurscheri kak kira tau gak"
## [56] "kalo orang meningg tiba tiba bukan karena penyakit"
## [57] "jjaeyumixx cersmoi partaisocm reaksi ini melibatkan enzim bernama rhodanas yang ada dalam hati rhodanas mengkatalisi konversi ion sianida menjadi scn itu reaksi mutlak ketika racun jeni cn alia dari nacn kalo melebihi dosi tapi tidak ada sc"
## [58] "how if mirna emang diracun tapi racun nya bukan sianida makannya dokter djaja gak liat ciriciri sianida"
## [59] "pak wamen kemenkumhamri memenjarakan orang tanpa outopsi"
## [60] "natrium tanpa sianida setau gua bukan racun sih"
## [61] "bigmasuu tanyakanrl yang kamu sebutin juga termasuk tapi tetep kalau hasil sampel pertama ga ditemukan sianida berarti mustahil ga menutup kemungkinan juga sebenernya bisa jadi racun yg lain atau kemungkinan kemungkinan lain yang terlewat itu yg aku m"
## [62] "kiyaimarufamin assalamualikum pa wapr tolong bantu buka kembali kasu racun sianida jessica wongso"
## [63] "lessfearnoteraf tanyakanrl tdk ditemukan tiosinat di hati dan urin"
## [64] "mainvillain tanyakanrl harusnya dokternya juga b jelasin kejang nya mirna saat habi minum kopi sampai dari mulut keluar busa itu apa lalu bau kopi yg menyengat dan pahit itu apa klo bukan sianida"
## [65] "xwonuu racun tiku dibubuhi sedikit sianida"
## [66] "edi darmawan ayah mirna salihin perlihatkan bukti sakti rekaman cctv saat jessica wongso taruh racun sianida ke gela kopi httpstcohe h pznaa"
## [67] "pagi racun sianida wkakwk"
## [68] "partaisocm jessica punya riwayat brows cari penggunaan racun sianida"
## [69] "psikutt tanyakanrl mau dgn jeni racun apapun"
## [70] "pixydust elaynekai hah gimana dia design grafi tapi kerja farmasi ya ga bisa teru kalau emg dia browser cara gunain sianida udh terbukti blm dia beli dan pakai sianida kan trmsk racun berbahaya dan ga b semua org bisa beli like how"
## [71] "iamblu akoriekori tanyakanrl minuman dingin itu suhunya brapa kemungkinan menguap ada"
## [72] "sianida adalah racun mematikan"
## [73] "khusu sianida cn yang dilambung memang hanya"
## [74] "kapitalisbarat gforgea baddassauvignon eriemrn mentionaink tanyakanrl beginiskg kita tdk bsa dgn jela tau kematiannya disebabkan apa dikrnakan tdk dilakukan otopsi scra menyeluruh klau korban meninggalnya bkn krna racun gmn karna hnya dibiopsi"
## [75] "diantaratitik partaisocm fix kamu ga baca putusan"
## [76] "sardenmili anythingforkyr tanyarlf betul"
## [77] "psikutt kegblgnunfaedh dompetnya tebel tapi kalo ga punya riwayat kerja di bidang farmasi"
## [78] "sebelum terjadinya kasu kopi sianida"
## [79] "httpstcocyyh djwmp bgmnpun sy lbh percaya dg polisi"
## [80] "aimocchitarot tanyakanrl kamu blng klo b jaa dgn media yg lain"
## [81] "tanyakanrl gamau di otopsi"
## [82] "xxylon tanyakanrl dan knp kl tdk ada racun reaksi mirna saat minum kopi kek abi minum minuman yg ga enak dan kya kpanasan gtu kyaknya emg ada yg ga bere sm minumannya tp ya gatau itu knp kl dr djaja mngatakan itu bkn sianida bisa aja racun lain kan"
## [83] "lessfearnoteraf tanyakanrl saya tidak bilang kalau jessica tidak bersalah ya"
## [84] "irein vousmecollin tanyakanrl lagi ahli toxicologi universita indonesia melakukan uji coba pada racun sianida dan menemukan fakta bahwa sianida akan berubah jadi ga kalau bertemu benda cair di hasil sidang awal dikatakan gr sianida ditemukan d"
## [85] "aimocchitarot tanyakanrl kamu baca amp lihat ga hasil otopsi dan keterangan ahli bahwa yg bunuh mirna itu bener racun sianida"
## [86] "cupapusi karenaa eunoiakai tanyakanrl beliau dosen amp ahli di bidangnya tapi bukan ahli bidang toksikologi kan dr djaja yang udah ahli kedokteran forensik dan toksikologi aka ilmu tentang racun sudah bilang"
## [87] "vousmecollin xyzapf tanyakanrl dokter spesiali forensik yang menjadi saksi ahli"
## [88] "xyzapf tanyakanrl udah terbukti racun kok"
## [89] "terpidana kasu pembunuhan wayan mirna salihin dengan racun sianida"
## [90] "yeonpilpencil ikr padah banyakan praduga😭 ya ok kalo emang j yg bunuh"
## [91] "film ic cold ramai diperbincangkan"
## [92] "nanasubak yogahaha eunoiakai tanyakanrl nacn emang salah satu jeni sianida yg bentuknya padat dan berbahaya kalo ketelen"
## [93] "welovewoo tanyakanrl tapi dari bap saksi cara mengiba mulut dan pingsan seketika tidak bisa disangk kan walaupun tidak ditemukan bisa saja racun lain jadi topik disini jangan melihat jessica bukan pelaku tapi bisa saja jessica memasukan racun lain t"
## [94] "karenaa eunoiakai tanyakanrl lah walaupun mirna ini punya penyakit misalnya tumor otak tapi kalo pa sianida ditemukan didalam lambung dan organ lainnya"
## [95] "kapitalisbarat eriemrn mentionaink tanyakanrl karena kalau tanpa autopsi semua kemungkinan bisa saja terjadi abuabu ya bayangin aja sianida mg di kopi"
## [96] "film dokument ic cold murder"
## [97] "film ic cold ramai diperbincangkan"
## [98] "irein dewiehheh twilightid tanyakanrl jadi"
## [99] "kapitalisbarat masganteng tanyakanrl lalu knp keluarga korban nolak otopsi pdhl jela tubuh mirna negatif sianida knp kembaran mirna bilang mayatnya wrn biru pdhl menurut forensik jika trkena sianida warna merah knp hr ada uang amplop kpd bapak"
## [100] "kapitalisbarat masganteng tanyakanrl penjelasan scr logika logikanya aja dlm tubuhnya negatif sianida bisa aja dia ninggal krn penyakit hal lain sblmnya udah dracun dr rumah amp bereaksi stlh minum kopi"lemmatize_strings(tweetsianida)## [1] "racun mematikan di dunia"
## [2] "thepiscesy audy lu mau gue racun pake sianida kah bikin emosi aja berak httpstcooza mmaolu"
## [3] "basebdg rek di racun sianida"
## [4] "tyreseblooming tehnya mau ditambah sianida apa racun tikus"
## [5] "gunromli mulutmu penuh racun sianida"
## [6] "kegblgnunfaedh ingat kasus sianida polisi dr puslabfor pd demo sianida ada aiman hadir amp ini jd pembelaan para org yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman amp dr djaya sempat bilang gak mungkin itu sianida 🕧"
## [7] "aiekspeechless dennysiregar airantiereal alnilamomar aynienaja dyahnezza daliliem hamidahnadya mantanajja humairah ge te gaknyerahbro denny kebingungan"
## [8] "waktu itu goebbels dan istrinya memberikan racun sianida untuk anak anaknya sebelum kemudian bunuh diri dilakukan dg imaginasi tidak bisa membayangkan hidup dimasa depan tanpa nazi dan hitler mirip alesanya mahasiswa itu tidak dpt membayangkan tanpa dipimpin"
## [9] "evywahudy kegblgnunfaedh dusta ndasmu"
## [10] "tumben"
## [11] "foodfess cium baunya kayak bau racun sianida"
## [12] "ainunnajib pole ini ibarat ngasih pilihan di suruh minum racun sianida atau atau digigit ular laut"
## [13] "kilas balik kasus kematian munir karena racun arsenik dan mirna akibat racun sianida httpstcoe koqelo r temponasional"
## [14] "vivacoid kalo prabowo dan gerindra mengambil gibrantweet jadi cawapres saya pastikan ganjarpranowo dan anisbaswedan tinggal suit aja siapa yg akan di lantik tanggal oktober nanti hahahahaha ingat pak prabowo anda orang lurus"
## [15] "nah ini baru benar"
## [16] "mengenal racun sianida yang bikin heboh di film ice cold sianida jessicawongso mirnasalihin kopisianida singkong racun mediaindonesia referensibangsa httpstcopzjcvcas be"
## [17] "beastsnharlot masalah sedotan ini muncul gegara ada doktor theo s kimia lulusan jerman yg diwawancara inews urusan masukin sianida via sedotan gak dibahas di persidangan lagian racun yg dimasukkin kan katanya gram"
## [18] "penyefongmlbb psikopat kayaknya yg bikin gw kaget racun kyk sianida itu bisa dibeli bebas 😅"
## [19] "darmawan salihin ngaku beri napas buatan ke mirna"
## [20] "curiga"
## [21] "sianida adalah racun yang bekerja cepat dan dapat mematikan racun ini sering ditemukan di serialserial detektif dan juga dunia nyata httpstcoq x glawye httpstcoum qqa zf"
## [22] "chimmy andhikaswn narasinewsroom pertama racun dikirim ke puslabfor hasilnya sianida negatif muntahan itu masih hidup enggak ada siandia yg diambil tadi darah"
## [23] "andyhusky mana tau dalam daging itu ada racun sianida 😃"
## [24] "sehutf jonmwon kakak jennie racun apa sianida"
## [25] "lyu wkwk aku kasih racun sianida aja deh😭"
## [26] "skrg lg demam sianida"
## [27] "tdk di otopsi gt diotopsi kok gt partial otopsi 🛠 mati krn racun sianida gt negatif sianida gt ada mg sianida gt natrium sianida krn dlm tubuhnya ada mg sianida dan ion natrium jd kesimpulannya natrium sianida 🫠"
## [28] "kejanggalan kasus mirna shalihin yang diracuni jessica wongso dengan racun sianida short videoviral fyp attentat indvspak httpstcoaviveo yu"
## [29] "racun sianida"
## [30] "berpihak pdhl harusnya netral sebagai penyidik yg nyari bukti"
## [31] "otopsi ulang krn terbukti ditubuh be gk ada sianida awalnya"
## [32] "mfahrozi oke"
## [33] "tanyarlfes bukan masalah pro atau kontra"
## [34] "boikiboiki buka dong case nya"
## [35] "alvitaarumdati andhikaswn narasinewsroom mirna ga keracunan sianida mungkin racun yg lie"
## [36] "garagara kasus sianida meruak kembali"
## [37] "polisiidol admin nya siapa si mo gua racun pke sianida gak"
## [38] "nih berita tempo httpstco rtqedyigj biar klen tau siapa yg ngide racun sianida ini"
## [39] "chifkalong sianida racun tikus"
## [40] "drama ice cold"
## [41] "fluppyhoonie mauvejy bener banget terus dikasih racun sianida"
## [42] "pasokonotaku mati karena nacn kak maaf banget tapi nacn itu natrium sianida kalo dlm tubuh sdh terurai jadi ion na cn"
## [43] "skrg lagi rewatch sidangnya tbtb gw ngakak sendiri krn ngeliat muka si j🤣 j b lyk ah elu pada ngeributin sianida"
## [44] "dan selama dia diundang di podcast kaga ada satupun yang nanyain perihal kemungkinan racun lie selain sianida😂🗿 emg nyari cuan aje ni yutuber wkwk pdhl w penasaran"
## [45] "convomf racun aja nder kakanya pake sianida tuman 🙏"
## [46] "dr djaja singgung racun sianida ternyata banyak dikonsumsi orang indonesia secara tidak sadar"
## [47] "nah skrg kalo gk otopsi"
## [48] "meski umunya sianida dikenal sebagai racun"
## [49] "tr ada yg blg atas dasar apa anda blg lambung merah itu salah lah diakan dokter yg meneliti sianida😭 kita aja paham ye mksdnya dr djaja klo korban racun sianida hampir semuanya berubah jd warna merah terang dari darah"
## [50] "marwanfc partaisocmed gw tetap yakin kl jes lah pembunuh nya karna udah ada percobaan ahli soal pencampuran kopi dan sianida"
## [51] "penyebab kematiannya bkn racun sianida dan pelakunya bikan jessica"
## [52] "hilarlo partaisocmed dah pada tau kali riwayatnya pa dijabarin semua lebih baik skeptis kepada yang menangani kasusnya bang"
## [53] "cersmoi partaisocmed nacn hcl hcn nacl nacn racun garam sianida yg dipake jessica hcl asam kloridaasam lambung yg di hasilkan dr sel parietal di dinding lambung hcn hidrogen sianidagas yg dipake nazi buat holocaust nacl garam murni"
## [54] "twominuswone kembarannyabora vldzhrn vellionx tubirfess dalam prose konversi"
## [55] "fleurschery kak kira tau gak"
## [56] "kalo orang meninggal tiba tiba bukan karena penyakit"
## [57] "jjaeyumixx cersmoi partaisocmed reaksi ini melibatkan enzim bernama rhodanase yang ada dalam hati rhodanase mengkatalisis konversi ion sianida menjadi scn itu reaksi mutlak ketika racun jenis cn alias dari nacn kalo melebihi dosis tapi tidak ada sc"
## [58] "how if mirna emang diracun tapi racun nya bukan sianida makannya dokter djaja gak liat ciriciri sianida"
## [59] "pak wamen kemenkumhamri memenjarakan orang tanpa outopsi"
## [60] "natrium tanpa sianida setau gua bukan racun sih"
## [61] "bigmasuu tanyakanrl yang kamu sebutin juga termasuk tapi tetep kalau hasil sampel pertama ga ditemukan sianida berarti mustahil ga menutup kemungkinan juga sebenernya bisa jadi racun yg lie atau kemungkinan kemungkinan lie yang terlewat itu yg aku be"
## [62] "kiyaimarufamin assalamualikum pa wapres tolong bantu buka kembali kasus racun sianida jessica wongso"
## [63] "lessfearnoteraf tanyakanrl tdk ditemukan tiosinat di hati dan urine"
## [64] "mainvillain tanyakanrl harusnya dokternya juga b jelasin kejang nya mirna saat habis minum kopi sampai dari mulut keluar busa itu apa lalu bau kopi yg menyengat dan pahit itu apa klo bukan sianida"
## [65] "xwonuu racun tikus dibubuhi sedikit sianida"
## [66] "edi darmawan ayah mirna salihin perlihatkan bukti sakti rekaman cctv saat jessica wongso taruh racun sianida ke gelas kopi httpstcohe h pznaa"
## [67] "pagi racun sianida wkakwk"
## [68] "partaisocmed jessica punya riwayat browse cari penggunaan racun sianida"
## [69] "psikutt tanyakanrl mau dgn jenis racun apapun"
## [70] "pixydust elaynekai hah gimana dia design grafis tapi kerja farmasi you ga bisa terus kalau emg dia browser cara gunain sianida udh terbukti blm dia beli dan pakai sianida kan trmsk racun berbahaya dan ga b semua org bisa beli like how"
## [71] "iamblue akoriekorie tanyakanrl minuman dingin itu suhunya brapa kemungkinan menguap ada"
## [72] "sianida adalah racun mematikan"
## [73] "khusus sianida cn yang dilambung memang hanya"
## [74] "kapitalisbarat gforgea baddassauvignon eriemrn mentionaink tanyakanrl beginiskg kita tdk bsa dgn jelas tau kematiannya disebabkan apa dikrnakan tdk dilakukan otopsi scra menyeluruh klau korban meninggalnya bkn krna racun gmn karna hnya dibiopsi"
## [75] "diantaratitik partaisocmed fix kamu ga baca putusan"
## [76] "sardenmili anythingforkyr tanyarlfes betul"
## [77] "psikutt kegblgnunfaedh dompetnya tebel tapi kalo ga punya riwayat kerja di bidang farmasi"
## [78] "sebelum terjadinya kasus kopi sianida"
## [79] "httpstcocyyh djwmp bgmnpun sy lbh percaya dg polisi"
## [80] "aimocchitarot tanyakanrl kamu blng klo b jaa dgn medium yg lie"
## [81] "tanyakanrl gamau di otopsi"
## [82] "xxylone tanyakanrl dan knp kl tdk ada racun reaksi mirna saat minum kopi kek abis minum minuman yg ga enak dan kya kpanasan gtu kyaknya emg ada yg ga beres sm minumannya tp you gatau itu knp kl dr djaja mngatakan itu bkn sianida bisa aja racun lie kan"
## [83] "lessfearnoteraf tanyakanrl saya tidak bilang kalau jessica tidak bersalah you"
## [84] "ireine vousmecollins tanyakanrl lagi ahli toxicology universitas indonesia melakukan uji coba pada racun sianida dan menemukan fakta bahwa sianida akan berubah jadi gas kalau bertemu benda cair di hasil sidang awal dikatakan gr sianida ditemukan have"
## [85] "aimocchitarot tanyakanrl kamu baca amp lihat ga hasil otopsi dan keterangan ahli bahwa yg bunuh mirna itu bener racun sianida"
## [86] "cupapusy karenaaing eunoiakai tanyakanrl beliau dosen amp ahli di bidangnya tapi bukan ahli bidang toksikologi kan dr djaja yang udah ahli kedokteran forensik dan toksikologi aka ilmu tentang racun sudah bilang"
## [87] "vousmecollins xyzapf tanyakanrl dokter spesialis forensik yang menjadi saksi ahli"
## [88] "xyzapf tanyakanrl udah terbukti racun kok"
## [89] "terpidana kasus pembunuhan wayan mirna salihin dengan racun sianida"
## [90] "yeonpilpencil ikr padahal banyakan praduga😭 you okay kalo emang j yg bunuh"
## [91] "film ice cold ramai diperbincangkan"
## [92] "nanasubak yogahaha eunoiakai tanyakanrl nacn emang salah satu jenis sianida yg bentuknya padat dan berbahaya kalo ketelen"
## [93] "welovewoo tanyakanrl tapi dari bap saksi cara mengibas mulut dan pingsan seketika tidak bisa disangkal kan walaupun tidak ditemukan bisa saja racun lie jadi topik disini jangan melihat jessica bukan pelaku tapi bisa saja jessica memasukan racun lie t"
## [94] "karenaaing eunoiakai tanyakanrl lah walaupun mirna ini punya penyakit misalnya tumor otak tapi kalo pa sianida ditemukan didalam lambung dan organ lainnya"
## [95] "kapitalisbarat eriemrn mentionaink tanyakanrl karena kalau tanpa autopsi semua kemungkinan bisa saja terjadi abuabu you bayangin aja sianida mg di kopi"
## [96] "film dokumenter ice cold murder"
## [97] "film ice cold ramai diperbincangkan"
## [98] "ireine dewiehheh twilightide tanyakanrl jadi"
## [99] "kapitalisbarat masganteng tanyakanrl lalu knp keluarga korban nolak otopsi pdhl jelas tubuh mirna negatif sianida knp kembaran mirna bilang mayatnya wrn biru pdhl menurut forensik jika trkena sianida warna merah knp hr ada uang amplop kpd bapak"
## [100] "kapitalisbarat masganteng tanyakanrl penjelasan scr logika logikanya aja dlm tubuhnya negatif sianida bisa aja dia ninggal krn penyakit hal lie sblmnya udah dracun dr rumah amp bereaksi stlh minum kopi"sc<-c("driver","drive","drove","driven","drives","driving")
stem_words(sc)## [1] "driver" "drive" "drove" "driven" "drive" "drive"lemmatize_words(sc)## [1] "driver" "drive" "drive" "drive" "drive" "drive"Tokenization
#pemisahan kata dalam suatu kalimat dengan
rev <- tweetsianida %>%
rev()
rev## [1] "kapitalisbarat masganteng tanyakanrl penjelasan scr logika logikanya aja dlm tubuhnya negatif sianida bisa aja dia ninggal krn penyakit hal lain sblmnya udah dracun dr rumah amp bereaksi stlh minum kopi"
## [2] "kapitalisbarat masganteng tanyakanrl lalu knp keluarga korban nolak otopsi pdhl jelas tubuh mirna negatif sianida knp kembaran mirna bilang mayatnya wrn biru pdhl menurut forensik jika trkena sianida warna merah knp hrs ada uang amplop kpd bapak"
## [3] "ireine dewiehheh twilightide tanyakanrl jadi"
## [4] "film ice cold ramai diperbincangkan"
## [5] "film dokumenter ice cold murder"
## [6] "kapitalisbarat eriemrn mentionaink tanyakanrl karena kalau tanpa autopsi semua kemungkinan bisa saja terjadi abuabu ya bayangin aja sianida mg di kopi"
## [7] "karenaaing eunoiakai tanyakanrl lah walaupun mirna ini punya penyakit misalnya tumor otak tapi kalo pas sianida ditemukan didalam lambung dan organ lainnya"
## [8] "welovewoo tanyakanrl tapi dari bap saksi cara mengibas mulut dan pingsan seketika tidak bisa disangkal kan walaupun tidak ditemukan bisa saja racun lain jadi topik disini jangan melihat jessica bukan pelaku tapi bisa saja jessica memasukan racun lain t"
## [9] "nanasubak yogahaha eunoiakai tanyakanrl nacn emang salah satu jenis sianida yg bentuknya padat dan berbahaya kalo ketelen"
## [10] "film ice cold ramai diperbincangkan"
## [11] "yeonpilpencil ikr padahal banyakan praduga😭 ya ok kalo emang j yg bunuh"
## [12] "terpidana kasus pembunuhan wayan mirna salihin dengan racun sianida"
## [13] "xyzapf tanyakanrl udah terbukti racun kok"
## [14] "vousmecollins xyzapf tanyakanrl dokter spesialis forensik yang menjadi saksi ahli"
## [15] "cupapusy karenaaing eunoiakai tanyakanrl beliau dosen amp ahli di bidangnya tapi bukan ahli bidang toksikologi kan dr djaja yang udah ahli kedokteran forensik dan toksikologi aka ilmu tentang racun sudah bilang"
## [16] "aimocchitarot tanyakanrl kamu baca amp lihat ga hasil otopsi dan keterangan ahli bahwa yg bunuh mirna itu bener racun sianida"
## [17] "ireine vousmecollins tanyakanrl lagi ahli toxicology universitas indonesia melakukan uji coba pada racun sianida dan menemukan fakta bahwa sianida akan berubah jadi gas kalau bertemu benda cair di hasil sidang awal dikatakan gr sianida ditemukan d"
## [18] "lessfearnoteraf tanyakanrl saya tidak bilang kalau jessica tidak bersalah ya"
## [19] "xxylone tanyakanrl dan knp kl tdk ada racun reaksi mirna saat minum kopi kek abis minum minuman yg ga enak dan kya kpanasan gtu kyaknya emg ada yg ga beres sm minumannya tp ya gatau itu knp kl dr djaja mngatakan itu bkn sianida bisa aja racun lain kan"
## [20] "tanyakanrl gamau di otopsi"
## [21] "aimocchitarot tanyakanrl kamu blng klo bs jaa dgn media yg lain"
## [22] "httpstcocyyh djwmp bgmnpun sy lbh percaya dg polisi"
## [23] "sebelum terjadinya kasus kopi sianida"
## [24] "psikutt kegblgnunfaedh dompetnya tebel tapi kalo ga punya riwayat kerja di bidang farmasi"
## [25] "sardenmili anythingforkyr tanyarlfes betul"
## [26] "diantaratitik partaisocmed fix kamu ga baca putusan"
## [27] "kapitalisbarat gforgea baddassauvignon eriemrn mentionaink tanyakanrl beginiskg kita tdk bsa dgn jelas tau kematiannya disebabkan apa dikrnakan tdk dilakukan otopsi scra menyeluruh klau korban meninggalnya bkn krna racun gmn karna hnya dibiopsi"
## [28] "khusus sianida cn yang dilambung memang hanya"
## [29] "sianida adalah racun mematikan"
## [30] "iamblue akoriekorie tanyakanrl minuman dingin itu suhunya brapa kemungkinan menguap ada"
## [31] "pixydust elaynekai hah gimana dia design grafis tapi kerja farmasi ya ga bisa terus kalau emg dia browser cara gunain sianida udh terbukti blm dia beli dan pakai sianida kan trmsk racun berbahaya dan ga bs semua org bisa beli like how"
## [32] "psikutt tanyakanrl mau dgn jenis racun apapun"
## [33] "partaisocmed jessica punya riwayat browsing cari penggunaan racun sianida"
## [34] "pagi racun sianida wkakwk"
## [35] "edi darmawan ayah mirna salihin perlihatkan bukti sakti rekaman cctv saat jessica wongso taruh racun sianida ke gelas kopi httpstcohe h pznaa"
## [36] "xwonuu racun tikus dibubuhi sedikit sianida"
## [37] "mainvillain tanyakanrl harusnya dokternya juga bs jelasin kejang nya mirna saat habis minum kopi sampai dari mulut keluar busa itu apa lalu bau kopi yg menyengat dan pahit itu apa klo bukan sianida"
## [38] "lessfearnoteraf tanyakanrl tdk ditemukan tiosinat di hati dan urine"
## [39] "kiyaimarufamin assalamualikum pa wapres tolong bantu buka kembali kasus racun sianida jessica wongso"
## [40] "bigmasuu tanyakanrl yang kamu sebutin juga termasuk tapi tetep kalau hasil sampel pertama ga ditemukan sianida berarti mustahil ga menutup kemungkinan juga sebenernya bisa jadi racun yg lain atau kemungkinan kemungkinan lain yang terlewat itu yg aku m"
## [41] "natrium tanpa sianida setau gua bukan racun sih"
## [42] "pak wamen kemenkumhamri memenjarakan orang tanpa outopsi"
## [43] "how if mirna emang diracun tapi racun nya bukan sianida makannya dokter djaja gak liat ciriciri sianida"
## [44] "jjaeyumixx cersmoi partaisocmed reaksi ini melibatkan enzim bernama rhodanase yang ada dalam hati rhodanase mengkatalisis konversi ion sianida menjadi scn itu reaksi mutlak ketika racun jenis cn alias dari nacn kalo melebihi dosis tapi tidak ada sc"
## [45] "kalo orang meninggal tiba tiba bukan karena penyakit"
## [46] "fleurschery kak kira tau gak"
## [47] "twominuswone kembarannyabora vldzhrn vellionx tubirfess dalam proses konversi"
## [48] "cersmoi partaisocmed nacn hcl hcn nacl nacn racun garam sianida yg dipake jessica hcl asam kloridaasam lambung yg di hasilkan dr sel parietal di dinding lambung hcn hidrogen sianidagas yg dipake nazi buat holocaust nacl garam murni"
## [49] "hilarlo partaisocmed dah pada tau kali riwayatnya pas dijabarin semua lebih baik skeptis kepada yang menangani kasusnya bang"
## [50] "penyebab kematiannya bkn racun sianida dan pelakunya bikan jessica"
## [51] "marwanfc partaisocmed gw tetap yakin kl jes lah pembunuh nya karna udah ada percobaan ahli soal pencampuran kopi dan sianida"
## [52] "trs ada yg blg atas dasar apa anda blg lambung merah itu salah lah diakan dokter yg meneliti sianida😭 kita aja paham ye mksdnya dr djaja klo korban racun sianida hampir semuanya berubah jd warna merah terang dari darah"
## [53] "meski umunya sianida dikenal sebagai racun"
## [54] "nah skrg kalo gk otopsi"
## [55] "dr djaja singgung racun sianida ternyata banyak dikonsumsi orang indonesia secara tidak sadar"
## [56] "convomf racun aja nder kakanya pake sianida tuman 🙏"
## [57] "dan selama dia diundang di podcast kaga ada satupun yang nanyain perihal kemungkinan racun lain selain sianida😂🗿 emg nyari cuan aje ni yutuber wkwk pdhl w penasaran"
## [58] "skrg lagi rewatch sidangnya tbtb gw ngakak sendiri krn ngeliat muka si j🤣 j b lyk ah elu pada ngeributin sianida"
## [59] "pasokonotaku mati karena nacn kak maaf banget tapi nacn itu natrium sianida kalo dlm tubuh sdh terurai jadi ion na cn"
## [60] "fluppyhoonie mauvejy bener banget terus dikasih racun sianida"
## [61] "drama ice cold"
## [62] "chifkalong sianida racun tikus"
## [63] "nih berita tempo httpstco rtqedyigj biar klen tau siapa yg ngide racun sianida ini"
## [64] "polisiidol admin nya siapa si mo gua racun pke sianida gak"
## [65] "garagara kasus sianida meruak kembali"
## [66] "alvitaarumdati andhikaswn narasinewsroom mirna ga keracunan sianida mungkin racun yg lain"
## [67] "boikiboiki buka dong casing nya"
## [68] "tanyarlfes bukan masalah pro atau kontra"
## [69] "mfahrozi oke"
## [70] "otopsi ulang krn terbukti ditubuh m gk ada sianida awalnya"
## [71] "berpihak pdhl harusnya netral sebagai penyidik yg nyari bukti"
## [72] "racun sianida"
## [73] "kejanggalan kasus mirna shalihin yang diracuni jessica wongso dengan racun sianida shorts videoviral fyp attentat indvspak httpstcoaviveo yu"
## [74] "tdk di otopsi gt diotopsi kok gt partial otopsi 🛠 mati krn racun sianida gt negatif sianida gt ada mg sianida gt natrium sianida krn dlm tubuhnya ada mg sianida dan ion natrium jd kesimpulannya natrium sianida 🫠"
## [75] "skrg lg demam sianida"
## [76] "lyu wkwk aku kasih racun sianida aja deh😭"
## [77] "sehutf jonmwon kakak jennie racun apa sianida"
## [78] "andyhusky mana tau dalam daging itu ada racun sianida 😃"
## [79] "chimmy andhikaswn narasinewsroom pertama racun dikirim ke puslabfor hasilnya sianida negatif muntahan itu masih hidup enggak ada siandia yg diambil tadi darah"
## [80] "sianida adalah racun yang bekerja cepat dan dapat mematikan racun ini sering ditemukan di serialserial detektif dan juga dunia nyata httpstcoq x glawye httpstcoum qqa zf"
## [81] "curiga"
## [82] "darmawan salihin ngaku beri napas buatan ke mirna"
## [83] "penyefongmlbb psikopat kayaknya yg bikin gw kaget racun kyk sianida itu bisa dibeli bebas 😅"
## [84] "beastsnharlot masalah sedotan ini muncul gegara ada doktor theo s kimia lulusan jerman yg diwawancara inews urusan masukin sianida via sedotan gak dibahas di persidangan lagian racun yg dimasukkin kan katanya gram"
## [85] "mengenal racun sianida yang bikin heboh di film ice cold sianida jessicawongso mirnasalihin kopisianida singkong racun mediaindonesia referensibangsa httpstcopzjcvcas m"
## [86] "nah ini baru benar"
## [87] "vivacoid kalo prabowo dan gerindra mengambil gibrantweet jadi cawapres saya pastikan ganjarpranowo dan anisbaswedan tinggal suit aja siapa yg akan di lantik tanggal oktober nanti hahahahaha ingat pak prabowo anda orang lurus"
## [88] "kilas balik kasus kematian munir karena racun arsenik dan mirna akibat racun sianida httpstcoe koqelo r temponasional"
## [89] "ainunnajib poling ini ibarat ngasih pilihan di suruh minum racun sianida atau atau digigit ular laut"
## [90] "foodfess cium baunya kayak bau racun sianida"
## [91] "tumben"
## [92] "evywahudy kegblgnunfaedh dusta ndasmu"
## [93] "waktu itu goebbels dan istrinya memberikan racun sianida untuk anak anaknya sebelum kemudian bunuh diri dilakukan dg imaginasi tidak bisa membayangkan hidup dimasa depan tanpa nazi dan hitler mirip alesanya mahasiswa itu tidak dpt membayangkan tanpa dipimpin"
## [94] "aiekspeechless dennysiregar airantiereal alnilamomar aynienaja dyahnezza daliliem hamidahnadya mantanajja humairah ge te gaknyerahbro denny kebingungan"
## [95] "kegblgnunfaedh ingat kasus sianida polisi dr puslabfor pd demo sianida ada aiman hadir amp ini jd pembelaan para org yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman amp dr djaya sempat bilang gak mungkin itu sianida 🕧"
## [96] "gunromli mulutmu penuh racun sianida"
## [97] "tyreseblooming tehnya mau ditambah sianida apa racun tikus"
## [98] "basebdg rek di racun sianida"
## [99] "thepiscesy audy lu mau gue racun pake sianida kah bikin emosi aja berak httpstcooza mmaolu"
## [100] "racun mematikan di dunia"#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] "kapitalisbarat masganteng tanyakanrl penjelasan scr logika logikanya aja dlm tubuhnya negatif sianida aja dia ninggal krn penyakit hal lain sblmnya udah dracun dr rumah amp bereaksi stlh minum kopi"
## [2] "kapitalisbarat masganteng tanyakanrl lalu knp keluarga korban nolak otopsi pdhl jelas tubuh mirna negatif sianida knp kembaran mirna bilang mayatnya wrn biru pdhl menurut forensik jika trkena sianida warna merah knp hrs ada uang amplop kpd bapak"
## [3] "ireine dewiehheh twilightide tanyakanrl jadi"
## [4] "film ice cold ramai diperbincangkan"
## [5] "film dokumenter ice cold murder"
## [6] "kapitalisbarat eriemrn mentionaink tanyakanrl karena tanpa autopsi semua kemungkinan saja terjadi abuabu ya bayangin aja sianida mg kopi"## menyimpan data yang bersih
write.csv(rev,file = "C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/datasianida.csv", row.names = F) TermDocumenMatrix
tdm <- TermDocumentMatrix(rev)
m <- as.matrix(tdm)
View(m)
v <- sort(rowSums(m),decreasing = TRUE)WordCloud
d <- data.frame(word = names(v), freq = v)
wordcloud(d$word, d$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
tdm <- TermDocumentMatrix(rev,
control = list(wordLengths = c(1, Inf)))Frequency Matrix
# inspect frequent words
(freq.terms <- findFreqTerms(tdm, lowfreq = 10))## [1] "sianida" "tanyakanrl" "ada" "mirna" "tapi"
## [6] "racun" "yg" "ga"term.freq <- rowSums(as.matrix(tdm))
term.freq <- subset(term.freq, term.freq >= 10)
df <- data.frame(term = names(term.freq), freq = term.freq)
ggplot(df, aes(x = term, y = freq)) + geom_bar(stat = "identity") +
xlab("Terms") + ylab("Count") + coord_flip()
# which words are associated with 'r'?
findAssocs(tdm, "sianida", 0.2)## $sianida
## diotopsi gt kesimpulannya partial 🛠
## 0.63 0.63 0.63 0.63 0.63
## 🫠 natrium krn mg jd
## 0.63 0.60 0.59 0.58 0.55
## tubuhnya mati ada negatif dlm
## 0.47 0.47 0.45 0.43 0.41
## ion otopsi kok racun org
## 0.41 0.40 0.39 0.37 0.30
## awal benda bertemu cair coba
## 0.27 0.27 0.27 0.27 0.27
## d dikatakan fakta gas gr
## 0.27 0.27 0.27 0.27 0.27
## melakukan menemukan sidang toxicology uji
## 0.27 0.27 0.27 0.27 0.27
## universitas aiman demo dihukum djaya
## 0.27 0.27 0.27 0.27 0.27
## dpn hadir isilop mmng para
## 0.27 0.27 0.27 0.27 0.27
## pd pembelaan sempat ttp 🗢
## 0.27 0.27 0.27 0.27 0.27
## bahwa berubah indonesia lagi how
## 0.22 0.22 0.22 0.22 0.22
## mungkin puslabfor amp dr
## 0.22 0.22 0.20 0.20remove sparse terms
tdm2 <- removeSparseTerms(tdm, sparse = 0.95)
m2 <- as.matrix(tdm2)distMatrix <- dist(scale(m2))
fit <- hclust(distMatrix, method = "ward")## The "ward" method has been renamed to "ward.D"; note new "ward.D2"fit##
## Call:
## hclust(d = distMatrix, method = "ward")
##
## Cluster method : ward.D
## Distance : euclidean
## Number of objects: 20plot(fit)
rect.hclust(fit, k = 2) # cut tree into 6 clusters
Analisis Cluster K-Means
#Cluster k-means
m3 <- t(m2) # transpose the matrix to cluster documents (tweets)
set.seed(122) # set a fixed random seed
k <- 2 # number of clusters
kmeansResult <- kmeans(m3, k)
round(kmeansResult$centers, digits = 3) # cluster centers## aja dr kopi lain sianida tanyakanrl ada mirna otopsi jadi ditemukan
## 1 0.083 0.036 0.083 0.06 0.524 0.202 0.06 0.083 0.048 0.048 0.048
## 2 0.125 0.312 0.062 0.25 1.812 0.312 0.75 0.375 0.250 0.125 0.125
## kalo tapi bukan jessica racun yg kasus ga partaisocmed
## 1 0.095 0.071 0.071 0.095 0.488 0.095 0.071 0.024 0.048
## 2 0.062 0.250 0.062 0.062 1.000 0.938 0.062 0.500 0.125for (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: sianida racun tanyakanrl kalo jessica
## cluster 2: sianida racun yg ada ga