Я использую rmarkdown, pandoc и knitr для создания pdf файла, включая фрагменты кода r. Внутри блока кода у меня есть цикл for, который печатает несколько графиков и некоторый статистический вывод.
Я хотел бы вставить разрыв страницы в цикл (чтобы появиться в выходном файле pdf). Этот разрыв страницы будет возникать после печати каждого графика, чтобы каждый график печатался на одной странице, а статистический вывод - на следующем.
Мне не удалось найти способ включения разрыва страницы в мой фрагмент кода r. Я пробовал cat("\\newpage")
и cat("\\pagebreak")
в надежде, что он будет распознан pandoc, но безрезультатно (он просто напечатан дословно в окончательном pdf).
Предложения оценены. Вот код, который у меня есть до сих пор:
```{r, echo =FALSE, message=FALSE, warning=FALSE, comment=NA, results='asis'}
library("markdown")
library("rmarkdown")
library("knitr")
library("ggplot2")
for (v in Values){
# read in file
testR <- read.csv(file.path, header=T)
print(ggplot(testR, aes(x=Time, y=Value, color=Batch)) + geom_point(size = 3) +
xlab ("Timepoint") +
ylab (v) +
scale_x_continuous(breaks=seq(0, 60, by=6)) +
ggtitle(paste("Scatterplot of Batches for ", v, sep="")))
ggsave(paste(timestamp, "__",
"Scatterplot of Batches for ", v, ".jpeg", sep = ""))
cat("\\pagebreak")
writeLines(v)
writeLines("\n")
writeLines("\n Test for homogenity of slopes \n")
av1 <- aov(Value~Time*Batch, data=testR)
print(summary(av1))
}
```