r - ggbiplot の ggarrange (egg パッケージ) に関するいくつかの問題

Question

ggbiplot 関数の ggarrange にいくつか問題があります。ここに私の2つのプロットがあります

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::ggarrange(concen.hemi.graph, content.hemi.graph, ncol = 1) + のエラー: 二項演算子への数値以外の引数」

問題＃2は、loadings.repel = TRUE、またはこれを修正する必要がある他のコマンドを入力しても、2番目の画像でベクトルが重ならないように見えることです。例については以下を参照してください

"