Anggota Kelompok:
Axel Aryobowo
M. Fadil Fidrian
M. Zaim Milzam
Taufik Hidayat
4IA10
Pada postingan ini saya akan membahas analisis sentimen pada twitter menggunakan bahasa R. Sentiment analysis merupakan salah satu bidang
dari ilmu komputer yang mempelajari komputasi linguistik, pengolahan
bahasa alami. Tema yang diangkat pada post ini adalah Black Campaign.
Langkah pertama adalah masuk ke apps.twitter.com. Lalu pilih create an application.
Setelah terbuat maka akan terlihat kode untuk tokennya. Kode inilah yang akan digunakan untuk mendaftarkan API twitter pada bahasa R.
Langkah selanjutnya adalah pengkodean pada program R. Terlebih dahulu kita menginstall package untuk mencari kata kunci yaitu twitteR dan RCurl. Package ini kemudian juga diaktifkan.
Token token yang telah didapat dimasukkan kedalam sintaks bahasa R untuk mendaftarkan API twitter.
> consumer_key <- 'diisikan consumer key'
> consumer_secret <- 'diisikan consumer secret'
> access_token <- 'diisikan access token'
> access_secret <- 'diisikan access secret'
Jika tidak terdapat error maka koneksi API twitter dengan bahasa R berhasil. Kemudian kita melakukan mining tweets dengan memasukkan kata kuncinya. Dalam contoh ini kata kunci yang digunakan adalah "antek pki".
> miningtweets <- searchTwitter('antek+pki', lang='id', n=100, resultType="recent")
> class(miningtweets)
> miningtweets_text <- sapply(miningtweets, function(x) x$getText())
> str(miningtweets_text)
Langkah selanjutnya adalah menginstall package corpus dan tm. Package ini digunakan untuk menampilkan semua tweet hasil mining.
Lalu kita menampilkan hasil tweet yang dilakukan mining. Cara menampilkannya dengan memanggil Corpus yang baru saja diinstall.
> kampanye_corpus <- Corpus(VectorSource(miningtweets_text))
> kampanye_corpus
> inspect(kampanye_corpus)
Kemudian dilakukan filter kata untuk menyaring agar hanya kata kunci yang dibutuhkan saja yang akan digunakan.
Setelah itu dilakukan wordcloud untuk menampilkan kata-kata kunci dalam bentuk gambar susunan seperti awan. Dilakukan install packagenya terlebih dahulu.
Jika sudah maka lakukan wordcloud untuk menampilkan kata kunci yang telah disaring.
> wordcloud(black_clear, random.order=F, col=rainbow(50))
