|
}??
函数需要输入三样东西（关系网络，分组情况，标题）。这里借助上面的社群分类都是可以得到的。用点连接来举个例子：
plot.membership(g.undir,clusters(g.undir)$membership,"无向图的社群发现")??
3、SVG如何画高质量图
画一个好看的图你需要考虑这么几个问题：
不同重要性的点是否需要不同的大小？——V(g)$size
重要的点是否要加入其名字标签？——V(g)$label
不同社群的点，是否需要不同的颜色？——V(g)$member
（1）设置点大小
V(gg)$size?=?5?? V(gg)[degree(g)>=3000]$size?=?15??
其他节点尺寸都是5，而点度数大于3000的节点尺寸是15；
（2）设置不同社群颜色
mem.col<-rainbow(length(unique(V(g)$member)),alpha?=?0.3)?? V(g)$color<-mem.col[V(g)$member]??
rainbow是生成颜色的参数，比如"#FF00004D" "#00FFFF4D"
第二句话是将每个点附上颜色。
（3）设置重点词标签
V(g)$label=NA?? V(g)[degree(g)>=3000]$label=V(gg)[degree(g)>=3000]$name??
非重点词不给标签，重点词点度大于3000的给标签名字。
最后的SVG画图函数就是：
svg(filename=paste("C:/Users/long/Desktop","/1.svg",sep?=?""),width?=?40,height?=?40)?? plot(data.g,layout=layout.fruchterman.reingold,vertex.color=V(g)$color,vertex.label=V(g)$label,<span?style="font-family:?Arial,?Helvetica,?sans-serif;">vertex.size=V(g)$size</span>)?? dev.off()??
其中layout.fruchterman.reingold是发散式的布局方式。
打开SVG可以用adobe illustrator,而且也可以修改，就是笔者遇到的问题是，图中会出现很多问题。
（编辑：滨州站长网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
