如何解决如何使 R 中 igraph 中的箭头线更短？
我制作了一个 igraph 情节。但是，我现在想让箭头线更短。
这是数据：
dput(sample)
structure(list(NMSUKU = c("Aceh/ Achin/ Akhir/ Asji/ A-Tse/ Ureung Aceh","Alas","Aneuk Jamee","Gayo","Gayo Lut","Gayo Luwes","Gayo Serbe Jadi","Kluet","Sigulai","Simeulue","Singkil","Tamiang"),TopLang = c("Aceh/ Acheh/ Achi ","Alas ","Aceh Jamee ","Gajo/ Gayo ","Aceh Kluet ","ERROR TopCol out of range ","Long Bano/ Simalur/ Simeuloe/ Simeulue/ Simulul ","Aceh Simeleu Barat ","Aceh Simeleu Tengah ","Aceh Hulu Singkil ","Tamiang "),Ethnicity = c("1_Aceh/ Achin/ Akhir/ Asji/ A-Tse/ Ureung Aceh ","2_Alas ","3_Aneuk Jamee ","4_Gayo ","6_Gayo Luwes ","5_Gayo Lut ","7_Gayo Serbe Jadi ","8_Kluet ","NA ","10_Simeulue ","11_Singkil ","17_Batak Pakpak Dairi ","12_Tamiang ")),row.names = c(NA,-15L),class = "data.frame")
这是得到的：
箭头线太长，但我想让它们更短（根据需要调整）。 有什么解决办法吗？ 谢谢！
解决方法
我怀疑您不能缩短所有边，因为相对长度用于绘图。可以看到下面两个图
- 通过 缩短左侧的边缘
m <- as.matrix(replace(sample,sample == "","NA"))
g <- simplify(graph_from_edgelist(rbind(m[,1:2],m[,2:3]),directed = TRUE))
l <- layout_with_sugiyama(g)
l$layout[,2][l$layout[,2] == 1] <- l$layout[,2] == 1] * 0.1 # this is the line change the horizontal coordinates for edges on the left part
plot(g,layout = -l$layout[,2:1],edge.arrow.size = 0.1,vertex.size = 2.5,vertex.color = "grey",vertex.label.dist = 1,edge.arrow.width = 1.5,edge.width = seq(0.5,0.08),edge.lty = "solid",edge.color = "gray",vertex.label.cex = 0.7,is.rm = TRUE,vertex.label.color = "black"
)
你会看到
- 如果您尝试缩短所有边
m <- as.matrix(replace(sample,2] <- l$layout[,2] * 0.1
plot(g,vertex.label.color = "black"
)
你会看到
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
