patchwork 让两个图重叠在一起

`patchwork` 是一个用于在 R 中轻松拼接和组织 ggplot 图形的强大工具。它提供了一种直观的方式来合并、堆叠甚至旋转多个图形。如果你想要让两个图重叠在一起，你可以使用 `+` 符号或者 `wrap_plots()` 函数来进行拼接。

这是一个基本的例子：

# 首先安装并加载 patchwork 包
if (!requireNamespace("patchwork", quietly = TRUE)) {
  install.packages("patchwork")
}
library(patchwork)

# 创建第一个图形
p1 <- ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point()

# 创建第二个图形
p2 <- ggplot(mtcars, aes(x = disp, y = hp)) + geom_point()

# 使用 "+" 符号重叠两个图
p_overlapped <- p1 + p2

# 或者使用 wrap_plots() 函数
p_wrapped <- wrap_plots(p1, p2, ncol = 1) # 指定列数为1，即一行放两个图

# 查看结果
p_overlapped
p_wrapped