Many thanks, I append the simple code. Allow size is set very small, 0.00001, otherwise background becomes a gray plan… No idea why I am having this picture… L
rm(list = ls())
gc()
t0=matrix(c(5.217060, 0, 0, 0, 0.000000, 0.000000, 0.000000, 0, 0
,0.000000 , 0 , 0 , 0, 0.000000, 0.000000 ,0.000000 , 0 , 0
,4.458724 , 0 , 0 , 0, 0.000000, 4.434984 ,0.000000 , 0 , 0
,0.000000 , 0 , 0 , 0, 0.000000, 0.000000 ,0.000000 , 0 , 0
,0.000000 ,0 , 0 ,0, 6.684027, 0.000000 ,0.000000, 0, 0
,0.000000, 0 , 0 , 0, 0.000000, 0.000000 ,0.000000 , 0 , 0
,0.000000 , 0 , 0 , 0 ,0.000000, 4.382870 ,6.358501 , 0 , 0
,0.000000 , 0 , 0 , 0, 0.000000, 0.000000 ,0.000000 , 0 , 0
,0.000000 , 0 , 0 , 0, 0.000000, 0.000000 ,0.000000 , 0 ,0),
9,9)
t=t(t0)
library(igraph)
M=unname(as.matrix(t))
tg=graph.adjacency(M)
tg=delete.vertices(simplify(tg,remove.multiple=T,remove.loops=T),degree(tg)==0)
lay = layout_nicely(tg)
plot(tg,
vertex.size=10,
vertex.label.cex=.7,
edge.arrow.size=0.00001,
edge.arrow.width=0.00001,
edge.curved=0.2,
layout=lay
)
