如何在 R 中居中 ggplot 圖

Question

有沒有辦法將底行的“打開托盤”圖形居中？

我正在嘗試使用sfplot <- ggarrange(Cf, Ff, Of, labels = c("A", "B", "C")) ，但顯然它不會自動居中。 提前致謝！

Answer 1

使用patchwork而成的 package，您可以使用：

library(patchwork)
a <- ggplot(mtcars, aes(disp, wt)) + geom_point()
a + a + a + 
  plot_annotation(tag_levels = 'A') +
  plot_layout(
  design = "AABB
            #CC#") 

Answer 2

如果你想使用ggarrange ，那么你可以將每一行圖嵌套在另一個ggarrange （盡管這顯然比只使用patchwork更冗長）：

library(ggpubr)
library(ggplot2)

Cf <- Ff <- Of <- ggplot(mtcars, aes(disp, wt)) + geom_point()

sfplot = ggarrange(ggarrange(Cf, Ff, ncol = 2, labels = c("A", "B")), 
                   ggarrange(NULL, Of, NULL, ncol = 3, labels = c("", "C", ""), widths = c(1,2,1)), 
                   ncol = 1)

Output