我想根據幾個標準（Column1、Column2、Column3）以 R 中的樹狀圖的形式創建一個包含多個專案（Name1、Name2、Name3、...）的分類圖（我喜歡樹狀圖的正交美學為此）。
我有以下 CSV (data.csv)，其中包含每個標準中的專案及其分類：
Name;Column1;Column2;Column3
Name1;A;C;D
Name2;B;C;D
Name3;A;C;E
Name4;B;C;E
Name5;B;C;D
Name6;A;C;D
Name7;A;D;E
Name8;A;D;E
Name9;B;D;E
Name10;A;D;E
以及以下 R 代碼：
library(data.tree)
library(DiagrammeR)
library(ggdendro)
data <- read.table(file = "data.csv", header = TRUE, sep = ";")
data$pathString <- paste("stat",
data$Column1,
data$Column2,
data$Column3,
data$Name,
sep = "/")
pop <- as.Node(data)
den <- as.dendrogram(pop)
p1 <- ggdendrogram(den, labels = TRUE, rotate = TRUE, leaf_labels = TRUE)
p1
目前，我在非葉節點中獲得以下沒有標簽的影像：
我想知道是否可以在樹狀圖中顯示每個非葉節點中的標簽。例如，在 Column1 的決策中的每條邊（與非葉節點相關）上顯示“A”和“B”，在 Column2 的決策中的每條邊上顯示“C”和“D”，依此類推。此外，是否可以將專案名稱放在圖形的右側？提前致謝。
uj5u.com熱心網友回復：
嘗試使用ape包。
# try loading a package, install if unavailable
for(i in c("ape")){
if(!require(i, character.only = TRUE)){
install.packages(i, dependencies = TRUE)
library(i, character.only = TRUE)
}
}
# convert "Node" object to class "phylo"
den2 <- as.phylo(pop)
# plot.phylo options allow flexibility in display
plot(den2, show.node.label = TRUE, label.offset = 1)
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/358913.html
下一篇：加粗標題和軸刻度