Pertama, buat app pada developers.facebook.com copy id aplikasi dan tokennya
Instal librarynya dengan sintaks
install.packages('wordcloud')
install.packages("devtools")
install.packages("devtools")
Setelah itu instal Rfacebook
library(devtools)
install_github("pablobarbera/Rfacebook/Rfacebook")
install_github("pablobarbera/Rfacebook/Rfacebook")
setelah itu load library2nya
library("wordcloud")
library("Rfacebook")
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
Tags
PADL