Xg标签未在ggplot中的聚类树形图中显示

Question

我在网上找到的先前代码之后完成了聚类树形图，但图中没有显示x轴。我想在x轴上显示相异度值，但我没有成功。

push.default

以下是我的树形图的外观：

Answer 1

您的代码包含theme_dendro()，其帮助文件中描述为：

  

通过返回空白主题，将大多数ggplot选项设置为空白   面板网格，面板背景，轴标题，轴文本的元素，   轴线和轴刻度。

您强制在theme()：

中显示x轴线/文本/刻度

ggplot() + 
  geom_segment(data=segment(dendrf), aes(x=x, y=y, xend=xend, yend=yend)) +
  geom_text(data=label(dendrf), aes(x, y, label= label, hjust=0,
                                    color=cluster),
            size=3) +
  geom_rect(data=rectf, aes(xmin=X1-.3, xmax=X2+.3, ymin=0, ymax=ymax),
            color="red", fill=NA)+
  coord_flip() +
  scale_y_reverse(expand=c(0.2, 0)) + 
  theme_dendro() +
  scale_color_discrete(name="Cluster") +
  theme(legend.position="none",
        axis.text.x = element_text(),  # show x-axis labels
        axis.ticks.x = element_line(), # show x-axis tick marks
        axis.line.x = element_line())  # show x-axis lines

（此演示使用内置数据集，因为我不确定什么是cervidae。用于创建此代码的代码转载如下：）

library(cluster); library(ggdendro); library(ggplot2)

hcaf   <- hclust(dist(USArrests), "ave")
k     <- 3
clustf <- cutree(hcaf,k=k)  # k clusters

dendrf    <- dendro_data(hcaf, type="rectangle") # convert for ggplot
clust.dff <- data.frame(label=rownames(USArrests), 
                        cluster=factor(clustf)) 
dendrf[["labels"]]   <- merge(dendrf[["labels"]],clust.dff, by="label")
rectf <- aggregate(x~cluster,label(dendrf),range)
rectf <- data.frame(rectf$cluster,rectf$x)
ymax <- mean(hcaf$height[length(hcaf$height)-((k-2):(k-1))])