ggplot2中显示坐标轴_R：ggplot2多子图对齐坐标轴

作者：花生_TL007 | 2024-02-07 14:32:45

踩

ggarrange 对其坐标轴

可用于 ggplot2 子图排版的 package 有：

gridExtra
patchwork
cowplot

分别用他们排版，观察子图的对齐方式


library(ggplot2)
library(gridExtra)
library(patchwork)
library(cowplot)

生成 4 幅子图，plot.background 显示出每个子图的边框


p1 <- ggplot(mtcars, aes(x = mpg, y = wt)) +
  geom_point() + 
  coord_cartesian(xlim = c(0, 36)) +
  theme_classic() +
  theme(plot.background = element_rect(color = "blue"))
 
p2 <- ggplot(mtcars, aes(x = 10 * mpg, y = 10 * wt)) +
  geom_point() + 
  coord_cartesian(xlim = c(0, 360)) +
  theme_classic() +
  theme(plot.background = element_rect(color = "blue"))
 
p3 <- ggplot(mtcars, aes(x = 100 * mpg, y = 100 * wt)) +
  geom_point() + 
  coord_cartesian(xlim = c(0, 3600)) +
  theme_classic() +
  theme(plot.background = element_rect(color = "blue"))
 
p4 <- ggplot(mtcars, aes(x = 1000 * mpg, y = 1000 * wt)) +
  geom_point() + 
  coord_cartesian(xlim = c(0, 36000)) +
  theme_classic() + 
  theme(plot.background = element_rect(color = "blue"))

gridExtra::grid.arrange () 排版

边框对齐，坐标轴未垂直对齐

grid.arrange(p1, p2, p3, p4, ncol = 2)

patchwork () 排版

边框未对其，坐标轴未垂直对齐


(p1 | p2) /
  (p3 | p4)

cowplot::plot_grid () 排版

align = "v"：垂直对齐坐标轴

plot_grid(p1, p2, p3, p4, ncol = 2, align = "v")

align = "h"：水平对齐坐标轴

plot_grid(p1, p2, p3, p4, ncol = 2, align = "h")

align = "h"：垂直水平对齐坐标轴

plot_grid(p1, p2, p3, p4, ncol = 2, align = "vh")

小结

cowplot::plot_grid(align = "vh") 排版可以使得各个子图的坐标轴对齐

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/花生_TL007/article/detail/65995