Блог

Я использовал ggarrange для создания графиков, готовых к публикации. Однако у меня есть проблема, когда я помещаю несколько графиков вместе, ось x нижнего отрезается. Кто-нибудь знает, почему это происходит и как я могу это исправить? мои данные таковы-

 woodland_percent <- c(90.09123,27.8298,23.82899,71.55523,19.13882,54.23152,70.10015,32.22501,74.50687,69.31365,64.02374,87.90138,14.94234,56.39798,81.16609,71.49775,88.05792,78.91833,87.62558,52.25957)
first_last <- c(first,first,first,first,first,first,first,first,first,first,last,last,last,last,last,last,last,last,last,last)
 

и мой код:

  woodhist0.5full <- ggplot(shift_0.5full, aes(x = woodland_percent, fill = first_last))        geom_histogram(position = "dodge", alpha = 1, bins = 10) geom_vline(xintercept=30,linetype="dashed", color="red", size=2)   scale_fill_manual(values = c("grey60", "black"))  theme_bw()    labs(fill = "")  theme(panel.grid = element_blank())

figure_0.5full <- ggarrange(woodhist0.5full,woodhist0.5full, woodhist0.5full,woodhist0.5full    rremove("x.text"), 
      labels = c("A", "B", "C"),
      ncol = 2, nrow = 2)

annotate_figure(figure_0.5full,
            top = text_grob("0.5 full ", color = "red", face = "bold", size = 14),
            bottom = text_grob("", color = "blue",
                               hjust = 1, x = 1, face = "italic", size = 10),
            left = text_grob("", color = "green", rot = 90),
            right = "",
            fig.lab = "Figure 1", fig.lab.face = "bold")
 

Вот результат, который я получаю: если я помещу 4 графика, нижний правый будет отрезан, а если я помещу 3 графика в нижний левый. Это также произойдет, если я расположу их один над другим в три ряда, а также если я помещу их один рядом с другим в один ряд с тремя столбцами.

Любая помощь в этом будет вам очень признательна!