7

我正在尝试使用 R 中的 igraph 绘制小型网络。网络中的每个顶点都有一个名称，相当于它的标签。我想让每个顶点都有一个矩形符号，它的大小刚好适合它的标签。

这是我的主要灵感。

海波利亚地图

使用 igraph 执行此操作的最佳方法是什么？

编辑：更多信息

代码在这里

jsonToNM <- function(jfile, directed=TRUE) {
  # Requires "rjson" and "igraph"

  nm.json <- fromJSON(file=jfile)
  nm.graph <- c()

  # Initialize the graph with the given nodes
  g <- graph.empty(n=length(nm.json), directed=directed)
  # Add their names
  V(g)$name <- names(nm.json)
  V(g)$label <- V(g)$name

  # Now, add the edges
  for(i in 1:length(nm.json)) {
    # If the node has a "connected" field,
    # then we note the connections by looking
    # the names up.
    if(length(nm.json[[i]]$connected > 0)) {
      for(j in 1:length(nm.json[[i]]$connected)) {
        # Add the entry
        g <- g + edge(names(nm.json)[i],
                        nm.json[[i]]$connected[j])
      }
    }
  }

  plot(g, vertex.label.dist=1.5)
}

电流输出如下。

电流输出

我的目标是将标签放置在顶点图形内，并扩大顶点的宽度以容纳标签。

4

2 回答 2

9

这是一个例子。在一些肮脏的技巧中（即将顶点大小乘以 200），关键是使用两个绘图命令，这样我们就可以strwidth()在绘图大小设置为第一个（空） 阴谋。

library(igraph)
camp <- graph.formula(Harry:Steve:Don:Bert - Harry:Steve:Don:Bert,
                      Pam:Brazey:Carol:Pat - Pam:Brazey:Carol:Pat,
                      Holly   - Carol:Pat:Pam:Jennie:Bill,
                      Bill    - Pauline:Michael:Lee:Holly,
                      Pauline - Bill:Jennie:Ann,
                      Jennie  - Holly:Michael:Lee:Ann:Pauline,
                      Michael - Bill:Jennie:Ann:Lee:John,
                      Ann     - Michael:Jennie:Pauline,
                      Lee     - Michael:Bill:Jennie,
                      Gery    - Pat:Steve:Russ:John,
                      Russ    - Steve:Bert:Gery:John,
                      John    - Gery:Russ:Michael)

V(camp)$label <- V(camp)$name
set.seed(42)   ## to make this reproducable
co <- layout.auto(camp)

plot(0, type="n", ann=FALSE, axes=FALSE, xlim=extendrange(co[,1]), 
     ylim=extendrange(co[,2]))
plot(camp, layout=co, rescale=FALSE, add=TRUE,
     vertex.shape="rectangle",
     vertex.size=(strwidth(V(camp)$label) + strwidth("oo")) * 100,
     vertex.size2=strheight("I") * 2 * 100)

igraph 顶点标签宽度

顺便提一句。这实际上不适用于 SVG 图形，因为无法从 R 中测量文本的宽度，SVG 设备只能进行猜测。

于 2013-01-23T06:49:37.580 回答
0

我知道这不是您问题的直接答案，但我建议使用不同的工具进行可视化。yEd 非常擅长将节点的宽度调整为标签的大小。您还可以轻松地操作可视化，并将其导出为 SVG 以进行最终润色。它可以从 www.yworks.com 免费获得（免责声明：我不在那儿工作）。

要以易于阅读的格式导出图形（yEd 不理解 igraph 的 gml 格式），请使用 graphml：

write.graph(graph, "test.graphml", format="graphml")

在 yEd 中打开它。转到编辑-> 属性映射器并单击“新配置（节点）”（绿色“加号”符号，左上角）。在框架的中间，在“数据源”下，搜索标签的名称（应该是“名称”）。在名为“映射到”的中间选项卡中选择“标签文本”并在右栏中将“转换”设置为“自动”。

现在选择 Tools -> fit node to label（第一次尝试默认参数即可），然后选择您喜欢的布局。您可以导出为各种图像格式，但据我所知，所有这些都是使用位图中间体实现的。因此，我通常会导出到 SVG 并在 inkscape 中进行抛光。如果有人知道更有效的程序来获得在 igraph 中生成的中型图形的美观布局，请告诉我。

于 2014-01-02T21:27:49.077 回答