毫无疑问,解决方案的一个要素是我在评论中建议的rescale = FALSE
参数。igraph::plot()
OP问为什么他们会得到一个空的情节?这是因为绘图区域仍然限于[-1; 1]
沿 x 和 y 轴的间隔。这是默认值igraph::plot()
。所以我们需要给出xlim = c(-180, 180)
和ylim = c(-90, 90)
参数。这已经给出了正确的定位。但是,如果我们的目标是生成带有世界地图的图形,那么最好将 igraph 图写入 cairo SVG 设备。然后我们将能够在任何 SVG 编辑器中将地图放在图形后面(例如Inkscape是一个很好的解决方案),我们仍然可以自由缩放和编辑图形和标签。为此,其他一些igraph.plotting
需要设置的参数,但这已经是关于比例和美学的了。这是我用来生成 SVG 输出的代码:
#!/usr/bin/Rscript
require(igraph)
require(Cairo)
df <- data.frame("from" = c("Bob", "Klaus", "Edith", "Liu"),
"to" = c("Edith", "Edith", "Bob", "Klaus"))
meta <- data.frame("name" = c("Bob", "Klaus", "Edith", "Liu"),
"lon" = c(-74.00714, 13.37699, 2.34120, 116.40708),
"lat" = c(40.71455, 52.51607, 48.85693, 39.90469))
g <- graph.data.frame(df, directed = TRUE, vertices = meta)
lo <- layout.norm(as.matrix(meta[,2:3]))
dpi = 1.0
Cairo(file = 'map-graph.svg', type = "svg",
units = "in",
width = 4 / dpi,
height = 2 / dpi,
dpi = dpi)
plot.igraph(g,
layout = lo,
xlim = c(-180, 180),
ylim = c(-90, 90),
rescale = FALSE,
edge.curved = TRUE,
edge.arrow.size = 10 / dpi,
edge.arrow.width = 0.5 / dpi,
vertex.label.dist = 50 / dpi,
vertex.label.degree = 90 / dpi,
vertex.size = 200 / dpi,
vertex.label.cex = 21 / dpi,
vertex.frame.color = NA,
vertex.label.color = '#FFFF00',
edge.color = '#FFFFFF',
vertex.label.family = 'sans-serif',
edge.width = 16 / dpi)
dev.off()
当 igraph 生成的 SVG 看起来不错时,我们可以在 Inkscape 中打开它。然后导入(Ctrl+i
)地图,以防它是像素图;如果是矢量图形(例如 PDF、SVG),则打开。手动缩放和定位地图以设置与 SVG 中的图形相同的比例(即,直到点到达正确的位置)——要按比例缩放,请Ctrl
在 Inkscape 中按住。这是此方法的结果:
(地图图像由 Wikimedia Commons 提供给非商业公众使用)。
我认为 igraph 能够产生这样的图形,但这不是这个软件的主要目的,所以它有它的局限性。在某些时候,您可能会考虑使用一些专门为执行此类操作而设计的地理信息系统 (GIS) 软件。我对这些没有经验,但qgis可能值得一看。