История образовательной Галактики

История Галактики средствами R

rm(list=ls())
ubi <- read.csv(file.choose(),sep=";", as.is=T, header=F, encoding ="UTF-8") 
ubi2 <- data.frame(User = paste("U",ubi[,1],sep=":" ) , Page = paste("P",ubi[,2],sep=":") )  # 
ubi2.network <- graph.data.frame(ubi2,directed=T)
ubi2.network <- simplify(ubi2.network)
V(ubi2.network)$color <-ifelse (substring(V(ubi2.network)$name, 1, 1) == "U",'red','blue')
V(ubi2.network)$shape <-ifelse (substring(V(ubi2.network)$name, 1, 1) == "U",'circle','square')
set.seed(42)
par(mai=c(0,0,1,0)) 		
plot(ubi2.network, edge.arrow.size=.4,vertex.label=NA, vertex.size=2, layout=layout.kamada.kawai)

А теперь уберем

bad.vs<-V(bsk.network)[degree(bsk.network)<3] #identify those vertices part of less than three edges

ubi2.network<-delete.vertices(ubi2.network, bad.vs) #exclude them from the graph