如何在ggplot中自动调整坐标轴范围，使X轴与Y轴范围保持一致？

方法一：直接计算全局范围（简易版） #

先提取X、Y变量的合并极值，再统一设置坐标轴范围，无需手动指定数值：

# 计算X、Y数据的全局最小/最大值
global_range <- range(c(mtcars$mpg, mtcars$wt))

ggplot(mtcars, aes(x = mpg, y = wt)) +
  geom_point() +
  xlim(global_range) +
  ylim(global_range) +
  coord_fixed(ratio = 1)  # *可选*：保证坐标轴刻度间距1:1，避免视觉变形

方法二：封装复用函数（通用版） #

如果需要频繁处理不同数据集的图表，可封装成函数自动完成同步：

# 定义同步坐标轴范围的函数
sync_axis_limits <- function(plot_obj) {
  # 提取图表的数据源和映射变量
  plot_data <- plot_obj$data
  x_col <- rlang::get_expr(plot_obj$mapping$x)
  y_col <- rlang::get_expr(plot_obj$mapping$y)
  
  # 计算全局范围
  total_range <- range(c(plot_data[[x_col]], plot_data[[y_col]]))
  
  # 更新图表的坐标轴设置
  plot_obj +
    scale_x_continuous(limits = total_range) +
    scale_y_continuous(limits = total_range) +
    coord_fixed(ratio = 1)
}

# 使用示例
base_plot <- ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point()
sync_axis_limits(base_plot)

补充说明 #

• 若不需要严格的1:1刻度比例，可移除coord_fixed(ratio = 1)，仅保留坐标轴范围同步逻辑。
• 两种方法都会自动取X、Y变量的整体极值作为共同范围，适配任意数据集的动态变化。

内容的提问来源于stack exchange，提问作者J. Doe