clusterGraph.R

setwd('/home/rauf/Programs/DM_Labs/day_4')
require(igraph)

path <- "vk_data/adj/egonet_755.txt"
a<-read.table(path, sep=' ', dec = ' ', header = T)

#directed - T or F - в зависимости от значения, 
#при Т - создает направленный граф, при F - ненаправленный 
a.network <- graph.data.frame(a, directed = F)
a.network <- simplify(a.network)

#par(mai=c(0,0,1,0)) #для создания пространства и местоположения графа, поиграйся со значениями, станет понятнее
#plot(a.network,layout=layout.auto, main='VK.com',vertex.label.dist=0.1, vertex.frame.color='black', vertex.label.color='blue', vertex.label.font=0.1, vertex.label=V(a.network), vertex.label.cex=0.1) #здесь я просто причесываю граф, 

cl <- fastgreedy.community(a.network)
goldenStep <- which.max(cl$modularity)

ctm <- community.to.membership(a.network, cl$merges, goldenStep, membership=TRUE, csize=TRUE)

l2 <- layout.auto(a.network)
plot(a.network, layout=l2, vertex.color=cl$membership,
     vertex.size=2, vertex.label=NA)