如何在ggplot2中简洁设置对称xlim与ylim使四象限大小一致

嗨，我来帮你搞定这个双标图的轴范围设置问题！要让四个象限大小完全一致，核心是让x轴（PC1）和y轴（PC2）的范围对称且轴比例相等——也就是x的上下限绝对值相同，y的上下限绝对值相同，同时x和y的单位长度在视觉上保持一致。

方法一：自动计算对称范围（推荐） #

这种方法会根据你的PCA得分自动匹配合适的对称范围，不用手动猜数值：

library(ggfortify)

# 准备数据并执行PCA
df <- iris[c(1, 2, 3, 4)]
pca_result <- prcomp(df)

# 提取PC1和PC2的得分，找到所有值的最大绝对值
pc_scores <- pca_result$x[, 1:2]
max_abs_value <- max(abs(pc_scores))

# 绘制双标图并设置对称轴范围
autoplot(pca_result, data = iris, colour = 'Species', 
         loadings = TRUE, loadings.colour = 'blue', 
         loadings.label = TRUE, loadings.label.size = 3) +
  geom_hline(yintercept = 0) + 
  geom_vline(xintercept = 0) +
  xlim(-max_abs_value, max_abs_value) +  # x轴对称范围
  ylim(-max_abs_value, max_abs_value) +  # y轴对称范围
  coord_equal()  # 强制x/y轴单位长度一致，避免视觉拉伸

方法二：手动指定对称范围 #

如果你已经清楚数据的大致分布范围，也可以直接手动设置，记得一定要配合coord_equal()：

library(ggfortify)

df <- iris[c(1, 2, 3, 4)]
pca_result <- prcomp(df)

autoplot(pca_result, data = iris, colour = 'Species', 
         loadings = TRUE, loadings.colour = 'blue', 
         loadings.label = TRUE, loadings.label.size = 3) +
  geom_hline(yintercept = 0) + 
  geom_vline(xintercept = 0) +
  expand_limits(x = c(-4, 4), y = c(-4, 4)) +  # 手动设置对称范围（可根据数据调整）
  coord_equal()

关键注意点 #

coord_equal()是必不可少的一步——它会让x轴和y轴的单位长度在视觉上完全相同，不然即使你设置了对称的xlim和ylim，绘图窗口的形状也可能导致象限看起来大小不一。

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