Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/66.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在R中加入PDF文件?_R_Pdf - Fatal编程技术网

如何在R中加入PDF文件?

如何在R中加入PDF文件?,r,pdf,R,Pdf,我有一个R程序,它将一本图形小册子作为PDF文件输出到本地服务器。有一个单独的PDF文件,一篇介绍文章,不是用R写的,我想加入我的输出 我可以在Adobe中完成这项工作,R-bloggers在这里有一个过程,这两个过程都涉及手工加入文件,正如它所说: 但我更愿意做的是运行我的代码并让文件加入。在搜索“[R]Pdf”和“加入”、“合并”、“导入Pdf”等内容时,我找不到类似的帖子 我的目的是每次为不同的ID号(“医师”)运行代码。该报告将保存为服务器上以ID号命名的PDF格式,并将相同的附录加入

我有一个R程序,它将一本图形小册子作为PDF文件输出到本地服务器。有一个单独的PDF文件,一篇介绍文章,不是用R写的,我想加入我的输出

我可以在Adobe中完成这项工作,R-bloggers在这里有一个过程,这两个过程都涉及手工加入文件,正如它所说:

但我更愿意做的是运行我的代码并让文件加入。在搜索“[R]Pdf”和“加入”、“合并”、“导入Pdf”等内容时,我找不到类似的帖子

我的目的是每次为不同的ID号(“医师”)运行代码。该报告将保存为服务器上以ID号命名的PDF格式,并将相同的附录加入到每个文档中

下面是创建R报告的当前代码

Physician<- 1

#creates handle for file name and location using ID
Jumanji<- paste ("X:\\Feedback_ID_", Physician, ".pdf", sep="")

#PDF graphics device on, using file handle
pdf(file=Jumanji,8.5, 11) 

我想我需要将外部文档拉到R中,并在开始和结束之间引用它,但我在这里没有成功。

要在R中这样做,请遵循@cbeleites的建议(我认为,他正确地建议您将整个工作流移到knitr),在swave/knitr中只做这一点。将以下内容编入pdf,其中“test.pdf”是您要附加到的报告,您将得到想要的结果:

\documentclass{article}
\usepackage{pdfpages}
\begin{document}
\includepdf{test.pdf} % your other document
<<echo=FALSE>>=
x <- rnorm(100)
hist(x)
# or whatever you need to do to get your plot
@
\end{document}

绘图将自动分页。

如果您使用的是*nix系统,我会在命令行上使用pdftk。如果您愿意,您可以在R中编写调用
system
的包装函数。除了
pdftk
(正如@Justin所建议的)回答了最初的问题之外,整个场景对我来说听起来就像
swave
knitr
@Justin pdftk在Windows上工作的典型工作。@Thomas oh!很长一段时间以来,我都没有用windows来做任何事情:)+1我不知道我想这么做,但现在我知道我需要知道怎么做!
\documentclass{article}
\usepackage{pdfpages}
\begin{document}
\includepdf{test.pdf} % your other document
<<echo=FALSE>>=
x <- rnorm(100)
hist(x)
# or whatever you need to do to get your plot
@
\end{document}
x <- rnorm(100)
y <- rnorm(100)
pdf("test.pdf")
hist(x)
hist(y)
dev.off()