如何从ggplot对象动态获取坐标轴范围以统一多图轴范围？

当然可以实现你想要的功能！ggplot2本身没有内置的getLimits()函数，但我们可以借助ggplot_build()工具来提取图表自动计算的坐标轴范围，完全避免手动设置xlim/ylim的繁琐和数据超出范围的风险。

核心思路 #

ggplot_build()会将你的ggplot对象转换成包含所有计算细节的列表，其中就包括自动生成的坐标轴范围。我们可以从这个列表中提取出x轴和y轴的范围，再应用到其他图表上。

针对你的示例的解决方案 #

我们直接基于你的代码修改，实现动态统一坐标轴范围：

library(ggplot2)
library(ggpubr)

# 创建数据（加set.seed让结果可重复）
set.seed(123)
df1 <- data.frame(x=runif(10)*2,y = runif(10)*2)
df2 <- data.frame(x=runif(10)*3,y = runif(10)*1)

# 绘制初始图表
p1 <- qplot(x = x, y = y, data = df1, geom = "line")
p2 <- qplot(x = x, y = y, data = df2, geom = "line")

# 提取p1自动计算的坐标轴范围
build_p1 <- ggplot_build(p1)
x_range_p1 <- build_p1$layout$panel_params[[1]]$x.range
y_range_p1 <- build_p1$layout$panel_params[[1]]$y.range

# 将p1的范围应用到p2上
p2_unified <- p2 + xlim(x_range_p1) + ylim(y_range_p1)

# 排列图表
ggarrange(p1, p2_unified)

更灵活的方案：取两个图的最大范围 #

如果你希望两个图表都使用覆盖所有数据的统一范围（而不是仅用p1的范围），可以提取两个图的范围后，计算出包含所有数据的最小/最大值：

# 提取p2的坐标轴范围
build_p2 <- ggplot_build(p2)
x_range_p2 <- build_p2$layout$panel_params[[1]]$x.range
y_range_p2 <- build_p2$layout$panel_params[[1]]$y.range

# 计算统一的坐标轴范围：取两个图的最小下限和最大上限
unified_x <- c(min(x_range_p1[1], x_range_p2[1]), max(x_range_p1[2], x_range_p2[2]))
unified_y <- c(min(y_range_p1[1], y_range_p2[1]), max(y_range_p1[2], y_range_p2[2]))

# 应用到两个图表
p1_unified <- p1 + xlim(unified_x) + ylim(unified_y)
p2_unified <- p2 + xlim(unified_x) + ylim(unified_y)

ggarrange(p1_unified, p2_unified)

为什么p1$coordinates$limits不行？ #

你提到的p1$coordinates$limits只能返回手动设置的坐标轴范围（也就是你主动用xlim()/ylim()指定的值），而图表自动计算的范围并不存在这个位置——这也是旧版解决方案失效的原因。而ggplot_build()中的panel_params则存储了所有计算后的绘图参数，包括自动生成的坐标轴范围。

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