Analisis Data Tweet Hari Pangan
SAHRA MASDAR
2023-11-29
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)## Warning in stringi::stri_info(): Your current locale is not in the list of
## available locales. Some functions may not work properly. Refer to
## stri_locale_list() for more details on known locale specifiers.
## Warning in stringi::stri_info(): Your current locale is not in the list of
## available locales. Some functions may not work properly. Refer to
## stri_locale_list() for more details on known locale specifiers.## 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)
pacman::p_load_gh("trinker/textstem")
pacman::p_load(textstem, dplyr)#input data
setwd("C:/Users/LENOVO/Documents/komstat")
bencanaalam<- read.csv("~/komstat/bencanaalam.csv", sep=";")
rev<-bencanaalam$full_text
head(rev)## [1] "Jdi nyesel ga ambil tawaran waktu itu dari Brand Sebelah...padahal klo ku ambil kyanya udah kebakaran jenggot🤭"
## [2] "@BennyHarmanID Mereka sebenarnya tidak membela konstitusi Yg mereka bela idol baru mereka"
## [3] "Menghadapi situasi kebakaran hutan dan lahan (Karhutla) yang terjadi di sekitar wilayah Indralaya"
## [4] "Menghadapi situasi kebakaran hutan dan lahan (Karhutla) yang terjadi di sekitar wilayah Indralaya"
## [5] "Menghadapi situasi kebakaran hutan dan lahan (Karhutla) yang terjadi di sekitar wilayah Indralaya"
## [6] "Kebakaran kabel punca letupan kecil di Menara LPP #FMTNews #FMTBerita https://t.co/ZNMW0fjXKq"lower case = mengubah huruf kapital menjadi huruf kecil
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
rev <- tolower(rev)
head(rev)## [1] "jdi nyesel ga ambil tawaran waktu itu dari brand sebelah...padahal klo ku ambil kyanya udah kebakaran jenggot🤭"
## [2] "@bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan dan lahan (karhutla) yang terjadi di sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan dan lahan (karhutla) yang terjadi di sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan dan lahan (karhutla) yang terjadi di sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil di menara lpp #fmtnews #fmtberita https://t.co/znmw0fjxkq"rev <- tolower(rev)
head(rev)## [1] "jdi nyesel ga ambil tawaran waktu itu dari brand sebelah...padahal klo ku ambil kyanya udah kebakaran jenggot🤭"
## [2] "@bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan dan lahan (karhutla) yang terjadi di sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan dan lahan (karhutla) yang terjadi di sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan dan lahan (karhutla) yang terjadi di sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil di menara lpp #fmtnews #fmtberita https://t.co/znmw0fjxkq"summary(cars)## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00rev <- strip(rev)
head(rev)## [1] "jdi nyesel ga ambil tawaran waktu itu dari brand sebelahpadahal klo ku ambil kyanya udah kebakaran jenggot🤭"
## [2] "bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil di menara lpp fmtnews fmtberita httpstcoznmw fjxkq"#Mengembalikan Kata yang disingkat Menjadi Kata Aslinya
rev <- replace_contraction(rev)
head(rev)## [1] "jdi nyesel ga ambil tawaran waktu itu dari brand sebelahpadahal klo ku ambil kyanya udah kebakaran jenggot🤭"
## [2] "bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil di menara lpp fmtnews fmtberita httpstcoznmw fjxkq"#Mengembalikan Kata yang Mengalami Perpanjangan Menjadi Kata Aslinya
rev <- replace_word_elongation(rev)
head(rev)## [1] "jdi nyesel ga ambil tawaran waktu itu dari brand sebelahpadahal klo ku ambil kyanya udah kebakaran jenggot🤭"
## [2] "bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil di menara lpp fmtnews fmtberita httpstcoznmw fjxkq"#Menghapus simbol
rev <- strip(rev)
head(rev)## [1] "jdi nyesel ga ambil tawaran waktu itu dari brand sebelahpadahal klo ku ambil kyanya udah kebakaran jenggot🩠"
## [2] "bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil di menara lpp fmtnews fmtberita httpstcoznmw fjxkq"#stemming/lemmatizing = kata dasar
stem_strings(rev)## [1] "jdi nyesel ga ambil tawaran waktu itu dari brand sebelahpadah klo ku ambil kyanya udah kebakaran jenggot🩠"
## [2] "bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil di menara lpp fmtnew fmtberita httpstcoznmw fjxkq"
## [7] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [8] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [9] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [10] "aipda jw purba binama kel bojong jaya himbau warga tidak membakar sampah guna mengantisipasi dampak kebakaran dan polusi udara di jln kebon jati rt rw kel bojong jaya kec karawaci kota tangerang httpstcoddndicvm w"
## [11] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [12] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [13] "loeyyo nanarzwn tangkira ya kan kalau mie samyang itu pede ga nikmat"
## [14] "hari kelima kebakaran tempat pembuangan akhir tpa rawa kuce"
## [15] "sale menasehati"
## [16] "hope bantu tag akunku kebakaran optimiest mau tb atau mutualan bilang ya biar ku coba qrt makasih bnyk leka big win kita aamiin"
## [17] "missyanaa eh sumpah jangan samp"
## [18] "vivacoid awal sh wapr ya mereka paham koalisi ani ga berlayar kl mereka mundurtaunya langit ngatur pkb masuk mereka kebakaran jenggotskrg y udh turun target menteri gpp dr rezim kodok jg gpplah gila skalian drpd malu doang jabatan kagak"
## [19] "kebakaran di bagansiapiapi"
## [20] "hari ini kami kembali turun ke lokasi musibah kebakaran yang terjadi di tpa mandung"
## [21] "iklim pana e nya hilang bahaya kebakaran httpstcottztjrsc"
## [22] "liat drama politik di indonesia menjelang pesta demokrasi makin kesini makin kesana hari ini kawan besok lawan hari ini memuji besok menghina yang anteng aja ngga ikutan drama adaa yang o aja padah di serang abi abisan ada yang kebakaran pantat takut kalah banyak"
## [23] "semoga kemarau tahun ini leka berakhir"
## [24] "bangsal lore fontain kebakaran gw anjg takut banget sama gw mule"
## [25] "tujuan latihan ini diadakan adalah untuk memberi latihan dan pendedahan secara teori dan praktik kepada setiap ahli kumpulan mengenai cara pengurusan kebakaran di tempat kerja suruhanjayatenaga energycommiss thinksafetythinkst beenergysmart httpstcojkytizlrqk"
## [26] "amp oktob sesi taklimat dan latihan pencegah kebakaran yang dikendalikan oleh jabatan bomba dan penyelamat malaysia jbpm putrajaya telah diadakan di balai bomba dan penyelamat presint"
## [27] "pt jasamarga tollroad oper rua solo ngawi melaksanakan kegiatan pelatihan penanganan kondisi gawat darurat kebakaran jmtosolongawi jmtoberakhlak drivingthefutureoftollroadoper jasamargatollroadoper httpstcoi jxkwosho"
## [28] "kalau dalam stadium"
## [29] "hari ke tpa rawa kuce kebakaran"
## [30] "cokelat windawarda pdhal lbh seru kl jepri itu dibikin cerda penuh strategi"
## [31] "gibrantweet yang katanya bocah ingusan"
## [32] "rumah transit disedia untuk mangsa kebakaran bhnasion lokasinya akan ditel bagi memudahkan pergerakan harian termasuk persekolahan anak httpstcoqbg xaibb"
## [33] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [34] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [35] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [36] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [37] "stop kebakaran hutan dan lahan"
## [38] "biar apa sih begitu brayi"
## [39] "tim gabungan oper petuga pelaksana penanggulangan kebakaran tpa rawa kuce polr metro tangerang kota monitor titik api"
## [40] "simulasi bertujuan untuk memberikan awar dan pemahaman kepada pegawai dan juga tim tanggap darurat"
## [41] "bekerja sama dengan damkar badung"
## [42] "untuk itu"
## [43] "hingga senin pagi"
## [44] "dkijakarta dinaslhdki httpstcoi l pjki gak ada nasib yg buruk"
## [45] "dandim bangka sigap bantu padamkan api kebakaran hutan httpstconugykeb u httpstcofvnukddert"
## [46] "menparekraf sandiuno uno memastikan saat ini kondisi bali tetap aman untuk dikunjungi wisatawan seperti biasa meskipun pj gubernur bali mengeluarkan statu siaga darurat bencana kekeringan"
## [47] "cegah kebakaran hutan"
## [48] "tim pemadam petuga pelaksana penanggulangan kebakaran tpa rawa kuce polr metro tangerang kota bersama pemadam kebakaran kota tangerang teru berjibaku memadamkan sumber api"
## [49] "bpbd mengerahkan puluhan mobil pemadam hingga helikopt untuk memadamkan kebakaran di tpa rawa kuce yang terjadi sejak jumat pekan lalu httpstcotxjp dfl"
## [50] "yang kebakaran gueh dua dua nya cool dua dua nya profession yang bajingan cmn gue aja inti ny"
## [51] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [52] "petuga kepolisian v petuga pemadam kebakaran satu peristiwa langka yang memperlihatkan betapa ketidakpuasan terhadap kapitalism itu sudah tidak tertahankan lagi dan oleh karenanya"
## [53] "gsh nanya kebakaran karena apaa gue gatau"
## [54] "semoga kebakaran tpa rawa kuce bisa leka padam 🝯 warga sekitar sebaiknya waspada karena kualita udara mudah berubah mengikuti kondisi atmosf dan sumber polusi 🝯 lakukan dan simpan tip berikut httpstco ur ywgku"
## [55] "tim kamseltibcar lanta polr metro tangerang kota pada penanggulangan kebakaran tpa rawa kuce melakukan pengaturan lalu linta untuk mengurai penumpukan kendaraan dampak dari peristiwa kebakaran"
## [56] "radar pertahanan zioni israel mengalami kerusakan dan kebakaran setelah di tembak bertubi tubi oleh pasukan hezbollah httpstco clypssmpw"
## [57] "sumber polusi seperti kebakaran tpa dapat mempengaruhi kualita udara di sekitarnya ada potensi kontribusi polusi udara dari kebakaran tpa rawa kuce ke sisi barat jabodetabek dan juga wilayah lainnya sesuai pergerakan arah angin httpstcogzpvlkb yx"
## [58] "astra motor bali bersama dengan fifgroup melakukan aksi social dengan secara langsung menyerahkan bantuan logist ke tpa suwung astramotorbali fifgroup dinassosi tpasuwung kebakaran httpstcot scdjyx"
## [59] "kemarau kekeringan dan kebakaran hujan ya banjir"
## [60] "ada beberapa waktu di mana arah angin berubah dan berdampak pada daerah sekitar sumber kebakaran tpa"
## [61] "cenayangfilm panggil pemadam kebakaran"
## [62] "musim kemarau kekeringan kebakaran dimana mana musim hujan banjir dimana mana"
## [63] "kebakaran tpa rawa kuce terjadi sejak oktob hingga saat ini"
## [64] "azljnh kronologinya gmn kak ko bisa kebakaran🜪"
## [65] "lahan di kampu gue kebakaran bjir"
## [66] "wkwkkwkw ngakak unimu random bgt tiba kebakaran"
## [67] "cenayangfilm mend panggil pemadam kebakaran aja kayanya 🞡"
## [68] "zainew pada pukul telah terjadi kebakaran besar dalam hati seorang zain"
## [69] "uberpuisi 🕲 siram dulu biar ga kebakaran"
## [70] "iki sleman ono kebakaran neng endi yo kok mau ono truk damkar lewat daerah condong catur"
## [71] "satu unit rumah dan lahan perkebunan di kota gorontalo terbakar kebakaran rumah lahanperkebunan kotagorontalo httpstcoeidjedwol"
## [72] "palakaopeyang rlaplac suaradotcom mereka meyakini bahwa penyebab kebakaran adalah kebocoran minyak yang tidak disengaja"
## [73] "palakaopeyang rlaplac suaradotcom pada peristiwa kecelakaan di terowongan mont blanc pada tahun"
## [74] "cegah kebakaran hutan"
## [75] "sampurasun sobatnet istimewa kemarau panjang dan banyaknya kejadian kebakaran hutan dan lahan karhutla membuat kita patut meningkatkan kehatihatian saat berada di kawasan rawan terbakar httpstcohjcvtlvr a"
## [76] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [77] "rvbyjan kebakaran"
## [78] "upaya pencegahan kebakaran tpa perlu dilakukan untuk melindungi lingkungan dan masyarakat selengkapnya ditautan berikut httpstcouspwcq tai kebakarantpa tpa sampah lingkungan kesehatan pemerintah septemb tempatpembuanganakhir kebakaran eramadanicom httpstcoxjqezzloen"
## [79] "memasuki hari keempat"
## [80] "kebakaran di tpa rawa kuce yang belum dapat diatasi juga membuat warga yang tinggal dalam radiu meter dari tpa haru mengungsi baca masih membara"
## [81] "kepala bpbd kota tangerang maryono mengatakan"
## [82] "petuga di lapangan haru teru menyirami titik yang berasap agar pemadaman bisa tunta eddi yusuf"
## [83] "pantauan di lapangan hingga senin sore"
## [84] "pemadaman ditargetkan tunta secepatnya untuk mencegah dampak buruk dari kebakaran itu semakin besar hingga senin"
## [85] "upaya pemadaman dari darat dan udara dilakukan secara masif untuk mengatasi kebakaran di tempat pemrosesan akhir rawa kuce"
## [86] "akibat kebakaran di tpa rawa kuce"
## [87] "🔵 uta pemadaman kebakaran di tpa rawa kuce"
## [88] "babinsa jajaran kodim ska bekerjasama dengan dina kebakaran kota surakarta mengadakan pembentukan relawan pemadam kebakaran redkar di jl tentara pelajar no pedaringan jebr selasa oktob pukul wib babinsasurakarta pendimsurakarta httpstco ici coh "
## [89] "bhabinkamtibma polsek neglasari bersama babinsa koramil batu ceper dan dina pemadam kebakaran kota tangerang bekerjasama membuat pengaman untuk selang saluran air dari sungai cisadan yang digunakan untuk penanggulangan kebakaran tpa rawa kuce httpstcoitlovc r c"
## [90] "studi baru dampak mengejutkan dari kebakaran hutan boreal httpstcoazcr ijkg"
## [91] "mau unshadowban atau benerin akun kamu yang ada sb ssb gb merahmerah alia kebakaran atau gaib yuk coba sini mampir dan benerin ke dinoyaa boleh stalk profilnya buat liatliat testi 🕠🅠zonauang zonaba"
## [92] "rahmattakahind btstwt bukan tutup mata tsaai kita haru main cantik"
## [93] "babinsa koramil sajoang serda ahyuddin melaksanakan komso dengan warga menghimbau untuk tetap waspada terhadap bahaya kebakaran akibat musim kemarau berkepanjangan di desa walanga kec penrang kab wajo"
## [94] "bjierr lahan kampu kebakaran"
## [95] "kemenkumham sumsel sosialisasi dilanjutkan dengan praktik langsung penggunaan apar sebagai langkah pertama mengatasi kebakaran secara dini kemenkumhamri kumhamsumsel ilham djaya kumhamsumsel ilhamdjaya"
## [96] "kemenkumham sumsel pelatihan disampaikan oleh staf sesi penyuluhan dina pkpb rachmat bachtiar beserta tim menurutnya"
## [97] "kemenkumham sumsel saya berharap kepada seluruh ppnpn sebagai garda terdepan untuk meningkatkan pengawasan"
## [98] "kemenkumham sumsel pelatihan ini"
## [99] "kemenkumham sumsel kadivmin minggu menyampaikan"
## [100] "kementerian atrbpn turut berkomitmen tanggulangi kebakaran hutan dan lahan artikel selanjutnya klik dibawah ini kantahkabjepara httpstcoww rt plf"
## [101] "penampakan kebakaran tpa rawa kuce tangerang"
## [102] "ssftii killeroat hi kakak kakak jgn berantem yah nnti kebakaran🖴"
## [103] "andrew m apasj lg kebakaran ya"
## [104] "babinsa koramil pammana sertu sarifuddin melaksanakan komso dengan warga menghimbau agar tetap waspada terhadap bahaya kebakaran yang mungkin terjadi akibat musim kemarau di desa simpursia kec pammana kab wajo"
## [105] "pernah pada zamannya lagi jalan sama anak d dia lagi pakai baju dina tibatiba diisengin sama orang ' mbak mbak di sana ada kebakaran belum ada yang ngeliput ' teman gw baru mau bangkit dari kursinya"
## [106] "pada hari senin tanggal oktob bpbd serta pmigrobogan menyalurkan bantuan logistik pada korban kebakaran rumah di nampu kecamatan karangrayung dan juga hari ini oktob menyalurkan ke desa godong kecamatan godong dan desa pulorejo kecamatan purwodadi httpstco bstm hgfr"
## [107] "team poap baru saja melawat ke rumah mangsa kebakaran yang terbakar di kampung po slim kami di poap akan usaha bantu keluarga mangsa dalam masa terdekat poap simpanngpulai gopeng perak tapah tanjongmalim orangasli orangas bantuan httpstcojrhej kco"
## [108] "dailymo d nonton kebakaran"
## [109] "petuga pelaksana penanggulangan kebakaran tpa rawa kuce yang terdiri dari anggota polsek neglasari dan polr metro tangerang kota berjibaku bersama instansi terkait berupaya memadamkan sumber api pada peristiwa kebakaran yang terjadi di tpa rawa kuce jalan iskandar muda httpstcoj brah l c"
## [110] "ngapain sih masih dengerin org yg pake perbandingannya sawah dan gunung di sd wkwk denial tero"
## [111] "babinsa koramil temp koptu faisal umami melaksanakan komso dengan warga menghimbau untuk tidak sembarang membakar sampah di sekitar area perumahan dan lahan kosong untuk menghindari terjadinya kebakaran di kel maddukkelleng kec temp kab wajo"lemmatize_strings(rev)## [1] "jdi nyesel ga ambil tawaran waktu itu dari brand sebelahpadahal klo ku ambil kyanya udah kebakaran jenggot🩠"
## [2] "bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil di menara lpp fmtnews fmtberita httpstcoznmw fjxkq"
## [7] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [8] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [9] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [10] "aipda jw purba binamas kel bojong jaya himbau warga tidak membakar sampah guna mengantisipasi dampak kebakaran dan polusi udara di jln kebon jati rt rw kel bojong jaya kec karawaci kota tangerang httpstcoddndicvm w"
## [11] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [12] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [13] "loeyyo nanarzwn tangkira you kan kalau mie samyang itu pes ga nikmat"
## [14] "hari kelima kebakaran tempat pembuangan akhir tpa rawa kucing"
## [15] "saling menasehati"
## [16] "hope bantu tag akunku kebakaran optimiest mau tb atau mutualan bilang you biar ku coba qrt makasih bnyk lekas big win kita aamiin"
## [17] "missyanaa eh sumpah jangan sampe"
## [18] "vivacoid awal sh wapres you mereka paham koalisi anies ga berlayar kl mereka mundurtaunya langit ngatur pkb masuk mereka kebakaran jenggotskrg y udh turun target menteri gpp dr rezim kodok jg gpplah gila skalian drpd malu doang jabatan kagak"
## [19] "kebakaran di bagansiapiapi"
## [20] "hari ini kami kembali turun ke lokasi musibah kebakaran yang terjadi di tpa mandung"
## [21] "iklim panas es nya hilang bahaya kebakaran httpstcottztjrsc"
## [22] "liat drama politik di indonesia menjelang pesta demokrasi makin kesini makin kesana hari ini kawan besok lawan hari ini memuji besok menghina yang anteng aja ngga ikutan drama adaa yang o aja padahal di serang abis abisan ada yang kebakaran pantat takut kalah banyak"
## [23] "semoga kemarau tahun ini lekas berakhir"
## [24] "bangsal lore fontaine kebakaran gw anjg takut banget sama gw mule"
## [25] "tujuan latihan ini diadakan adalah untuk memberi latihan dan pendedahan secara teori dan praktikal kepada setiap ahli kumpulan mengenai cara pengurusan kebakaran di tempat kerja suruhanjayatenaga energycommission thinksafetythinkst beenergysmart httpstcojkytizlrqk"
## [26] "amp oktober sesi taklimat dan latihan pencegah kebakaran yang dikendalikan oleh jabatan bomba dan penyelamat malaysia jbpm putrajaya telah diadakan di balai bomba dan penyelamat presint"
## [27] "pt jasamarga tollroad operator ruas solo ngawi melaksanakan kegiatan pelatihan penanganan kondisi gawat darurat kebakaran jmtosolongawi jmtoberakhlak drivingthefutureoftollroadoperations jasamargatollroadoperator httpstcoi jxkwosho"
## [28] "kalau dalam stadium"
## [29] "hari ke tpa rawa kucing kebakaran"
## [30] "cokelat windawarda pdhal lbh seru kl jepri itu dibikin cerdas penuh strategi"
## [31] "gibrantweet yang katanya bocah ingusan"
## [32] "rumah transit disedia untuk mangsa kebakaran bhnasional lokasinya akan diteliti bagi memudahkan pergerakan harian termasuk persekolahan anak httpstcoqbg xaibbs"
## [33] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [34] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [35] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [36] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [37] "stop kebakaran hutan dan lahan"
## [38] "biar apa sih begitu brayy"
## [39] "tim gabungan operator petugas pelaksana penanggulangan kebakaran tpa rawa kucing polres metro tangerang kota monitor titik api"
## [40] "simulasi bertujuan untuk memberikan awareness dan pemahaman kepada pegawai dan juga tim tanggap darurat"
## [41] "bekerja sama dengan damkar badung"
## [42] "untuk itu"
## [43] "hingga senin pagi"
## [44] "dkijakarta dinaslhdki httpstcoys l pjkis gak ada nasib yg buruk"
## [45] "dandim bangka sigap bantu padamkan api kebakaran hutan httpstconugykeb u httpstcofvnukddert"
## [46] "menparekraf sandiuno uno memastikan saat ini kondisi bali tetap aman untuk dikunjungi wisatawan seperti biasa meskipun pj gubernur bali mengeluarkan status siaga darurat bencana kekeringan"
## [47] "cegah kebakaran hutan"
## [48] "tim pemadam petugas pelaksana penanggulangan kebakaran tpa rawa kucing polres metro tangerang kota bersama pemadam kebakaran kota tangerang terus berjibaku memadamkan sumber api"
## [49] "bpbd mengerahkan puluhan mobil pemadam hingga helikopter untuk memadamkan kebakaran di tpa rawa kucing yang terjadi sejak jumat pekan lalu httpstcotxjp dfls"
## [50] "yang kebakaran gueh dua dua nya cool dua dua nya professional yang bajingan cmn gue aja inti ny"
## [51] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [52] "petugas kepolisian vs petugas pemadam kebakaran satu peristiwa langka yang memperlihatkan betapa ketidakpuasan terhadap kapitalisme itu sudah tidak tertahankan lagi dan oleh karenanya"
## [53] "gsh nanya kebakaran karena apaa gue gatau"
## [54] "semoga kebakaran tpa rawa kucing bisa lekas padam 🝯 warga sekitar sebaiknya waspada karena kualitas udara mudah berubah mengikuti kondisi atmosfer dan sumber polusi 🝯 lakukan dan simpan tip berikut httpstco ur ywgku"
## [55] "tim kamseltibcar lantas polres metro tangerang kota pada penanggulangan kebakaran tpa rawa kucing melakukan pengaturan lalu lintas untuk mengurai penumpukan kendaraan dampak dari peristiwa kebakaran"
## [56] "radar pertahanan zionis israel mengalami kerusakan dan kebakaran setelah di tembak bertubi tubi oleh pasukan hezbollah httpstco clypssmpw"
## [57] "sumber polusi seperti kebakaran tpa dapat mempengaruhi kualitas udara di sekitarnya ada potensi kontribusi polusi udara dari kebakaran tpa rawa kucing ke sisi barat jabodetabek dan juga wilayah lainnya sesuai pergerakan arah angin httpstcogzpvlkb yx"
## [58] "astra motor bali bersama dengan fifgroup melakukan aksi social dengan secara langsung menyerahkan bantuan logistic ke tpa suwung astramotorbali fifgroup dinassosial tpasuwung kebakaran httpstcot scdjyxe"
## [59] "kemarau kekeringan dan kebakaran hujan you banjir"
## [60] "ada beberapa waktu di mana arah angin berubah dan berdampak pada daerah sekitar sumber kebakaran tpa"
## [61] "cenayangfilm panggil pemadam kebakaran"
## [62] "musim kemarau kekeringan kebakaran dimana mana musim hujan banjir dimana mana"
## [63] "kebakaran tpa rawa kucing terjadi sejak oktober hingga saat ini"
## [64] "azljnh kronologinya gmn kak ko bisa kebakaran🜪"
## [65] "lahan di kampus gue kebakaran bjir"
## [66] "wkwkkwkw ngakak unimus random bgt tiba kebakaran"
## [67] "cenayangfilm mend panggil pemadam kebakaran aja kayanya 🞡"
## [68] "zainews pada pukul telah terjadi kebakaran besar dalam hati seorang zain"
## [69] "uberpuisi 🕲 siram dulu biar ga kebakaran"
## [70] "iki sleman ono kebakaran neng endi yo kok mau ono truk damkar lewat daerah condong catur"
## [71] "satu unit rumah dan lahan perkebunan di kota gorontalo terbakar kebakaran rumah lahanperkebunan kotagorontalo httpstcoeidjedwol"
## [72] "palakaopeyang rlaplace suaradotcom mereka meyakini bahwa penyebab kebakaran adalah kebocoran minyak yang tidak disengaja"
## [73] "palakaopeyang rlaplace suaradotcom pada peristiwa kecelakaan di terowongan mont blanc pada tahun"
## [74] "cegah kebakaran hutan"
## [75] "sampurasun sobatnet istimewa kemarau panjang dan banyaknya kejadian kebakaran hutan dan lahan karhutla membuat kita patut meningkatkan kehatihatian saat berada di kawasan rawan terbakar httpstcohjcvtlvr a"
## [76] "menghadapi situasi kebakaran hutan dan lahan karhutla yang terjadi di sekitar wilayah indralaya"
## [77] "rvbyjan kebakaran"
## [78] "upaya pencegahan kebakaran tpa perlu dilakukan untuk melindungi lingkungan dan masyarakat selengkapnya ditautan berikut httpstcouspwcq tay kebakarantpa tpa sampah lingkungan kesehatan pemerintah september tempatpembuanganakhir kebakaran eramadanicom httpstcoxjqezzloen"
## [79] "memasuki hari keempat"
## [80] "kebakaran di tpa rawa kucing yang belum dapat diatasi juga membuat warga yang tinggal dalam radius meter dari tpa harus mengungsi baca masih membara"
## [81] "kepala bpbd kota tangerang maryono mengatakan"
## [82] "petugas di lapangan harus terus menyirami titik yang berasap agar pemadaman bisa tuntas eddy yusuf"
## [83] "pantauan di lapangan hingga senin sore"
## [84] "pemadaman ditargetkan tuntas secepatnya untuk mencegah dampak buruk dari kebakaran itu semakin besar hingga senin"
## [85] "upaya pemadaman dari darat dan udara dilakukan secara masif untuk mengatasi kebakaran di tempat pemrosesan akhir rawa kucing"
## [86] "akibat kebakaran di tpa rawa kucing"
## [87] "🔵 utas pemadaman kebakaran di tpa rawa kucing"
## [88] "babinsa jajaran kodim ska bekerjasama dengan dinas kebakaran kota surakarta mengadakan pembentukan relawan pemadam kebakaran redkar di jl tentara pelajar no pedaringan jebres selasa oktober pukul wib babinsasurakarta pendimsurakarta httpstco ici coh s"
## [89] "bhabinkamtibmas polsek neglasari bersama babinsa koramil batu ceper dan dinas pemadam kebakaran kota tangerang bekerjasama membuat pengaman untuk selang saluran air dari sungai cisadane yang digunakan untuk penanggulangan kebakaran tpa rawa kucing httpstcoitlovc r c"
## [90] "studi baru dampak mengejutkan dari kebakaran hutan boreal httpstcoazcr ijkg"
## [91] "mau unshadowban atau benerin akun kamu yang ada sb ssb gb merahmerah alias kebakaran atau gaib yuk coba sini mampir dan benerin ke dinoyaa boleh stalk profilnya buat liatliat testi 🕠🅠zonauang zonaba"
## [92] "rahmattakahind btstwt bukan tutup mata tsaay kita harus main cantik"
## [93] "babinsa koramil sajoanging serda ahyuddin melaksanakan komsos dengan warga menghimbau untuk tetap waspada terhadap bahaya kebakaran akibat musim kemarau berkepanjangan di desa walanga kec penrang kab wajo"
## [94] "bjierr lahan kampus kebakaran"
## [95] "kemenkumham sumsel sosialisasi dilanjutkan dengan praktik langsung penggunaan apar sebagai langkah pertama mengatasi kebakaran secara dini kemenkumhamri kumhamsumsel ilham djaya kumhamsumsel ilhamdjaya"
## [96] "kemenkumham sumsel pelatihan disampaikan oleh staf sesi penyuluhan dinas pkpb rachmat bachtiar beserta tim menurutnya"
## [97] "kemenkumham sumsel saya berharap kepada seluruh ppnpn sebagai garda terdepan untuk meningkatkan pengawasan"
## [98] "kemenkumham sumsel pelatihan ini"
## [99] "kemenkumham sumsel kadivmin minggu menyampaikan"
## [100] "kementerian atrbpn turut berkomitmen tanggulangi kebakaran hutan dan lahan artikel selanjutnya klik dibawah ini kantahkabjepara httpstcoww rt plf"
## [101] "penampakan kebakaran tpa rawa kucing tangerang"
## [102] "ssftiy killeroat hello kakak kakak jgn berantem yah nnti kebakaran🖴"
## [103] "andrew be apasj lg kebakaran you"
## [104] "babinsa koramil pammana sertu sarifuddin melaksanakan komsos dengan warga menghimbau agar tetap waspada terhadap bahaya kebakaran yang mungkin terjadi akibat musim kemarau di desa simpursia kec pammana kab wajo"
## [105] "pernah pada zamannya lagi jalan sama anak have dia lagi pakai baju dinas tibatiba diisengin sama orang ' mbak mbak di sana ada kebakaran belum ada yang ngeliput ' teman gw baru mau bangkit dari kursinya"
## [106] "pada hari senin tanggal oktober bpbd serta pmigrobogan menyalurkan bantuan logistik pada korban kebakaran rumah di nampu kecamatan karangrayung dan juga hari ini oktober menyalurkan ke desa godong kecamatan godong dan desa pulorejo kecamatan purwodadi httpstco bstm hgfr"
## [107] "team poap baru saja melawat ke rumah mangsa kebakaran yang terbakar di kampung pos slim kami di poap akan usaha bantu keluarga mangsa dalam masa terdekat poap simpanngpulai gopeng perak tapah tanjongmalim orangasli orangasal bantuan httpstcojrhej kco"
## [108] "dailymo have nonton kebakaran"
## [109] "petugas pelaksana penanggulangan kebakaran tpa rawa kucing yang terdiri dari anggota polsek neglasari dan polres metro tangerang kota berjibaku bersama instansi terkait berupaya memadamkan sumber api pada peristiwa kebakaran yang terjadi di tpa rawa kucing jalan iskandar muda httpstcoj brah l c"
## [110] "ngapain sih masih dengerin org yg pake perbandingannya sawah dan gunung di sd wkwk denial teros"
## [111] "babinsa koramil tempe koptu faisal umami melaksanakan komsos dengan warga menghimbau untuk tidak sembarang membakar sampah di sekitar area perumahan dan lahan kosong untuk menghindari terjadinya kebakaran di kel maddukkelleng kec tempe kab wajo"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"#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] "jdi nyesel ga ambil tawaran waktu dari brand sebelahpadahal klo ku ambil kyanya udah kebakaran jenggot🩠"
## [2] "bennyharmanid mereka sebenarnya tidak membela konstitusi yg mereka bela idol baru mereka"
## [3] "menghadapi situasi kebakaran hutan lahan karhutla terjadi sekitar wilayah indralaya"
## [4] "menghadapi situasi kebakaran hutan lahan karhutla terjadi sekitar wilayah indralaya"
## [5] "menghadapi situasi kebakaran hutan lahan karhutla terjadi sekitar wilayah indralaya"
## [6] "kebakaran kabel punca letupan kecil menara lpp fmtnews fmtberita httpstcoznmw fjxkq"write.csv(rev,file = "C:/Users/LENOVO/Documents/komstat.csv", row.names = F) ##Membuat Word Cloud #Mengubah Data Frame Menjadi Data Faktor
tdm <- TermDocumentMatrix(rev)
m <- as.matrix(tdm)
v <- sort(rowSums(m),decreasing = TRUE)#Mengubah Data Faktor Menjadi Data Frame
d <- data.frame(word = names(v), freq = v)
wordcloud(d$word, d$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
############################
tdm <- TermDocumentMatrix(rev,
control = list(wordLengths = c(1, Inf)))
tdm## <<TermDocumentMatrix (terms: 824, documents: 111)>>
## Non-/sparse entries: 1396/90068
## Sparsity : 98%
## Maximal term length: 36
## Weighting : term frequency (tf)inspect frequent words
(freq.terms <- findFreqTerms(tdm, lowfreq = 50))## [1] "kebakaran"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()
#which words are associated with ‘gibran’?
findAssocs(tdm, "gibran", 0.25)## $gibran
## numeric(0)#which words are associated with ‘cawapres’?
findAssocs(tdm, "cawap", 0.2)## $cawap
## numeric(0)remove sparse terms
tdm2 <- removeSparseTerms(tdm, sparse = 0.95)
m2 <- as.matrix(tdm2)cluster terms
distMatrix <- dist(scale(m2))
fit <- hclust(distMatrix, method = "ward.D")
plot(fit)
rect.hclust(fit, k = 5) # cut tree into 6 clusters
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## dari kebakaran hutan indralaya karhutla lahan menghadapi sekitar situasi
## 1 0.353 1.353 0.000 0.000 0.00 0.000 0.000 0.059 0.000
## 2 0.043 0.713 0.223 0.149 0.16 0.223 0.149 0.170 0.149
## terjadi wilayah tangerang warga hari kucing rawa tpa ke ada kemarau
## 1 0.176 0.059 0.412 0.118 0.118 1 1 1.176 0.118 0.059 0.000
## 2 0.181 0.149 0.021 0.043 0.064 0 0 0.032 0.053 0.064 0.064
## untuk pemadam
## 1 0.353 0.235
## 2 0.106 0.043for (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: kebakaran tpa kucing rawa tangerang
## cluster 2: kebakaran hutan lahan terjadi sekitar