R语言：添加散点后调整箱线图坐标轴范围的问题

问题1：箱线图能否结合散点自动重调轴范围？ #

R基础绘图的boxplot()是先确定绘图区域（包括Y轴范围）再绘制图形，后续用points()添加的元素不会触发轴范围的重新计算——这不是基础绘图的默认功能。如果想要自动适配所有图层的轴范围，推荐用ggplot2这类基于图层的绘图系统，它会自动汇总所有图层的数据来计算合适的轴范围。

问题2：动态调整Y轴范围的方法 #

如果坚持用基础绘图，有两种可靠的方式：

方式1：提前计算全局Y轴范围（推荐）

先获取箱线图的统计信息（包括须线的上下限），再结合均值的最大值，一次性设置合适的ylim参数：

# 模拟按年份分组的浊度数据
set.seed(123)
years <- factor(2020:2022)
turbidity <- list(
  "2020" = c(rnorm(20000, 20, 5), runif(100, 80, 100)),
  "2021" = c(rnorm(20000, 22, 6), runif(100, 90, 110)),
  "2022" = c(rnorm(20000, 21, 5), runif(100, 95, 120))
)

# 计算每组均值
group_means <- sapply(turbidity, mean)

# 获取箱线图统计结果（不实际绘图）
box_stats <- boxplot(turbidity, plot = FALSE)
# 提取箱线须线的最大Y值
box_ymax <- max(box_stats$stats)
# 全局Y轴上限取须线最大值和均值最大值的较大者（加10%余量避免贴边）
final_ymax <- max(box_ymax, group_means) * 1.1

# 绘制箱线图（隐藏异常值+设置Y轴范围）
boxplot(turbidity, outline = FALSE, ylim = c(0, final_ymax), 
        xlab = "年份", ylab = "浊度")

# 添加均值散点
points(1:length(years), group_means, pch = 4, col = "red", cex = 1.2)

方式2：用ggplot2自动适配轴范围

如果可以切换到ggplot2，代码更简洁，且自动处理轴范围：

library(ggplot2)

# 把数据整理成长格式数据框
turbidity_df <- data.frame(
  year = rep(years, sapply(turbidity, length)),
  value = unlist(turbidity)
)

# 计算每组均值的单独数据框
mean_df <- aggregate(value ~ year, turbidity_df, mean)

# 绘制图形：箱线图隐藏异常值，叠加均值散点
ggplot(turbidity_df, aes(x = year, y = value)) +
  geom_boxplot(outlier.shape = NA) +
  geom_point(data = mean_df, aes(y = value), pch = 4, color = "red", size = 3) +
  labs(x = "年份", y = "浊度")

这个方案里，ggplot会自动识别箱线和散点的所有数据范围，不需要手动调整Y轴。

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