如何将rpart.plot树图与ggplot图形合并为一个图

因为rpart.plot生成的是R基础绘图系统的图形，并非ggplot对象，所以无法直接用patchwork合并。核心思路是先把rpart.plot的图形转换成grob（图形对象），再用patchwork或cowplot完成组合。

方法一：用patchwork + gridGraphics实现 #

步骤： #

1. 加载所需包：

library(rpart)
library(rpart.plot)
library(ggplot2)
library(patchwork)
library(gridGraphics)

2. 捕获rpart.plot的图形为grob对象：
   rpart.plot默认直接输出图形，我们需要用grid.echo()捕获绘图过程，再用grid.grab()转换成grob：

# 先构建示例决策树和图形（替换成你的treeplot代码即可）
data(iris)
tree_model <- rpart(Species ~ ., data = iris)

grid.echo(function() {
  rpart.plot(tree_model)
})
tree_grob <- grid::grid.grab()

3. 组合图形：
   用wrap_elements()把grob对象转换成patchwork兼容的元素，再通过/和+实现布局：

# 你的两个ggplot图形（示例）
plot1 <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() + ggtitle("Plot1")
plot2 <- ggplot(iris, aes(Petal.Length, Petal.Width)) + geom_point() + ggtitle("Plot2")

# 第一行居中树图，第二行两图并排
(tree_grob |> wrap_elements()) / (plot1 + plot2)

方法二：用cowplot实现 #

如果习惯用cowplot，也可以这样做：

library(cowplot)

# 同样先捕获树图为grob
grid.echo(function() {rpart.plot(tree_model)})
tree_grob <- grid::grid.grab()

# 组合布局
top_panel <- ggdraw() + draw_grob(tree_grob)
bottom_panel <- plot_grid(plot1, plot2, ncol = 2)
plot_grid(top_panel, bottom_panel, ncol = 1, rel_heights = c(1, 0.8))  # 可调整上下行高度比例

关键说明： #

• rpart.plot的返回值是绘图的索引，不是图形对象，必须通过grid工具捕获转换成grob才能和ggplot图形组合。
• 两种方法都可以实现需求，patchwork语法更简洁，cowplot对复杂布局的调整更灵活。

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