2

初めて樹形図を作成していますが、クラスターの周りの長方形がラベルの上に描かれています。この重複を避けるために、これらのラベルの配置を変更する方法を知っていますか?

ここで、私のコードの実例を見つけることができます:

mydata <- c(9.45, 10.54, 10.36, 10.46, 10.78, 10.1, 11.13)
mydata.matrix <- matrix(mydata, nrow = 1, ncol = 7)
colnames(mydata.matrix) <- c("a", "b", "c", "d", "e", "f", "g")
rownames(mydata.matrix) <- c("X")

d <- dist(mydata.matrix["X", ], method = "euclidean")
fit <- hclust(d, method="ward.D")

nodePar <- list(lab.cex = 0.6, pch = c(NA, 19), cex = 0.7, col = "blue")
plot(as.dendrogram(fit), xlab = "", sub="", ylab = "Euclidean distance",
     main = "Dendrogram", nodePar = nodePar)

rect.hclust(fit, k=2, border="red")

上記のコードのプロットは次のとおりです。

デンドログラムの加工例

特に、赤い四角形に樹状図の葉のラベルを完全に含めたいと思います。

ありがとうございました！

4

1 に答える 1

2

dendextend パッケージrect.dendrogramの関数を使用する必要があります。

例えば：

mydata <- c(9.45, 10.54, 10.36, 10.46, 10.78, 10.1, 11.13)
mydata.matrix <- matrix(mydata, nrow = 1, ncol = 7)
colnames(mydata.matrix) <- c("a", "b", "c", "d", "e", "f", "g")
rownames(mydata.matrix) <- c("X")

d <- dist(mydata.matrix["X", ], method = "euclidean")
fit <- hclust(d, method="ward.D")

nodePar <- list(lab.cex = 0.6, pch = c(NA, 19), cex = 0.7, col = "blue")
dend <- as.dendrogram(fit)
plot(dend, xlab = "", sub="", ylab = "Euclidean distance",
     main = "Dendrogram", nodePar = nodePar)

library(dendextend)
rect.dendrogram(dend , k=2, border="red")

そして、あなたは得るでしょう： ここに画像の説明を入力

一般に、デンドログラムをプロットするには、次のdendextendの簡単な紹介が役立つ場合があります (または、より長いバージョンを参照してください)。

于 2016-07-07T19:13:55.390 に答える