一个让R igraph箭头大小与边缘宽度匹配的技巧

Question

一个让R igraph箭头大小与边缘宽度匹配的技巧

rplotigraph

18

尽管手册说明这将是一个未来的功能：

箭头大小。目前这是一个常数，因此对于每个边缘都是相同的。如果提交了一个向量，则仅使用第一个元素，即如果这是从边缘属性中获取的，则仅使用第一个边缘的属性用于所有箭头。这在将来可能会改变。

默认值为1。

我想知道是否有一种方法可以绕过，使箭头大小与边缘宽度匹配（每个边缘都有自己的宽度）。

d <- data.frame(start=c("a","a","b","c"),end=c("b","b","c","b"), size=rnorm(4))


graph <- graph.data.frame(d, directed=T)

plot(graph,
     vertex.color="white",
     edge.width=E(graph)$size*20,
     edge.arrow.size=E(graph)$size)

enter image description here

- Etienne Low-Décarie

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Gabor Csardi · Accepted Answer

嗯，有一个技巧，您需要将图绘制多次，每次仅绘制给定子集的边，使用“正确”的箭头大小，并绘制与不同边宽度数量相同的次数。使用add=TRUE参数在彼此之上绘制它们。也许您还想只绘制一次顶点。

顺便说一句，您可以在https://github.com/igraph/igraph/issues上提交此功能请求。

编辑：以下是一个示例：

library(igraph)

## (almost) your example data
d <- data.frame(start=c("a","a","b","c"),
                end=c("b","b","c","b"),
                size=1:4)
graph <- graph.data.frame(d, directed=TRUE)

## The plotting function
eqarrowPlot <- function(graph, layout, edge.lty=rep(1, ecount(graph)),
                        edge.arrow.size=rep(1, ecount(graph)),
                        vertex.shape="circle",
                        edge.curved=autocurve.edges(graph), ...) {
  plot(graph, edge.lty=0, edge.arrow.size=0, layout=layout,
       vertex.shape="none")
  for (e in seq_len(ecount(graph))) {
    graph2 <- delete.edges(graph, E(graph)[(1:ecount(graph))[-e]])
    plot(graph2, edge.lty=edge.lty[e], edge.arrow.size=edge.arrow.size[e],
         edge.curved=edge.curved[e], layout=layout, vertex.shape="none",
         vertex.label=NA, add=TRUE, ...)
  }
  plot(graph, edge.lty=0, edge.arrow.size=0, layout=layout,
       vertex.shape=vertex.shape, add=TRUE, ...)
  invisible(NULL)
}

## Test
eqarrowPlot(graph, layout.auto(graph), edge.arrow.size=E(graph)$size/3,
            edge.width=E(graph)$size)

非常宽的边缘看起来相当不好。