如何在ggplot嵌入flextable时保留set_caption设置的标题？

当使用flextable::as_raster()将带标题的表格转为栅格并嵌入ggplot绘图时，设置的标题会丢失。比如以下示例中，set_caption()定义的“Table of iris”并未出现在最终图中：

library(flextable)
library(tidyverse)
library(cowplot)
library(grid)

# 创建嵌入表格
table <- head(iris)[,1:3] %>% 
  flextable() %>% 
  set_caption(paste0("Table of iris")) %>% 
  flextable::as_raster()

p <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + 
  geom_point()

ggdraw(p) + 
  draw_plot(grid::rasterGrob(table), x = 1, y = 1, 
                                     hjust = 1, vjust = 1, 
                                     halign = 1, valign = 1,
                                     width = 0.5, height = 0.5)

解决方案 #

问题出在as_raster()仅转换表格主体，不包含标题部分。可以通过两种方式解决：

方法1：用gen_grob()替代as_raster()

gen_grob()会生成包含标题在内的完整表格grob，无需额外处理标题，是最简洁的方案：

library(flextable)
library(tidyverse)
library(cowplot)
library(grid)

# 创建带标题的表格并生成完整grob
table_grob <- head(iris)[,1:3] %>% 
  flextable() %>% 
  set_caption("Table of iris") %>% 
  gen_grob()

# 生成主绘图
p <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + 
  geom_point()

# 嵌入完整表格
ggdraw(p) + 
  draw_plot(table_grob, x = 1, y = 1, 
            hjust = 1, vjust = 1, 
            width = 0.5, height = 0.5)

方法2：手动组合标题与表格栅格

如果需要更精细控制标题样式，可以单独生成标题grob，再和表格栅格组合：

library(flextable)
library(tidyverse)
library(cowplot)
library(grid)

# 创建带标题的flextable对象（不转栅格）
ft <- head(iris)[,1:3] %>% 
  flextable() %>% 
  set_caption("Table of iris")

# 生成标题文本grob
caption_grob <- textGrob(
  label = ft$caption$value,
  gp = gpar(fontsize = 12, fontface = "bold"), # 自定义标题样式
  hjust = 0
)

# 转换表格主体为栅格grob
table_raster <- flextable::as_raster(ft)
table_grob <- rasterGrob(table_raster)

# 组合标题和表格，调整布局比例
combined_grob <- grobTree(
  caption_grob,
  table_grob,
  layout = grid.layout(2, 1, heights = unit(c(1, 5), "null"))
)

# 生成主绘图并嵌入组合grob
p <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + 
  geom_point()

ggdraw(p) + 
  draw_plot(combined_grob, x = 1, y = 1, 
            hjust = 1, vjust = 1, 
            width = 0.5, height = 0.5)

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