R-igraph包下如何获取清晰的图plot/zoom答案

【问题标题】：How to obtain a clear graph plot / zoom under R- igraph packageR-igraph包下如何获取清晰的图plot/zoom
【发布时间】：2022-11-14 01:28:20
【问题描述】：

假设我们在 R 下有以下图表：

library(tidyverse)
library("igraph")
library("rmutil")
library("cubature")
cities <- data.frame(name=c("Site A", "Stantsiya port", "Sahaidachnoha island", "Ulyanivka",
                            "Lyubymivka","Dnipro","Voronezeh","Oryol","Hrakove","Poltava","Suponevo","Borshchevka","Krestopivshchyna","Kalinkavishy","Chernobyl"))

relations <- data.frame(from=c("Site A", "Stantsiya port", "Sahaidachnoha island", "Ulyanivka",
                               "Lyubymivka","Dnipro", "Voronezeh", "Voronezeh", "Oryol", "Oryol", "Oryol","Hrakove","Suponevo","Suponevo","Suponevo","Poltava","Krestopivshchyna","Borshchevka","Krestopivshchyna","Kalinkavishy"),
                        to=c("Stantsiya port", "Sahaidachnoha island", "Ulyanivka", "Lyubymivka", "Dnipro", "Voronezeh","Oryol","Hrakove","Hrakove","Poltava","Suponevo","Poltava","Poltava","Krestopivshchyna","Borshchevka","Krestopivshchyna","Borshchevka","Kalinkavishy","Kalinkavishy","Chernobyl"),
                        weight=c(45, 30, 585, 1050, 493.8, 13800, 7800, 8400, 11400, 11100, 
                                   3600, 6000, 12000, 6600, 9000, 12600, 6000, 10200, 3600, 6000
                        ))

g <- graph_from_data_frame(relations, directed=FALSE, vertices=cities)

我想绘制这个图：

plot(g, edge.arrow.size=.5, vertex.color="gold", vertex.size=15, vertex.frame.color="gray", vertex.label.color="black", vertex.label.cex=0.8, vertex.label.dist=2, edge.curved=0.2)

输出：

要求：上图中的图形路径/顶点/边并不明显，我需要更清晰/明显的（如果可能的话，边带有相关值）。

谢谢

【问题讨论】：

标签： r graph-theory igraph

【解决方案1】：

我相信我使用类似的问题提出了一些解决方案：

igraph.options(plot.layout=layout.graphopt, vertex.size=7)
plot(g)

如果我可以为图形顶点添加值，那就太好了

【讨论】：