Я хотел бы создать легенду visNetwork, в которой размер узлов соответствует сетевому графу. Похоже, что масштаб устанавливается для каждого индивидуально, что делает размеры узлов несопоставимыми.
Пример кода:
nodes <-
data.frame(
id = 1:5,
size = c(10, 10, 15, 15, 30)
)
edges <- data.frame(from = c(rep(1, 4)), to = c(2:5))
legend_nodes <-
data.frame(
label = c("Size 30", "Size 10"),
color = c("gray"),
size = c(30, 10),
shape = c("dot"),
font.size = 20
)
visNetwork(nodes, edges,
width = "400px",
height = "400px") %>%
visLegend(addNodes = legend_nodes,
useGroups = FALSE)
Результат кода:
Здесь узлы графа больше, чем узлы легенды. Это проблема, потому что весь смысл легенды состоит в том, чтобы предоставить точный масштаб для размера. (С более сложными графиками разница становится больше.)
Есть ли способ сделать масштабирование по умолчанию для сетевого графика и легенды одинаковым (что, как я полагаю, является способом сопоставления размера узла)?