gpt4 book ai didi

r - 在 R 中绘制组距离

转载 作者:行者123 更新时间:2023-12-04 18:07:22 27 4
gpt4 key购买 nike

我有一个组距离矩阵 G如下

G <- data.frame( Gp1=c(6.525,15.915,16.605,10.665,19.345), Gp2=c(15.915,8.605,31.455,25.485,48.355), Gp3=c(16.605,31.455,7.955,11.195,33.685), Gp4=c(10.665,25.485,11.195,0,21.985), Gp5=c(19.345,48.355,33.685,21.985,0))
rownames(G) <- colnames(G)

G
Gp1 Gp2 Gp3 Gp4 Gp5
Gp1 6.525 15.915 16.605 10.665 19.345
Gp2 15.915 8.605 31.455 25.485 48.355
Gp3 16.605 31.455 7.955 11.195 33.685
Gp4 10.665 25.485 11.195 0.000 21.985
Gp5 19.345 48.355 33.685 21.985 0.000

对角线是组内距离。

我想在一个情节中描述上述内容如下。不必缩放到距离值。如何在 R中生产?

enter image description here

最佳答案

这非常接近:

[注意:纳入@Jealie 的建议并进行了一些其他更改。现在更接近您的预期结果。]

rownames(G) <- colnames(G) <- c("I","II","III","IV","V")
G[lower.tri(G)] <- 0
library(igraph)
g <- graph.adjacency(as.matrix(G),weight=T, mode="undirected")
g <- simplify(g,remove.loops=TRUE)
plot(g,edge.label=E(g)$weight,
vertex.label=paste(V(g)$name,diag(as.matrix(G)),sep="\n"),
layout=layout.circle,
vertex.size=30)



我不知道有什么方法可以使边缘标签与边缘平行,但这并不意味着它无法完成......

关于r - 在 R 中绘制组距离,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24222267/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com