使用ggnetwork

Question

我有graph个顶点和边，我想使用fruchtermanreingold布局来绘制。

这是graph边矩阵：

edge.mat <- matrix(as.numeric(strsplit("3651,0,0,1,0,0,0,0,2,0,11,2,0,0,0,300,0,1,0,0,66,0,78,9,0,0,0,0,0,0,11690,0,1,0,0,0,0,0,0,0,0,493,1,1,0,4288,5,0,0,36,0,9,7,3,0,6,1,0,1,7,490,0,0,0,6,0,0,628,6,12,0,0,0,0,0,641,0,0,4,0,0,0,0,0,0,66,0,0,0,0,3165,0,281,0,0,0,0,0,0,0,0,45,1,0,0,35248,0,1698,2,0,1,0,2,99,0,0,6,29,286,0,31987,0,1,10,0,8,0,16,0,21,1,0,0,1718,0,51234,0,0,17,3,12,0,0,7,0,0,0,1,0,2,16736,0,0,0,3,0,0,4,630,0,0,0,9,0,0,29495,53,6,0,0,0,0,5,0,0,0,0,3,0,19,186,0,0,0,482,8,12,0,1,0,7,1,0,6,0,26338",split=",")[[1]]),nrow=14,dimnames=list(LETTERS[1:14],LETTERS[1:14]))

然后我使用以下方法从中创建对象igraph

gr <- igraph::graph_from_adjacency_matrix(edge.mat,mode="undirected",weighted=T,diag=F)

然后，我按照R的{​​{1}}的示例将ggnetwork转换为gr：

data.frame

然后我使用set.seed(1) gr.df <- ggnetwork::ggnetwork(gr,layout="fruchtermanreingold",weights="weight",niter=50000, arrow.gap=0) 和ggplot2进行绘制：

ggnetwork

哪个给：

我的问题是如何使图中的边缘线宽度与ggplot2::ggplot(gr.df,ggplot2::aes(x=x,y=y,xend=xend,yend=yend))+ ggnetwork::geom_edges(color="gray")+ ggnetwork::geom_nodes(color="black")+ ggnetwork::geom_nodelabel_repel(aes(label=vertex.names,color=vertex.names),fontface="bold",box.padding=unit(1,"lines"))+ ggplot2::theme_minimal()+ggplot2::theme(axis.text=ggplot2::element_blank(),axis.title=ggplot2::element_blank(),legend.position="none") （gr）中的边缘权重成比例？

看着igraph::E(gr)$weight：

gr.df

我发现边缘没有从> head(gr.df) x y na.x vertex.names xend yend na.y weight 1 0.3637960 0.8873783 FALSE A 0.3637960 0.8873783 NA NA 2 0.7480217 0.4129375 FALSE B 0.7480217 0.4129375 NA NA 3 0.1306538 0.0000000 FALSE C 0.1306538 0.0000000 NA NA 4 0.4828271 0.6498561 FALSE D 0.4828271 0.6498561 NA NA 5 0.2243358 0.4484766 FALSE E 0.2243358 0.4484766 NA NA 6 1.0000000 0.6396669 FALSE F 1.0000000 0.6396669 NA NA 转移到gr。

Answer 1

您可以在size调用中指定geom_edges美观。 例如。 aes(size=weight)

ggplot2::ggplot(gr.df,ggplot2::aes(x=x,y=y,xend=xend,yend=yend))+
  ggnetwork::geom_edges(color="gray",size=aes(size=weight))+
  ggnetwork::geom_nodes(color="black")+
  ggnetwork::geom_nodelabel_repel(aes(label=vertex.names,color=vertex.names),fontface="bold",box.padding=unit(1,"lines"))+
  ggplot2::theme_minimal()+ggplot2::theme(axis.text=ggplot2::element_blank(),axis.title=ggplot2::element_blank(),legend.position="none")

请注意，创建的数据框确实包含顶点，边和相关权重。首先列出顶点，然后列出边缘。在这种情况下，如果查看整个数据帧（或仅查看tail），您会发现边缘的权重值在那里。