r - ggbiplot 的 ggarrange（鸡蛋包）的几个问题

Question

我对 ggbiplot 函数的 ggarrange 有几个问题。这是我的两个情节

content.hemi.graph<-ggbiplot(content.hemi.PCA, groups=data.hemi$root.exclusion, ellipse=TRUE)+
  theme_bw()+
  xlim(c(-2,3))+
  ylim(c(-2,3))+
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
       # panel.border = element_blank(),
        text = element_text(size = 10),
        title = element_text(size = 10),
       axis.title.y = element_blank(),
       axis.ticks.y = element_blank(),
        legend.position = "none",
        legend.title = element_blank())+
  scale_color_manual(name = "", values = c("red", "blue"), labels = c("unattached", "attached"))+
  labs( x = "Comp 1 ", y = "Comp 2", title = "Content") ; content.hemi.graph

#AND

data.hemi$species.exclusion <- paste(data.hemi$leaf.species, concen.hemi$root.exclusion)
concen.hemi.graph<-ggbiplot(concen.hemi.PCA, groups=data.hemi$root.exclusion, ellipse=TRUE)+ theme_bw()+
  xlim(c(-2,3))+
  ylim(c(-2,3))+
  theme(panel.grid.major = element_blank(),
        text = element_text(size = 10),
        title = element_text(size = 10),
        panel.grid.minor = element_blank(),
       # panel.border = element_blank(),
        legend.position = "none",
        legend.title = element_blank())+
   scale_color_manual(name = "", values = c("red", "blue"))+
  labs( x = "Comp 1 ", y = "Comp 2", title = "Concentration");concen.hemi.graph

graph.hemi <- egg::ggarrange(concen.hemi.graph, content.hemi.graph, ncol = 2, nrow = 1)+
  ggsave("Figures/paper/hemiPCA.tiff"); graph.hemi

如果我使用 ggpubr 而不是 egg，它可以正常工作，但图表不对齐。不过，用鸡蛋，我收到了这个警告

“egg::ggarrange 中的错误（concen.hemi.graph，content.hemi.graph，ncol = 1）+：二元运算符的非数字参数”

问题 #2 是我似乎无法让矢量在第二张图像上不重叠，即使我输入了 loadings.repel = TRUE 或任何其他应该解决此问题的命令。请参阅下面的示例

"