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"))
# 엣지형태와 칼라는 조정