Mining Komentar Facebook Menggunakan R Language

Pertama, buat app pada developers.facebook.com copy id aplikasi dan tokennya

Buka Rstudio

Instal librarynya dengan sintaks

install.packages(‘wordcloud’)
install.packages(“devtools”)

Setelah itu instal Rfacebook

library(devtools)
install_github(“pablobarbera/Rfacebook/Rfacebook”)

setelah itu load library2nya

library(“wordcloud”)
library(“Rfacebook”)

setelah itu, minta permission ke akun fb dengan sintaks

fb_auth <- fbOAuth(app_id=”isiappidnya”, app_secret=””, extended_permissions = TRUE)

setelah itu akan muncul otomatis ke broser untuk meminta izin

Lalu ambil postingan dari page, contohnya ambil dari page younglex

fb_page <- getPage(page=”officialyounglex18″, token=fb_auth, n = 10,  feed = FALSE,               reactions = TRUE,  api = NULL)

Ke ambil 10 postingan dari page younglex, lalu pilih yang postingan pertama karena paling banyak yang commenntya dengan cara

fb_post <- getPost(post = fb_page$id[1], likes = TRUE, n=500, token=fb_auth)

fb_post_df <- as.data.frame(fb_post[2])

Lalu kita ambil saja data comment.messagenya

pesan <- sapply(fb_post_df$comments.message,function(x) x)

lalu hapus semua karakter yang bukan utf8

Encoding(pesan) <- “latin1”

pesanakhir <- iconv(pesan, “latin1”, “UTF-8″,sub=”)

lalu di tampilkan ke wordcloud

wordcloud(pesanakhir, random.order=FALSE, colors=brewer.pal(8, “Dark2”))

Anggota Kelompok :
Budiman Abdul Aziz
Khian Rahmadi
Malik Abdul Aziz
Rahmat Burhanudin
Raka Prakarsa

Kelas : 4IA10

 

Rahmat Burhanudin

Sharing is caring. Ada pertanyaan? silahkan komentar atau email ke rahmat@mamat.co

Leave a Reply

Your email address will not be published. Required fields are marked *