如何通过代码生成PDF文件?
How to generate a PDF file by Code?
我完全不熟悉 R、RStudio、LaTeX、knitr 甚至 Whosebug。我想通过 LaTeX 在 RStudio 中生成一个 pdf 文件。
我编写了以下脚本,它运行良好:
\documentclass{article}
\begin{document}
<<setup, echo=FALSE, warning=FALSE>>=
library("xtable")
source("D:\Programming\Testing\2017-03-13\UniDF.R")
@
<<xtable, results = "asis", echo=FALSE>>=
print(xtable(uni_kassel), type = "latex")
@
<<barplot, echo=FALSE, results='hide'>>=
#Loop through rows in df
for (i in seq(from = 1, to = nrow(uni_kassel), by = 1))
{
#Create subset from df
data <- matrix(c(subset(uni_kassel$Studenten,
fb == uni_kassel$Fachbereich[i]),
subset(uni_kassel$Absolventen,
fb == uni_kassel$Fachbereich[i])))
#Create first barplot
print(source("D:\Programming\Testing\2017-03-08\SimpleBarChart.R"))
}
@
\end{document}
非常感谢您的帮助。
感谢 J_F 我能够解决我的问题。
解决方案非常简单:
library(knitr)
knit2pdf("path_to_your_Rnw_file")
我完全不熟悉 R、RStudio、LaTeX、knitr 甚至 Whosebug。我想通过 LaTeX 在 RStudio 中生成一个 pdf 文件。
我编写了以下脚本,它运行良好:
\documentclass{article}
\begin{document}
<<setup, echo=FALSE, warning=FALSE>>=
library("xtable")
source("D:\Programming\Testing\2017-03-13\UniDF.R")
@
<<xtable, results = "asis", echo=FALSE>>=
print(xtable(uni_kassel), type = "latex")
@
<<barplot, echo=FALSE, results='hide'>>=
#Loop through rows in df
for (i in seq(from = 1, to = nrow(uni_kassel), by = 1))
{
#Create subset from df
data <- matrix(c(subset(uni_kassel$Studenten,
fb == uni_kassel$Fachbereich[i]),
subset(uni_kassel$Absolventen,
fb == uni_kassel$Fachbereich[i])))
#Create first barplot
print(source("D:\Programming\Testing\2017-03-08\SimpleBarChart.R"))
}
@
\end{document}
非常感谢您的帮助。
感谢 J_F 我能够解决我的问题。
解决方案非常简单:
library(knitr)
knit2pdf("path_to_your_Rnw_file")