如何在Base R子图中动态调整ylim以适配数据范围？

问题背景 #

有嵌套列表格式的test_data，使用Base R绘制三个并排子图时，原代码采用全局统一的ylim，导致部分子图的y轴上限与自身数据最大值差距过大，影响可视化效果。

示例数据（dput输出） #

test_data <- list(
  group1 = data.frame(x = 1:10, y = rnorm(10, 5, 1)),
  group2 = data.frame(x = 1:10, y = rnorm(10, 20, 2)),
  group3 = data.frame(x = 1:10, y = rnorm(10, 8, 0.5))
)

原代码（存在统一ylim问题） #

par(mfrow = c(1, 3))
all_ys <- unlist(lapply(test_data, function(df) df$y))
common_ylim <- range(all_ys)

for (i in seq_along(test_data)) {
  df <- test_data[[i]]
  plot(df$x, df$y, main = names(test_data)[i], ylim = common_ylim)
}

修改后的代码（动态适配每个子图的ylim） #

# 设置并排子图布局，调整边距避免重叠
par(mfrow = c(1, 3), mar = c(4, 4, 2, 1))

# 可选：统一x轴范围（保持子图横向一致性）
all_xs <- unlist(lapply(test_data, function(df) df$x))
common_xlim <- range(all_xs)

# 循环绘制每个子图，单独计算y轴范围
for (i in seq_along(test_data)) {
  df <- test_data[[i]]
  # 计算当前子图的y轴范围，添加10%缓冲避免点贴边
  current_ylim <- range(df$y) + c(-0.1, 0.1) * diff(range(df$y))
  
  plot(df$x, df$y,
       main = names(test_data)[i],
       xlim = common_xlim, # 若不需要统一x轴可删除此参数
       ylim = current_ylim,
       xlab = "X", ylab = "Y")
}

关键修改说明 #

• 移除全局common_ylim，改为在循环中为每个子图单独计算y值范围
• 添加10%的上下缓冲，避免数据点紧贴y轴边缘，提升可读性
• 保留统一x轴（可选），确保子图横向对比的一致性
• 调整mar参数优化子图边距，防止标题、轴标签重叠

内容的提问来源于stack exchange，提问作者Saïd Maanan