我使用“visnetwork”库制作了下图:
library(tidyverse)
library(igraph)
set.seed(123)
n=15
data = data.frame(tibble(d = paste(1:n)))
relations = data.frame(tibble(
from = sample(data$d),
to = lead(from, default=from[1]),
))
data$name = c("new york", "chicago", "los angeles", "orlando", "houston", "seattle", "washington", "baltimore", "atlanta", "las vegas", "oakland", "phoenix", "kansas", "miami", "newark" )
graph = graph_from_data_frame(relations, directed=T, vertices = data)
#red circle: starting point and final point
V(graph)$color <- ifelse(data$d == relations$from[1], "red", "orange")
plot(graph, layout=layout.circle, edge.arrow.size = 0.2, main = "my_graph")
library(visNetwork)
a = visIgraph(graph)
m_1 = 1
m_2 = 23.6
a = toVisNetworkData(graph) %>%
c(., list(main = paste0("Trip ", m_1, " : "), submain = paste0 (m_2, "KM") )) %>%
do.call(visNetwork, .) %>%
visIgraphLayout(layout = "layout_in_circle") %>%
visEdges(arrows = 'to')
- 我现在尝试根据数字标 checkout 现的顺序向每个单独的节点添加数字标签(即“红色圆圈”始终为 1,按照箭头操作直到达到 2,依此类推):
我尝试在数据文件中添加一个额外的列以包含这些数字(每个“数字标签”对应于访问城市的顺序):
#is there an "automatic" way to do this? i did this manually:
data$label = c(11, 5, 2, 12, 7, 6, 10, 14, 15, 4, 12, 9, 13, 3,1)
然后,我尝试将“数字标签”和“名称标签”(即城市)添加到 visnetwork 图中的节点:
V(graph)$name = data$label = c(11, 5, 2, 12, 7, 6, 10, 14, 15, 4, 12, 9, 13, 3,1)
plot(graph, layout=layout.circle, edge.arrow.size = 0.2, main = "my_graph")
library(visNetwork)
a = visIgraph(graph)
m_1 = 1
m_2 = 23.6
a = toVisNetworkData(graph) %>%
c(., list(main = paste0("Trip ", m_1, " : "), submain = paste0 (m_2, "KM") )) %>%
do.call(visNetwork, .) %>%
visIgraphLayout(layout = "layout_in_circle") %>%
visEdges(arrows = 'to')
a
但它给了我一个错误:
Error in `.rowNamesDF<-`(x, value = value) :
duplicate 'row.names' are not allowed
In addition: Warning message:
non-unique value when setting 'row.names': ‘12’
最后,我还是想制作这个图(使用visnetwork):
还有其他方法可以做到这一点吗?
谢谢!
最佳答案
错误原因是没有8,有2个12。
sort(c(11, 5, 2, 12, 7, 6, 10, 14, 15, 4, 12, 9, 13, 3, 1))
# [1] 1 2 3 4 5 6 7 9 10 11 12 12 13 14 15
# missing 8, two 12
动态获取订单 - (这使用您在上面的代码中创建的第一个 a
对象)
library(tidyverse)
# collect the correct order
df2 <- data %>%
mutate(d = as.numeric(d),
nuname = factor(a$x$edges$from,
levels = unlist(data$name))) %>%
arrange(nuname) %>%
select(d) %>% unlist(use.names = F)
# [1] 11 5 2 8 7 6 10 14 15 4 12 9 13 3 1
如果您按照此处编写的代码设置标签,则会覆盖当前拥有的标签。
有几个选项:保持原样,合并标签,或者你知道我不知道的东西。
使用这些值和您的代码:
V(graph)$name = data$label = df2
给你:
要组合标签,您可以:
V(graph)$name = data$label = paste0(df2, "\n", data$name)
这给你:
关于r - 向图节点添加标签,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/71282403/