Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Area exponent
Dimensions
2
2
3
Vertex label size
Chart options
Title:
R Code
par1 <- as.numeric(par1) par2 <- as.numeric(par2) par3 <- as.numeric(par3) library(igraph) ps.options(family='serif') df <- read.table(file='http://www.wessa.net/download/dataframe.txt',sep=',',header=F) v <- read.table(file='http://www.wessa.net/download/vertices.txt',sep=',',header=F) g <- graph.data.frame(df, directed=T, vertices=v) myvcount = vcount(g) myarea = myvcount^par1 myradius = myvcount * myarea V(g)$size=1 l <- layout.fruchterman.reingold(g,dim=par2,params=list(niter=5000, area=myarea, repulserad=myradius)) bitmap(file='pic.png') plot(g, axes=F, xlab='', ylab='', layout=l, vertex.size=V(g)$size, vertex.label.cex=par3, vertex.label.dist=0.5, edge.arrow.size=0.2, vertex.label=V(g)$age, main = main) dev.off()
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation