调整ggbiplot绘图参数实现多图规格统一的方法咨询

1. 统一坐标轴范围 #

先提取所有PCA图的PC1、PC2取值范围，计算全局最大最小值后给每幅图手动设置相同轴范围，避免自适应缩放导致的尺寸差异：

# 示例：计算所有PCA对象的PC范围后统一设置
p2 <- ggbiplot(...) +
  xlim(-4.5, 4.5) +  # 替换为你所有图PC1的全局最小/最大值
  ylim(-3.5, 3.5)    # 替换为你所有图PC2的全局最小/最大值

p1-p4所有子图都使用相同的xlim、ylim参数即可统一轴范围。

2. 统一ggbiplot绘图参数 #

所有子图的obs.scale、var.scale、varname.size、labels.size参数保持完全一致，避免点、变量箭头、文本标签的尺寸出现差异。

3. 复用公共主题配置 #

把重复的主题设置抽为公共对象，避免手动输入出现不一致：

# 定义公共主题
common_theme <- theme_bw() +
  theme(
    legend.position = "bottom",
    legend.text = element_text(size=10),
    axis.title = element_text(size=11),
    axis.text = element_text(size=9)
  )

# 每幅图调用公共主题即可
p2 <- ggbiplot(colour30.pca,ellipse=TRUE, groups = colour30$Trait.Feed.Mech., 
               obs.scale = 2, var.scale = 1, labels.size = 4, varname.size = 5)+
      common_theme +
      guides(colour = guide_legend(nrow = 3)) +
      scale_colour_npg(name="Feeding Mode (>30 Obs.)") +
      xlab ("PC1 (37.4%)")+ 
      ylab ("PC2 (18.0%)")

4. ggarrange启用对齐与公共图例参数 #

如果四幅图的分组图例相同，开启公共图例，同时设置绘图区对齐：

ggarrange(p1,p2,p3,p4,
          labels = c("A", "B", "C", "D"),
          ncol = 2, nrow = 2,
          common.legend = TRUE, # 共享单个图例
          legend = "bottom",    # 图例统一放在底部
          align = "hv"          # 水平+垂直对齐所有子图的绘图区
)

可选优化：固定坐标轴比例 #

如果需要PC1和PC2的轴比例保持一致，每幅图添加coord_fixed()即可避免图面拉伸变形。 #

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