R Graph Gallery中环状关联图示例运行报错

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助，在跑网站上给出的示例代码的时候遇到了个小问题，代码如下：

1. # Libraries
   
2. library(ggraph)
   
3. library(igraph)
   
4. library(tidyverse)
   
5. 
   
6. # create a data frame giving the hierarchical structure of your individuals
   
7. d1=data.frame(from="origin", to=paste("group", seq(1,10), sep=""))
   
8. d2=data.frame(from=rep(d1$to, each=10), to=paste("subgroup", seq(1,100), sep="_"))
   
9. hierarchy=rbind(d1, d2)
   
10. 
    
11. # create a dataframe with connection between leaves (individuals)
    
12. all_leaves=paste("subgroup", seq(1,100), sep="_")
    
13. connect=rbind( data.frame( from=sample(all_leaves, 100, replace=T) , to=sample(all_leaves, 100, replace=T)), data.frame( from=sample(head(all_leaves), 30, replace=T) , to=sample( tail(all_leaves), 30, replace=T)), data.frame( from=sample(all_leaves[25:30], 30, replace=T) , to=sample( all_leaves[55:60], 30, replace=T)), data.frame( from=sample(all_leaves[75:80], 30, replace=T) , to=sample( all_leaves[55:60], 30, replace=T)) )
    
14. connect$value=runif(nrow(connect))
    
15. 
    
16. # create a vertices data.frame. One line per object of our hierarchy
    
17. vertices = data.frame(
    
18.   name = unique(c(as.character(hierarchy$from), as.character(hierarchy$to))) ,
    
19.   value = runif(111)
    
20. )
    
21. # Let's add a column with the group of each name. It will be useful later to color points
    
22. vertices$group = hierarchy$from[ match( vertices$name, hierarchy$to ) ]
    
23. 
    
24. 
    
25. # Create a graph object
    
26. mygraph <- graph_from_data_frame( hierarchy, vertices=vertices )
    
27. 
    
28. # The connection object must refer to the ids of the leaves:
    
29. from = match( connect$from, vertices$name)
    
30. to = match( connect$to, vertices$name)
    
31. 
    
32.   ggraph(mygraph, layout = 'dendrogram', circular = TRUE) +
    
33.   geom_node_point(aes(filter = leaf, x = x*1.05, y=y*1.05)) +
    
34.   theme_void() +
    
35.   geom_conn_bundle(data = get_con(from = from, to = to), alpha=0.2, colour="skyblue", width=0.9, tension=0.7) +
    
36.   geom_conn_bundle(data = get_con(from = from, to = to, value=connect$value), aes(colour=value)) +
    
37.   scale_edge_color_continuous(low="white", high="red")

复制代码

倒数第二步关联图上色的时候报错：

1. `data` must be uniquely named but has duplicate elements

复制代码

请问是什么原因？谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：gallery GRAPH 运行报错 GRAP RAP

补充一下原文网址：
https://www.r-graph-gallery.com/ ... ical-edge-bundling/

请问您解决了吗