如何在 R 中的树状图中旋转 ylab 标签？

Question

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)

您好，r 新手，我的问题是；

我想要如下图顺时针方向的树状图，如何在树状图中制作水平 ylab 标签
如何减少轴刻度和轴标签之间的 space 我用过mtcars数据

Answer 1

根据我的上述问题，我找到了在树状图中旋转 ylab 标签的代码。发在这里，可能对其他人有用。

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())

如何在 R 中的树状图中旋转 ylab 标签？

How to rotate ylab labels in dendrogram in R?

r

dendrogram

dendextend