UAS KOMPUTASI
SYARLAH ULFIANTY
E0221304
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/Tugas PRA UAS/TUGAS SALLA TERM MATRIKS")
Datasianida<- read.csv("sianida.csv")
rev<-Datasianida$full_text
head(rev)## [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 😅"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] "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 😅"Mengembalikan Kata yang disingkat Menjadi Kata Aslinya.
#contraction
rev <- replace_contraction(rev)
head(rev)## [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 😅"“replace_word_elongation” Fungsi ini berfungsi untuk menggantikan kata-kata yang memiliki elongasi (pemakaian berulang dari huruf yang sama, misalnya “haaaappppyyyyy”) dengan bentuk yang lebih singkat.Atau dapat diartikan mengembalikan kata yang mengalami perpanjangan menjadi kata asliya.
#elongasi
rev <- replace_word_elongation(rev)
head(rev)## [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 😅"Menghilangkan karakter khusus, tanda baca, atau simbol yang tidak diperlukan agar fokus pada makna dasar teks.
#Menghapus simbol
rev <- strip(rev)
head(rev)## [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 🕧"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] "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 jd bukti konkritnya ada nacl berlebih di lambung"
## [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 scn dalam hati dan urin"
## [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 maksud"
## [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 dan ditmukan sianida mg stlh hri kmatiannya bhkan mnt kematiannya tdk ditemukan sianida itu"
## [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 tp gayakin jg kl jess yg naruh ahh bingung"
## [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 di kopi kata ahli aja minim satu ruangan disana pingsan"
## [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 tapii hasil temuan digela jl sianida"
## [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 indragiri knp bapaknya mirna ada botol racun terlalu kebetulan"
## [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(rev)## [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 jd bukti konkritnya ada nacl berlebih di lambung"
## [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 scn dalam hati dan urine"
## [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 maksud"
## [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 dan ditmukan sianida mg stlh hri kmatiannya bhkan mnt kematiannya tdk ditemukan sianida itu"
## [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 tp gayakin jg kl jess yg naruh ahh bingung"
## [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 di kopi kata ahli aja minim satu ruangan disana pingsan"
## [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 tapii hasil temuan digelas jls sianida"
## [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 indragiri knp bapaknya mirna ada botol racun terlalu kebetulan"
## [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"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] "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 indragiri knp bapaknya mirna ada botol racun terlalu kebetulan"
## [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"#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 indragiri knp bapaknya mirna ada botol racun terlalu kebetulan"
## [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"write.csv(rev,file = "C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/Tugas PRA UAS/TUGAS SALLA TERM MATRIKS/databersihsianidaa.csv",row.names = F,) Menggunakan fungsi write.csv untuk menulis data yang telah dibersihkan ke dalam file CSV. File CSV tersebut kemudian disimpan di lokasi yang di tentukan, yaitu “C:/Users/ASUS/Documents/SEMESTER 5/Komputasi Statistik Lanjutan/databersihcawapres.csv”.
4.Visualisasi dengan Word Cloud
Word Cloud adalah representasi visual dari frekuensi kata. Ini adalah alat yang berguna untuk mengidentifikasi fokus materi tertulis. Word Cloud untuk tweet data “Pilpres” ditunjukkan di bawah ini.
Membuat Term Document Matriks
#Mengubah Data Frame Menjadi Data Faktor
tdm <- TermDocumentMatrix(rev)
m <- as.matrix(tdm)
View(m)
v <- sort(rowSums(m),decreasing = TRUE)Membuat Word Cloud
d <- data.frame(word = names(v), freq = v)
wordcloud(d$word, d$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
Semakin sering istilah tersebut muncul dalam teks, semakin besar kata
tersebut muncul dalam gambar. Word Cloud tersebut menunjukkan bahwa
“Prabowo” dan “demokrat”, adalah dua kata yang paling penting.Dari kata
“menangkan”,“prabowo”menunjukkan bahwa banyak kata kata positif atau
tweet positif terhadap prabowo.
#menyimpan hasil term matriks ke variabel Tdm
tdm <- TermDocumentMatrix(rev,
control = list(wordLengths = c(1, Inf)))
tdm## <<TermDocumentMatrix (terms: 787, documents: 100)>>
## Non-/sparse entries: 1323/77377
## Sparsity : 98%
## Maximal term length: 16
## Weighting : term frequency (tf)1.Jumlah Kata (Terms): TDM ini memiliki 2043 kata unik (terms). 2.Jumlah Dokumen (Documents): Terdapat 603 dokumen dalam corpus yang digunakan untuk membuat TDM. 3.Entri Non-/Sparse:Terdapat 7482 entri non-nol dalam matriks dari kemungkinan 1.224.447 entri. Ini menunjukkan bahwa matriks ini sangat tersebar, dan banyak hubungan kata-dokumen memiliki nol kemunculan. 4.Sparsity: Kejarangan (sparsity) matriks ini adalah 99%, menunjukkan bahwa 99% dari entri adalah nol. Ini adalah sesuatu yang umum terjadi pada data teks di mana kebanyakan kata tidak muncul di sebagian besar dokumen. 5.Panjang Kata Maksimal: Panjang maksimal dari sebuah kata adalah 24 karakter. 6.Weighting: Weighting scheme yang digunakan untuk mengisi sel-sel matriks adalah term frequency (tf), yang berarti bahwa bobot suatu kata di dalam dokumen diberikan berdasarkan frekuensinya
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] "sianida" "racun"term.freq <- rowSums(as.matrix(tdm))
term.freq <- subset(term.freq, term.freq >= 50)
df <- data.frame(term = names(term.freq), freq = term.freq)
ggplot(df, aes(x = term, y = freq)) + geom_bar(stat = "identity") +
xlab("Terms") + ylab("Count") + coord_flip()
Dari Barplot di atas kata yang paling sering muncul dari teet data pilpres adalah kata “Prabowo”
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: 20plot(fit)
rect.hclust(fit, k = 2) # cut tree into 6 clusters
Dengan melihat selisih terpanjang dari gambar diatas terlihat bahwa
pemotongan yang tepat akan menghasilkan 2 cluster, dimana pada cluster 1
sebanyak 20 Word dan cluster 2 sebanyak 12 Word.
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## aja dr kopi lain sianida tanyakanrl ada mirna otopsi racun jadi
## 1 0.085 0.037 0.085 0.037 0.537 0.183 0.061 0.085 0.037 0.463 0.037
## 2 0.167 0.278 0.111 0.333 1.778 0.389 0.778 0.389 0.278 1.111 0.167
## ditemukan kalo tapi bukan jessica yg kasus ga partaisocmed
## 1 0.037 0.098 0.049 0.061 0.073 0.098 0.073 0.024 0.049
## 2 0.222 0.056 0.333 0.111 0.167 0.889 0.056 0.444 0.111for (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 yg /ncluster 2: sianida racun yg ada ga /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/Tugas PRA UAS/TUGAS SALLA TERM MATRIKS")
# import data dari excel (.csv)
dataaa <- read.csv('databersihsianida.csv')
View(dataaa)Buat DataFrame hanya untuk komentar positif
Membuat dataframe yang berisi tweet positif
komentar_positif <- dataaa %>%
filter(y == "Positive")
komentar_positif## x
## 1 film ice cold ramai diperbincangkan, usai mengulik lagi kasus kopi sianida jessica wongso. sianida umumnya dikenal sebagai racun mematikan. https://t.co/0jj5fhmwhx
## 2 @kapitalisbarat @eriemrn @mentionaink @tanyakanrl karena tanpa autopsi semua kemungkinan saja terjadi (abu-abu). ya bayangin aja sianida 7000 mg kopi, kenapa jessica nya ga pingsan pas masukin tuh racun wkwk.. hani, manager cafe juga sempat cicipin kopinya kondisinya baik2 saja.
## 3 film ice cold ramai diperbincangkan, usai mengulik lagi kasus kopi sianida jessica wongso. sianida umumnya dikenal sebagai racun mematikan. https://t.co/81rkcbwqnt
## 4 terpidana kasus pembunuhan wayan mirna salihin racun sianida, jessica kumala wongso kembali menjadi perbincangan publik usai dirilisnya film dokumenter ice cold: murder, coffee and jessica wongso platform netflix. https://t.co/ckxv8vrmzu https://t.co/7jbjzuxudd
## 5 @xyz_apf @tanyakanrl udah terbukti racun kok, lambungnya aja korosi. cmn apakah sianida atau ga belom diketahui. tapi bukti nyata udah kuat mengatakan racun. racun yg dikonsumsi tubuh beredar ke saluran yg dilewati bukan tubuh.
## 6 @vousmecollins @xyz_apf @tanyakanrl dokter spesialis forensik menjadi saksi ahli, slamet purnomo meyakini wayan mirna salihin meninggal dunia karena meminum sesuatu berisi racun sianida.
## 7 @aimocchitarot1 @tanyakanrl kamu baca & lihat ga hasil otopsi keterangan ahli bahwa yg bunuh mirna bener 100% racun sianida, jgn ke makan framing team pengacara terdakwa pemberitaan media2 bayaran. dari otopsi pertama pihak polri memvonis mirna diracun sianida dr hasil otopsi.
## 8 @lessfearnoteraf @tanyakanrl saya tidak bilang jessica tidak bersalah ya, saja mirna racun racun jenis lainnya. tapi lagi diomongin kan sianida. dalam gelas pun adanya sianida. tapi masalahnya tubuh mirna gak ada sianida, kalaupun emang racun jenis lain harusnya diselidiki lagi
## 9 https://t.co/cyyh7djwmp bgmnpun sy lbh percaya dg polisi,jaksa & saksi ahli dikasus kopi sianida dg korban meninggal wayan mirna salihin. iya hy krn org ga lht jessica m'bubuhkan racun ke dlm kopi. trs rame2 bilang jessica bknlah pelakunya. empati blh tapi utamakan logika
## 10 sebelum terjadinya kasus kopi sianida, jessica sempat menonton film the hateful eight & mencari tahu tentang racun sianida dilaptopnya.
## 11 @psikutt @kegblgnunfaedh dompetnya tebel tapi kalo ga punya riwayat kerja bidang farmasi, pernah browsing tentang penggunaan racun sianida, & punya riwayat 14 catatan kepolisian, juga gak bakalan terlalu dianggap mencurigakan. 🤭
## 12 @diantaratitik @partaisocmed fix kamu ga baca putusan, tapi bilang orang lain goblok wkwkwk klo baca putusannya ga sampe pertengahan udah dilampirkan hasil otopsi (secara parsial) bahwa kandungan ion sianidanya 0,2 mg tapi ingat jenis racun nya natrium sianida (nacn) = 298 mg
## 13 @kapitalisbarat @gforgea @baddassauvignon @eriemrn @mentionaink @tanyakanrl begini...skg kita tdk bsa dgn jelas tau kematiannya disebabkan dikrnakan tdk dilakukan otopsi scra menyeluruh. klau korban meninggalnya bkn krna racun gmn? karna hnya dibiopsi ditmukan sianida 0.2mg stlh 3hri kmatiannya. bhkan 70mnt kematiannya tdk ditemukan sianida .
## 14 khusus sianida (cn) dilambung memang hanya 0,2 mg, tapi ingat jenis racun membunuh mirna adalah natrium sianida (nacn), kadar natriumnya 900 mg. memang saya tidak paham racun-meracun tapi kesimpulan dari 2 dokter mem-visum adalah kandungan nacn melebihi dosis aman.
## 15 sianida adalah racun mematikan, dapat berbentuk gas, padat atau cairan tidak berwarna. orang dapat terpapar sianida, paling mudah menghirupnya. https://t.co/lcorvkzrmm
## 16 edi darmawan ayah mirna salihin perlihatkan bukti sakti rekaman cctv jessica wongso taruh racun sianida ke gelas kopi. https://t.co/he6h6pznaa
## 17 @kiyai_marufamin assalamualikum pa wapres. tolong bantu buka kembali kasus racun sianida jessica wongso,... sangat yakin dia tidak bersalah pak... dia dizolimi, jgn dibiarkan pak wapres... 7 tahun dia dpenjara dia tetap tdk mau minta grasi...krn merasa berbuat yg dituduhkan.🙏🙏
## 18 @bigmasuu @tanyakanrl kamu sebutin juga termasuk tapi tetep hasil sampel pertama ga ditemukan sianida berarti mustahil. ga menutup kemungkinan juga sebenernya jadi racun yg lain atau kemungkinan kemungkinan lain terlewat. yg aku maksud
## 19 pak wamen @kemenkumham_ri memenjarakan orang tanpa outopsi,bukti racun sianida baru ada setelah 3 hari sample cairan lambung sementara waktu meninggal puslabfor tidak menemukan sianida tapi tukak lambung. tanpa bukti langsung tapi asumsi anda penjarakan 20 tahun?zalim .
## 20 how if mirna emang diracun tapi racun nya bukan sianida? makannya dokter djaja gak liat ciri-ciri sianida, kan aja racun lain, cek berbagai kemungkinan lewat otopsi adalah kunci.
## 21 @fleurschery kak kira2 tau gak, kenapa dari hasil sample lambung, racun yg ditemukan cuman sianida?? gak terdeteksi kemungkinan ada racun jenis lain?? atau emang mereka cuman nguji khusus sianida aja...ada atau gak lambung. soalnya masih bingung dgn kata hani yg blg rasa kopinya 🤔
## 22 penyebab kematiannya bkn racun sianida pelakunya bikan jessica
## 23 3. nah skrg kalo gk otopsi, dr mana tau kalo korban diracun sianida? kenapa dr sekian banyak racun n obat yg jd pybb, spesifik nunjuk ke sianida? dasarnya? oke sy msh posthink, mgkn krn ada yg liat lebam cherry red. tapi kenapa saksi2 lain, tmsk sodara korban blg biru?
## 24 gara-gara kasus sianida meruak kembali, gue jadi tahu nama racun dipake buat bunuh socrates tahun 339 sm. hemlock!
## 25 @tanyarlfes bukan masalah pro atau kontra, tapi keadilan harus ditegakkan, ga ada bukti racun sianida yg cukup mematikan tubuh mirna ya harusnya kasusnya dikaji ulang
## 26 otopsi ulang krn terbukti ditubuh m gk ada sianida awalnya,kalo yakin diracun ya cari aja jenis racun lain ditubuh m, kok malah pihak j yg dibilang takut,harusnya keluarga m kyk keluarga brig joshua minta otopsi ulang krn hasil otopsi pertama masih kurang jelas, polisi jg kyk
## 27 @lyyuuu__ wkwk aku kasih racun sianida aja deh😭
## 28 @andyhuskyyy mana tau dalam daging ada racun sianida 😃
## 29 sianida adalah racun bekerja cepat dapat mematikan. racun sering ditemukan serial-serial detektif juga dunia nyata! https://t.co/q5x1glawye https://t.co/um4qqa5zf0
## 30 mengenal racun sianida bikin heboh film ice cold #sianida #jessicawongso #mirnasalihin #kopisianida #singkong #racun #mediaindonesia #referensibangsa https://t.co/pzjcvcas8m
## 31 tumben, pasti isinya gak sianida racun tikus ya?
## 32 @aiek_speechless @dennysiregar7 @airantiereal @alnilamomar @aynie_naja @dyahnezza @daliliem8 @hamidah_nadya @mantan_ajja @humairah_922 @ge1te @gaknyerah_bro denny kebingungan, dia sibuk ngurusin jokowi gibran luar prediksinya...racun tikus sajam mungkin ngga menarik bagi dia.....ada pilihan lain, kopi sianida😂😂😂
## 33 @gunromli mulutmu penuh racun sianida , semoga kau dapat hidayah
## y
## 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 Positive
## 24 Positive
## 25 Positive
## 26 Positive
## 27 Positive
## 28 Positive
## 29 Positive
## 30 Positive
## 31 Positive
## 32 Positive
## 33 Positivekomentar_positif <-komentar_positif$x
head(komentar_positif)## [1] "film ice cold ramai diperbincangkan, usai mengulik lagi kasus kopi sianida jessica wongso. sianida umumnya dikenal sebagai racun mematikan. https://t.co/0jj5fhmwhx"
## [2] "@kapitalisbarat @eriemrn @mentionaink @tanyakanrl karena tanpa autopsi semua kemungkinan saja terjadi (abu-abu). ya bayangin aja sianida 7000 mg kopi, kenapa jessica nya ga pingsan pas masukin tuh racun wkwk.. hani, manager cafe juga sempat cicipin kopinya kondisinya baik2 saja."
## [3] "film ice cold ramai diperbincangkan, usai mengulik lagi kasus kopi sianida jessica wongso. sianida umumnya dikenal sebagai racun mematikan. https://t.co/81rkcbwqnt"
## [4] "terpidana kasus pembunuhan wayan mirna salihin racun sianida, jessica kumala wongso kembali menjadi perbincangan publik usai dirilisnya film dokumenter ice cold: murder, coffee and jessica wongso platform netflix. https://t.co/ckxv8vrmzu https://t.co/7jbjzuxudd"
## [5] "@xyz_apf @tanyakanrl udah terbukti racun kok, lambungnya aja korosi. cmn apakah sianida atau ga belom diketahui. tapi bukti nyata udah kuat mengatakan racun. racun yg dikonsumsi tubuh beredar ke saluran yg dilewati bukan tubuh."
## [6] "@vousmecollins @xyz_apf @tanyakanrl dokter spesialis forensik menjadi saksi ahli, slamet purnomo meyakini wayan mirna salihin meninggal dunia karena meminum sesuatu berisi racun sianida."Membuat Word Cloud komentar Positif
Mengubah Data Frame Menjadi Data Faktor
tdm_pos <- TermDocumentMatrix(komentar_positif)
tdm_pos## <<TermDocumentMatrix (terms: 529, documents: 33)>>
## Non-/sparse entries: 811/16646
## Sparsity : 95%
## Maximal term length: 23
## Weighting : term frequency (tf)m_pos <- as.matrix(tdm_pos)
View(m_pos)v_pos <- sort(rowSums(m_pos),decreasing = TRUE)
head(v_pos)## racun sianida tapi jessica mirna otopsi
## 38 31 15 12 11 8#Mengubah Data Faktor Menjadi Data Frame
d_pos <- data.frame(word = names(v_pos), freq = v_pos)
head(d_pos)## word freq
## racun racun 38
## sianida sianida 31
## tapi tapi 15
## jessica jessica 12
## mirna mirna 11
## otopsi otopsi 8wordcloud(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: 556, documents: 33)>>
## Non-/sparse entries: 863/17485
## Sparsity : 95%
## Maximal term length: 23
## Weighting : term frequency (tf)inspect frequent words
(freq.terms <- findFreqTerms(tdm_positif, lowfreq = 10))## [1] "jessica" "racun" "sianida" "ga" "mirna" "tapi" "yg"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(y == "Negative")
komentar_negatif<-komentar_negatif$x
komentar_negatif## [1] "@kapitalisbarat @masganteng_69 @tanyakanrl penjelasan scr logika? logikanya aja dlm tubuhnya Negative sianida aja dia ninggal krn penyakit/ hal lain / sblmnya udah dracun dr rumah & bereaksi stlh minum kopi, bapaknya mirna pernah keceplosan punya botol racun juga."
## [2] "@kapitalisbarat @masganteng_69 @tanyakanrl lalu knp keluarga korban nolak otopsi pdhl jelas tubuh mirna Negative sianida? knp kembaran mirna bilang mayatnya wrn biru pdhl menurut forensik jika trkena sianida warna merah ? knp hrs ada uang amplop kpd bapak indragiri? knp bapaknya mirna ada botol racun? terlalu kebetulan"
## [3] "@ireine07 @dewi_ehheh24 @twilightide @tanyakanrl jadi, dibilang kematiannya karena sianida ya diitung ion cn- nya aja. bukan ion na+ juga. tapi ya kita juga gak tau 0,2 mg cn- dari mana. apakah memang dari racun sianida tuangkan atau dari proses pembusukan mayat."
## [4] "film dokumenter “ice cold: murder, coffee, and jessica wongso” baru-baru ditayangkan @netflixid viral jagat maya. film mengangkat kasus kematian akibat meminum kopi diberi racun jenis sianida. bagaimana publik menyoroti ? https://t.co/fnvd0eqz7h"
## [5] "@eriemrn @baddassauvignon @mentionaink @tanyakanrl sekarang misal klo otopsi benar tidak ada racun mirna, kenapa kopi ada sianida? siapa yg naroh coba hah? staf cafenya aja bilang bau, rasa warna beda"
## [6] "@karenaaing @eunoiakai @tanyakanrl lah walaupun mirna punya penyakit misalnya tumor otak. tapi kalo pas sianida ditemukan didalam lambung organ lainnya, bukannya udh hal yg aneh? karna ada barang yg ga seharusnya ada didalam tubuh. apalagi adalah racun buat tubuh,"
## [7] "@welovewoo @tanyakanrl tapi dari bap saksi cara mengibas2 mulut pingsan seketika tidak disangkal kan walaupun tidak ditemukan saja racun lain jadi topik disini jangan melihat jessica bukan pelaku tapi saja jessica memasukan racun lain tapii hasil temuan digelas jls sianida"
## [8] "@nanasubak @yogaaahaha @eunoiakai @tanyakanrl nacn emang salah satu jenis sianida yg bentuknya padat berbahaya kalo ketelen, tapi ketika masuk ke mulut yg berfungsi sebagai racun cn- (sianida bebas) jadi yg diidentifikasi tetep sianidanya. lagian kok prof hukum ngejelasin ttg kimia pasti org yg nonton bingung😭"
## [9] "@yeonpilpencil ikr padahal banyakan praduga😭 ya ok kalo emang j yg bunuh, tapi bukti konkrit beneran membuktikan dia ngebunuh manaaa? hasil otopsi? racun sianida???"
## [10] "@cupapusy @karenaaing @eunoiakai @tanyakanrl beliau dosen & ahli bidangnya. tapi bukan ahli bidang toksikologi kan? dr djaja udah ahli kedokteran forensik toksikologi aka ilmu tentang racun bilang, jelas bukan karena racun sianida dokumenter tanpa skenario. pemain jg ga dibayar. semua bilang gitu"
## [11] "@ireine07 @vousmecollins @tanyakanrl lagi ahli toxicology universitas indonesia melakukan uji coba racun sianida menemukan fakta bahwa sianida berubah jadi gas bertemu benda cair. hasil sidang awal dikatakan 15gr sianida ditemukan kopi. kata ahli aja minim satu ruangan disana pingsan"
## [12] "@xxylone @tanyakanrl knp kl tdk ada racun reaksi mirna minum kopi kek abis minum minuman yg ga enak kya kpanasan gtu. kyaknya emg ada yg ga beres sm minumannya tp ya gatau knp. kl dr djaja mngatakan bkn sianida aja racun lain kan. tp gayakin jg kl jess yg naruh ..ahh bingung"
## [13] "@tanyakanrl gamau otopsi, janggal banget. dokter yg menangani jenazah pertama kali a.k.a dr. djaja (peneliti sianida) bilang bukan sianida karena muka membiru bukan memerah akibat racun sianida 🤣🤣"
## [14] "@aimocchitarot1 @tanyakanrl kamu blng ..klo bs jaa dgn media yg lain,udah jls mirna bunuh dgn zat sianida. byk org2 ky km yg ngtweet sperti yg menyebabkan pengaburan informasi, jd km jgn smbarang ngbacot dgn opini kamu ja. jessica jls membunuh dg racun sianida, ga pake media2 yg lain."
## [15] "@sardenmili @anythingforkyr @tanyarlfes betul, ada 15 hakim berbeda jg. sidang pn, pt, ma keputusanny sama (j=tsk). kl ada yg blg mirna mnnggal bukan krn sianida, knp nuduh r (barista)? sdgkn r jelas keliatan cctv gerak2ny ga deket/nyentuh mirna. kl nuduh r logikanya r bun*h dg sianida/racun kopi jg dong."
## [16] "@partaisocmed dalam hal berlaku orang salah yakin dibanding orang benar ragu, closing podkes dia mengatakan kesalahan tim hukum j, kenapa mengatakan bukan sianida, tapi nuduh racun angga"
## [17] "@__pixydust @elaynekai hah gimana2? dia design grafis tapi kerja farmasi? ya ga . terus emg dia browser cara gunain sianida udh terbukti blm dia beli pakai? sianida kan trmsk 10 racun berbahaya ga bs semua org beli. like how?"
## [18] "@psikutt @tanyakanrl mau dgn jenis racun apapun, diambil sample pasti kelihatan. karna racun pasti tersisa lambung, diproses hati dikeluarkan urin. jd klo memang j masukin racun selain sianida, pasti ada bukti samplenya."
## [19] "@partaisocmed jessica punya riwayat browsing cari penggunaan racun sianida, background dia kerja bidang farmasi, & punya 14 catatan kasus kepolisian australia. tolol aja kalo ada yg fanatik buta tanpa sama sekali punya rasa curiga kpd orang kecenderungan psikopat macam dia. 🤭"
## [20] "@xwonuu racun tikus dibubuhi sedikit sianida."
## [21] "@mainvillain__ @tanyakanrl harusnya dokternya juga bs jelasin kejang2nya mirna habis minum kopi sampai dari mulut keluar busa ? lalu bau kopi yg menyengat pahit ? klo bukan sianida, paling ga racun ?"
## [22] "@jjaeyumixx @cersmoi @partaisocmed reaksi melibatkan enzim bernama rhodanase ada dalam hati. rhodanase mengkatalisis konversi ion sianida menjadi scn. reaksi mutlak ketika racun jenis cn- alias dari nacn kalo melebihi dosis. tapi tidak ada scn dalam hati urine"
## [23] "@twominuswone @kembarannyabora @vldzhrn @vellionx @tubirfess dalam proses konversi, ion sianida (cn-) dalam tubuh dapat diubah menjadi tiosianat (scn-) melalui proses hidrolisis. reaksi mutlak ketika racun cn- alias dari nacn kalo melebihi dosis. tapi kan tidak ada scn dalam hati urine. jadi darimana taunya kalo bener cn- berlebih?"
## [24] "@marwanfc @partaisocmed gw tetap yakin kl jes lah pembunuh nya karna udah ada percobaan ahli soal pencampuran kopi sianida, ada cctv tangan jes masukin racun kejanggalan meja cafe sblm korban datang."
## [25] "trs ada yg blg atas dasar anda blg lambung merah 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, muka, lambung, dll sdgkn jenazah mirna warna biru divisum"
## [26] "@convomf racun aja nder kakanya pake sianida. tuman 🙏"
## [27] " selama dia diundang podcast kaga ada satupun nanyain perihal kemungkinan racun lain selain sianida😂🗿 emg nyari cuan aje ni yutuber wkwk pdhl w penasaran."
## [28] "@fluppyhoonie @mauvejy bener banget terus dikasih racun sianida"
## [29] "drama ice cold, jessica sebenarnya adalah psikopat ?? | diary vlog #21 https://t.co/tjmvksctzr on @youtube #justalkmember #justalkmedia #coachjustinl #diaryciknit #psikolog #jessica #jessicamirna #icecold #kopisianida #sianida #racun #viral #psikopat #viral #fyp https://t.co/7ltwhhelqz"
## [30] "@chifkalong sianida? racun tikus?"
## [31] "@polisiidol admin nya siapa si mo gua racun pke sianida gak??!!"
## [32] "@boikiboiki030 buka dong casing nya, biar jelas bentuk rupanya jadi tidak menimbulkan curiga,cuma sedikit bau terasi wajar tapi bebas racun sianida"
## [33] "@mfah_rozi oke, berarti percaya bahwa alm. mirna bukan meninggal karena racun (sianida) ya. tidak ditentukan penyebab kematiannya karena tidak dilakukan otopsi nah tapi katanya duplik terakhir, salah satu pengacara jessica ada nyebut klo alm. mirna dibunuh cara diracun…"
## [34] "racun sianida, senyawa berbahaya mematikan, ketahui gejala, dampak, bahayanya https://t.co/7vz882vmtq"
## [35] "kejanggalan kasus mirna shalihin diracuni jessica wongso racun sianida #shorts #videoviral #fyp #attentat #indvspak https://t.co/aviveo10yu"
## [36] "tdk otopsi -> diotopsi kok -> partial otopsi. 😁 mati krn racun sianida -> Negative sianida -> ada 0.2 mg sianida -> natrium sianida. krn dlm tubuhnya ada 0.2 mg sianida ion natrium. jd kesimpulannya natrium sianida. 🤣"
## [37] "skrg lg demam sianida, kita lg dikuliahin soal sianida mulu. bnyk pakar kimia, bahkan khusus sianida/racun, tp lah kejadian kemana aja?? kelamaan br dibahas. utk !?"
## [38] "@chimmy1990 @andhikaswn @narasinewsroom pertama racun dikirim ke puslabfor hasilnya sianida Negative (muntahan) masih hidup enggak ada (siandia) yg diambil tadi darah, hati, isi lambung & urin. semuanya Negative sianda, jelasnya. namun prosesi pengambilan sampel isi lambung ditemukan 0,2mg/ltr sianida"
## [39] "curiga, dia gak baca bap. mana ketara banget kalo semprul. katanya racun dalam gelas banyak, tapi kok dalam tubuh mirna gak ada sianidanya? pertanyaannya, kamukah yg nuang sianida dlam kopi? #kopisianida #jessicawongso #justiceforjessica https://t.co/rxwpkt4mph"
## [40] "darmawan salihin ngaku beri napas buatan ke mirna, otto: pasti meninggal jika ada racun sianida https://t.co/dchcbkuprl #trending"
## [41] "nah baru benar, benar2 aneh tapi yah gitu ciri2 negara mo maju/hancur bang terserah masyarakt mo gimana penegakan hkmnya? contoh case jessica kopi sianidasdh dibilang ahlinya racun sianida mati bukan karena sianida, aneh gak?!! drama aph berseri... @jokowi 🤭✍️✍️"
## [42] "@vivacoid kalo @prabowo @gerindra mengambil @gibran_tweet jadi cawapres saya pastikan @ganjarpranowo @anisbaswedan tinggal suit aja siapa yg lantik tanggal 20 oktober 2024 nanti hahahahaha ingat pak @prabowo anda orang lurus, jgan makan umpan ... racun sianida"
## [43] "kilas balik kasus kematian munir karena racun arsenik mirna akibat racun sianida https://t.co/e5koqelo7r #temponasional"
## [44] "@ainunnajib poling ibarat ngasih pilihan suruh minum racun sianida atau atau digigit ular laut"
## [45] "@foodfess2 cium baunya kayak bau racun sianida"
## [46] "@evy_wahudy @kegblgnunfaedh dusta ndasmu, dah gini.. kasi gw bukti valid kalo jessica ngasi racun njing, orang pas mati aja 0% sianida cok.. logikanya kalo mati karna sianida ya sianidanya masih ada, no autopsi no case, be smart people!!! kasi bukti njing, jangan gogal gogel lama lama ndasmu yg togel"
## [47] "waktu goebbels istrinya memberikan racun sianida untuk anak anaknya sebelum kemudian bunuh diri. dilakukan dg imaginasi tidak membayangkan hidup dimasa depan tanpa nazi hitler. mirip2 alesanya mahasiswa .. tidak dpt membayangkan tanpa dipimpin ..."
## [48] "@tyreseblooming tehnya mau ditambah sianida racun tikus, yah?"
## [49] "@basebdg rek racun sianida"
## [50] "@thepiscesy audy lu mau gue racun pake sianida kah??? bikin emosi aja berak. https://t.co/oza6mmaolu"
## [51] " "Membuat Word Cloud komentar Positif
#Mengubah Data Frame Menjadi Data Faktor
tdm_neg <- TermDocumentMatrix(komentar_negatif)
tdm_neg## <<TermDocumentMatrix (terms: 820, documents: 51)>>
## Non-/sparse entries: 1252/40568
## Sparsity : 97%
## Maximal term length: 23
## Weighting : term frequency (tf)m_neg <- as.matrix(tdm_neg)
View(m_neg)v_neg <- sort(rowSums(m_neg),decreasing = TRUE)
head(v_neg)## racun sianida ada mirna tapi @tanyakanrl
## 52 43 25 15 15 14Membuat Word Cloud Tweet Negatif
d_neg <- data.frame(word = names(v_neg), freq = v_neg)
head(d_neg)## word freq
## racun racun 52
## sianida sianida 43
## ada ada 25
## mirna mirna 15
## tapi tapi 15
## @tanyakanrl @tanyakanrl 14wordcloud(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: 864, documents: 51)>>
## Non-/sparse entries: 1343/42721
## Sparsity : 97%
## Maximal term length: 23
## Weighting : term frequency (tf)inspect frequent words
(freq.terms <- findFreqTerms(tdm_negatif, lowfreq = 5))## [1] "@tanyakanrl" "aja" "dia" "lain" "minum"
## [6] "mirna" "negative" "punya" "racun" "sianida"
## [11] "?" "ada" "knp" "bukan" "cn-"
## [16] "dari" "ion" "karena" "tapi" "ya"
## [21] "jessica" "kopi" "sianida." "klo" "tidak"
## [26] "yg" "ga" "kalo" "jadi" "pasti"
## [31] "ahli" "kl" "sianida," "dalam" "orang"
## [36] "->"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(y == "Neutral")
komentar_neutral<-komentar_neutral$x
komentar_neutral## [1] "@___iamblue @akoriekorie @tanyakanrl minuman dingin suhunya brapa? kemungkinan menguap ada, jumlah sianida yg d beberkan sebanyak , seharusnya jesica pingsan karena dia yg katanya naro racun tsb,"
## [2] "pagi2 racun sianida wkakwk"
## [3] "@lessfearnoteraf @tanyakanrl 7. tdk ditemukan tiosinat hati urine, sedangkan normalnya klu memang keracunan sianida harusnya ada secara itukan bentuk pertahanan tubuh. klu jumlahnya trlalu banyak maka tubuh tdk menangani jdi terjadilah keracunan.tapi klu tdk ada berarti tdk ada racun yg masuk https://t.co/6dxkikmaj9"
## [4] "natrium (tanpa sianida) setau gua bukan racun "
## [5] "kalo orang meninggal tiba tiba bukan karena penyakit, dicari tau penyebab meninggalnya dulu dong? lah kok pernyataan dasarnya malah: 1. apakah ada racun kopi? 2. kapan gimana racunnya masuk? 3. siapa pelakunya? 4. kenapa cuma ada 0,2 mg sianida tubuh mayat?"
## [6] "@cersmoi @partaisocmed nacn + hcl = hcn + nacl nacn = racun garam sianida yg dipake jessica hcl = asam klorida.asam lambung yg hasilkan dr sel parietal dinding lambung hcn = hidrogen sianida.gas yg dipake nazi buat holocaust. nacl = garam murni. jd bukti konkritnya ada nacl berlebih lambung"
## [7] "@hilarlo @partaisocmed dah tau kali riwayatnya pas dijabarin semua -_-.lebih baik skeptis kepada menangani kasusnya bang, minimal sebelum autopsi jangan bilang kena racun sianida kek."
## [8] "meski umunya sianida dikenal sebagai racun, tapi zat juga terdapat suplemen vitamin b12. sianida diperlukan dalam proses pembuatan vitamin . https://t.co/y86yl7nyc5"
## [9] "dr. djaja singgung racun sianida ternyata banyak dikonsumsi orang indonesia secara tidak sadar, kok nggak mati? https://t.co/gigy7ci75d"
## [10] "skrg lagi rewatch sidangnya tbtb gw ngakak sendiri krn ngeliat muka si j🤣 j b lyk : “ah elu ngeributin sianida, padahal gw masukin racun tikus 😆”"
## [11] "@pasokon_otaku “mati karena nacn” kak maaf banget tapi nacn natrium sianida kalo dlm tubuh sdh terurai jadi ion na+ cn-, nah yg berfungsi sebagai racun dalam tubuh cn- bukan nacn 😭"
## [12] "nih berita tempo 2022 : https://t.co/4rtqedyigj biar klen tau siapa yg ngide racun sianida ."
## [13] "@alvitaarumdati @andhikaswn @narasinewsroom mirna ga keracunan sianida. mungkin racun yg lain, tp ga tau karena ga diotopsi."
## [14] "berpihak pdhl harusnya Neutral sebagai penyidik yg nyari bukti, sus bgt, takut kah kalo ketahuan sebab kematian m bukan krn sianida, trus gk manipulasi hasil pake racun lain krn udah terlanjur ngasih sianida bukti gelas kopi😅, sebel bgt gak selesai gr gamau otopsi ulg"
## [15] "@sehutf @jonmwon kakak jennie racun sianida?"
## [16] "@penyefongmlbb psikopat kayaknya. yg bikin gw kaget racun kyk sianida dibeli bebas 😅"
## [17] "@beastsnharlot masalah sedotan muncul gegara ada doktor theo s3 kimia lulusan jerman yg diwawancara inews urusan masukin sianida via sedotan gak dibahas persidangan lagian racun yg dimasukkin kan katanya 5 gram, gimana masukin bubuk/serbuk/cairan 5 gram pake sedotan?"
## [18] "@kegblgnunfaedh ingat kasus sianida polisi2 dr puslabfor pd demo sianida ada aiman hadir & jd pembelaan para org2 yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman & dr. djaya sempat bilang gak mungkin sianida 😅"Membuat Word Cloud komentar Neutral
Mengubah Data Frame Menjadi Data Faktor
tdm_neutral <- TermDocumentMatrix(komentar_neutral)
tdm_neutral## <<TermDocumentMatrix (terms: 302, documents: 18)>>
## Non-/sparse entries: 377/5059
## Sparsity : 93%
## Maximal term length: 23
## Weighting : term frequency (tf)m_neutral <- as.matrix(tdm_neutral)
View(m_neutral)v_neutral <- sort(rowSums(m_neutral),decreasing = TRUE)
head(v_neutral)## sianida racun ada karena tdk tubuh
## 17 16 9 4 4 4library(RColorBrewer)
d_neutral <- data.frame(word = names(v_neutral), freq = v_neutral)
head(d_neutral)## word freq
## sianida sianida 17
## racun racun 16
## ada ada 9
## karena karena 4
## tdk tdk 4
## tubuh tubuh 4wordcloud(d_neutral$word, d_neutral$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
## Pembagian Data
# set nilai random generator
set.seed(1234)
library(caret)## Loading required package: latticelibrary(Matrix)membagi data 80% training, 20% testing
Membagi Data: Dataset dibagi menjadi data latih (train) dan data uji (test) dengan proporsi 80:20 menggunakan fungsi createDataPartition() dari paket ‘caret’.
bagi <- createDataPartition(dataaa$y, p = 0.8, list=F)
training<- dataaa[bagi,]
head(training)## x
## 2 @kapitalisbarat @masganteng_69 @tanyakanrl lalu knp keluarga korban nolak otopsi pdhl jelas tubuh mirna Negative sianida? knp kembaran mirna bilang mayatnya wrn biru pdhl menurut forensik jika trkena sianida warna merah ? knp hrs ada uang amplop kpd bapak indragiri? knp bapaknya mirna ada botol racun? terlalu kebetulan
## 3 @ireine07 @dewi_ehheh24 @twilightide @tanyakanrl jadi, dibilang kematiannya karena sianida ya diitung ion cn- nya aja. bukan ion na+ juga. tapi ya kita juga gak tau 0,2 mg cn- dari mana. apakah memang dari racun sianida tuangkan atau dari proses pembusukan mayat.
## 5 film dokumenter “ice cold: murder, coffee, and jessica wongso” baru-baru ditayangkan @netflixid viral jagat maya. film mengangkat kasus kematian akibat meminum kopi diberi racun jenis sianida. bagaimana publik menyoroti ? https://t.co/fnvd0eqz7h
## 7 @eriemrn @baddassauvignon @mentionaink @tanyakanrl sekarang misal klo otopsi benar tidak ada racun mirna, kenapa kopi ada sianida? siapa yg naroh coba hah? staf cafenya aja bilang bau, rasa warna beda
## 8 @karenaaing @eunoiakai @tanyakanrl lah walaupun mirna punya penyakit misalnya tumor otak. tapi kalo pas sianida ditemukan didalam lambung organ lainnya, bukannya udh hal yg aneh? karna ada barang yg ga seharusnya ada didalam tubuh. apalagi adalah racun buat tubuh,
## 10 @nanasubak @yogaaahaha @eunoiakai @tanyakanrl nacn emang salah satu jenis sianida yg bentuknya padat berbahaya kalo ketelen, tapi ketika masuk ke mulut yg berfungsi sebagai racun cn- (sianida bebas) jadi yg diidentifikasi tetep sianidanya. lagian kok prof hukum ngejelasin ttg kimia pasti org yg nonton bingung😭
## y
## 2 Negative
## 3 Negative
## 5 Negative
## 7 Negative
## 8 Negative
## 10 Negativetesting<- dataaa[-bagi,]
head(testing)## x
## 1 @kapitalisbarat @masganteng_69 @tanyakanrl penjelasan scr logika? logikanya aja dlm tubuhnya Negative sianida aja dia ninggal krn penyakit/ hal lain / sblmnya udah dracun dr rumah & bereaksi stlh minum kopi, bapaknya mirna pernah keceplosan punya botol racun juga.
## 4 film ice cold ramai diperbincangkan, usai mengulik lagi kasus kopi sianida jessica wongso. sianida umumnya dikenal sebagai racun mematikan. https://t.co/0jj5fhmwhx
## 6 @kapitalisbarat @eriemrn @mentionaink @tanyakanrl karena tanpa autopsi semua kemungkinan saja terjadi (abu-abu). ya bayangin aja sianida 7000 mg kopi, kenapa jessica nya ga pingsan pas masukin tuh racun wkwk.. hani, manager cafe juga sempat cicipin kopinya kondisinya baik2 saja.
## 9 @welovewoo @tanyakanrl tapi dari bap saksi cara mengibas2 mulut pingsan seketika tidak disangkal kan walaupun tidak ditemukan saja racun lain jadi topik disini jangan melihat jessica bukan pelaku tapi saja jessica memasukan racun lain tapii hasil temuan digelas jls sianida
## 21 @tanyakanrl gamau otopsi, janggal banget. dokter yg menangani jenazah pertama kali a.k.a dr. djaja (peneliti sianida) bilang bukan sianida karena muka membiru bukan memerah akibat racun sianida 🤣🤣
## 25 @psikutt @kegblgnunfaedh dompetnya tebel tapi kalo ga punya riwayat kerja bidang farmasi, pernah browsing tentang penggunaan racun sianida, & punya riwayat 14 catatan kepolisian, juga gak bakalan terlalu dianggap mencurigakan. 🤭
## y
## 1 Negative
## 4 Positive
## 6 Positive
## 9 Negative
## 21 Negative
## 25 PositiveMETODE 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: 0x000001db58e712d0>
## <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(y~.,data = training)
head(modelNB)## $apriori
## Y
## Negative Neutral Positive
## 41 15 27
##
## $tables
## $tables$x
## x
## Y selama dia diundang podcast kaga ada satupun nanyain perihal kemungkinan racun lain selain sianida😂🗿 emg nyari cuan aje ni yutuber wkwk pdhl w penasaran.
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @___iamblue @akoriekorie @tanyakanrl minuman dingin suhunya brapa? kemungkinan menguap ada, jumlah sianida yg d beberkan sebanyak , seharusnya jesica pingsan karena dia yg katanya naro racun tsb,
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y @aiek_speechless @dennysiregar7 @airantiereal @alnilamomar @aynie_naja @dyahnezza @daliliem8 @hamidah_nadya @mantan_ajja @humairah_922 @ge1te @gaknyerah_bro denny kebingungan, dia sibuk ngurusin jokowi gibran luar prediksinya...racun tikus sajam mungkin ngga menarik bagi dia.....ada pilihan lain, kopi sianida😂😂😂
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @aimocchitarot1 @tanyakanrl kamu baca & lihat ga hasil otopsi keterangan ahli bahwa yg bunuh mirna bener 100% racun sianida, jgn ke makan framing team pengacara terdakwa pemberitaan media2 bayaran. dari otopsi pertama pihak polri memvonis mirna diracun sianida dr hasil otopsi.
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @aimocchitarot1 @tanyakanrl kamu blng ..klo bs jaa dgn media yg lain,udah jls mirna bunuh dgn zat sianida. byk org2 ky km yg ngtweet sperti yg menyebabkan pengaburan informasi, jd km jgn smbarang ngbacot dgn opini kamu ja. jessica jls membunuh dg racun sianida, ga pake media2 yg lain.
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ainunnajib poling ibarat ngasih pilihan suruh minum racun sianida atau atau digigit ular laut
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @alvitaarumdati @andhikaswn @narasinewsroom mirna ga keracunan sianida. mungkin racun yg lain, tp ga tau karena ga diotopsi.
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y @basebdg rek racun sianida
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @beastsnharlot masalah sedotan muncul gegara ada doktor theo s3 kimia lulusan jerman yg diwawancara inews urusan masukin sianida via sedotan gak dibahas persidangan lagian racun yg dimasukkin kan katanya 5 gram, gimana masukin bubuk/serbuk/cairan 5 gram pake sedotan?
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y @bigmasuu @tanyakanrl kamu sebutin juga termasuk tapi tetep hasil sampel pertama ga ditemukan sianida berarti mustahil. ga menutup kemungkinan juga sebenernya jadi racun yg lain atau kemungkinan kemungkinan lain terlewat. yg aku maksud
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @boikiboiki030 buka dong casing nya, biar jelas bentuk rupanya jadi tidak menimbulkan curiga,cuma sedikit bau terasi wajar tapi bebas racun sianida
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @cersmoi @partaisocmed nacn + hcl = hcn + nacl nacn = racun garam sianida yg dipake jessica hcl = asam klorida.asam lambung yg hasilkan dr sel parietal dinding lambung hcn = hidrogen sianida.gas yg dipake nazi buat holocaust. nacl = garam murni. jd bukti konkritnya ada nacl berlebih lambung
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y @chifkalong sianida? racun tikus?
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @chimmy1990 @andhikaswn @narasinewsroom pertama racun dikirim ke puslabfor hasilnya sianida Negative (muntahan) masih hidup enggak ada (siandia) yg diambil tadi darah, hati, isi lambung & urin. semuanya Negative sianda, jelasnya. namun prosesi pengambilan sampel isi lambung ditemukan 0,2mg/ltr sianida
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @convomf racun aja nder kakanya pake sianida. tuman 🙏
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @cupapusy @karenaaing @eunoiakai @tanyakanrl beliau dosen & ahli bidangnya. tapi bukan ahli bidang toksikologi kan? dr djaja udah ahli kedokteran forensik toksikologi aka ilmu tentang racun bilang, jelas bukan karena racun sianida dokumenter tanpa skenario. pemain jg ga dibayar. semua bilang gitu
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @diantaratitik @partaisocmed fix kamu ga baca putusan, tapi bilang orang lain goblok wkwkwk klo baca putusannya ga sampe pertengahan udah dilampirkan hasil otopsi (secara parsial) bahwa kandungan ion sianidanya 0,2 mg tapi ingat jenis racun nya natrium sianida (nacn) = 298 mg
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @eriemrn @baddassauvignon @mentionaink @tanyakanrl sekarang misal klo otopsi benar tidak ada racun mirna, kenapa kopi ada sianida? siapa yg naroh coba hah? staf cafenya aja bilang bau, rasa warna beda
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @evy_wahudy @kegblgnunfaedh dusta ndasmu, dah gini.. kasi gw bukti valid kalo jessica ngasi racun njing, orang pas mati aja 0% sianida cok.. logikanya kalo mati karna sianida ya sianidanya masih ada, no autopsi no case, be smart people!!! kasi bukti njing, jangan gogal gogel lama lama ndasmu yg togel
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @fluppyhoonie @mauvejy bener banget terus dikasih racun sianida
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @foodfess2 cium baunya kayak bau racun sianida
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @gunromli mulutmu penuh racun sianida , semoga kau dapat hidayah
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @ireine07 @dewi_ehheh24 @twilightide @tanyakanrl jadi, dibilang kematiannya karena sianida ya diitung ion cn- nya aja. bukan ion na+ juga. tapi ya kita juga gak tau 0,2 mg cn- dari mana. apakah memang dari racun sianida tuangkan atau dari proses pembusukan mayat.
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @ireine07 @vousmecollins @tanyakanrl lagi ahli toxicology universitas indonesia melakukan uji coba racun sianida menemukan fakta bahwa sianida berubah jadi gas bertemu benda cair. hasil sidang awal dikatakan 15gr sianida ditemukan kopi. kata ahli aja minim satu ruangan disana pingsan
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @jjaeyumixx @cersmoi @partaisocmed reaksi melibatkan enzim bernama rhodanase ada dalam hati. rhodanase mengkatalisis konversi ion sianida menjadi scn. reaksi mutlak ketika racun jenis cn- alias dari nacn kalo melebihi dosis. tapi tidak ada scn dalam hati urine
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @kapitalisbarat @gforgea @baddassauvignon @eriemrn @mentionaink @tanyakanrl begini...skg kita tdk bsa dgn jelas tau kematiannya disebabkan dikrnakan tdk dilakukan otopsi scra menyeluruh. klau korban meninggalnya bkn krna racun gmn? karna hnya dibiopsi ditmukan sianida 0.2mg stlh 3hri kmatiannya. bhkan 70mnt kematiannya tdk ditemukan sianida .
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @kapitalisbarat @masganteng_69 @tanyakanrl lalu knp keluarga korban nolak otopsi pdhl jelas tubuh mirna Negative sianida? knp kembaran mirna bilang mayatnya wrn biru pdhl menurut forensik jika trkena sianida warna merah ? knp hrs ada uang amplop kpd bapak indragiri? knp bapaknya mirna ada botol racun? terlalu kebetulan
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @karenaaing @eunoiakai @tanyakanrl lah walaupun mirna punya penyakit misalnya tumor otak. tapi kalo pas sianida ditemukan didalam lambung organ lainnya, bukannya udh hal yg aneh? karna ada barang yg ga seharusnya ada didalam tubuh. apalagi adalah racun buat tubuh,
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @kegblgnunfaedh ingat kasus sianida polisi2 dr puslabfor pd demo sianida ada aiman hadir & jd pembelaan para org2 yg mau si j ttp dihukum krn mmng ada demo isilop dpn aiman & dr. djaya sempat bilang gak mungkin sianida 😅
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y @kiyai_marufamin assalamualikum pa wapres. tolong bantu buka kembali kasus racun sianida jessica wongso,... sangat yakin dia tidak bersalah pak... dia dizolimi, jgn dibiarkan pak wapres... 7 tahun dia dpenjara dia tetap tdk mau minta grasi...krn merasa berbuat yg dituduhkan.🙏🙏
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @lessfearnoteraf @tanyakanrl 7. tdk ditemukan tiosinat hati urine, sedangkan normalnya klu memang keracunan sianida harusnya ada secara itukan bentuk pertahanan tubuh. klu jumlahnya trlalu banyak maka tubuh tdk menangani jdi terjadilah keracunan.tapi klu tdk ada berarti tdk ada racun yg masuk https://t.co/6dxkikmaj9
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y @lessfearnoteraf @tanyakanrl saya tidak bilang jessica tidak bersalah ya, saja mirna racun racun jenis lainnya. tapi lagi diomongin kan sianida. dalam gelas pun adanya sianida. tapi masalahnya tubuh mirna gak ada sianida, kalaupun emang racun jenis lain harusnya diselidiki lagi
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @lyyuuu__ wkwk aku kasih racun sianida aja deh😭
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @mainvillain__ @tanyakanrl harusnya dokternya juga bs jelasin kejang2nya mirna habis minum kopi sampai dari mulut keluar busa ? lalu bau kopi yg menyengat pahit ? klo bukan sianida, paling ga racun ?
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @marwanfc @partaisocmed gw tetap yakin kl jes lah pembunuh nya karna udah ada percobaan ahli soal pencampuran kopi sianida, ada cctv tangan jes masukin racun kejanggalan meja cafe sblm korban datang.
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @mfah_rozi oke, berarti percaya bahwa alm. mirna bukan meninggal karena racun (sianida) ya. tidak ditentukan penyebab kematiannya karena tidak dilakukan otopsi nah tapi katanya duplik terakhir, salah satu pengacara jessica ada nyebut klo alm. mirna dibunuh cara diracun…
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @nanasubak @yogaaahaha @eunoiakai @tanyakanrl nacn emang salah satu jenis sianida yg bentuknya padat berbahaya kalo ketelen, tapi ketika masuk ke mulut yg berfungsi sebagai racun cn- (sianida bebas) jadi yg diidentifikasi tetep sianidanya. lagian kok prof hukum ngejelasin ttg kimia pasti org yg nonton bingung😭
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @partaisocmed dalam hal berlaku orang salah yakin dibanding orang benar ragu, closing podkes dia mengatakan kesalahan tim hukum j, kenapa mengatakan bukan sianida, tapi nuduh racun angga
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @penyefongmlbb psikopat kayaknya. yg bikin gw kaget racun kyk sianida dibeli bebas 😅
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y @psikutt @tanyakanrl mau dgn jenis racun apapun, diambil sample pasti kelihatan. karna racun pasti tersisa lambung, diproses hati dikeluarkan urin. jd klo memang j masukin racun selain sianida, pasti ada bukti samplenya.
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @sardenmili @anythingforkyr @tanyarlfes betul, ada 15 hakim berbeda jg. sidang pn, pt, ma keputusanny sama (j=tsk). kl ada yg blg mirna mnnggal bukan krn sianida, knp nuduh r (barista)? sdgkn r jelas keliatan cctv gerak2ny ga deket/nyentuh mirna. kl nuduh r logikanya r bun*h dg sianida/racun kopi jg dong.
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @sehutf @jonmwon kakak jennie racun sianida?
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y @tanyarlfes bukan masalah pro atau kontra, tapi keadilan harus ditegakkan, ga ada bukti racun sianida yg cukup mematikan tubuh mirna ya harusnya kasusnya dikaji ulang
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @thepiscesy audy lu mau gue racun pake sianida kah??? bikin emosi aja berak. https://t.co/oza6mmaolu
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @tyreseblooming tehnya mau ditambah sianida racun tikus, yah?
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @vivacoid kalo @prabowo @gerindra mengambil @gibran_tweet jadi cawapres saya pastikan @ganjarpranowo @anisbaswedan tinggal suit aja siapa yg lantik tanggal 20 oktober 2024 nanti hahahahaha ingat pak @prabowo anda orang lurus, jgan makan umpan ... racun sianida
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @vousmecollins @xyz_apf @tanyakanrl dokter spesialis forensik menjadi saksi ahli, slamet purnomo meyakini wayan mirna salihin meninggal dunia karena meminum sesuatu berisi racun sianida.
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @xwonuu racun tikus dibubuhi sedikit sianida.
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @xxylone @tanyakanrl knp kl tdk ada racun reaksi mirna minum kopi kek abis minum minuman yg ga enak kya kpanasan gtu. kyaknya emg ada yg ga beres sm minumannya tp ya gatau knp. kl dr djaja mngatakan bkn sianida aja racun lain kan. tp gayakin jg kl jess yg naruh ..ahh bingung
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y @xyz_apf @tanyakanrl udah terbukti racun kok, lambungnya aja korosi. cmn apakah sianida atau ga belom diketahui. tapi bukti nyata udah kuat mengatakan racun. racun yg dikonsumsi tubuh beredar ke saluran yg dilewati bukan tubuh.
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y @yeonpilpencil ikr padahal banyakan praduga😭 ya ok kalo emang j yg bunuh, tapi bukti konkrit beneran membuktikan dia ngebunuh manaaa? hasil otopsi? racun sianida???
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y 3. nah skrg kalo gk otopsi, dr mana tau kalo korban diracun sianida? kenapa dr sekian banyak racun n obat yg jd pybb, spesifik nunjuk ke sianida? dasarnya? oke sy msh posthink, mgkn krn ada yg liat lebam cherry red. tapi kenapa saksi2 lain, tmsk sodara korban blg biru?
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y berpihak pdhl harusnya Neutral sebagai penyidik yg nyari bukti, sus bgt, takut kah kalo ketahuan sebab kematian m bukan krn sianida, trus gk manipulasi hasil pake racun lain krn udah terlanjur ngasih sianida bukti gelas kopi😅, sebel bgt gak selesai gr gamau otopsi ulg
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y curiga, dia gak baca bap. mana ketara banget kalo semprul. katanya racun dalam gelas banyak, tapi kok dalam tubuh mirna gak ada sianidanya? pertanyaannya, kamukah yg nuang sianida dlam kopi? #kopisianida #jessicawongso #justiceforjessica https://t.co/rxwpkt4mph
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y darmawan salihin ngaku beri napas buatan ke mirna, otto: pasti meninggal jika ada racun sianida https://t.co/dchcbkuprl #trending
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y dr. djaja singgung racun sianida ternyata banyak dikonsumsi orang indonesia secara tidak sadar, kok nggak mati? https://t.co/gigy7ci75d
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y drama ice cold, jessica sebenarnya adalah psikopat ?? | diary vlog #21 https://t.co/tjmvksctzr on @youtube #justalkmember #justalkmedia #coachjustinl #diaryciknit #psikolog #jessica #jessicamirna #icecold #kopisianida #sianida #racun #viral #psikopat #viral #fyp https://t.co/7ltwhhelqz
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y edi darmawan ayah mirna salihin perlihatkan bukti sakti rekaman cctv jessica wongso taruh racun sianida ke gelas kopi. https://t.co/he6h6pznaa
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y film dokumenter “ice cold: murder, coffee, and jessica wongso” baru-baru ditayangkan @netflixid viral jagat maya. film mengangkat kasus kematian akibat meminum kopi diberi racun jenis sianida. bagaimana publik menyoroti ? https://t.co/fnvd0eqz7h
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y film ice cold ramai diperbincangkan, usai mengulik lagi kasus kopi sianida jessica wongso. sianida umumnya dikenal sebagai racun mematikan. https://t.co/81rkcbwqnt
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y how if mirna emang diracun tapi racun nya bukan sianida? makannya dokter djaja gak liat ciri-ciri sianida, kan aja racun lain, cek berbagai kemungkinan lewat otopsi adalah kunci.
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y https://t.co/cyyh7djwmp bgmnpun sy lbh percaya dg polisi,jaksa & saksi ahli dikasus kopi sianida dg korban meninggal wayan mirna salihin. iya hy krn org ga lht jessica m'bubuhkan racun ke dlm kopi. trs rame2 bilang jessica bknlah pelakunya. empati blh tapi utamakan logika
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y kejanggalan kasus mirna shalihin diracuni jessica wongso racun sianida #shorts #videoviral #fyp #attentat #indvspak https://t.co/aviveo10yu
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y khusus sianida (cn) dilambung memang hanya 0,2 mg, tapi ingat jenis racun membunuh mirna adalah natrium sianida (nacn), kadar natriumnya 900 mg. memang saya tidak paham racun-meracun tapi kesimpulan dari 2 dokter mem-visum adalah kandungan nacn melebihi dosis aman.
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y kilas balik kasus kematian munir karena racun arsenik mirna akibat racun sianida https://t.co/e5koqelo7r #temponasional
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y mengenal racun sianida bikin heboh film ice cold #sianida #jessicawongso #mirnasalihin #kopisianida #singkong #racun #mediaindonesia #referensibangsa https://t.co/pzjcvcas8m
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y meski umunya sianida dikenal sebagai racun, tapi zat juga terdapat suplemen vitamin b12. sianida diperlukan dalam proses pembuatan vitamin . https://t.co/y86yl7nyc5
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y natrium (tanpa sianida) setau gua bukan racun
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y nih berita tempo 2022 : https://t.co/4rtqedyigj biar klen tau siapa yg ngide racun sianida .
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y otopsi ulang krn terbukti ditubuh m gk ada sianida awalnya,kalo yakin diracun ya cari aja jenis racun lain ditubuh m, kok malah pihak j yg dibilang takut,harusnya keluarga m kyk keluarga brig joshua minta otopsi ulang krn hasil otopsi pertama masih kurang jelas, polisi jg kyk
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y pagi2 racun sianida wkakwk
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y pak wamen @kemenkumham_ri memenjarakan orang tanpa outopsi,bukti racun sianida baru ada setelah 3 hari sample cairan lambung sementara waktu meninggal puslabfor tidak menemukan sianida tapi tukak lambung. tanpa bukti langsung tapi asumsi anda penjarakan 20 tahun?zalim .
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y penyebab kematiannya bkn racun sianida pelakunya bikan jessica
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y racun sianida, senyawa berbahaya mematikan, ketahui gejala, dampak, bahayanya https://t.co/7vz882vmtq
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y sebelum terjadinya kasus kopi sianida, jessica sempat menonton film the hateful eight & mencari tahu tentang racun sianida dilaptopnya.
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y sianida adalah racun bekerja cepat dapat mematikan. racun sering ditemukan serial-serial detektif juga dunia nyata! https://t.co/q5x1glawye https://t.co/um4qqa5zf0
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y sianida adalah racun mematikan, dapat berbentuk gas, padat atau cairan tidak berwarna. orang dapat terpapar sianida, paling mudah menghirupnya. https://t.co/lcorvkzrmm
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y skrg lagi rewatch sidangnya tbtb gw ngakak sendiri krn ngeliat muka si j🤣 j b lyk : “ah elu ngeributin sianida, padahal gw masukin racun tikus 😆”
## Negative 0.00000000
## Neutral 0.06666667
## Positive 0.00000000
## x
## Y skrg lg demam sianida, kita lg dikuliahin soal sianida mulu. bnyk pakar kimia, bahkan khusus sianida/racun, tp lah kejadian kemana aja?? kelamaan br dibahas. utk !?
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y tdk otopsi -> diotopsi kok -> partial otopsi. 😁 mati krn racun sianida -> Negative sianida -> ada 0.2 mg sianida -> natrium sianida. krn dlm tubuhnya ada 0.2 mg sianida ion natrium. jd kesimpulannya natrium sianida. 🤣
## Negative 0.02439024
## Neutral 0.00000000
## Positive 0.00000000
## x
## Y terpidana kasus pembunuhan wayan mirna salihin racun sianida, jessica kumala wongso kembali menjadi perbincangan publik usai dirilisnya film dokumenter ice cold: murder, coffee and jessica wongso platform netflix. https://t.co/ckxv8vrmzu https://t.co/7jbjzuxudd
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y tumben, pasti isinya gak sianida racun tikus ya?
## Negative 0.00000000
## Neutral 0.00000000
## Positive 0.03703704
## x
## Y waktu goebbels istrinya memberikan racun sianida untuk anak anaknya sebelum kemudian bunuh diri. dilakukan dg imaginasi tidak membayangkan hidup dimasa depan tanpa nazi hitler. mirip2 alesanya mahasiswa .. tidak dpt membayangkan tanpa dipimpin ...
## Negative 0.02439024
## 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$y))
hasil_testNB## Confusion Matrix and Statistics
##
##
## prediksiNB_test Negative Neutral Positive
## Negative 10 3 6
## Neutral 0 0 0
## Positive 0 0 0
##
## Overall Statistics
##
## Accuracy : 0.5263
## 95% CI : (0.2886, 0.7555)
## No Information Rate : 0.5263
## P-Value [Acc > NIR] : 0.592
##
## 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.5263 NaN NaN
## Neg Pred Value NaN 0.8421 0.6842
## Prevalence 0.5263 0.1579 0.3158
## Detection Rate 0.5263 0.0000 0.0000
## Detection Prevalence 1.0000 0.0000 0.0000
## Balanced Accuracy 0.5000 0.5000 0.5000