Sumber : https://www.kompasiana.com/taufansatyadharma8095/5da97f790d82306132041a42/belajar-menempatkan-bukan-membuang-pada-tempatnya
text = readLines("file:///C:/Users/Adit/Documents/Sampah.txt")
## Warning in readLines("file:///C:/Users/Adit/Documents/Sampah.txt"):
## incomplete final line found on 'C:/Users/Adit/Documents/Sampah.txt'
text = unlist(strsplit(text, "\\W+"))
text = tolower(text)
text = data.frame(table(text))
View(text)
library(wordcloud)
## Warning: package 'wordcloud' was built under R version 3.5.3
## Loading required package: RColorBrewer
wordcloud(text$text, text$Freq)
stopw = readLines("file:///C:/Users/Adit/Documents/Stopword.txt")
## Warning in readLines("file:///C:/Users/Adit/Documents/Stopword.txt"):
## incomplete final line found on 'C:/Users/Adit/Documents/Stopword.txt'
text = text[!is.element(text$text, stopw),]
wordcloud(text$text, text$Freq, random.order=FALSE, rot.per=0.25
, colors=brewer.pal(8, "Dark2"))
# Menghitung frequensi per kata
text = readLines("file:///C:/Users/Adit/Documents/Sampah.txt")
## Warning in readLines("file:///C:/Users/Adit/Documents/Sampah.txt"):
## incomplete final line found on 'C:/Users/Adit/Documents/Sampah.txt'
text = unlist(strsplit(text, "\\W+"))
text = tolower(text)
text = data.frame(table(text))
text
## text Freq
## 1 1
## 2 5 1
## 3 abaikan 1
## 4 ada 5
## 5 agar 1
## 6 ahli 1
## 7 air 1
## 8 akal 1
## 9 akan 2
## 10 alam 3
## 11 anggap 1
## 12 anjuran 1
## 13 apa 7
## 14 apabila 1
## 15 apakah 1
## 16 asih 1
## 17 atau 6
## 18 ataupun 2
## 19 ayat 1
## 20 bagi 1
## 21 bahkan 2
## 22 bahwa 3
## 23 baik 2
## 24 bak 1
## 25 bali 1
## 26 bapak 3
## 27 bareng 1
## 28 baru 2
## 29 bebas 1
## 30 bekas 1
## 31 belajar 2
## 32 beliau 6
## 33 berada 1
## 34 berarti 2
## 35 bercocok 1
## 36 berekspresi 1
## 37 berisi 2
## 38 bermakna 1
## 39 bernilai 1
## 40 bertanya 2
## 41 bertempat 1
## 42 bidang 1
## 43 bisa 3
## 44 buang 1
## 45 bukan 5
## 46 bukankah 3
## 47 bumi 1
## 48 cahaya 1
## 49 cara 5
## 50 cendekiawan 1
## 51 ceroboh 1
## 52 cianjur 1
## 53 contoh 1
## 54 cukup 1
## 55 daerahnya 1
## 56 dalam 1
## 57 dan 3
## 58 dari 6
## 59 dengan 11
## 60 di 17
## 61 dia 1
## 62 dialihkan 1
## 63 dibuang 2
## 64 dibuka 1
## 65 diciptakan 1
## 66 digeser 1
## 67 dijual 2
## 68 dikaji 1
## 69 dilakukan 1
## 70 dimaknai 1
## 71 dipandangnya 1
## 72 dipercaya 1
## 73 diproses 1
## 74 diri 4
## 75 dirimu 1
## 76 dirinya 1
## 77 disalahsangkai 1
## 78 disebut 1
## 79 disingkirkan 1
## 80 disini 1
## 81 diskusi 1
## 82 dulu 1
## 83 dunia 2
## 84 eko 3
## 85 entah 1
## 86 gelengkan 1
## 87 gunanya 1
## 88 hal 1
## 89 hanya 7
## 90 hari 1
## 91 harusnya 1
## 92 hati 1
## 93 hayati 4
## 94 hidup 1
## 95 hubungan 2
## 96 ia 1
## 97 identitas 1
## 98 indramayu 1
## 99 ini 3
## 100 intelektualitas 1
## 101 istilah 1
## 102 itu 5
## 103 jadi 1
## 104 jamaah 1
## 105 jangan 4
## 106 jawaban 1
## 107 jenis 1
## 108 jika 1
## 109 juga 3
## 110 justru 1
## 111 kalah 4
## 112 kalau 2
## 113 kaleng 2
## 114 kampus 1
## 115 karena 1
## 116 kata 1
## 117 ke 1
## 118 keangkuhannya 1
## 119 kearifan 1
## 120 kehilangan 1
## 121 kemana 1
## 122 kembali 1
## 123 kemudian 3
## 124 kepada 2
## 125 kepalanya 1
## 126 kesadaran 1
## 127 kesejatian 1
## 128 ketika 1
## 129 kita 16
## 130 kitab 2
## 131 kota 1
## 132 lah 2
## 133 lahir 1
## 134 lain 2
## 135 lebih 1
## 136 lingkungan 1
## 137 luar 1
## 138 malah 1
## 139 malam 2
## 140 mana 2
## 141 manusia 5
## 142 manusianya 1
## 143 masalah 1
## 144 masing 2
## 145 maupun 1
## 146 mayoritas 1
## 147 mbah 2
## 148 melakukan 3
## 149 melanjutkan 1
## 150 melebihi 1
## 151 meletakkan 2
## 152 memberi 1
## 153 memberikan 2
## 154 membuang 2
## 155 memerangi 1
## 156 memiliki 2
## 157 memintas 1
## 158 memperlakukan 1
## 159 menang 2
## 160 menaruh 1
## 161 mendapatkan 1
## 162 mendiskusikan 1
## 163 menentukan 1
## 164 mengenai 3
## 165 mengetahui 2
## 166 menggeleng 1
## 167 menggunung 1
## 168 menghilangkan 1
## 169 mengikuti 1
## 170 mengotori 1
## 171 menilai 1
## 172 menjadi 5
## 173 menjalar 1
## 174 menurut 1
## 175 menyakitimu 2
## 176 menyampahkan 1
## 177 menyimpulkan 1
## 178 mereka 1
## 179 merupakan 2
## 180 mungkin 2
## 181 namun 1
## 182 narasumber 1
## 183 nilai 1
## 184 nyatanya 2
## 185 orang 1
## 186 organik 2
## 187 pada 1
## 188 paham 1
## 189 pandang 3
## 190 pangkuan 1
## 191 para 1
## 192 pelajar 1
## 193 pemaknaannya 1
## 194 pembelajaran 1
## 195 pemuda 1
## 196 pemudi 1
## 197 penaklukan 1
## 198 pengajian 1
## 199 pengungkapan 1
## 200 penindasan 1
## 201 perbedaan 1
## 202 perlakuan 2
## 203 perlu 3
## 204 pernah 1
## 205 persepsi 1
## 206 pertanian 1
## 207 pertiwi 1
## 208 petani 5
## 209 pihak 1
## 210 pikiran 1
## 211 plastik 2
## 212 posisi 2
## 213 pribadi 1
## 214 proses 1
## 215 pun 4
## 216 rasa 1
## 217 relasi 1
## 218 saat 1
## 219 sadar 1
## 220 saja 1
## 221 sakit 1
## 222 salah 5
## 223 sama 1
## 224 sampah 20
## 225 sampahnya 1
## 226 sampai 5
## 227 sangat 2
## 228 sangatlah 1
## 229 satu 2
## 230 saya 3
## 231 sebagai 3
## 232 sebagi 1
## 233 sebelum 1
## 234 sebisa 2
## 235 sebuah 2
## 236 sedang 2
## 237 sedangkan 1
## 238 sederhana 1
## 239 sedikit 2
## 240 segala 3
## 241 seharusnya 2
## 242 sekarang 1
## 243 semakin 1
## 244 sembarangan 1
## 245 semesta 1
## 246 semua 3
## 247 sendiri 6
## 248 seorang 3
## 249 sepele 1
## 250 sering 3
## 251 sesuatu 3
## 252 setelah 1
## 253 sia 4
## 254 sikap 1
## 255 simbah 1
## 256 sinau 1
## 257 sini 1
## 258 sisi 1
## 259 sulit 1
## 260 tanahnya 1
## 261 tanam 1
## 262 tanamannya 1
## 263 tapi 3
## 264 telah 3
## 265 tempat 2
## 266 tempatnya 1
## 267 tenama 1
## 268 tengah 1
## 269 tentang 3
## 270 tepat 3
## 271 tercipta 1
## 272 terhadap 2
## 273 terlahir 1
## 274 terlalu 1
## 275 terletak 1
## 276 termasuk 2
## 277 tersisih 1
## 278 tertarik 2
## 279 tertulis 1
## 280 terutama 1
## 281 tetap 1
## 282 tetapi 2
## 283 tidak 10
## 284 tinggal 1
## 285 tua 1
## 286 tumbuh 1
## 287 tunas 1
## 288 ulang 1
## 289 unsur 2
## 290 untuk 3
## 291 waktu 2
## 292 warna 1
## 293 winardi 3
## 294 yaitu 1
## 295 yang 34
# Menghapus stop-words
stopw = readLines("file:///C:/Users/Adit/Documents/Stopword.txt")
## Warning in readLines("file:///C:/Users/Adit/Documents/Stopword.txt"):
## incomplete final line found on 'C:/Users/Adit/Documents/Stopword.txt'
text = text[!is.element(text$text, stopw),]
# Generate word-cloud
wordcloud(text$text, text$Freq, max.words = 10000000, random.order=FALSE, rot.per=0, colors=brewer.pal(8, "Dark2"))
