如何调整ggplot2中geom_text至geom_vline顶部且不重叠

你遇到的问题是因为把y=Inf和vjust=-0.5结合使用时，文本被推到了绘图面板的外部，默认会被裁剪掉。下面给你两种可行的解决思路：

方法一：基于分面实际y轴最大值定位文本 #

先计算每个分面直方图的最高柱子高度，把文本放在这个高度的上方一点，既不会超出绘图区域，也能精准对齐vline顶部：

library(ggplot2)

set.seed(123)
data <- data.frame(
  category = factor(rep(c("A", "B", "C"), each = 100)),
  value = c(rnorm(100, mean = 50, sd = 10),
            rnorm(100, mean = 60, sd = 15),
            rnorm(100, mean = 55, sd = 20))
)

# 计算每个类别的均值和直方图最大频数
hist_max <- aggregate(value ~ category, data, function(x) {
  hist_obj <- hist(x, bins = 30, plot = FALSE)
  max(hist_obj$counts)
})
names(hist_max)[2] <- "max_count"
mean_data <- data.frame(category = c("A", "B", "C"), mean = tapply(data$value, data$category, mean))
text_data <- merge(mean_data, hist_max, by = "category")

p <- ggplot(data, aes(x = value)) +
  geom_histogram(bins = 30, fill = "skyblue", color = "black") +
  facet_wrap(~ category) +
  geom_vline(data = mean_data, aes(xintercept = mean, color = category), linetype = "dashed") +
  geom_text(data = text_data, 
            aes(label = paste("Mean:", round(mean, 2)), x = mean, y = max_count * 1.05, color = category)) +
  theme(legend.position = 'none')

print(p)

方法二：保留y=Inf，关闭绘图裁剪 #

如果不想计算最大频数，可以直接用y=Inf，但要调整vjust为正数（让文本锚点向下移动，避免超出面板），同时关闭绘图区域的裁剪功能，再稍微调整图边距防止文本被切掉：

library(ggplot2)

set.seed(123)
data <- data.frame(
  category = factor(rep(c("A", "B", "C"), each = 100)),
  value = c(rnorm(100, mean = 50, sd = 10),
            rnorm(100, mean = 60, sd = 15),
            rnorm(100, mean = 55, sd = 20))
)

mean_data <- data.frame(category = c("A", "B", "C"), mean = tapply(data$value, data$category, mean))

p <- ggplot(data, aes(x = value)) +
  geom_histogram(bins = 30, fill = "skyblue", color = "black") +
  facet_wrap(~ category) +
  geom_vline(data = mean_data, aes(xintercept = mean, color = category), linetype = "dashed") +
  geom_text(data = mean_data, 
            aes(label = paste("Mean:", round(mean, 2)), x = mean, y = Inf, color = category),
            vjust = 1.2) +  # 正数vjust让文本从Inf位置向下移动
  coord_cartesian(clip = "off") +  # 关闭裁剪，显示面板外内容
  theme(legend.position = 'none',
        plot.margin = margin(15, 10, 10, 10))  # 调整上边距，避免文本被切掉

print(p)

这两种方法都能让文本完美放在vline顶部，不会和线条重叠也不会被隐藏。

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