將 ggplots 粘合在一起以盡可能模仿 face_wrap()

Question

我想知道是否有一種方法可以將p1和p2圖粘合在一起，以盡可能接近地獲得我的Desired_plot的外觀（例如，單個xlab和ylab ， vs值打印在gray strip ）？

library(ggplot2)
dat1 = subset(mtcars, vs == 0)
dat2 = subset(mtcars, vs == 1)

p1 <- ggplot(dat1, aes(mpg,vs)) + geom_point()
p2 <- ggplot(dat2, aes(mpg,vs)) + geom_point()

Desired_plot <- ggplot(mtcars, aes(mpg,vs)) + geom_point() + 
                                           facet_wrap(~vs)

Answer 1

要獲得條帶，您需要將幾何圖形或注釋擬合到圖上。 我認為更簡單的方法是將它們制作成單獨的 ggplots 並使用拼湊將它們粘在上面：

library(patchwork)

p3 <- ggplot(mapping = aes(x = 1, y = 1)) + 
  theme_void() + 
  theme(panel.background = element_rect(color = NA, fill = 'gray85'),
        plot.margin = margin(6, 6, 0, 6))

p4 <- p3 + geom_text(aes(label = 1))
p3 <- p3 + geom_text(aes(label = 0))
p2 <- p2 + 
  theme(axis.ticks.y = element_blank(),
        axis.text.y = element_blank(),
        axis.title = element_blank(),
        plot.margin = margin(0, 3, 6, 3))
p1 <- p1 +
  theme(plot.margin = margin(0, 6, 6, 6),
        axis.title.x = element_text(hjust = 1))

(p3 + p4) / (p1 + p2) + plot_layout(heights = c(1, 15))

Answer 2

這讓你非常接近。 如果我們去掉更多的邊距填充，我們可能會馬上解決它。

library(patchwork)
p1 + (p2 + scale_y_continuous(labels = NULL, name = NULL) + 
        theme(axis.ticks.y = element_blank(),
              plot.margin = unit(c(1,1,1,0), "line")))