调整ggbiplot图的大小

Question

我正在寻找重新配置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

Answer 1

例如，可以使用

• patchwork包来对齐轴特定行内的所有地块或coord_fixed地块的纵横比是固定的，因此它们不会填满
• 图例可以组合的所有空间(例如，将相同的主题合并到所有地块以统一字体大小等)。