ANALISIS DATASET DENGAN TEKS MINING
Mira Arwini
2023-12-11
R Markdown
Analisis dataset dalam bidang text mining atau penambangan teks melibatkan ekstraksi informasi yang berharga dari teks atau dokumen, dengan tujuan untuk memahami pola, hubungan, atau tren yang terkandung dalam data teks tersebut.
Langkah-langkah dalam membuat teks mining dari data yang telah disediakan adalah sebagai berikut:- Memuat berbagai packages yang diperlukan untuk melakukan analisis teks. Pustaka-pustaka tersebut mencakup alat untuk pembersihan teks, pemrosesan kata, analisis sentimen, dan visualisasi.
library(wordcloud)
library(tm)
library(textclean)
library(tidytext)
library(ggplot2)
library(parallel)
library(tokenizers)
library(tau)
library(NLP)
library(stringr)
library(devtools)
library(quanteda)
library(kayadata)
library(syuzhet)
library(e1071)
library(sentimentr)
library(SentimentAnalysis)
library(dplyr)
library(pacman)
library(readxl)Bagian ini memuat berbagai pustaka R yang diperlukan untuk pemrosesan teks, analisis sentimen, dan visualisasi data.
- Sintaks ini memeriksa apakah paket “textstem” dan “dplyr” sudah terinstal. Jika belum, maka fungsi ini akan menginstalnya. Setelah itu, paket-paket tersebut dimuat ke dalam sesi R.
pacman::p_load_gh("trinker/textstem")
pacman::p_load(textstem, dplyr)- Membaca file CSV bernama “olimpiade.csv” dan menyimpannya dalam dataframe olimpiade.
olimpiade <- read.csv("C:/Users/acer/OneDrive/Dokumen/MIRA/olimpiade.csv", sep=";")Mengambil kolom full_text
- Mengganti kontraksi dan perpanjangan kata. Mengambil kolom “full_text” dan menyimpannya dalam variabel rev.
#mengambil kolom full_text
rev <- olimpiade$full_text
head(rev)## [1] "[Ads] NEMO FEM IPB UNIVERSITY PRESENT: 💫National Economics Olympiad💫 Hai guys! NEMO lagi ngadain Olimpiade Ekonomi nih! kamu bisa dapat hadiah total 10 juta dan sertifikat Olimpiade untuk masuk IPB! (S& K Berlaku) Informasi terdapat pada link berikut: https://t.co/rV70NozajB https://t.co/PPoaci2zIV"
## [2] "Rangkuman informasi terkait jenis tes pada olimpiade sains tiap tingkatan, dan juga informasi bermanfaat lainnya, bisa kamu dapatkan pada link berikut https://t.co/D1uOUs1hKk https://t.co/gcNreWEr2F"
## [3] "[PERPANJANGAN PENDAFTARAN OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIV] Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana ❗️PRESENT❗️ OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIV Untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/P5Q0PnqiBE https://t.co/pCTm34WJ29"
## [4] "Sebagai informasi, cabor angkat besi terancam tidak dimainkan di Olimpiade Los Angeles 2028 karena masalah doping & tata kelola yang signifikan. Untuk tetap dimainkan, IWF wajib membuktikan bahwa angkat besi adalah olahraga bersih tanpa doping. https://t.co/aV22gj3GyL"
## [5] "#BOSABerprestasi Selamat kepada Kenneth Laurence E.H. - XII MIPA 2 Peraih Medali Emas Olimpiade Sains Pancasila Nasional (OSPN) 2023 bidang Teknologi dan Informasi. Raih dan ukir prestasi bersama SMA BOSA! - PCPDB 2024-2025 sudah dibuka! #smabosa #smafavorit #smaberprestasi https://t.co/wtWsjJDm8V"
## [6] "@K_TFirdausi Iya...ini lebih ke tragedi Munchen,padahal waktu itu Mosad sudah kasih data dan informasi,dan bahkan berencana ga mau ikut olimpiade,namun internal birokrasi dan politik mengabaikan demi image"Mengubah huruf kapital menjadi huruf kecil
- Sintaks rev <- tolower(rev) digunakan untuk mengubah semua karakter dalam variabel rev menjadi huruf kecil.
# lower case = mengubah huruf kapital menjadi huruf kecil
rev <- tolower(rev)
head(rev)## [1] "[ads] nemo fem ipb university present: 💫national economics olympiad💫 hai guys! nemo lagi ngadain olimpiade ekonomi nih! kamu bisa dapat hadiah total 10 juta dan sertifikat olimpiade untuk masuk ipb! (s& k berlaku) informasi terdapat pada link berikut: https://t.co/rv70nozajb https://t.co/ppoaci2ziv"
## [2] "rangkuman informasi terkait jenis tes pada olimpiade sains tiap tingkatan, dan juga informasi bermanfaat lainnya, bisa kamu dapatkan pada link berikut https://t.co/d1uous1hkk https://t.co/gcnrewer2f"
## [3] "[perpanjangan pendaftaran olimpiade akuntansi dan perpajakan xxiv] program studi diploma iii fakultas ekonomi dan bisnis universitas udayana ❗️present❗️ olimpiade akuntansi dan perpajakan xxiv untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/p5q0pnqibe https://t.co/pctm34wj29"
## [4] "sebagai informasi, cabor angkat besi terancam tidak dimainkan di olimpiade los angeles 2028 karena masalah doping & tata kelola yang signifikan. untuk tetap dimainkan, iwf wajib membuktikan bahwa angkat besi adalah olahraga bersih tanpa doping. https://t.co/av22gj3gyl"
## [5] "#bosaberprestasi selamat kepada kenneth laurence e.h. - xii mipa 2 peraih medali emas olimpiade sains pancasila nasional (ospn) 2023 bidang teknologi dan informasi. raih dan ukir prestasi bersama sma bosa! - pcpdb 2024-2025 sudah dibuka! #smabosa #smafavorit #smaberprestasi https://t.co/wtwsjjdm8v"
## [6] "@k_tfirdausi iya...ini lebih ke tragedi munchen,padahal waktu itu mosad sudah kasih data dan informasi,dan bahkan berencana ga mau ikut olimpiade,namun internal birokrasi dan politik mengabaikan demi image"Mengembalikan Kata yang disingkat Menjadi Kata Aslinya
- Menggantikan kontraksi dalam teks yang disimpan dalam variabel rev dengan bentuk lengkapnya, dan hasilnya ditampilkan melalui fungsi head untuk memeriksa perubahan yang telah .Operasi ini membantu dalam mengstandarisasi teks dan membuatnya lebih mudah untuk pemrosesan lanjutan, terutama jika analisis lebih lanjut memerlukan kata-kata penuh daripada kontraksi.
#Mengembalikan Kata yang disingkat Menjadi Kata Aslinya
rev <- replace_contraction(rev)
head(rev)## [1] "[ads] nemo fem ipb university present: 💫national economics olympiad💫 hai guys! nemo lagi ngadain olimpiade ekonomi nih! kamu bisa dapat hadiah total 10 juta dan sertifikat olimpiade untuk masuk ipb! (s& k berlaku) informasi terdapat pada link berikut: https://t.co/rv70nozajb https://t.co/ppoaci2ziv"
## [2] "rangkuman informasi terkait jenis tes pada olimpiade sains tiap tingkatan, dan juga informasi bermanfaat lainnya, bisa kamu dapatkan pada link berikut https://t.co/d1uous1hkk https://t.co/gcnrewer2f"
## [3] "[perpanjangan pendaftaran olimpiade akuntansi dan perpajakan xxiv] program studi diploma iii fakultas ekonomi dan bisnis universitas udayana ❗️present❗️ olimpiade akuntansi dan perpajakan xxiv untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/p5q0pnqibe https://t.co/pctm34wj29"
## [4] "sebagai informasi, cabor angkat besi terancam tidak dimainkan di olimpiade los angeles 2028 karena masalah doping & tata kelola yang signifikan. untuk tetap dimainkan, iwf wajib membuktikan bahwa angkat besi adalah olahraga bersih tanpa doping. https://t.co/av22gj3gyl"
## [5] "#bosaberprestasi selamat kepada kenneth laurence e.h. - xii mipa 2 peraih medali emas olimpiade sains pancasila nasional (ospn) 2023 bidang teknologi dan informasi. raih dan ukir prestasi bersama sma bosa! - pcpdb 2024-2025 sudah dibuka! #smabosa #smafavorit #smaberprestasi https://t.co/wtwsjjdm8v"
## [6] "@k_tfirdausi iya...ini lebih ke tragedi munchen,padahal waktu itu mosad sudah kasih data dan informasi,dan bahkan berencana ga mau ikut olimpiade,namun internal birokrasi dan politik mengabaikan demi image"Mengembalikan kata yang mengalami perpanjangan menjadi kata aslinya
- Operasi ini membantu dalam mengurangi variasi yang tidak perlu dalam kata-kata, sehingga memudahkan analisis dan memastikan konsistensi dalam pemrosesan teks.
#Mengembalikan Kata yang Mengalami Perpanjangan Menjadi Kata Aslinya
rev <- replace_word_elongation(rev)
head(rev)## [1] "[ads] nemo fem ipb university present: 💫national economics olympiad💫 hai guys! nemo lagi ngadain olimpiade ekonomi nih! kamu bisa dapat hadiah total 10 juta dan sertifikat olimpiade untuk masuk ipb! (s& k berlaku) informasi terdapat pada link berikut: https://t.co/rv70nozajb https://t.co/ppoaci2ziv"
## [2] "rangkuman informasi terkait jenis tes pada olimpiade sains tiap tingkatan, dan juga informasi bermanfaat lainnya, bisa kamu dapatkan pada link berikut https://t.co/d1uous1hkk https://t.co/gcnrewer2f"
## [3] "[perpanjangan pendaftaran olimpiade akuntansi dan perpajakan xxiv] program studi diploma i fakultas ekonomi dan bisnis universitas udayana ❗️present❗️ olimpiade akuntansi dan perpajakan xxiv untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/p5q0pnqibe https://t.co/pctm34wj29"
## [4] "sebagai informasi, cabor angkat besi terancam tidak dimainkan di olimpiade los angeles 2028 karena masalah doping & tata kelola yang signifikan. untuk tetap dimainkan, iwf wajib membuktikan bahwa angkat besi adalah olahraga bersih tanpa doping. https://t.co/av22gj3gyl"
## [5] "#bosaberprestasi selamat kepada kenneth laurence e.h. - xii mipa 2 peraih medali emas olimpiade sains pancasila nasional (ospn) 2023 bidang teknologi dan informasi. raih dan ukir prestasi bersama sma bosa! - pcpdb 2024-2025 sudah dibuka! #smabosa #smafavorit #smaberprestasi https://t.co/wtwsjjdm8v"
## [6] "@k_tfirdausi iya...ini lebih ke tragedi munchen,padahal waktu itu mosad sudah kasih data dan informasi,dan bahkan berencana ga mau ikut olimpiade,namun internal birokrasi dan politik mengabaikan demi image"Menghapus simbol
- Membersihkan teks dari karakter yang tidak diperlukan dan memastikan bahwa hanya karakter huruf dan angka yang tetap, sehingga mempermudah analisis dan pengolahan teks lebih lanjut.
#Menghapus simbol
rev <- strip(rev)
head(rev)## [1] "ads nemo fem ipb university present 🔳national economics olympiad🔳 hai guys nemo lagi ngadain olimpiade ekonomi nih kamu bisa dapat hadiah total juta dan sertifikat olimpiade untuk masuk ipb samp k berlaku informasi terdapat pada link berikut httpstcorv nozajb httpstcoppoaci ziv"
## [2] "rangkuman informasi terkait jenis tes pada olimpiade sains tiap tingkatan dan juga informasi bermanfaat lainnya bisa kamu dapatkan pada link berikut httpstcod uous hkk httpstcogcnrewer f"
## [3] "perpanjangan pendaftaran olimpiade akuntansi dan perpajakan xxiv program studi diploma i fakultas ekonomi dan bisnis universitas udayana present olimpiade akuntansi dan perpajakan xxiv untuk informasi selengkapnya dapat mengakses link berikut httpstcop q pnqibe httpstcopctm wj"
## [4] "sebagai informasi cabor angkat besi terancam tidak dimainkan di olimpiade los angeles karena masalah doping amp tata kelola yang signifikan untuk tetap dimainkan iwf wajib membuktikan bahwa angkat besi adalah olahraga bersih tanpa doping httpstcoav gj gyl"
## [5] "bosaberprestasi selamat kepada kenneth laurence eh xii mipa peraih medali emas olimpiade sains pancasila nasional ospn bidang teknologi dan informasi raih dan ukir prestasi bersama sma bosa pcpdb sudah dibuka smabosa smafavorit smaberprestasi httpstcowtwsjjdm v"
## [6] "ktfirdausi iyaini lebih ke tragedi munchenpadahal waktu itu mosad sudah kasih data dan informasidan bahkan berencana ga mau ikut olimpiadenamun internal birokrasi dan politik mengabaikan demi image"Kata dasar
- Mengurangi variasi kata-kata dalam teks ke bentuk dasarnya, memudahkan analisis dan meningkatkan konsistensi dalam pemrosesan teks.
stem_strings: Ini adalah fungsi dari paket "textstem" yang digunakan untuk melakukan stemming pada string atau teks. Stemming adalah proses mengubah kata-kata menjadi bentuk dasarnya dengan menghapus akhiran atau infleksi.
lemmatize_strings: Ini adalah fungsi dari paket "textstem" yang digunakan untuk melakukan lemmatization pada string atau teks. Lemmatization adalah proses mengubah kata-kata menjadi bentuk dasarnya (lemma) tanpa menghilangkan akhiran.#stemming/lemmatizing = kata dasar
rev <- stem_strings(rev)
head(rev)## [1] "ad nemo fem ipb univers present 🔳nation econom olympiad🔳 hai gui nemo lagi ngadain olimpiad ekonomi nih kamu bisa dapat hadiah total juta dan sertifikat olimpiad untuk masuk ipb samp k berlaku informasi terdapat pada link berikut httpstcorv nozajb httpstcoppoaci ziv"
## [2] "rangkuman informasi terkait jeni te pada olimpiad sain tiap tingkatan dan juga informasi bermanfaat lainnya bisa kamu dapatkan pada link berikut httpstcod uou hkk httpstcogcnrew f"
## [3] "perpanjangan pendaftaran olimpiad akuntansi dan perpajakan xxiv program studi diploma i fakulta ekonomi dan bisni universita udayana present olimpiad akuntansi dan perpajakan xxiv untuk informasi selengkapnya dapat mengaks link berikut httpstcop q pnqibe httpstcopctm wj"
## [4] "sebagai informasi cabor angkat besi terancam tidak dimainkan di olimpiad lo angel karena masalah dope amp tata kelola yang signifikan untuk tetap dimainkan iwf wajib membuktikan bahwa angkat besi adalah olahraga bersih tanpa dope httpstcoav gj gyl"
## [5] "bosaberprestasi selamat kepada kenneth laurenc eh xii mipa peraih medali ema olimpiad sain pancasila nasion ospn bidang teknologi dan informasi raih dan ukir prestasi bersama sma bosa pcpdb sudah dibuka smabosa smafavorit smaberprestasi httpstcowtwsjjdm v"
## [6] "ktfirdausi iyaini lebih ke tragedi munchenpadah waktu itu mosad sudah kasih data dan informasidan bahkan berencana ga mau ikut olimpiadenamun intern birokrasi dan politik mengabaikan demi imag"rev <- lemmatize_strings(rev)
head(rev)## [1] "ad nemo fem ipb univers present 🔳nation econom olympiad🔳 hai gui nemo lagi ngadain olimpiad ekonomi nih kamu bisa dapat hadiah total juta dan sertifikat olimpiad untuk masuk ipb samp k berlaku informasi terdapat pada link berikut httpstcorv nozajb httpstcoppoaci ziv"
## [2] "rangkuman informasi terkait jeni te pada olimpiad sain tiap tingkatan dan juga informasi bermanfaat lainnya bisa kamu dapatkan pada link berikut httpstcod uou hkk httpstcogcnrew f"
## [3] "perpanjangan pendaftaran olimpiad akuntansi dan perpajakan xxiv program studi diploma i fakulta ekonomi dan bisni universita udayana present olimpiad akuntansi dan perpajakan xxiv untuk informasi selengkapnya dapat mengaks link berikut httpstcop q pnqibe httpstcopctm wj"
## [4] "sebagai informasi cabor angkat besi terancam tidak dimainkan di olimpiad lo angel karena masalah dope amp tata kelola yang signifikan untuk tetap dimainkan iwf wajib membuktikan bahwa angkat besi adalah olahraga bersih tanpa dope httpstcoav gj gyl"
## [5] "bosaberprestasi selamat kepada kenneth laurenc eh xii mipa peraih medali ema olimpiad sain pancasila nasion ospn bidang teknologi dan informasi raih dan ukir prestasi bersama sma bosa pcpdb sudah dibuka smabosa smafavorit smaberprestasi httpstcowtwsjjdm v"
## [6] "ktfirdausi iyaini lebih ke tragedi munchenpadah waktu itu mosad sudah kasih datum dan informasidan bahkan berencana ga mau ikut olimpiadenamun intern birokrasi dan politik mengabaikan demi imag"Melakukan pemisahan kata dalam suatu kalimat dengan
- Operator ini memungkinkan eksekusi fungsi atau operasi berurutan pada suatu objek. Dalam hal ini, fungsi atau operasi tersebut adalah rev().
#tokenisasi = metode untuk melakukan pemisahan kata dalam suatu kalimat dengan
rev <- rev %>%
rev()
head(rev)## [1] "what i bsl hello metazen apa kalian tau apa itu bionix student level yuk simak penjelasannya bionix student level adalah olimpiad bisni dan teknologi informasi untuk para pelajar tingkat smasmksederajat di indonesia httpstcoqx wwogoer"
## [2] "olimpiad kimia nasion halo generasi muda sebentar lagi akan dibuka pendaftaran okn yuk kepoin mulai dari penyelenggara hingga hadiahnya informasi terbaru melaui web httpstco v aagch line pqitz tiktok olimpiadekimiaugm ig httpstco jvkz okt httpstconprr kdhdy"
## [3] "informasi lomba olimpiad guru nasion ogn untuk guru pendidikan menengah httpstco qqgh ti w"
## [4] "halo sobatprestasi jenjang sd dan smp 🜯🜯 ini dia jadwal terbaru pendaftaran olimpiad olahraga siswa nasion o sn jenjang sd dan smp tingkat provinsi 🬯 🜯 sobatprestasi dapat simak poster untuk informasi pentingnya 🜯🜯 httpstcobwfgtj tra"
## [5] "begitupun dengan bem polimedia yang memanfaatkan sosial medium untuk menyebarluaskan informasi secara kreatif dan informatif berikut beberapa kanal medium bem polimedia olimpiad polimedia httpstconmhpa yapx psp polimedia httpstcoi i v have n"
## [6] "penantian panjang citra febrianti untuk mendapatkan medali perak olimpiad london segera berakhir selama empat tahun tanpa kejelasan informasi dia berjuang mengupayakan medali itu menjadi miliknya olahraga adadikompa httpstcossbggrnwyx"#Melakukan pemisahan kata dalam suatu kalimat dengan
- Menghilangkan kata-kata yang umumnya tidak memberikan informasi substansial dalam analisis teks, sehingga memfokuskan perhatian pada kata-kata yang lebih penting dalam pemrosesan dan analisis lebih lanjut.
#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","karena",
"knp","hanya","ttg","nggak","saja","dia","juga","lagi","tsb","begitu","kali","sama","ada",
"boleh","beliau","bagaimana","belajar","tuh","malah","terjadi","samapai","sedang","gue",
"dibuat","tolong","tau","tue","dalam","masuk","gara","liat","lalu","kalian","wed","tiap",
"thu","nama","pernah","kalo","hal","the","klo","pls","katanya","daerah","and","harus",
"rame","judi","gausah","atau","buat","amp","pinjol","biar","ikut","iri","tiktok","kaya",
"cara","yaa","kayak","para","cek","sun","bikin","jangan","paling","marak","loh","gays",
"dulu","kata","jadi","orang","dari","untuk","bener","apakah","lebih","lemah","sedikit",
"jateng","dibilang","sebagian","adakami","kecil","blitar","cuma","mon","bundir","namun",
"org","yg","oct","banyak","in","ga","aja","anak","udah","tidak","sekarang","sebagai","hari",
"secara","tinggi","ya","sekali","masih","mau","mereka","aku","tapi","sampe","bukan","salah",
"ke","tahun","tentang","🕮","dapat","lanjut"))
head(rev)## [1] "what i bsl hello metazen bionix student level yuk simak penjelasannya bionix student level adalah olimpiad bisni teknologi informasi pelajar tingkat smasmksederajat indonesia httpstcoqx wwogoer"
## [2] "olimpiad kimia nasion halo generasi muda sebentar dibuka pendaftaran okn yuk kepoin mulai penyelenggara hadiahnya informasi terbaru melaui web v aagch line pqitz olimpiadekimiaugm ig jvkz okt httpstconprr kdhdy"
## [3] "informasi lomba olimpiad guru nasion ogn guru pendidikan menengah qqgh ti w"
## [4] "halo sobatprestasi jenjang sd smp 🜯🜯 jadwal terbaru pendaftaran olimpiad olahraga siswa nasion o sn jenjang sd smp tingkat provinsi 🬯 🜯 sobatprestasi simak poster informasi pentingnya 🜯🜯 httpstcobwfgtj tra"
## [5] "begitupun bem polimedia memanfaatkan sosial medium menyebarluaskan informasi kreatif informatif beberapa kanal medium bem polimedia olimpiad polimedia httpstconmhpa yapx psp polimedia httpstcoi i v have n"
## [6] "penantian panjang citra febrianti mendapatkan medali perak olimpiad london segera berakhir selama empat tanpa kejelasan informasi berjuang mengupayakan medali menjadi miliknya olahraga adadikompa httpstcossbggrnwyx"- Membantu menyimpan hasil pemrosesan teks ke dalam file yang dapat dengan mudah diakses untuk analisis lebih lanjut atau untuk berbagi data.
write.csv(rev,file = "C:/Users/acer/OneDrive/Dokumen/MIRA.csv", row.names = F)Membuat Word Cloud
- Word cloud memberikan representasi visual dari frekuensi kata-kata dalam teks, di mana kata-kata yang lebih sering muncul akan ditampilkan lebih besar dan lebih mencolok. Dalam konteks ini, word cloud akan memberikan gambaran visual tentang kata-kata yang paling umum dalam teks yang telah diproses sebelumnya.
##Membuat Word Cloud
#Mengubah Data Frame Menjadi Data Faktor
tdm <- TermDocumentMatrix(rev)
m <- as.matrix(tdm)
v <- sort(rowSums(m),decreasing = TRUE)- Memberikan representasi visual dari frekuensi kata-kata dalam teks dan menghasilkan matriks term-dokumen dengan mempertimbangkan batasan panjang kata tertentu.
wordcloud: Fungsi dari paket wordcloud yang digunakan untuk membuat Word Cloud.
d$word dan d$freq: Kolom "word" dan "freq" dari data frame d yang digunakan sebagai dasar untuk Word Cloud.
random.order = FALSE: Membuat urutan kata-kata dalam Word Cloud berdasarkan frekuensinya (dari yang tertinggi ke terendah).
max.words = 300: Menentukan jumlah maksimum kata yang akan ditampilkan dalam Word Cloud.
colors = brewer.pal(name = "Dark2", 8): Menentukan palet warna (dalam hal ini, palet "Dark2" dari paket RColorBrewer) untuk Word Cloud.#Mengubah Data Faktor Menjadi Data Frame
d <- data.frame(word = names(v), freq = v)
wordcloud(d$word, d$freq,
random.order = FALSE,
max.words = 300,
colors = brewer.pal(name = "Dark2",8 )) 
tdm <- TermDocumentMatrix(rev,
control = list(wordLengths = c(1, Inf)))
tdm## <<TermDocumentMatrix (terms: 1755, documents: 172)>>
## Non-/sparse entries: 3849/298011
## Sparsity : 99%
## Maximal term length: 27
## Weighting : term frequency (tf)Membuat Bar Plot
- Memvisualisasikan frekuensi kata-kata yang sering muncul dalam teks dengan menggunakan bar plot. findFreqTerms(tdm, lowfreq = 20): Mencari kata-kata yang muncul setidaknya 20 kali dalam Term Document Matrix (TDM) dan menyimpannya dalam freq.terms.
rowSums(as.matrix(tdm)): Menghitung total frekuensi kata-kata dari TDM dan menyimpannya dalam term.freq.
subset(term.freq, term.freq >= 20): Menyaring kata-kata yang memiliki frekuensi setidaknya 20 kali dan menyimpannya kembali dalam term.freq.
data.frame(term = names(term.freq), freq = term.freq): Membuat data frame baru (df) yang berisi nama kata-kata dan frekuensinya.
ggplot(df, aes(x = term, y = freq)) + geom_bar(stat = "identity") + xlab("Terms") + ylab("Count") + coord_flip(): Membuat plot batang dengan menggunakan data frame df, di mana sumbu x adalah kata-kata, sumbu y adalah frekuensinya, dan hanya menampilkan kata-kata dengan frekuensi setidaknya 20. Sum-plot ini juga menggambarkan distribusi frekuensi kata-kata dengan memutar plot menggunakan coord_flip().# inspect frequent words
(freq.terms <- findFreqTerms(tdm, lowfreq = 20))## [1] "informasi" "olimpiad" "nasion" "pendaftaran" "lomba"
## [6] "you" "selengkapnya" "🕮" "link" "mengenai"term.freq <- rowSums(as.matrix(tdm))
term.freq <- subset(term.freq, term.freq >= 20)
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()
- Mencari kata-kata yang memiliki korelasi tinggi dengan kata kunci “olimpiade” dalam matriks term-dokumen (tdm)
# which words are associated with 'r'?
findAssocs(tdm, "lomba", 0.2)## $lomba
## bahan bangunan energi gedung
## 0.73 0.73 0.73 0.73
## grafi hemat ilmiah iptek
## 0.73 0.73 0.73 0.73
## kapal prestasikejuaraan robot robotika
## 0.73 0.73 0.73 0.73
## roket saintek terbang kategori
## 0.73 0.73 0.73 0.59
## karya fisika kompetisi desain
## 0.50 0.50 0.43 0.40
## biologi teknologi alur baikbaik
## 0.33 0.25 0.23 0.23
## disimak jjrp pembayaran xctd
## 0.23 0.23 0.23 0.23
## berguna httpstcoeplanogtrf kompetisisma kompetisismp
## 0.23 0.23 0.23 0.23
## lombagrati lombasmp olimpiadesma olimpiadesmp
## 0.23 0.23 0.23 0.23
## semuaa smamasmk🜯🜯 smpmt ask
## 0.23 0.23 0.23 0.23
## darimana dpt gitu🯴🯴🯴🯴🯴🯴🯴🯴🯴🯴🯴🯴 help
## 0.23 0.23 0.23 0.23
## luar me moot pgn
## 0.23 0.23 0.23 0.23
## pl sere want alamat
## 0.23 0.23 0.23 0.23
## assalamu'alaikum dimohon domisili format
## 0.23 0.23 0.23 0.23
## fosmaki httpstcodrdcxud kyai mendaftarkan
## 0.23 0.23 0.23 0.23
## npm yunda all download
## 0.23 0.23 0.23 0.23
## follow good httpstcoafkaaweq lctip
## 0.23 0.23 0.23 0.23
## luck🎦🎦 teknologipangan veri we
## 0.23 0.23 0.23 0.23
## wish lombasma
## 0.23 0.21Dalam konteks fungsi findAssocs pada sintaks tersebut, "asosiasi" merujuk pada tingkat korelasi atau hubungan antara kata "lomba" dan kata-kata lainnya dalam Term Document Matrix (TDM). Secara spesifik, fungsi ini mencari kata-kata yang memiliki korelasi tinggi dengan kata "lomba" berdasarkan frekuensi kemunculan bersama dalam dokumen.- Menghapus kata-kata yang jarang muncul (sparse) dalam matriks term-dokumen (tdm)
removeSparseTerms(tdm, sparse = 0.95): Menggunakan fungsi removeSparseTerms untuk menghapus kata-kata yang jarang muncul (sparse) dalam Term Document Matrix (TDM) dengan batas ambang 0.95. Hasilnya disimpan dalam variabel tdm2.
m2 <- as.matrix(tdm2): Mengonversi TDM yang telah diubah (tanpa kata-kata sparse) ke dalam format matriks baru. Matriks representasi TDM yang baru disimpan dalam variabel m2.# remove sparse terms
tdm2 <- removeSparseTerms(tdm, sparse = 0.90)
m2 <- as.matrix(tdm2)Cluster Terms
- Melakukan pengelompokan (clustering) pada kata-kata dalam analisis term-dokumen.Pembagian kata-kata atau dokumen menjadi kelompok-kelompok berdasarkan pola kemiripan atau jarak di antara mereka. Hierarchical clustering memberikan pemahaman struktur hirarki di antara kata-kata, sementara K-means clustering memberikan pengelompokan yang lebih klasik dan tanpa hirarki.
Pembuatan Matriks Jarak dan Dendrogram:
distMatrix <- dist(scale(m2)): Membuat matriks jarak antara dokumen menggunakan matriks representasi TDM yang diubah skala.
fit <- hclust(distMatrix, method = "ward.D"): Melakukan klastering hierarkis dengan metode "ward.D" dan menyimpan hasilnya dalam variabel fit.
Visualisasi Dendrogram dan Pemotongan Klaster:
plot(fit): Menampilkan dendrogram hasil klastering.
rect.hclust(fit, k = 6): Memotong dendrogram menjadi 6 klaster dan menandai klaster dengan kotak pada dendrogram.
Klastering dengan K-Means:
m3 <- t(m2): Mengubah orientasi matriks untuk melakukan klastering pada dokumen daripada kata-kata.
set.seed(122): Menetapkan biji acak untuk hasil yang dapat direproduksi.
k <- 4: Menentukan jumlah klaster yang diinginkan.
kmeansResult <- kmeans(m3, k): Melakukan klastering k-means pada matriks dokumen dan menyimpan hasilnya dalam variabel kmeansResult.
Pusat Klaster dari K-Means:
round(kmeansResult$centers, digits = 3): Menampilkan pusat klaster dari hasil k-means dengan pembulatan tiga angka desimal.# cluster terms
distMatrix <- dist(scale(m2))
fit <- hclust(distMatrix, method = "ward.D")
plot(fit)
rect.hclust(fit, k = 6) # cut tree into 6 clusters
m3 <- t(m2) # transpose the matrix to cluster documents (tweets)
set.seed(122) # set a fixed random seed
k <- 4 # number of clusters
kmeansResult <- kmeans(m3, k)
round(kmeansResult$centers, digits = 3) # cluster centers## informasi olimpiad halo nasion pendaftaran lomba you selengkapnya link
## 1 0.909 1.000 0.091 0.030 1.152 0.152 0.121 0.091 0.545
## 2 1.000 1.069 0.276 1.103 0.103 0.138 0.103 0.034 0.034
## 3 1.036 1.012 0.083 0.000 0.000 0.000 0.000 0.238 0.167
## 4 1.000 1.077 0.038 0.038 0.000 0.808 0.885 0.000 0.000
## mengenai
## 1 0.576
## 2 0.034
## 3 0.024
## 4 0.038- Mencetak informasi mengenai setiap kelompok hasil dari algoritma K-means clustering
for (i in 1:k) {: Loop untuk setiap klaster dari 1 hingga k.
cat(paste("cluster ", i, ": ", sep = "")): Menampilkan nomor klaster.
s <- sort(kmeansResult$centers[i, ], decreasing = T): Mengurutkan pusat klaster ke-i secara menurun.
cat(names(s)[1:5], "\n"): Menampilkan lima kata paling berkontribusi dalam klaster tersebut.
print(tweets[which(kmeansResult$cluster==i)]): Mencetak tweet yang termasuk dalam klaster ke-i.for (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: pendaftaran olimpiad informasi mengenai link
## cluster 2: nasion olimpiad informasi halo lomba
## cluster 3: informasi olimpiad selengkapnya link halo
## cluster 4: olimpiad informasi you lomba haloAnalisis Sentiment
setwd("C:/Users/acer/OneDrive/Dokumen/MIRA"): Mengatur direktori kerja ke lokasi tertentu di komputer. dalim.df \<- read_excel("data full text
olimpiade.xlsx"): Membaca file Excel dengan nama "data full text olimpiade.xlsx" dan menyimpan datanya ke dalam DataFrame dalim.df.
head(dalim.df): Menampilkan beberapa baris pertama dari DataFrame dalim.df untuk melihat struktur awal data.
str(dalim.df): Memberikan ringkasan struktur dari DataFrame dalim.df, termasuk nama kolom, tipe data kolom, dan contoh nilai.
dalim.data = dalim.df: Membuat salinan DataFrame dalim.df dan menyimpannya dalam variabel dalim.data.
dalim.data = as.data.frame(unclass(dalim.data), stringsAsFactors = TRUE): Mengubah tipe objek dalim.data menjadi data frame##Analisis Sentiment
library(readxl)
setwd("C:/Users/acer/OneDrive/Dokumen/MIRA")
dalim.df<- read_excel("data full text olimpiade.xlsx")
dalim.df## # A tibble: 172 × 2
## Pernyataan Komentar
## <chr> <chr>
## 1 "[Ads] NEMO FEM IPB UNIVERSITY PRESENT: \U0001f4abNational Econom… Neutral
## 2 "Rangkuman informasi terkait jenis tes pada olimpiade sains tiap ti… Neutral
## 3 "[PERPANJANGAN PENDAFTARAN OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIV]… Neutral
## 4 "Sebagai informasi, cabor angkat besi terancam tidak dimainkan di O… Neutral
## 5 "#BOSABerprestasi Selamat kepada Kenneth Laurence E.H. - XII MIPA 2… Neutral
## 6 "dah kasih data dan informasi,dan bahkan berencana ga mau ikut olim… Negative
## 7 "Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas … Neutral
## 8 "Informasi lebih lanjut: Instagram : @olimpiadepariwisata_ugm Twitt… Neutral
## 9 "Jangan sampai kelewatan dan pantau terus sosial media kami untuk i… Neutral
## 10 "@R_RB6767 China emang niat banget dah klo masalah beginian.Dlu wak… Positif
## # ℹ 162 more rowshead(dalim.df)## # A tibble: 6 × 2
## Pernyataan Komentar
## <chr> <chr>
## 1 "[Ads] NEMO FEM IPB UNIVERSITY PRESENT: \U0001f4abNational Economi… Neutral
## 2 "Rangkuman informasi terkait jenis tes pada olimpiade sains tiap tin… Neutral
## 3 "[PERPANJANGAN PENDAFTARAN OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIV] … Neutral
## 4 "Sebagai informasi, cabor angkat besi terancam tidak dimainkan di Ol… Neutral
## 5 "#BOSABerprestasi Selamat kepada Kenneth Laurence E.H. - XII MIPA 2 … Neutral
## 6 "dah kasih data dan informasi,dan bahkan berencana ga mau ikut olimp… Negativestr(dalim.df)## tibble [172 × 2] (S3: tbl_df/tbl/data.frame)
## $ Pernyataan: chr [1:172] "[Ads] NEMO FEM IPB UNIVERSITY PRESENT: 💫National Economics Olympiad💫 Hai guys! NEMO lagi ngadain Olimpiade E"| __truncated__ "Rangkuman informasi terkait jenis tes pada olimpiade sains tiap tingkatan, dan juga informasi bermanfaat lainny"| __truncated__ "[PERPANJANGAN PENDAFTARAN OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIV] Program Studi Diploma III Fakultas Ekonomi "| __truncated__ "Sebagai informasi, cabor angkat besi terancam tidak dimainkan di Olimpiade Los Angeles 2028 karena masalah dopi"| __truncated__ ...
## $ Komentar : chr [1:172] "Neutral" "Neutral" "Neutral" "Neutral" ...dalim.data = dalim.df
dalim.data = as.data.frame(unclass(dalim.data),
stringsAsFactors = TRUE)Membuat DataFrame yang hanya berisi komentar positif dari kolom "Komentar" dalam DataFrame dalim.df.menghasilkan DataFrame komentar_positif yang hanya berisi komentar-komentar dengan sentimen positif dari DataFrame .# Buat DataFrame hanya untuk komentar positive
komentar_positif <- dalim.df %>%
filter(Komentar == "Positive")
komentar_positif <-komentar_positif$Pernyataan
komentar_positif## [1] "Selamat untuk 30 Tim peserta Olimpiade Jaringan MikroTik 2023 yang sudah lolos dan melaju ke Tahap 3. Pengumuman & jadwal bisa dilihat melalui: 🌐https://t.co/6t9mqvRUI8 Informasi Tahap 3 bisa anda saksikan melalui: 📺https://t.co/fsuKVAfR48 #OJM2023 #MikroTik #SMK #Citraweb https://t.co/gz9hzszZL2"
## [2] "Selamat untuk 30 Tim peserta Olimpiade Jaringan MikroTik 2023 yang sudah lolos dan melaju ke Tahap 3. Pengumuman & jadwal bisa dilihat melalui: 🌐https://t.co/k8AxA5o02n Informasi Tahap 3 bisa anda saksikan melalui: 📺https://t.co/4Y9xTPSyfX #OJM2023 #MikroTik #SMK #Citraweb https://t.co/9gRFP3DBsA"
## [3] "juara Olimpiade tingkat Nasional, serta peringkat 1 Provinsi DIY dalam seleksi masuk Perguruan Tinggi Negeri. Dalam arahannya, Kapolda DIY mengatakan saat ini teknologi dan informasi bertebaran di mana-mana dan semua ada di genggaman, perlu kemampuan dari kita untuk memfilter"
## [4] "Gubri Syamsuar Pamer Riau Peringkat 7 Olimpiade Sains Nasional: https://t.co/fvfXioYa49 -& nbsp Peringkat 7 dalam Olimpiade Sains Nasional (OSN) 2023 berhasil ditempati Provinsi Riau. & ldquo Pertama sekali saya ingin menyampaikan informasi kepada… https://t.co/7k6gOFDRvl https://t.co/xXX0sLzmKl"
## [5] "Aku mau ikutan banyakk lomba sama olimpiade, cari dimana yaaaa informasi kayak gituu??"
## [6] "BINAA, menurut kamu apa aja yang perlu dilakuin waktu kelas 10??\" - Ikut Olimpiade/Lomba sesuai bidang yang kamu minati, tingkatkan nilai dari awal semester dan aktif, selalu cari koneksi kakak kelas dan guru agar mempermudah informasi yang ... #tellonym https://t.co/QvSV7qqAFj\""
## [7] "Hari ini, 23 Juni, diperingati sebagai Hari Olimpiade Sedunia. Momen ini diperingati sebagai bentuk apresiasi terhadap ketangguhan dan perjuangan para atlet di seluruh dunia. Simak informasi selengkapnya! #GolkarIndonesia #AirlanggaHartarto #PartaiGolkar https://t.co/lyKXQ9FfKD"
## [8] "@bearyieu Samaaa!!!!!! Mau mengulik informasi tentang olimpiade ekonomi juga nihh"
## [9] "@convomfs tukeran laporan praktikum, saling bantu soal tugas. Kebetulan lumayan satu frekuensi, suka astronomi dan tipe mahasiswa yang suka nyari kegiatan diluar kuliah (kaya PMM, PKM, PMW, Olimpiade) jadinya deket karena saling tukar informasi. Entah ada angin apa waktu itu nekat bilang"
## [10] "Tuai apresiasi, UIN Sunan Kalijaga sumbang kontingen paling banyak di Olimpiade Agama, Sains, dan Riset (OASE) Perguruan Tinggi Keagamaan Islam (PTKI) II tahun 2023 Baca informasi selengkapnya, kunjungi https://t.co/L1gCeRsrON"
## [11] "[WHAT IS BIONIX?] Selanjutnya yang ga kalah seru ada BIONIX nihh atau Business and IT Olympiad on Information Systems Expo yang adalah olimpiade pada bidang teknologi informasi dan bisnis yang ditujukan kepada siswa SMA/SMK/sederajat di seluruh Indonesia!🙌🏼 https://t.co/lA19lBbEKF"
## [12] "KOI atau NOC Indonesia menjajaki potensi kerja sama dengan BUMN untuk membantu peningkatan prestasi olahraga nasional. Update selalu informasi terkini melalui media sosial kami dengan klik link di bio!🔥 #beritaterkini #trending #bumn #olimpiade #koiindonesia https://t.co/Tky6uT41GT"
## [13] "@nyannyankocat @tanyakanrl lu bisa ngapain aja saat punya privilege duit & informasi\" mereka bukan menang olimpiade se-dki 3× lho, mereka menang olimpiade internasional 100×. Equivalence di bidang lain ya macam masuk top 10 asian got talent. Bahkan di antara anak2 org privileged, they're one of the top🤷♀️\""
## [14] "Semoga Olimpiade Matematika 23 lancar dan sukses, Aamiin Pantau terus media sosial kami supaya teman-teman tidak ketinggalan informasi, dan jangan lupa daftar yaaa, see you 🥰 Cp : Oriza (0823-6977-1920) Ulfa (0823-8530-1449) Yuli Ani (0812-7580-1432)"
## [15] "Semoga Olimpiade Matematika 23 lancar dan sukses, Aamiin Pantau terus media sosial kami supaya teman-teman tidak ketinggalan informasi, dan jangan lupa daftar yaaa, see you 🥰 Cp : Oriza (0823-6977-1920) Ulfa (0823-8530-1449) Yuli Ani (0812-7580-1432)"
## [16] "Qatar! 🤩 Semoga Olimpiade Matematika 23 lancar dan sukses, Aamiin Pantau terus media sosial kami supaya teman-teman tidak ketinggalan informasi, dan jangan lupa daftar yaaa, see you 🥰 Cp : Oriza (0823-6977-1920) Ulfa (0823-8530-1449) Yuli Ani (0812-7580-1432)"
## [17] "itu adalah pensiunan Gadis Jambi Pariwisata dan juga eks-member JKT48, wajar saja kalau dia sangat berpengaruh pada olimpiade ini, karena ia punya banyak pengalaman dan tidak lupa banyak pula orang dalam disana. Jadi aku sedikit banyak bisa memperoleh informasi A1 darinya."
## [18] "Arab Saudi dalam informasi terkininya mengatakan ingin menjadi tuan rumah Olimpiade. Olimpiade adalah pesta olahraga multicabang paling besar di dunia. https://t.co/9j5JHEQykJ"
## [19] "Peraih medali emas Olimpiade Nasional 2022 ini pun akhirnya diterima di Program Studi D4 Pengelolaan Arsip dan Rekaman Informasi, Sekolah Vokasi UGM. - #Regional https://t.co/WRllExCYYE"
## [20] "Su Yiming, Juara Olimpiade Seluncur Salju Dalam Sampul Majalah T China Edisi Juli 2022 https://t.co/7xnZc81qwT #tionghoa Juara olimpiade seluncur salju, Su Yiming dalam sampul majalah T China edisi Juli 2022 Artikel pertama muncul di: Daily Tionghoa - Informasi Selebriti,… https://t.co/jmE3di1Xg4"
## [21] "Penantian panjang Citra Febrianti untuk mendapatkan medali perak Olimpiade London 2012 segera berakhir. Selama empat tahun tanpa kejelasan informasi, dia berjuang mengupayakan medali itu menjadi miliknya. #Olahraga #AdadiKompas https://t.co/ssBgGRnWyX"
## [22] "(2/4) Begitupun dengan BEM PoliMedia yang memanfaatkan sosial media untuk menyebarluaskan informasi secara kreatif dan informatif. Berikut beberapa kanal media BEM PoliMedia 2022. Olimpiade PoliMedia: https://t.co/nMhPa1yAPx PSP2 PoliMedia: https://t.co/yS0I8v8d0N"Memahami distribusi kata-kata dalam komentar positif dan merinci kata-kata yang paling umum muncul di dalamnya.##Membuat Word Cloud komentar Positif
#Mengubah Data Frame Menjadi Data Faktor
tdm_pos <- TermDocumentMatrix(komentar_positif)
tdm_pos## <<TermDocumentMatrix (terms: 423, documents: 22)>>
## Non-/sparse entries: 625/8681
## Sparsity : 93%
## Maximal term length: 24
## Weighting : term frequency (tf)m_pos <- as.matrix(tdm_pos)
View(m_pos)
v_pos <- sort(rowSums(m_pos),decreasing = TRUE)
head(v_pos)## olimpiade dan informasi yang dalam bisa
## 21 20 15 10 7 6Mengubah hasil frekuensi kata-kata yang paling sering muncul dalam komentar positif menjadi DataFrame dan kemudian membuat word cloud dari DataFrame.#Mengubah Data Faktor Menjadi Data Frame
d_pos <- data.frame(word = names(v_pos), freq = v_pos)
head(d_pos)## word freq
## olimpiade olimpiade 21
## dan dan 20
## informasi informasi 15
## yang yang 10
## dalam dalam 7
## bisa bisa 6wordcloud(d_pos$word, d_pos$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
Membuat DataFrame yang hanya berisi komentar negatif dari kolom "Komentar" dalam DataFrame dalim.df.menghasilkan DataFrame komentar_positif yang hanya berisi komentar-komentar dengan sentimen negatif dari DataFrame .# Buat DataFrame hanya untuk komentar negative
komentar_negatif <- dalim.df %>%
filter(Komentar == "Negative")
komentar_negatif<-komentar_negatif$Pernyataan
komentar_negatif## [1] "dah kasih data dan informasi,dan bahkan berencana ga mau ikut olimpiade,namun internal birokrasi dan politik mengabaikan demi image"
## [2] "rdtlco @mhmdraa Taiwan itu masih polemik lho... China aja masih belom ngaku. Kalopun nih ya Taiwan udah merdeka. Di ajang olahraga juga mereka udah pake bendera negara bukan bendera komite olimpiade nasional... makanya cing geura tong sok edgy si paling beda.. tapi nihil informasi"
## [3] "SMP pernah ikut eskul komputer, dianggap orangnya nggak serius, dikeluarin. Dulu SMA mau ikut olimpiade IT, tapi nggak lulus masuknya. Kuliah Sistem Informasi, ternyata emang nggak cocok sih."
## [4] "Aku bertemu juruparkir dengan postur prajurit. Setelah saya gali informasi.. Sejak SD dia putus sekolah dan menjadi Jukir..cita cita nya sejak kecil ingin menjadi Tentara.. Ingat kian tidak pernah menerima piala olimpiade rengan sekalipun jago renang"
## [5] "Sefruit informasi dari shanly yuniti: “Sepandai-pandainya tupai melompat dia tidak akan pernah masuk olimpiade” -fenly un1ty “Sepandai-pandainya tupai melompat lebih pandai kodok” -shandy un1ty"
## [6] "Couldn't agree more. Anak olimpiade sains atau olahraga (apalagi yg dapat medali) itu memang dapat privilege: Dukungan fasilitas dan dana. Banyak sekolah dan murid potensial tapi ga terakses informasi pengajaran terkait OSN dsb, alhasil ya jarang bisa menang....."
## [7] "Dan juga informasi mengenai perlombaan olimpiade apalagi tingkat dunia juga jarang ada di sekolah negeri. Kalau pun ada, kemungkinan akan terkendala biaya untuk mengikuti perlombaan tersebut. Dan kalaupun dipaksain, pasti akan meminta bantuan ke berbagai pihak"Memahami distribusi kata-kata dalam komentar positif dan merinci kata-kata yang paling umum muncul di dalamnya.##Membuat Word Cloud komentar Negatif
#Mengubah Data Frame Menjadi Data Faktor
tdm_neg <- TermDocumentMatrix(komentar_negatif)
tdm_neg## <<TermDocumentMatrix (terms: 169, documents: 7)>>
## Non-/sparse entries: 194/989
## Sparsity : 84%
## Maximal term length: 19
## Weighting : term frequency (tf)m_neg <- as.matrix(tdm_neg)
View(m_neg)
v_neg <- sort(rowSums(m_neg),decreasing = TRUE)
head(v_neg)## dan olimpiade informasi ikut juga tapi
## 7 5 4 3 3 3Mengubah hasil frekuensi kata-kata yang paling sering muncul dalam komentar positif menjadi DataFrame dan kemudian membuat word cloud dari DataFrame.#Mengubah Data Faktor Menjadi Data Frame
d_neg <- data.frame(word = names(v_neg), freq = v_neg)
head(d_neg)## word freq
## dan dan 7
## olimpiade olimpiade 5
## informasi informasi 4
## ikut ikut 3
## juga juga 3
## tapi tapi 3wordcloud(d_neg$word, d_neg$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 )) 
Membuat DataFrame yang hanya berisi komentar neutral dari kolom "Komentar" dalam DataFrame dalim.df.menghasilkan DataFrame komentar_positif yang hanya berisi komentar-komentar dengan sentimen neutral dari DataFrame .# Buat DataFrame hanya untuk komentar Neutral
komentar_neutral <- dalim.df %>%
filter(Komentar == "Neutral")
komentar_neutral<-komentar_neutral$Pernyataan
komentar_neutral## [1] "[Ads] NEMO FEM IPB UNIVERSITY PRESENT: 💫National Economics Olympiad💫 Hai guys! NEMO lagi ngadain Olimpiade Ekonomi nih! kamu bisa dapat hadiah total 10 juta dan sertifikat Olimpiade untuk masuk IPB! (S& K Berlaku) Informasi terdapat pada link berikut: https://t.co/rV70NozajB https://t.co/PPoaci2zIV"
## [2] "Rangkuman informasi terkait jenis tes pada olimpiade sains tiap tingkatan, dan juga informasi bermanfaat lainnya, bisa kamu dapatkan pada link berikut https://t.co/D1uOUs1hKk https://t.co/gcNreWEr2F"
## [3] "[PERPANJANGAN PENDAFTARAN OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIV] Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana ❗️PRESENT❗️ OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIV Untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/P5Q0PnqiBE https://t.co/pCTm34WJ29"
## [4] "Sebagai informasi, cabor angkat besi terancam tidak dimainkan di Olimpiade Los Angeles 2028 karena masalah doping & tata kelola yang signifikan. Untuk tetap dimainkan, IWF wajib membuktikan bahwa angkat besi adalah olahraga bersih tanpa doping. https://t.co/aV22gj3GyL"
## [5] "#BOSABerprestasi Selamat kepada Kenneth Laurence E.H. - XII MIPA 2 Peraih Medali Emas Olimpiade Sains Pancasila Nasional (OSPN) 2023 bidang Teknologi dan Informasi. Raih dan ukir prestasi bersama SMA BOSA! - PCPDB 2024-2025 sudah dibuka! #smabosa #smafavorit #smaberprestasi https://t.co/wtWsjJDm8V"
## [6] "Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana ❗️PRESENT❗️ OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIV Untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/hHPRMvHbWi https://t.co/Eu6VJT4zPy"
## [7] "Informasi lebih lanjut: Instagram : @olimpiadepariwisata_ugm Twitter : @olimpar_ugm Tiktok : @olimpiadepariwisata_ugm Youtube : Olimpiade Pariwisata UGM Facebook : Olimpiade Pariwisata UGM Contact Person (CP): 089666127003 (Dea) #visitingjogja #jogjaistimewa"
## [8] "Jangan sampai kelewatan dan pantau terus sosial media kami untuk informasi terbaru terkait Olimpiade Pariwisata #12! #lombapariwisata #lombaSMA"
## [9] "Persiapkan tim terbaikmu untuk mengikuti Olimpiade Kedokteran Gigi Dasar Tahun 2023 ini ✨ Informasi terkait guideline dan silabus dapat dilihat melalui tautan berikut ini ya teman teman 🔽 Guideline https://t.co/3fiwrdRpi5 Silabus https://t.co/qONmjRBs0W"
## [10] "disebarkan informasi-informasi mengenai olimpiade berserta pendampingan registrasi dan sebagainya. Wah😲😲 Lengkap banget banget banget!! Yuks, langsung daftar di link berikut ini: https://t.co/KzBdmW7rxl Timeline pendaftaran : 20-22 September 2023 Jangan sampai ketinggalan"
## [11] "Undangan Calon Siswa Baru, Jalur Beasiswa, bagi peraih Medali Olimpiade Sains Nasional (OSN) Puspresnas 2023, tingkat SMP/ MTs/ sederajat. Registrasi dan informasi lebih lanjut hubungi email humas.lpttn@tarunanusantara.id atau https://t.co/P72sErtSrW (WA Chat) https://t.co/VGj19XPUJN"
## [12] "💸Biaya Pendaftaran : Olimpiade : • Early Bird : 165k • Regular : 195K Paper : • Abstract : ‼️FREE‼️ • Full Paper : 175k 🔗 Informasi Guidebook (Buku Panduan) dapat diakses pada link dibawah ini : https://t.co/pDi2Gf3uQ4"
## [13] "Selain itu, di dalam tim nanti akan disebarkan informasi-informasi mengenai olimpiade berserta pendampingan registrasi dan sebagainya. Wah😲😲 Lengkap banget banget banget!! Yuks, langsung daftar di link berikut ini: https://t.co/KzBdmW7rxl"
## [14] "[NARAHUBUNG OLIMPIADE DAN DEBAT APBN 2023] Untuk teman-teman yang ingin bertanya terkait informasi lebih lanjut bisa menghubungi narahubung dengan waktu dan jadwal tertera. #OlimpiadeAPBN2023 #UangKita https://t.co/RDq6MQ9h5r"
## [15] "💸Biaya Pendaftaran 💸📌Olimpiade : • Early Bird : 165k • Regular : 195K 📌Paper : • Abstract : ‼️FREE‼️ • Full Paper : 175k 🔗 Informasi Guidebook (Buku Panduan) dapat diakses pada link dibawah ini : https://t.co/zd6gz06XBx"
## [16] "Informasi lebih lanjut dapat menghubungi Yaya: +6281391179366 (Whatsapp) Wina: +6281239815574 (Whatsapp) Kami menantikan kehadiran teman-teman semua dalam berkompetisi di Olimpiade Kedokteran Gigi Dasar Depa's Infection #13!😊"
## [17] "@TutorPuhSepuh @utfess selamat malam pak, untuk seleksi onmipa saya belum mengetahui pak. belum mencari informasi terkait dengan olimpiade tersebut"
## [18] "#LombaSMA #LombaFreePass #mabaITS sistem informasi ITS 2024 Business and IT Olympiad in Information System OLIMPIADE TINGKAT SMA 2023 https://t.co/QtcLE51ZZe"
## [19] "@anggaarsk Inget gak sebelum olimpiade 2020 Jepang mereka cari informasi dari penyelenggaraan asian games di Indonesia, beda emang mental kita sama mereka, semoga aja Indonesia bisa maju persketborannya"
## [20] "[REVITALISASI PERUBAHAN - INFORMASI : D-DAY OLIMPIADE SEMARAK KEMERDEKAAN 2023] Halo Biru Langit ! Hari ini merupakan hari yang kita tunggu-tunggu! Olimpiade Semarak Kemerdekaan telah tiba. Cek selengkapnya https://t.co/J5lWn8XS3h https://t.co/f38AEEopOL"
## [21] "Hari ini telah dibuka pendaftaran gelombang 1 Olimpiade Nasional Geografi. Untuk informasi selanjutnya mengenai pendaftaran ONG 2023 dapat dilihat melalui link berikut: https://t.co/AQtx0JI4Ia"
## [22] "Hai Sobat Informasi! Dalam rangka pelaksanaan Olimpiade Olahraga Siswa Nasional (02SN) Tingkat Provinsi Jateng, Lapangan Atletik GOR Tri Lomba Juang DITUTUP UNTUK UMUM, mulai tanggal 24 - 26 Juli 2023. #O2SNJateng #GORTriLombaJuang #PemkotSemarang #Semarangkota https://t.co/cwmdOxlClt"
## [23] "INFORMASI OLIMPIADE NASIONAL GEOGRAFI UI 2023 Halo, Earthlings! Geography Days 15th mempersembahkan Oliampiade Nasional Geografi (ONG) yang menjadi rangkaian olimpiade di bidang geografi bagi siswa/siswi SMA/MA sederajat di Indonesia. https://t.co/ac2wFnYMtA"
## [24] "[AKUN RESMI OLIMPIADE APBN 2023] Halo, generasi muda!👋🏻 Yuk ikuti dan pantengin terus semua akun official OAPBN supaya kalian nggak ketinggalan informasi terupdate OAPBN 2023! 🤩 #OlimpiadeAPBN2023 #UangKita https://t.co/9VV13kgKHZ"
## [25] "Untuk informasi lebih banyak lagi mengenai lomba LCTIP, langsung aja kalian download guidebook di https://t.co/AFkaaWeQ2b atau follow sosial media LCTIP IPB! See you all very soon and we wish you all good luck🍀🍀 #lomba #lombasma #kompetisi #teknologipangan #olimpiade #sma"
## [26] "Contact Person: Ike https://t.co/Q3hkpXyYV0 Ana https://t.co/rxdQxwokJ4 ----------------------------- Informasi lengkap, kunjungi: Instagram: @olimpiade_sejarah @hmpkelamas Facebook: HMP Kelamas Youtube: HMP Kelamas Website: https://t.co/mcpichSOg8"
## [27] "Open registration olimpiade sudah semakin dekat🤩 Disini Aero🦅 mau ingetin buat teman-teman, jangan sampai ketinggalan informasi open registration dan jangan lupa untuk mempersiapkan berkas-berkas sesuai dengan ketentuan yaa."
## [28] "Olimpiade BIOPLASMA 2023 yang akan mulai dibuka 2 hari lagi! 🤩🤩 Oiya, Aero 🦅 mau ingetin buat teman teman jangan sampai ketinggalan informasi dan jangan lupa untuk mempersiapkan berkas-berkas sesuai dengan ketentuan yaa! 🤗"
## [29] "Untuk informasi lebih lanjut, teman-teman dapat menghubungi: 📞Yaya: +6281391179366 (Whatsapp) 📞Wina: +6281239815574 (Whatsapp) Pastikan untuk membaca ketentuan yang ada dengan cermat dan jangan sampai terlewat. Sampai jumpa di Olimpiade Kedokteran Gigi Dasar, teman-teman!👋"
## [30] "guys let's gO buat gc untuk angkatan 25 ‼️👀 agar bisa saling berbagi cerita, sharing informasi tentang olimpiade 📋🏃♀️ snbp and something similar to this 🔜 [ #studytwt #AMBISVERSE #ambistwt ]"
## [31] "Mengenai informasi pendaftaran bisa diakses pada link berikut ya 📲 https://t.co/XTkQSZ55Tf Contact person : Essay, Poster, Patient Counceling Competition 📱https://t.co/oyg0BnkVJe (Kak Adila) Olimpiade 📱https://t.co/Yus1FaNVCx (Kak Erel) 📱https://t.co/VqlCNWhdGz (Kak Mila)"
## [32] "[THE COMPETITION OF BIOPLASMA 2023] Haii teman-teman Aero 🦅👋 Untuk kalian yang sedang mencari-cari informasi lomba, BIOPLASMA 2023 hadir untuk kalian. 💡OLIMPIADE BIOLOGI NASIONAL💡 Olimpiade Biologi Nasional dibuka untuk teman Aero dengan jenjang pendidikan SMA/MA/sederajat https://t.co/xMqCAePgJM"
## [33] "PABSI menurunkan 10 lifter untuk ajang kualifikasi Olimpiade Paris 2024 kedua tahun ini alias IWF Grand Prix I di Havana, Kuba. Berikut line up para pemain beserta jadwal tandingnya. Informasi terkait siaran belum bisa ditemukan. #IWFGrandPrix1 https://t.co/slagXLKOfY"
## [34] "Untuk #TeamMinions yang masih bingung dan mau baca-baca informasi perebutan tempat di Olimpiade bisa cek #MinionsOGParis2024 atau thread di bawah ini yaaaaaa 📖 https://t.co/7A5b4MHKPr"
## [35] "[LIVE REPORT] . . [Sabtu, 3 Juni 2023] Telah berlangsung Rapat Panitia Pelaksana Olimpiade Akuntansi dan Perpajakan XXIV. Yang dilaksanakan secara daring via Google Meeting. Untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/1CbK29JgNP https://t.co/S8NF0IJ3cR"
## [36] "Olimpiade • Gelombang 1 : Rp 85.000 • Gelombang 2 : Rp 100.000 Mengenai informasi pendaftaran bisa diakses pada link berikut ya 📷 https://t.co/B6ilGky29B Contact person : Essay, Poster, Patient Counceling Competition 📷https://t.co/T3wJYakocH (Kak Adila) Olimpiade"
## [37] "@tanyakanrl Ikut olimpiade, cari2 informasi soal2, belajar bahasa Inggris, info2 lomba/olimpiade, informasi beasiswa kampus/pemerintah, informasi kampus dan lain2"
## [38] "nanti akan disebarkan informasi-informasi mengenai olimpiade berserta pendampingan registrasi dan sebagainya. Wah😲😲 Lengkap banget banget banget!! Yuks, langsung daftar di link berikut ini: https://t.co/KzBdmW7rxl Timeline pendaftaran : 17-24 Mei 2023"
## [39] "[PERPANJANGAN PENDAFTARAN] ⚜️Olimpiade Akuntansi dan Perpajakan XXIV⚜️ . . Halo Mahasiswa/i Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana Angkatan 2021 dan 2022👋🏻 Untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/5YHi02ZQrp https://t.co/lAxT5sjMTy"
## [40] "Informasi..... Peserta & Pembimbing Olimpiade Sains Nasional Tingkat Kabupaten/Kota (OSN-K) jenjang SMP tahun 2023.... #OSN-K #SMPLutra #IPA_IPS_MATEMATIKA https://t.co/pmVLgPcsYt"
## [41] "Informasi..... Peserta Olimpiade Sains Nasional Tingkat Kabupaten/Kota (OSN-K) jenjang SMP tahun 2023.... Pelaksanaan OSN-K menggunakan perangkat HP android.... https://t.co/p6n6T9AAMR"
## [42] "[PERPANJANGAN PENDAFTARAN] ⚜️Olimpiade Akuntansi dan Perpajakan XXIV⚜️ . . Halo Mahasiswa/i Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana Angkatan 2021 dan 2022👋🏻 Untuk informasi selengkapnya dapat mengakses link berikut⬇️ https://t.co/Gl0Y6z2W9x https://t.co/uKUyr9sJ6S"
## [43] "[INFO LOMBA] Diinformasikan kepada seluruh mahasiswa/i Program Studi Diploma III Perpajakan Fakultas Ekonomi dan Bisnis Universitas Udayana, bahwa akan diadakan Olimpiade Akuntansi Vokasi VI 2023. Untuk informasi lebih lanjut kunjungi laman berikut: https://t.co/KiZdIiar9I https://t.co/MivhbHQR20"
## [44] "[ OLIMPIADE AKUNTANSI & PASAR MODAL 2023 ] Silahkan klik link dibawah ini untuk pendaftaran dan informasi lebih lanjut. 📌 Link Pendaftaran OAPM https://t.co/qsBGWUvBtk 📌 Link Website AF https://t.co/VuSGLYbBzK 📌 Link Booklet https://t.co/WcGaQauBU1 https://t.co/zJSZZ5O9sz"
## [45] "Olimpiade Sains & Kesehatan 🗒 ”Biologi, Ekonomi, Fisika, Kimia, Matematika, Sejarah, Bahasa Indonesia, Bahasa Inggris” Deadline : 13 Mei 2023 💰HTM : FREE!! 📌 Informasi Lengkap : https://t.co/M7ljaxIyuh https://t.co/kV4IUNOFEG"
## [46] "13.) Fakultas Sains dan Teknologi - Program Studi Sistem Informasi 📌 Nama Acara: ISAC 📌 Jenis Lomba: - Olimpiade Sistem Informasi - Desain UI/UX 📌 Instagram: isac_unair 📌 Pendaftaran dan Pelaksanaan: Sekitar Agustus sampai September 📌 Terakhir dilaksanakan: 2022 https://t.co/fKIWsGS2Kx"
## [47] "@traisstudy Thankyou tata, nanti kalo ada informasi olimpiade lagi gedor dm ku pelizzz 😭😭🙏🏻🙏🏻"
## [48] "@skyourside Kaka biasanya klo nyari informasi olimpiade nya dimana? Aku pengen cari2 jugaa cuman bingung dimana hehe"
## [49] "*[INFORMASI LOMBA ON-MIPA 2023]* Assalamu'alaikum Warahmatullahi Wabarakatuh. Bagi kyay, yunda dan teman-teman yang ingin mendaftarkan diri di Olimpiade Nasional MIPA, dimohon untuk menghubungi tim lomba Fosmaki. Dengan format, Nama : NPM : Alamat (domisili) : https://t.co/dRdcxud3h0"
## [50] "Balai Pengembangan Talenta Indonesia (BPTI) sebagai Unit Pelaksana Teknis (UPT) Pusat Prestasi Nasional kembali menyelenggarakan Olimpiade Olahraga Siswa Nasional (O2SN) di 2023 🤩 Ayo swipe poster ini untuk melihat cabang olahraga yang dilombakan dan Informasi pendaftarannya. https://t.co/5JNonN57Uy"
## [51] "[INFORMASI AKADEMIK] hayiiii hayiiii hayiiii!!! Salam Kimiaaa!!! Kenali Dunia dengan Kimiaaa!!!! Berikut adalah informasi mengenai seleksi peserta Olimpiade Agama, Sains, dan Riset (OASE) Tahun 2023. Untuk informasi selengkapnya, yuk cek di bawah ini 👇🏻👇🏻👇🏻 https://t.co/5mNgCfCX4h"
## [52] "jiwaplay - IOC terima informasi terbaru soal progres persiapan tiga Olimpiade https://t.co/7Xq7xjnRLn #infoslotgacor #slotgacor #slotindonesia #gameslotgacor https://t.co/jNzR874MCF"
## [53] "Kategori prestasi/kejuaraan Saintek: olimpiade fisika, biologi, kimia dan matematika. Lomba Iptek, lomba Robot Terbang, robotika, Karya Ilmiah, lomba Roket, Lomba Teknologi Informasi, Lomba Kapal, Lomba Hemat Energi, Bahan Bangunan dan Gedung, dan kompetisi Desain Grafis."
## [54] "Halo Sobatika!👋 Ada informasi baru nih dari Fakultas Matematika dan Ilmu Pengetahun Alam Universitas Riau Fakultas Matematika dan Ilmu Pengetahun Alam Universitas Riau akan mengadakan seleksi tahap 1 Olimpiade Nasional MIPA 2023 Universitas Riau dengan syarat :"
## [55] "[INFORMASI: SELEKSI ONMIPA UNPAD 2023] Halo, Kema FPIK! Bagi Kema FPIK yang berminat dan ingin mengikuti ONMIPA, Ayo segera daftarkan dirimu pada Olimpiade Nasional MIPA Unpad 2023! https://t.co/wTZzkMvmCX"
## [56] "Tertarik Ikut Olimpiade Tingkat Nasional Gratis Berhadiah iPhone, Ini Informasi Lengkapnya https://t.co/OudNvy7XLD"
## [57] "Teman-teman ada yang minat join grup Whatsapp yang isinya informasi tentang lomba olimpiade di tingkat SMA gak? Berapa banyak nih yang mau? coba absen dengan cara rtweet, absen di kolom komen dan tag temen kamu ya!! Nanti yang mau join, DM di instagram @pakgurualken https://t.co/LhopvaF92f"
## [58] "Saat itu ada beberapa orang yang sampai muntah dan sakit karena tidak sanggup membaca dan mengerjakan soal sebanyak itu. Apalagi tingkat soalnya sebagian setara dengan soal olimpiade (informasi dari teman olimpiade yang ikut ujian juga). K yang mengerjakan soal itu hanya pasrah"
## [59] "Kepala Seksi Teknologi, Informasi, dan Produksi Bidang Intelijen Kejaksaan Tinggi Riau Hadiri Kegiatan Sosialisasi 4 Pilar MPR RI bersempena Pembukaan Olimpiade PPKN Ke – XII Universitas Riau https://t.co/jqCpZO50op"
## [60] "[INFORMASI TOR ORI 2023] Haloo Rekmeders Indonesia!!👋🏻👋🏻 Pendaftaran Olimpiade Rekam Medis (ORI) telah dibuka!! Kamu sudah siap menjadi bagian ORI Gebyar Rekam Medis 2023? Yuk cek TOR di website https://t.co/5IL0wKh4IW👐🏻👐🏻 https://t.co/NnCXuNjWM7"
## [61] "Selain melakukan pengenalan APBN yang merupakan #UangKita, kami juga menyebarkan informasi terkait @olimpiade_apbn khususnya di SMAN Modern Madani Palu yang tahun lalu menjadi Finalis Nasional Olimpiade APBN dan berhasil menyabet Juara III nih. https://t.co/WxL6PTofF7"
## [62] "#BOSAMenyapa, OLIMPIADE BOSA #9! Be Jouful and Grow with SMA BOSA\" Silakan hubungi contact person yang tertera untuk informasi dan pendaftaran. #smabosa #smabopkri1yogyakarta #smaunggulan #smafavorit #smaterbaik #olimpiadebosa https://t.co/11eEUVwIWM\""
## [63] "[Pendaftaran Seleksi Internal ONMIPA UGM 2023]🚨✋🏻Hallo sobat saintis✋🏻 Info olimpiade nih! Seleksi akan dilaksanakan pada tanggal 04-05 Maret secara luring. Mengenai informasi pendaftaran dapat diakses melalui link berikut ini : 📌link pendaftaran : https://t.co/KWW82hPath https://t.co/oiEdhyvsSa"
## [64] "Selain melakukan pengenalan APBN yang merupakan #UangKita, kami juga menyebarkan informasi terkait @olimpiadeapbn khususnya di @smapraditadirgantara yang tahun lalu menjadi Finalis Nasional Olimpiade APBN dan berhasil menyabet Juara II nih. https://t.co/90nei3hTgH"
## [65] "Hallo sahabat Pattimura 👋👋👋 Olimpiade Sains 2023 telah dibuka mulai dari tanggal 23 Januari-10 Maret 2023,, pendaftran dibuka untuk umum dimana pesertanya merupakan siswa-siswi se-Maluku dari tingkat SD, SMP maupun SMA informasi selengkapnya, dapat lihat pada flayer ⬇️ https://t.co/WgAyTqys4j"
## [66] "Hallo sahabat Pattimura 👋👋👋 Olimpiade Sains 2023 telah dibuka mulai dari tanggal 23 Januari-10 Maret 2023,, pendaftran dibuka untuk umum dimana pesertanya merupakan siswa-siswi se-Maluku dari tingkat SD, SMP maupun SMA Untuk informasi selengkapnya dapat lihat pada flayer ⬇️ https://t.co/R5Ffx0YSKv"
## [67] "@ikscpw Kimkong cukup dikasih informasi olimpiade aja ges gaperlu hermes untuk diajak foto"
## [68] "@ndagels Menurut informasi yg beredar dia itu lagi galau abis kalah di final olimpiade latto latto"
## [69] "Menpora memberikan motivasi kepada atlet program Desain Besar Olahraga Nasional (DBON) agar tampil berani tampil di Olimpiade 2032 Brisbane. Informasi selengkapnya di https://t.co/Aow3qUDOSB #kemenpora #pemudamajuolahrahajaya"
## [70] "SchApp! haloo, aku mau tanya. kalau misalnya cari informasi tentang lomba olimpiade gitu-gitu dimana yaa? tia!"
## [71] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri Ramadhanti"
## [72] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri Ramadhanti"
## [73] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri Ramadhanti"
## [74] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri Ramadhanti"
## [75] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri Ramadhanti"
## [76] "Universitas Negeri Malang 🤩 Semoga Olimpiade Matematika 23 lancar dan sukses, Aamiin Pantau terus media sosial kami supaya teman-teman tidak ketinggalan informasi, dan jangan lupa daftar yaaa, see you 🥰"
## [77] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri Ramadhanti"
## [78] "@Gunawan06754508 Sekedar informasi, paket First Sport Pack adalah paket yang berisi channel olah raga pilihan termasuk diantaranya, tayangan Olimpiade Tokyo, NBA, dan Sepak bola (2/3) ^Dian"
## [79] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri Ramadhanti"
## [80] "teman tidak ketinggalan informasi yaaa. See u🤩 Cp : Oriza (0823-6977-1920) Ulfa (0823-8530-1449) Yuli (0812-7580-1432) --------------------------------------------------- Ketupel_Ardana Ritonga Waketupel_ M. Abduh Faiz . Olimpiade Matematika 23 UR IG: olimpiadematematika23"
## [81] "100 Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri Ramadhanti"
## [82] "formasi, paket First Sport Pack adalah paket yang berisi channel olah raga pilihan termasuk diantaranya, tayangan Olimpiade Tokyo, NBA, (1/2) ^Dian"
## [83] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri"
## [84] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: 📞 0821-6356-7370 Yakobus Y. Waruwu 📞 0823-8772-5681 Amei Lia Putri 📞 0895-4140-89081 Rachmawati Septia Achiryani 📞 0822-1335-2123 Nelda Syahri"
## [85] "[PRODULY PRESENT OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIII] . . Halo, Mahasiswa/i Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana👋 . Informasi selengkapnya dapat diakses pada link dibawah ini⬇️ https://t.co/QGdNXgpFDD https://t.co/T0NkHAX07M"
## [86] "@Blackburger_28 Menurutku sahsah aja sih tpi jgn sampai jelas juga seperti peraih mendali perak pada olimpiade renang pada tahun bla2 dan jgn pake foto asli juga.. Bener g? Toh guna memberikan informasi ini biar memberikan rasa simpati lebih ke audien"
## [87] "@fatmalia79 Sekedar informasi, paket First Sport Pack adalah paket yang berisi channel olah raga pilihan termasuk diantaranya, tayangan Olimpiade Tokyo, NBA, dan Sepak bola (Copa America, Champions League) (2/3) ^Dian"
## [88] "tidak ketinggalan informasi terbaru Olimpiade Matematika 23. Sampai jumpa...👋 Cp : Oriza (0823-6977-1920) Ulfa (0823-8530-1449) Farhan (0822-4050-5153) --------------------------------------------------- Ketupel_Ardana Ritonga Waketupel_ M. Abduh Faiz ."
## [89] "“Masuk ITS bisa jalur 𝐅𝐑𝐄𝐄𝐏𝐀𝐒𝐒?? 😱😱” Hi ITzen! 👋👋 Kali ini ARA 4.0 telah membuka pendaftaran lomba Olimpiade untuk tingkat SMA/SMK sederajat. 🔗 Link Pendaftaran : https://t.co/7Sw5O5DT3v Untuk informasi lebih lanjut: 📞Della ID Line : delsty12 WA : 082340288519 https://t.co/Gas5VvypQ4"
## [90] "#ITSUpdate OLIMPIADE DESAIN PRODUK NASIONAL 2022 Memperebutkan Golden Ticket Free Pass Masuk Despro ITS SNBP (SNMPTN) 2023 dan hadiah puluhan juta rupiah Informasi lebih lanjut silakan mengunjungi 🔗 https://t.co/ggR81jqkPm #OlimpiadeDespro #DesproITS #ITSCampus #ITSSurabaya https://t.co/a2uF1IzGLq"
## [91] "Dalam rangka menghadiri KTT #G20Indonesia, Presiden Komite Olimpiade Internasional (IOC), Thomas Bach, hadir di Bali. Kedatangan Thomas disambut oleh Menpora RI, Zainudin Amali. Informasi selengkapnya di https://t.co/Aow3qUDOSB https://t.co/svSqUGMnjl"
## [92] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: Yakobus Y. Waruwu 0821-6356-7370 Amei Lia Putri 0823-8772-5681 Rachmawati Septia Achiryani 0895-4140-89081 Nelda Syahri Ramadhanti 0822-1335-2123 Ismah 0823-3965-3882 ."
## [93] "Untuk pendaftaran dan informasi lebih lanjut mengenai Olimpiade Kimia 19 bisa hubungi narahubung di bawah ini: Yakobus Y. Waruwu 0821-6356-7370 Amei Lia Putri 0823-8772-5681 Rachmawati Septia Achiryani 0895-4140-89081 Nelda Syahri Ramadhanti 0822-1335-2123 Ismah 0823-3965-3882 ."
## [94] "Jika Sobat Prof punya event yang perlu dipromosikan seperti: - Seminar - Workshop - Festival - Olimpiade, dll. Biro Media Informasi ISEG UNPAD siap menjadi media partner untuk memaksimalkan publikasi event kamu😊 Adapun ketentuannya, dapat dilihat pada postingan ini ya."
## [95] "📣[H-1 OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIII]📣 . . Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana ✨PROUDLY PRESENT✨ Informasi selengkapnya dapat diakses pada link dibawah ini⬇️ https://t.co/gTpN4q8VdY https://t.co/bKwN5ZW77E"
## [96] "📣[H-2 OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIII]📣 . . Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana ✨PROUDLY PRESENT✨ Informasi selengkapnya dapat diakses pada link dibawah ini⬇️ https://t.co/9dD7Y4bvjW https://t.co/rM07cd62UH"
## [97] "📣[H-3 OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIII]📣 . . Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana ✨PROUDLY PRESENT✨ Informasi selengkapnya dapat diakses pada link dibawah ini⬇️ https://t.co/WKjUhUXj62 https://t.co/Rim8BrgtyS"
## [98] "📣[COMING SOON OLIMPIADE AKUNTANSI DAN PERPAJAKAN XXIII]📣 . . Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana ✨PROUDLY PRESENT✨ Informasi selengkapnya dapat diakses pada link dibawah ini⬇️ https://t.co/NDsSu5RWfw https://t.co/0bedfXSqWI"
## [99] "Halo Generasi Muda!👋 Untuk pemenang Give Away kali ini adalah user @Badboy04979635 @sheisirmaaa @oncewue Selamat untuk pemenang🥳✨ dan jangan lupa untuk claim hadiahnya melalui dm🎁✨ Terima kasih telah mengikuti Give Away kali ini dan nantikan informasi menarik lainnya🤩"
## [100] "[LIVE REPORT] . . Selasa, 25 Oktober 2022 Telah berlangsung Rapat Teknis Olimpiade Akuntansi dan Perpajakan XXIII. Yang dilaksanakan secara Daring via Webex Meeting. . . Informasi selengkapnya dapat diakses pada link dibawah ini⬇️ https://t.co/7VyRsJjInB https://t.co/8TNw5PEF01"
## [101] "Kompetisi ini sudah dibuka loh pendaftaran dan pengumpulan karyanya!!! Kunjungi landing page kami di https://t.co/PM8p9qDGq4 untuk mengetahui persyaratan kompetisi, link pengumpulan karya, serta informasi lainnya ya!"
## [102] "[INFORMASI] OLYMPIADE KESEHATAN Assalamualaikum Wr.Wb Hidup Mahasiswa BEM Poltekkes Kemenkes Palu mengadakan kegiatan Olimpiade Kesehatan Dengan tema ''Meningkatkan Kualitas Intelektualitas dan Kreatifitas Serta Inovatif Guna Mewujudkan Generasi Kesehatan Yang Kompetitif https://t.co/DzQ6Odbikt\""
## [103] "'NEO CITY: SEOUL - LINK + RESMI FANLIGHT informasi penjualan di tempat Tanggal Penjualan: 2022. 10.22(SAT) ~ 2022. 10.23 (Minggu), 11:00 ~ 17:30 Tempat: Stadion Tambahan Olimpiade Kompleks Olahraga Jamsil -nctupdateinhere https://t.co/NHCXszkDFZ"
## [104] "Untuk informasi lebih lengkapnya dapat dilihat di infografis berikut, ya! Info lebih lanjut: OA Line: @sol3952h Facebook: Olimpiade Geografi Nasional Instagram: olgenas_ugm Twitter: olgenas_ugm Website: https://t.co/aVRfK0mBIZ Email: humasolgenas@gmail.com"
## [105] "Selanjutnya bertepatan dengan tema pekan ini yaitu Nilai Kemenkeu Sinergi, perwakilan dari panitia Olimpiade APBN maupun Kemenkeu Mengajar serta implementasi Collaboration Tools khususnya penggunaan fitur pasa Microsoft Teams, mengupdate informasi seputar kegiatan tersebut.\""
## [106] "Olimpiade ini terbuka untuk seluruh pelajar SMA sederajat dan tidak dipungut biaya yaa 🙌🏻📍Informasi lebih lanjut kunjungi https://t.co/WoM6TljN6E - CEFHS 2022, Muda Membangun Bangsa - #BeaCukaiMakinBaik #EventBeaCukai #CEFHS2022 #MudaMembangunBangsa #OlimpiadeBeaCukai"
## [107] "✨INFORMASI PETUNJUK TEKNIS REGIONAL✨ Halo, Generasi Muda!🙌🏻 Selangkah lagi menuju semifinal regional, ketentuan lebih lanjut dan petunjuk teknis semifinal regional dapat diakses pada link berikut: https://t.co/jeGlkFSwI8 https://t.co/FfuAJZFs8W"
## [108] "Jangan lupa ya #SobatKM untuk terus memantau sosial media @kemenkeumengajar dan @olimpiade_apbn agar selalu mendapat informasi berikutnya😊✨ Perlombaan ini diselenggarakan s.d. Tanggal 28 Oktober 2022 ya #SobatKM #KemenkeuMengajar #OlimpiadeAPBN #KM7 #lombakontenedukasi"
## [109] "@Setia10Ayu Selamat siang First People. Mhn maaf atas ketidaknyamanannya. Sekedar informasi, paket First Sport Pack adalah paket yang berisi channel olah raga pilihan termasuk diantaranya, tayangan Olimpiade Tokyo, NBA, dan (1/2) ^Dian"
## [110] "@AndrianiV8 Sekedar informasi, paket First Sport Pack adalah paket yang berisi channel olah raga pilihan termasuk diantaranya, tayangan Olimpiade Tokyo, NBA, dan Sepak bola (Copa America, Champions League) (2/3) ^Dian"
## [111] "@AndrianiV8 Selamat siang First People. Mohon maaf sebelumnya, boleh disertakan alasan meminta downgrade paket First Sport Pack dan First Media X? Sekedar informasi, paket First Sport Pack adalah paket yang berisi channel olah raga pilihan termasuk diantaranya, tayangan Olimpiade (1/2)"
## [112] "moots, want to ask. kalian yang sering ikut lomba kaya olimpiade tapi di luar sekolah itu dpt informasi darimana. help me pls, aku pgn ikut lomba gitu🥹🥹🥹🥹🥹🥹🥹🥹🥹🥹🥹🥹"
## [113] "Halo semuaa Aku punya informasi tentang olimpiade, lomba, kompetisi yang berguna untuk pelajar SMP/MTs dan SMA/MA/SMK👇👇 #studytwt #olimpiade #olimpiadesmp #olimpiadesma #lomba #lombasmp #lombasma #kompetisi #kompetisismp #kompetisisma #lombagratis https://t.co/EPlaNOgtRf"
## [114] "📢D-1 FINAL OLIMPIADE BIOLOGI DAN ESAI📢 Jadi Arco🦜 mau ingetin buat teman-teman, jangan lupa untuk persiapkan diri semaksimal mungkin menuju kemenangan, serta pantau informasi dari BIOSFER XV!! https://t.co/dX464zdNxr"
## [115] "📢D-2 FINAL OLIMPIADE BIOLOGI DAN ESAI📢 Jadi Arco🦜 mau ingetin buat teman-teman, jangan lupa untuk persiapkan diri semaksimal mungkin menuju kemenangan, serta pantau informasi dari BIOSFER XV!! See you in BIOSFER XV 👋🏻✨ https://t.co/TGf0WissJy"
## [116] "[OLIMPIADE BAHASA DAN SASTRA INDONESIA UMP 2022] ❕Catat Tanggalnya❕📅 Selasa, 11 Oktober 2022 🕰️ 07.00 s.d. Selesai 📍 Universitas Muhammadiyah Purwokerto ❗Pendaftaran❗ https://t.co/4a0fPH5Ljo ‼️ Informasi Lebih Lanjut‼️ https://t.co/CTjoDEtwal 📲 0882-1519-4744 https://t.co/OqQwxsCNjV"
## [117] "RT bps_statistics: Sahabat Data yang ingin mengikuti Olimpiade Statistika Poisson, dapat mendaftar pada tanggal 1-22 Agustus 2022. Informasi selengkapnya dapat dicek di https://t.co/ev6dx7hTk7 atau website https://t.co/FKmiQGVjV9. Tertarik? Yuk segera bergabung!"
## [118] "#RT @bps_statistics: Sahabat Data yang ingin mengikuti Olimpiade Statistika Poisson, dapat mendaftar pada tanggal 1-22 Agustus 2022. Informasi selengkapnya dapat dicek di https://t.co/ev6dx7hTk7 atau website https://t.co/FKmiQGVjV9. Tertarik? Yuk segera bergabung!"
## [119] "Sahabat Data yang ingin mengikuti Olimpiade Statistika Poisson, dapat mendaftar pada tanggal 1-22 Agustus 2022. Informasi selengkapnya dapat dicek di https://t.co/hgkExPsaxG atau website https://t.co/EVphISIARj. Tertarik? Yuk segera bergabung!"
## [120] "[PEKAN OLIMPIADE STATISTIKA NASIONAL (POISSON) 2022] Halo warga Statistika! 👋 Informasi lomba kali ini berupa perlombaan Statistika yang pastinya menarik banget buat kamu ikuti! 🤩 https://t.co/vD16cqYqVA"
## [121] "[ ALUR PENDAFTARAN DOKTER DATA 2022 ] Halo, Sobat Dokter Data! Berikut ini informasi Alur Pendaftaran Lomba Dokter Data 2022. Yuk disimak baik-baik ya! 1. Peserta melakukan pendaftaran dan pembayaran sesuai gelombang dan cabang lomba. Olimpiade https://t.co/3xcTd6jjrP"
## [122] "Jangan sampai kelewatan dan sebarkan informasi ini kepada teman dan saudara ya, Lur!😉 #Olimpiade #BahasaJawa #AksaraJawa #JogjaIstimewa #KominfoDIY"
## [123] "Halo #SobatPrestasi!👋 Minpres ada informasi Olimpiade Olahraga Siswa Nasional (O2SN) lho! 📢 Pendaftaran dan Unggah Video O2SN Jenjang SMA/MA dan SMK diperpanjang hingga 15 Agustus 2022 Pukul 23.59 WIB Ayo segera daftarkan dan unggah video karyamu sekarang juga! 🤩 https://t.co/gLdQPlIm9A"
## [124] "[D-2 BABAK PENYISIHAN] Babak penyisihan olimpiade biologi dan esai tinggal 2 HARI LAGII!! Jadi Arco🦜 mau ingetin buat teman-teman, jangan lupa untuk persiapkan diri semaksimal mungkin dan pelajari ketentuan lomba nya, serta pantau informasi dari BIOSFER XV!! https://t.co/ZkN6ZR2cfy"
## [125] "Pada informasi sebelumnya yang telah disebar, karena ada satu dan lain hal maka dari itu Acara Olimpiade Super IX dimajukan. Sekian Terimakasih Wassalamualaikum Warahmatullahi Wabarakatuh HIMAFI Jaya Jaya Jaya ✊🏻 Ketua Pelaksana ~ Muhammad Arif Rahman"
## [126] "Eitss, jangan lupa baca handbook untuk informasi lebih lanjut melalui link di bawah ini, ya!😉📌https://t.co/bMI4RgqxAn #DebatAPBN2022 #OlimpiadeAPBN2022 #UangKita _________ ©️ OLIMPIADE APBN 2022 Generasi Peduli Negeri! Instagram: @olimpiade_apbn"
## [127] "✍️NEURON 2022 • Tema: “Rencana Transformasi Kesehatan Indonesia di 2022 ” • Batas Pendaftaran: 31 Juli 2022 • Kategori Lomba: Olimpiade, Poster, Essay • Hadiah: Uang Pembinaan dan E-Sertifikat 📌Informasi lebih lanjut dapat diakses melalui: https://t.co/L1Lupgv6mr https://t.co/7AhswVvkRQ"
## [128] "@flaviaaril534 @AREAJULID Sebagai seseorang yang lulus dari sekolah negri pelosok mengakui ini. Jangankan sampai olimpiade tingkat Internasional, ada lomba tingkat kota aja jarang ada info nya. Waktu itu pernah ada informasi olimpiade, yang disuruh ikut cuma siapa yang deket sama guru nya doang wadaw"
## [129] "Berita Radio Swara Perintis edisi 20 Juli 2022, akan menyajikan informasi mengenai pembangunan P2RW di Kelurahan Sudajaya Hilir dan persiapan siswa dan siswi SMP Plus An - Naba dan SDN Karamat Randu menjelang Olimpiade Sains Nasional. #mycitymyradio #beritasukabumi #Kotasukabumi https://t.co/x7fzPJhp9s"
## [130] "📣[PERPANJANGAN PENDAFTARAN]📣 . . Program Studi Diploma III Fakultas Ekonomi dan Bisnis Universitas Udayana ✨PRESENT✨ OLIMPIADE AKUNTANSI DAN PERPAJAKAN (OAP) XXIII . Informasi selengkapnya dapat diakses pada link dibawah ini⬇️ https://t.co/NxfRWPsflI https://t.co/tNolSly1Sh"
## [131] "[ AKUN RESMI OLIMPIADE APBN 2022 ] Halo, Generasi Muda!👋 Pastinya sudah nggak sabar dong untuk berpartisipasi di OAPBN 2022?🤔 Yuk ikuti dan pantengin semua akun official OAPBN supaya nggak ketinggalan informasi terupdate OAPBN 2022! 😉 #OlimpiadeAPBN2022 #UangKita https://t.co/qL0J3KFCCi"
## [132] "Halo #SobatPrestasi para Mahasiswa! 👋😀 Pelaksanaan Olimpiade Nasional Matematika dan Ilmu Pengetahuan Alam #ONMIPA22 Tingkat Wilayah akan segera dimulai pada tanggal 28-29 Juli 2022! Untuk informasi lebih lanjut dapat bergabung di grup telegram: https://t.co/MVWAbFpt6q Ya! https://t.co/ly2Q6hlbG8"
## [133] "Tahun ini, Dokter Data 2022 hadir dengan 3 event, yaitu Olimpiade, Infografis, dan Esai. Ayo persiapkan diri kalian untuk menjadi bagian dari Dokter Data 2022 Stay tuned dan nantikan informasi selanjutnya yaa"
## [134] "Para pemenang Olimpiade Bahasa Prancis 2020, Lomba DELF dan IFProfs Kreatif 2020 mendapatkan beasiswa penuh dari IFI untuk mengikuti kursus musim panas di Cours d’été Nancy. Pada 14 Juli, mereka ingin berbagi informasi dan berbagi pengalamannya! Yuk nonton dan ikuti keseruannya! https://t.co/Yz0gXXIvqq"
## [135] "Terutama mewujudkan mimpi Indonesia dalam DBON yaitu masuk pada peringkat 5 besar dunia pada Olimpiade 2044 mendatang. Informasi selengkapnya di https://t.co/Aow3qUlFEt #kemenpora #pemudamajuolahragajaya"
## [136] "Hai, Kak, mjb ya. Kalau kakaknya dari MA/SMA/SMK Islam bisa banget nih ikut Olimpiade Matematika UIN Surabaya ~ untuk informasi lebih lanjutnya bisa langsung ke sosial media kami yaa, Kak 😊 https://t.co/42EdcMI2nw"
## [137] "Penantian panjang Citra Febrianti untuk mendapatkan medali perak Olimpiade London 2012 segera berakhir. Selama empat tahun tanpa kejelasan informasi, dia berjuang mengupayakan medali itu menjadi miliknya. #Olahraga #AdadiKompas https://t.co/wNqr9TMYmi"
## [138] "Halo #SobatPrestasi Jenjang SD dan SMP! 👋😀 Ini dia jadwal TERBARU pendaftaran Olimpiade Olahraga Siswa Nasional (#O2SN2022) Jenjang SD dan SMP Tingkat Provinsi. 🥋😊 #SobatPrestasi dapat simak poster untuk informasi pentingnya! 😉👍 https://t.co/BwfgTj6TRA"
## [139] "Informasi Lomba: Olimpiade Guru Nasional (OGN) 2016 untuk Guru Pendidikan Menengah https://t.co/2QqGH5TI1w"
## [140] "[OLIMPIADE KIMIA NASIONAL 2022] Halo generasi Muda Sebentar lagi akan dibuka pendaftaran OKN 2022.Yuk kepoin mulai dari penyelenggara hingga hadiahnya informasi terbaru melaui Web: https://t.co/0V198AAgCh Line: @438pqitz Tiktok : @olimpiadekimiaugm IG: https://t.co/7Jvkz97OKT https://t.co/Nprr3kDhdy"
## [141] "[WHAT IS BSL?] Hi, Metazen! Apa kalian tau apa itu BIONIX Student Level? Yuk simak penjelasannya! BIONIX Student Level adalah olimpiade bisnis dan teknologi informasi untuk para pelajar tingkat SMA/SMK/sederajat di Indonesia. https://t.co/qX6WWoGOer"Memahami distribusi kata-kata dalam komentar neutral dan merinci kata-kata yang paling umum muncul di dalamnya.##Membuat Word Cloud komentar Neutral
#Mengubah Data Frame Menjadi Data Faktor
tdm_neutral <- TermDocumentMatrix(komentar_neutral)
tdm_neutral## <<TermDocumentMatrix (terms: 1677, documents: 141)>>
## Non-/sparse entries: 3826/232631
## Sparsity : 98%
## Maximal term length: 51
## Weighting : term frequency (tf)m_neutral <- as.matrix(tdm_neutral)
View(m_neutral)
v_neutral <- sort(rowSums(m_neutral),decreasing = TRUE)
head(v_neutral)## olimpiade informasi dan untuk yang 🔵
## 131 120 119 70 43 37Mengubah hasil frekuensi kata-kata yang paling sering muncul dalam komentar neutral menjadi DataFrame dan kemudian membuat word cloud dari DataFrame.#Mengubah Data Faktor Menjadi Data Frame
d_neutral <- data.frame(word = names(v_neutral), freq = v_neutral)
head(d_neutral)## word freq
## olimpiade olimpiade 131
## informasi informasi 120
## dan dan 119
## untuk untuk 70
## yang yang 43
## 🔵 🔵 37wordcloud(d_neutral$word, d_neutral$freq,
random.order = FALSE,
max.words = 500,
colors = brewer.pal(name = "Dark2",8 ))