【发布时间】:2021-12-29 08:56:40
【问题描述】:
我需要在节点上绘制带有标签的网络。节点名称的长度有时很短,有时很长。数据是动态生成的,所以每次都是随机的。
这是我的数据示例:
links=data.frame(
source=c("AAAAAAAAAAAAAAAAAAAAAAAA","AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA","J", "BBBBBBBBB",
"BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCC", "CCCCCCCCCCC", "D","IIIIIIII"),
target=c("BBBBBBBBBBBBBBBBBBBBB","BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCC", "D",
"J","AAAAAAAAAAAAAAAAAAAAAAAA","E", "F", "G", "H", "IIIIIIII","IIIIIIII")
)
library(RCy3)
nodes <- data.frame (id = unique(c(links$source,links$target)) )
createNetworkFromDataFrames(nodes, links, title="my first network", collection="DataFrame Example")
setNodeShapeDefault('RECTANGLE', style.name = "default")
setEdgeTargetArrowShapeDefault("ARROW", style.name = "default")
setNodeBorderColorDefault("#000000", style.name = "default")
setNodeColorDefault("#89D0F5", style.name = "default")
setNodeWidthDefault(130, style.name = "default")
exportImage("c:\\temp\\network_01.svg", 'svg')
这是我的结果图片:
标签不适合矩形,节点重叠。上部链接超出情节边缘。如何避免?
【问题讨论】: