ggplot2图形拼接报错：非数值参数传入二元运算符如何解决？

你遇到的Error in p1/p2 : non-numeric argument to binary operator错误，是因为**p1/p2这种拼接语法并非ggplot2原生支持**，它是patchwork包提供的专属语法，直接使用会把ggplot对象当成数值来运算，自然触发报错。

下面给出两种靠谱的修复方案：

方案1：使用patchwork包（推荐） #

这是目前最流行的ggplot拼图工具，语法简洁直观：

1. 先安装并加载patchwork包
2. 直接用p1/p2实现纵向拼接，p1 + p2则是横向拼接

完整可运行代码：

# 首次运行需要安装包
install.packages("patchwork")
# 加载所需包
library(sf)
library(ggplot2)
library(patchwork)

nc <- st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
p1 <- ggplot(nc) +
  geom_sf(linewidth = 0.5) + 
  ggtitle("Old default")

p2 <- ggplot(nc) +
  geom_sf() + 
  ggtitle("New default")

# 纵向拼接两个图形
p1/p2

方案2：使用gridExtra包 #

如果习惯用gridExtra，也可以通过grid.arrange函数实现拼接：

# 首次运行需要安装包
install.packages("gridExtra")
# 加载所需包
library(sf)
library(ggplot2)
library(gridExtra)

nc <- st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
p1 <- ggplot(nc) +
  geom_sf(linewidth = 0.5) + 
  ggtitle("Old default")

p2 <- ggplot(nc) +
  geom_sf() + 
  ggtitle("New default")

# nrow=2表示纵向排列，ncol=2则为横向排列
grid.arrange(p1, p2, nrow = 2)

内容的提问来源于stack exchange，提问作者user18330986