调整 ggbiplot 图的大小答案

【问题标题】：Resizing ggbiplot plots调整 ggbiplot 图的大小
【发布时间】：2021-10-04 14:45:06
【问题描述】：

我正在寻找重新配置 ggbiplot 图以相互匹配的方法。我知道绘图的缩放比例不同以“拟合”绘图背后的数据，但我想知道是否有人对如何使绘图匹配有任何建议。

我使用 ggarange 来制作这个多图输出：

ggarrange(p1,p2,p3,p4,
          labels = c("A", "B", "C", "D"),
          ncol = 2, nrow = 2)

例如，这里有一个 ggbiplots 代码：

p2 <- ggbiplot(colour30.pca,ellipse=TRUE, groups = colour30$Trait.Feed.Mech., 
               obs.scale = 2, var.scale = 1, labels.size = 4, varname.size = 5)+
      theme_bw()+
      theme(legend.position = "bottom") +
      theme(legend.text=element_text(size=10)) +
      guides(colour = guide_legend(nrow = 3)) +
      scale_colour_npg(name="Feeding Mode (>30 Obs.)") +
      xlab ("PC1 (37.4%)")+ 
      ylab ("PC2 (18.0%)")

如果可能的话，下面是我想整理的输出

output plot I would like to neaten up

【问题讨论】：

标签： r pca ggbiplot

【解决方案1】：

可以使用patchwork 包，例如将轴对齐特定行或列中的所有图
有时，绘图的纵横比使用coord_fixed 固定，因此它们不会填满所有空间
可以组合图例（例如patchwork::wrap_plots(guides = "collect")）
将相同的主题应用于所有绘图以统一字体大小等。

【讨论】：