使用下面的代码（根据此处的代码进行编辑）我生成了两个带有gt包的示例表：
library(tidyverse)
library(patchwork)
library(gt)
p1 <- mtcars %>%
head(5) %>%
gt()
p2 <- mtcars %>%
tail(5) %>%
gt()
# using wrap elements because this seems to be the answer to non-ggplot grobs e.g. #164
wrap_elements(full = p1 | p2)
grid.arrange(p1, p2, ncol=2, top="Main Title")
出去：
Error in p1 | p2 :
operations are possible only for numeric, logical or complex types
我希望将它们合并为一个 ggplot 对象：p <- (p1 | p2)使用patchwork包，但我还没有找到有效的答案。
我还尝试使用as_ggplot()函数将其转换为 ggplot： …