如何在RMarkdown HTML文档中并排展示Knitr图片与flextable

你遇到的错误是因为knitr::include_graphics()返回的是用于knitr渲染的knit_asis对象，并非可直接转换为栅格的图像数据，所以rasterGrob()无法处理它。下面提供两种可行的解决方案：

方法1：使用magick包直接处理网络图片 #

magick包可以直接读取网络图片并转换为grid兼容的grob对象：

library(dplyr)
library(grid)
library(gridExtra)
library(flextable)
library(magick)

# 读取网络图片并转为grid grob
url <- "https://static1.cbrimages.com/wordpress/wp-content/uploads/2021/02/rickroll-header.jpg?q=50&fit=contain&w=1140&h=&dpr=1.5"
mrRick <- image_read(url) %>% image_ggplot() %>% ggplotGrob()

# 创建flextable并转为grob
myTable <- data.frame(Test = c(1,2,3,4,5),
                      Test2 = c(1,2,3,4,5)) %>%
  flextable() %>%
  gen_grob()

# 并排展示
grid.arrange(mrRick, myTable, ncol = 2)

方法2：先下载图片到本地再读取 #

如果不想依赖magick包，可以先将图片下载到临时文件，再用png包读取转换：

library(dplyr)
library(grid)
library(gridExtra)
library(flextable)
library(png)

# 下载图片到临时文件
url <- "https://static1.cbrimages.com/wordpress/wp-content/uploads/2021/02/rickroll-header.jpg?q=50&fit=contain&w=1140&h=&dpr=1.5"
temp_file <- tempfile(fileext = ".jpg")
download.file(url, temp_file, mode = "wb")

# 读取图片并转为raster grob
mrRick <- readPNG(temp_file) %>% rasterGrob()

# 创建flextable并转为grob
myTable <- data.frame(Test = c(1,2,3,4,5),
                      Test2 = c(1,2,3,4,5)) %>%
  flextable() %>%
  gen_grob()

# 并排展示
grid.arrange(mrRick, myTable, ncol = 2)

两种方法都能将图片转换为grid可处理的grob对象，与flextable生成的grob通过grid.arrange实现并排布局。如果在R Markdown中使用，可根据需求调整代码块的fig.width、fig.height等参数控制展示尺寸。

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