library(igraph)

b<-filter(kdnvar,Freq>0.1)

g<-graph.data.frame(b,directed=TRUE)

E(g)$width <- matrix(b[,3])

plot(g, vertex.size=20, edge.width=(abs(E(g)$width)^2)*60, edge.arrow.size=0.3,edge.color=ifelse(E(g)$width>0,"blue","red"))

# 엣지형태와 칼라는 조정