如何在Excel工作表中添加PNG文件？kableExtra转Excel相关咨询

一、直接将kableExtra表格转为图片插入Excel（无需提前存PNG） #

可以通过kableExtra生成HTML格式表格，结合webshot2转成图片，再用openxlsx插入到新建Excel工作簿，一步完成：

1. 安装并加载依赖包：

install.packages(c("kableExtra", "webshot2", "openxlsx"))
library(kableExtra)
library(webshot2)
library(openxlsx)

（若webshot2安装失败，Windows需确保安装Rtools，Mac需安装Xcode命令行工具）

2. 执行代码实现转换与插入：

# 示例kable表格（替换成你的表格）
my_table <- mtcars[1:5, 1:4] %>%
  kbl() %>%
  kable_styling(bootstrap_options = "striped")

# 生成临时HTML并转成PNG
temp_html <- tempfile(fileext = ".html")
save_kable(my_table, file = temp_html)
temp_png <- tempfile(fileext = ".png")
webshot(temp_html, temp_png, vwidth = 800, vheight = 300)

# 新建工作簿并插入图片
wb <- createWorkbook()
addWorksheet(wb, "表格图片")
insertImage(wb, sheet = "表格图片", file = temp_png, startRow = 1, startCol = 1, width = 8, height = 3)
saveWorkbook(wb, "带表格图片的Excel.xlsx", overwrite = TRUE)

二、用已保存的PNG文件插入Excel（无需addImage函数） #

如果已经有本地PNG文件，推荐使用openxlsx的insertImage函数（该包兼容性强，易安装）：

1. 安装并加载openxlsx：

install.packages("openxlsx")
library(openxlsx)

2. 插入本地PNG到Excel：

# 新建工作簿
wb <- createWorkbook()
addWorksheet(wb, "图片工作表")
# 插入PNG，可调整位置和尺寸
insertImage(wb, sheet = "图片工作表", file = "你的表格图片.png", startRow = 1, startCol = 1, width = 7, height = 2.5)
# 保存工作簿
saveWorkbook(wb, "最终Excel文件.xlsx", overwrite = TRUE)

注意事项 #

• 若openxlsx安装失败，可尝试二进制版本安装：install.packages("openxlsx", type = "binary")
• 调整width/height参数适配图片大小，startRow/startCol控制图片在工作表的起始位置

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