在R中绘制群距离

我有一个组距离矩阵

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

---

G这非常接近：

[注意：采纳了@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)

rownames（G）使用qgraph得到了解决方案

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)

rownames(G) <- colnames(G) <- as.character(as.roman(seq(length.out=nrow(G))))
qgraph(G, layout = "circle", usePCH = TRUE,
        normalise = TRUE,
        vsize = 7, color = "gray90", node.width = 1,
        border.width = 1.7, diag = FALSE,
        label.prop = 0.6,
        labels = paste(rownames(G),diag(as.matrix(G)),sep="\n"),
        esize = 1, edge.labels = TRUE, edge.color = "black", fade=FALSE,
        lty = "dotted", edge.label.cex = 0.7, edge.label.bg = "white",
        directed = TRUE, arrows = FALSE, bidirectional = TRUE,
        asize = 1.5, weighted = FALSE)

G您可以在对graph.adjacy的调用中添加mode=“undirected”以删除arrows@Jealie-接得好。我甚至没有注意到缺少箭头。。。我已经采纳了你的建议，这正是我想要的。现在我正试图通过摆弄
igraph
使edge.label更具可读性。