从R中的多个JPEG生成PDF

Question

我有一个包含多个JPEG文件的文件夹。 如何从R中的这些JPEG生成PDF文件？

1个JPEG = 1个PDF页面。 图像大小相同。

非常感谢。

Answer 1

您可以使用Latex轻松完成此操作。 很好，因为这样您就可以使用Sweave来完成整个操作。

您可以按照以下方式进行操作：

% This is some Sweave file
\documentclass{article}
\usepackage{graphicx}
\begin{document}

<<results=tex,echo=FALSE>>=
mypics <- dir('mypics')
for(i in mypics){
cat("\\includegraphics{", i, "}\n\n", sep = "")
}
@
\end{document}

好的，您必须设置Sweave管道，但是通过一些调整，您可以轻松地自动化整个过程。

Answer 2

如果您坚持使用R来执行此操作，则可以打开pdf绘图设备，使用par设置边距（默认值可能是大的而不是居中），然后在循环中使用plot.new来开始新的页面并进行plot.window以设置坐标等，而无需绘制轴等，请使用read.jpeg包中的read.jpeg函数（或其他要读取的工具/包，也可以使用EBImage），然后使用rasterImage将jpeg绘制到pdf设备（或将这些步骤中的某些步骤替换为其他图像绘制功能，例如ReadImages中的plot方法）。

但是总的来说，使用针对此类问题设计更好的工具可能更容易/更快捷/更好/...。 我想到了ImageMagick程序套件，也提到过LaTeX，可能还有其他工具。

Answer 3

如果您坚持使用R（其他工具更合适），请尝试以下操作（缓慢，未经测试）：

   lf = list.files(pattern = "jpeg") # image filenames

   library(jpeg)
   jpegs = lapply(lf, readJPG)

   library(grid)
   pdf("output.pdf", width=8, height=4)
   grid.raster(jpegs[[1]])
   lapply(jpegs[-1], function(x) {grid.newpage() ; grid.raster(x)} ) -> bquiet
   dev.off()