[英]How to rotate ylab labels in dendrogram in R?
df <- scale(mtcars) # Standardize the data
library("factoextra")
library("cluster")
dist <- dist(df, method = "euclidean") # df = standardized data
hc <- hclust(dist, method = "ward.D2")
fviz_dend(hc, k = 4, # Cut in four groups
cex = 0.6, # label size
k_colors = "jco",
color_labels_by_k = TRUE, # color labels by groups
rect = TRUE, # Add rectangle around groups
rect_border = "jco",
rect_fill = TRUE,
rotate = TRUE)
Hello, New to r, my questions are;您好,r 的新手,我的问题是;
Following my above question, I have found code to rotate ylab labels in dendrogram.按照我上面的问题,我找到了在树状图中旋转 ylab 标签的代码。 Posting here, it might be useful to others.
在这里发帖,可能对其他人有用。
library("ggdendro", "dendextend")
ggdendrogram(hc) + theme_minimal(16) +
coord_flip() +
theme(panel.grid.major.y = element_blank(),
panel.grid.minor.y = element_blank())
library(dendextend)
hc %>%
as.dendrogram %>%
set("branches_k_color", k = 3) %>%
set("branches_lwd", 1.2) %>%
as.ggdend( ) %>%
ggplot(horiz=TRUE,
offset_labels = -2.8 ) +
theme_minimal(16) +
labs(x = "Y",
y = "X") +
scale_y_continuous(position = "left") +
theme(axis.text.y = element_blank(),
panel.grid.major.y = element_blank(),
panel.grid.minor.y = element_blank())
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.