r - 将图像或pdf插入R中的word文档

Question

我正在使用一个循环创建许多表格等，并使用 ReporteRs 包将其导出到 word 文档中。因此，例如，我有一个包含许多页不同图形、表格和文本的 word 文档。

我想通过循环将图像(或 pdf - 两者都可以)插入其中(因为循环会生成许多不同的 word 文档)。我已经下载了 ImageMagick 和 magick 包来处理图像。现在我在 R 中有了我的图像，但我不知道如何将它添加到我的文档中。

我知道 ReporteRs 有一个插入外部图像的 addImage 命令(老实说，我很难弄清楚那个)。是否可以将内部图像/pdf 添加到文档中？

希望大家多多指教。先感谢您!

Answer 1

我强烈建议将您的代码迁移到 officer，因为 ReporteRs 将于 2018 年 7 月 16 日从 CRAN 中删除。从@d125q 写的代码来看，这将被转换为:

library(officer)
library(magick)

download.file("https://jeroen.github.io/images/frink.png", "frink.png")
dims1 <- attributes(png::readPNG("frink.png"))$dim/72
sample.image <- image_read("frink.png")
image_write(image_rotate(sample.image, 45), "frink_rotated.png")
dims2 <- attributes(png::readPNG("frink_rotated.png"))$dim/72


sample.doc <- read_docx()
sample.doc <- body_add_img(sample.doc, src = "frink.png", width = dims1[2], height = dims1[1] )
sample.doc <- body_add_img(sample.doc, src = "frink_rotated.png", width = dims2[2], height = dims2[1] )
print(sample.doc, target = "sample.docx")