TUGAS PENGANTAR ALGORITMA DEEP LEARNING : CYBER BULLYING TWEETS DENGAN API TWITTER

Step 1:

Install package utama (twitteR) dan package-package pendukung yang diperlukan dengan mengetikan install.package(“nama package”)

install.packages(twitteR)

install.packages(ROAuth)

install.packages(plyr)

install.packages(RCurl)

install.packages(wordcloud)

install.packages(corpus)

install.packages(tm)

Step 2 :

Aktifkan package tersebut dengan menggunakan require(“nama package”)

require(twitteR)

require(ROAuth)

require(plyr)

require(RCurl)

require(wordcloud)

require(corpus)

require(tm)

Step 3 :

Buat API twitter dengan menggunakan twitter anda. Buka apps.twitter.com lalu log in dengan twitter anda. Klik create new app lalu isi form seperti dibawah ini

Jika sudah anda akan mendapatkan api key,api secret key,access token dan access token secret

Step 4 :

Kembali ke RStudio, masukan consumer key(api key), consumer secret (api secret), access token dan access secret token dengan sintaks dibawah ini

consumer_key <- “insert your consumer key”

consumer_secret <- “insert your consumer secret”

access_token <- “insert your access token”

access_secret <- “insert your access token secret”

Step 5 :

jika sudah lakukan authentication ke twitter dengan sintaks berikut

setup_twitter_oauth(consumer_key,consumer_secret,access_token,access_secret)

Step 6 :

Mulai memproses mining tweet dengan sintaks berikut

miningtweets <- searchTwitter('dasar+jelek', lang = "id", n=50, resultType = "recent")

disini kami mencari tweet dengan kata kunci dasar jelek dengan jumlah tweet yang kami ambil sebanyak 50. Kami mengambil tweet terbaru

Step 7 :

Konversi tweet tersebut menjadi teks dan ditampilkan

miningtweets <- sapply(miningtweets,function(x)x$getText())

str(miningtweets)

bully <- Corpus(VectorSource(miningtweets))

inspect(bully)

dan akan menampilkan seperti berikut

Step 8 :

Untuk menghilangkan tanda baca,spasi, angka, dan kata kunci yang di mining dengan sintaks berikut

bully_clear <- tm_map(bully,removePunctuation)

bully_clear <- tm_map(bully_clear,removeNumbers)

bully_clear <- tm_map(bully_clear,stripWhitespace)

bully_clear <- tm_map(bully_clear,removeWords,c("dasar","jelek"))

Step 9 :

lalu munculkan kata hasil dari proses tersebut dengan sintaks

wordcloud(bully_clear)

lalu akan menghasilkan output seperti dibawah ini

Kelompok 9 4IA10

- Bisma Dwiki Ananda Tomy

- Lungguh Syam Pambudi

- Henggar Tri Wijayanto

- Andi Muhadir