R：使用来自不同文件夹的图像创建文档？答案

【问题标题】：R: Create document with images from different folders?R：使用来自不同文件夹的图像创建文档？
【发布时间】：2022-12-18 03:37:51
【问题描述】：

比方说，我进行了一个产生大量显微镜图像的实验。我有多个样本：样本 1、样本 2 等，每个样本都有不同数量的图像并分为不同的文件夹。

我想创建一个文档，其中包含整齐排列的每个样本的所有图像（理想情况下每个样本一页），这样我就可以大致了解我的实验。我通常在 PowerPoint 上手动执行此操作，但现在我会生成大量数据，而且会花费很长时间。 PPT 很有用，因为它可以很好地压缩我的大图像文件，否则我的图像总共超过 5 GB。

然而，我发现创建 PPT 的 R 包只允许您添加在 R 中生成的图像。我可以创建一个 PDF 文档，但随后我需要压缩图像（在最后或添加它们时） .

我知道 R 不是这类事情的理想语言，但它是我最了解的语言，并且会感谢任何类型的建议/包。谢谢！

【问题讨论】：

这应该可以使用officer。也可以使用magick 调整和缩小图像的大小。

标签： r powerpoint

【解决方案1】：

您可以尝试以下操作：

library(officer)
library(rvg)
library(png)

doc <- officer::read_pptx()
doc <- officer::add_slide(doc,"Title and Content","Office Theme")
Picture<-readPNG(system.file("img","Rlogo.png",package="png"))
grid::grid.raster(Picture)
ggdml <- dml(grid::grid.raster(Picture))
doc <- officer::ph_with(doc, ggdml, location = officer::ph_location_type(type="body",position_right = FALSE))
print(doc, target = "test.pptx")

【讨论】：