是否有R函数可获取ggplot分面图的Y轴最大值？

方法一：提前计算分组Y轴最大值（推荐） #

这种方法直接从原始数据入手，逻辑清晰且易维护：

1. 按分面变量分组，计算每个组的Y轴最大值，同时指定文本的X位置和内容：

library(dplyr)

# 替换成你的数据框、分面变量和Y变量名
text_df <- your_data %>%
  group_by(your_facet_var) %>%
  summarise(
    max_y = max(your_y_var, na.rm = TRUE),
    x = 25,  # 你需要的文本X坐标
    label = "test text"
  ) %>%
  ungroup()

2. 在ggplot中调用这个文本数据框添加图层：

ggplot(your_data, aes(x = your_x_var, y = your_y_var)) +
  # 你的原有图层（比如geom_point、geom_line等）
  geom_point() +
  facet_wrap(~your_facet_var, scales = "free_y") +
  # 添加顶部文本，vjust调整位置避免贴在轴线上
  geom_text(data = text_df, aes(x = x, y = max_y, label = label), vjust = 1.2)

方法二：从已构建的ggplot对象中提取轴范围 #

如果已经做好了ggplot图，不想重新处理原始数据，可以从ggplot_build中提取面板参数：

1. 先保存你的ggplot对象：

p <- ggplot(your_data, aes(x = your_x_var, y = your_y_var)) +
  geom_point() +
  facet_wrap(~your_facet_var, scales = "free_y")

2. 提取每个面板的Y轴上限，生成文本数据：

pb <- ggplot_build(p)

# 获取每个面板的Y轴最大值
panel_max <- sapply(pb$layout$panel_params, function(param) param$y$limits[2])

# 生成文本数据，注意分面变量要和面板顺序对应
text_df <- data.frame(
  your_facet_var = pb$layout$layout$your_facet_var,  # 替换为你的分面变量名
  max_y = panel_max,
  x = 25,
  label = "test text"
)

3. 给原图表添加文本图层：

p + geom_text(data = text_df, aes(x = x, y = max_y, label = label), vjust = 1.2)

注意事项 #

• 如果Y轴用了变换（如scale_y_log10()），max(your_y_var)要对应转换后的值，或者直接从panel_params提取的上限已经是转换后的，无需额外处理。
• vjust参数可以根据需求调整，比如设为1是和最大值对齐，大于1会向上偏移，避免和图形元素或轴标签重叠。

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