Selasa, 20 Maret 2018

Sentiment Analysis Twitter menggunakan R



Postingan kali ini akan memuat topik tentang sentiment analysis menggunakan twitter API dan bahasa pemrograman R. dan tema yang di angkut adalah black campaign. berikut langkah langkah nya, disini saya menggunakan twitter salah satu anggota kelompok kami. tapi sebenarnya bikin masing masing juga bisa namun biar lebih mudah jadi kami hanya pakai 1 akun teman kami.

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".

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))

Anggota Kelompok:
Axel Aryobowo
M. Fadil Fidrian
M. Zaim Milzam
Taufik Hidayat
4IA10