如何基于数据程序化设置Q-Q图对称坐标轴范围以填满绘图窗口？

你当前的Q-Q图代码手动设置了轴限c(-3, 3)，但如果改为c(-2, 2)会导致QQ线无法完整显示。要实现基于数据自动设置对称轴限，确保绘图填满窗口且QQ线正常显示，可以参考以下两种实用方法：

方法一：提前计算样本与理论分位数范围 #

先获取样本值和对应理论正态分位数的极值，取最大绝对值设置对称轴限：

library(ggplot2)

# 定义数据
val_data <- data.frame(Val = c(-0.6434733395, -0.0000935279, -1.2176148541, -0.4817091973, 1.1364799871, 
                               -0.8810002309, -0.8383323744, -0.7285213185, 1.6299068100, 1.0358721646, 
                               -1.5631088786, -0.6265271885,-1.1331727142, -0.7129360871, 1.6266852445, 
                               -0.3328868518, -0.9638501136, 0.1088177257, -0.6034307366, -0.3342069674, 
                               0.0932110885, 0.1088177257, 1.9742990366, 0.6584310789, 0.7201386429, 
                               0.9314809258, 1.1455416757))

# 计算样本值的极值范围
sample_min_max <- range(val_data$Val)
# 计算Q-Q图对应的理论正态分位数范围
n <- nrow(val_data)
theo_quantiles <- qnorm((1:n - 0.5)/n)
theo_min_max <- range(theo_quantiles)

# 取两者的最大绝对值，设置对称轴限（乘以1.05是为了给边缘留点空隙）
max_abs_val <- max(abs(sample_min_max), abs(theo_min_max))
axis_limits <- c(-max_abs_val * 1.05, max_abs_val * 1.05)

# 绘制Q-Q图
ggplot(val_data, aes(sample = Val)) + 
  stat_qq() + 
  stat_qq_line() + 
  scale_x_continuous(limits = axis_limits) + 
  scale_y_continuous(limits = axis_limits)

方法二：通过ggplot_build提取绘图数据计算轴限 #

直接获取QQ点和QQ线的所有绘图数据，确保轴限完全覆盖所有元素，避免截断：

library(ggplot2)

val_data <- data.frame(Val = c(-0.6434733395, -0.0000935279, -1.2176148541, -0.4817091973, 1.1364799871, 
                               -0.8810002309, -0.8383323744, -0.7285213185, 1.6299068100, 1.0358721646, 
                               -1.5631088786, -0.6265271885,-1.1331727142, -0.7129360871, 1.6266852445, 
                               -0.3328868518, -0.9638501136, 0.1088177257, -0.6034307366, -0.3342069674, 
                               0.0932110885, 0.1088177257, 1.9742990366, 0.6584310789, 0.7201386429, 
                               0.9314809258, 1.1455416757))

# 先创建基础绘图对象
base_plot <- ggplot(val_data, aes(sample = Val)) + 
  stat_qq() + 
  stat_qq_line()

# 提取绘图的所有数据（包括QQ点和QQ线）
plot_data_list <- ggplot_build(base_plot)$data
all_plot_values <- c(
  plot_data_list[[1]]$x, plot_data_list[[1]]$y,  # QQ点的x、y值
  plot_data_list[[2]]$x, plot_data_list[[2]]$y   # QQ线的x、y值
)

# 计算对称轴限
max_abs_val <- max(abs(all_plot_values))
axis_limits <- c(-max_abs_val * 1.05, max_abs_val * 1.05)

# 更新绘图的轴限并输出
base_plot + 
  scale_x_continuous(limits = axis_limits) + 
  scale_y_continuous(limits = axis_limits)

两种方法都能自动根据数据调整对称轴限，既保证绘图填满窗口，又不会截断QQ线。其中方法二更全面，因为直接包含了QQ线的坐标数据，避免因拟合线超出样本范围导致的截断问题。

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