如何在ggplot2中调整Bootstrap样本直方图的标签至顶部？

要把均值和置信区间的标签从图表底部移到顶部，核心是调整geom_text的y坐标定位，配合垂直对齐参数优化显示位置，具体修改如下：

修改后的完整代码 #

# 先将Bootstrap均值数据转为数据框
boot_df <- data.frame(t = bo.mean$t)

# 计算直方图的最大频数（用于定位标签的y坐标）
hist_info <- hist(boot_df$t, breaks = seq(min(boot_df$t), max(boot_df$t), by = 0.2), plot = FALSE)
max_count <- max(hist_info$counts)

# 绘制直方图
hist_plot <- ggplot(boot_df, aes(x = t)) +
  geom_histogram(binwidth = 0.2, fill = "skyblue", color = "black", alpha = 0.7) +
  geom_vline(xintercept = c(ci_mean_values[1], bo.mean$t0, ci_mean_values[2]),
             linetype = "dashed", color = "red") +
  geom_text(data = data.frame(x = c(ci_mean_values[1], bo.mean$t0, ci_mean_values[2]),
                              # 将y值设为直方图最大频数，让标签定位到顶部
                              y = max_count,
                              label = c("Lower CI", "Mean", "Upper CI"),
                              value = c(format(round(ci_mean_values[1], 2), nsmall = 2),
                                        format(round(bo.mean$t0, 2), nsmall = 2),
                                        format(round(ci_mean_values[2], 2), nsmall = 2))),
            aes(x = x, y = y, label = paste(label, ": ", value)),
            # vjust=1.1让标签显示在y坐标上方，避免和柱子重叠
            vjust = 1.1, color = "red") +
  labs(title = paste("Device", i, "Histogram")) +
  theme(panel.border = element_rect(color = "black", fill = NA, size = 1))

关键改动说明 #

1. 获取直方图最大高度：用hist()函数（设置plot=FALSE不生成绘图）提取直方图的频数数据，取最大值作为标签的y轴基准位置，确保标签始终在图表顶部区域。
2. 调整标签y坐标：把原代码中geom_text数据框里的y = 0替换为y = max_count，将标签从底部移到直方图最高处。
3. 优化垂直对齐：将vjust参数从-.05改为1.1，让标签显示在y坐标的上方，避免与直方图柱子重叠，提升可读性。

如果不想额外调用hist()函数，也可以通过ggplot_build直接提取绘图后的最大y值：

# 先绘制临时直方图提取最大高度
temp_plot <- ggplot(boot_df, aes(x = t)) + geom_histogram(binwidth = 0.2)
max_count <- max(ggplot_build(temp_plot)$data[[1]]$count)

内容的提问来源于stack exchange，提问作者CBRF23