FacebookR

library(Rfacebook)
library(httpuv)
library(RColorBrewer)

s
load("fb_oauth")
me <- getUsers("me", token=fb_oauth)
#getFQL(query, token)
my_friends <- getFriends(token=fb_oauth, simplify=F)
str(my_friends)
table(my_friends$relationship_status)

pie(table(my_friends$relationship_status),col=brewer.pal(5, "Set1"))

table(my_friends$location)
pie(table(my_friends$location),col=brewer.pal(20, "Greens"))
pie(table(my_friends$locale),col=brewer.pal(4, "Blues"))
pie(table(my_friends$gender),col=brewer.pal(3, "Oranges"))

load("fb_oauth")

mat <- getNetwork(token=fb_oauth, format="adj.matrix")

library(igraph)

network <- graph.adjacency(mat, mode="undirected")
getwd()
setwd("C:/Users/dell/Desktop")

pdf("network_plot.pdf")

plot(network ,vertex.size=5, 
     vertex.label=NA, 
     vertex.label.cex=0.45,
     edge.arrow.size=1,
     edge.curved=TRUE,)

dev.off()