假設我們在 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)
輸出 ：
要求：上圖中的圖形路徑/頂點/邊并不明顯，我需要更清晰/明顯的（如果可能的話，邊帶有相關值）。
謝謝
uj5u.com熱心網友回復：
查看可用的 layout_* 函式。這個對我來說效果很好。除了我們添加了layout=引數外，引數與問題中的引數相同。
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,
layout = layout_with_sugiyama)
uj5u.com熱心網友回復：
我相信我使用類似的問題提出了一些解決方案：
igraph.options(plot.layout=layout.graphopt, vertex.size=7)
plot(g)
如果我可以向圖形頂點添加值，那就太好了
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/532431.html
標籤：r图论图形