ggarrange: 공유 y 및 x 축으로 여러 플롯 결합: 플롯을 동일한 비율로 유지하면서 공유 y 축 하나만 정렬

저는 ggpubr::ggarrangey축과 x축을 공유하는 다중 플롯을 만들곤 했습니다. 내가 겪고있는 유일한 문제는 y 축이있는 첫 번째 플롯이 전체 그림의 비율을 벗어난 다른 3 개의 플롯보다 작다는 것입니다.

따라서 첫 번째 플롯을 다른 3개의 플롯에 비례하지 않게 하지 않고 하나의 y 랩만 표시하는 솔루션을 찾고 있습니다. 이미 한동안 잠잠했던 이후로 이 문제에 대한 해결책을 찾고 있었기 때문에 도움을 주시면 감사하겠습니다.

지금까지의 접근 방식은 플롯(p) 2,3,4에서 y 랩을 제거하고 p1에 그대로 두는 것이었습니다.

이것은 내 코드입니다.

library(ggplot2)
  library(ggpubr)
  library(dplyr)

p1 <-  ggplot(arrange(ploughed1, Horizont), aes(Ferment, RAI_II,  fill = factor(Horizont, levels=c("4","3","2","1"))))+
    geom_bar(stat = "identity", position = "dodge")+
    scale_fill_manual(values = c("#FF9933", "#CC6600","#663300","#000000"))+
    guides(fill = guide_legend(reverse = TRUE))+
    labs(fill="Horizon")+
    ylim(0,200)+
    theme_bw()+
    facet_wrap(~compost)+
    theme(strip.text = element_text(size = 7),
          panel.spacing = unit(0.2, "lines"))+
    geom_col(position = position_stack(reverse = TRUE))+
    labs(x="Ferment", y = "RAI_II=Rooting*Scheme*Active",  title = "P- ")

p2 <-  ggplot(arrange(ploughed2, Horizont), aes(Ferment, RAI_II,  fill = factor(Horizont, levels=c("4","3","2","1"))))+
    geom_bar(stat = "identity", position = "dodge")+
    scale_fill_manual(values = c("#FF9933", "#CC6600","#663300","#000000"))+
    guides(fill = guide_legend(reverse = TRUE))+
    labs(fill="Horizon")+
    ylim(0,200)+
    theme_bw()+
    theme(axis.text.y = element_blank(),
          panel.spacing = unit(0.2, "lines"),
          strip.text = element_text(size = 7))+
    facet_wrap(~compost)+
    geom_col(position = position_stack(reverse = TRUE))+
    labs(x="Ferment",  title = "P+ ")+ 
    rremove("ylab")

  p3 <-  ggplot(arrange(reduced1, Horizont), aes(Ferment, RAI_II,  fill = factor(Horizont, levels=c("4","3","2","1"))))+
    geom_bar(stat = "identity", position = "dodge")+
    scale_fill_manual(values = c("#FF9933", "#CC6600","#663300","#000000"))+
    guides(fill = guide_legend(reverse = TRUE))+
    labs(fill="Horizon")+
    ylim(0,200)+
    theme_bw()+
    theme(axis.text.y = element_blank(),
          panel.spacing = unit(0.2, "lines"),
          strip.text = element_text(size = 7))+
    facet_wrap(~compost)+
    geom_col(position = position_stack(reverse = TRUE))+
    labs(x="Ferment",  title = "RT- ")+ 
    rremove("ylab")
  
  p4 <-  ggplot(arrange(reduced2, Horizont), aes(Ferment, RAI_II,  fill = factor(Horizont, levels=c("4","3","2","1"))))+
    geom_bar(stat = "identity", position = "dodge")+
    scale_fill_manual(values = c("#FF9933", "#CC6600","#663300","#000000"))+
    guides(fill = guide_legend(reverse = TRUE))+
    labs(fill="Horizon")+
    ylim(0,200)+
    theme_bw()+
    theme(axis.text.y = element_blank(),
          panel.spacing = unit(0.2, "lines"),
          strip.text = element_text(size = 7))+
    facet_wrap(~compost)+
    geom_col(position = position_stack(reverse = TRUE))+
    labs(x="Ferment",  title = "RT+ ")+ 
    rremove("ylab")

ggarrange(p1, p2, p3, p4, nrow=1, common.legend = TRUE)

출력 .png

출력 이미지: 1

또한 p2,p3,p4에 있는 y lab과 text를 제거하지 않고 ggarrange 함수에서 풀려고 했는데 결과가 같습니다.

ggarrange(p1, p2+ 
            theme(axis.text.y = element_blank(),
                  axis.ticks.y = element_blank(),
                  axis.title.y = element_blank() ), p3+ 
            theme(axis.text.y = element_blank(),
                  axis.ticks.y = element_blank(),
                  axis.title.y = element_blank() ), p4+ 
            theme(axis.text.y = element_blank(),
                  axis.ticks.y = element_blank(),
                  axis.title.y = element_blank() ) , nrow=1,  common.legend = TRUE)