Вам просто нужно вывести код, чтобы начать новый слайд между кодом для графиков. Например,
---
title: "2 Plots"
output: beamer_presentation
---
# Slide with Plot
```{r cars, echo = -2, eval = TRUE}
plot(cars$speed)
knitr::asis_output("\n\n# slide 2\n")
plot(cars$dist)
```
Обратите внимание, что echo = -2
говорит, что не следует повторять второе утверждение, которое является записью заголовка второго слайда.
Я бы рекомендовал написать немного функция, чтобы обернуть строку asis_output
, чтобы ее было легче набирать. Например,
# Slide 3
```{r eval = TRUE, echo = c(-1,-3)}
slide <- function(title)
knitr::asis_output(paste("\n\n#", title, "\n"))
plot(cars$speed)
slide("Slide 4")
plot(cars$dist)
```
Вы можете обнаружить, что asis_output
не работает должным образом, если он находится в середине цикла for
; подробности см. на странице справки.