如何在rmarkdown / knitr中顺序输出局部（基本r）图？

Question

假设我有以下rmarkdown代码：

---
title: "Untitled"
author: "Author"
date: "04/12/2019"
output: ioslides_presentation
---

## Slide title

```{r echo=FALSE}
plot(1:10, axes = FALSE, ty = "n")
axis(1)
## Next
axis(2)
## Next
points(1:10, 1:10)
```

我想在每个## Next点上输出绘图的当前状态，以便依次显示绘图的某些部分。我的最终目标是在ioslides演示文稿中创建随后的幻灯片，并在其中创建顺序图，所有幻灯片均来自上面的代码（警告：理想情况下，我不希望以后的代码行能够影响更早的代码，因为可能发生在上面。）

我希望它具有与当前解决方案相同的效果：

---
title: "Untitled"
author: "Author"
date: "04/12/2019"
output: ioslides_presentation
---

```{r setup, include=FALSE}

## Set up environment for running the code
env <- new.env()

## Source code to run, as a list of quotes

full_src <- list(
  quote({
    plot(1:10, axes = FALSE, ty = "n")
    axis(1)
    }),
  quote({
    axis(2)
    }),
  quote({
    points(1:10, 1:10)
    })
)

```

## Slide title

```{r echo=FALSE}
# Evaluate first set of lines
eval(full_src[[1]], envir = env)
# Reset environment so later code can't affect earlier code
rm(list = ls(envir = env), envir = env)
```

## Slide title

```{r echo=FALSE}
# Evaluate first and second set of lines
invisible(sapply(1:2, function(i) eval(full_src[[i]], envir = env)))
# Reset environment so later code can't affect earlier code
rm(list = ls(envir = env), envir = env)
```

## Slide title

```{r echo=FALSE}
# Evaluate all lines
invisible(sapply(1:3, function(i) eval(full_src[[i]], envir = env)))
```

输出的幻灯片如下：

但是正如您所看到的那样，这很笨拙，而且不太通用。解决方案的重要特征是，绘图的代码行应尽可能靠近，并且只编写一次；理想情况下，我可以使用块选项/钩子来完成此操作。

最好的答案是保留回显添加到图中的新代码行（例如，## Next标记之间的代码）的能力，但仍能产生到该点为止的整个图。

实现此目标的最佳方法是什么？

编辑：另外，我希望能够将对图的更改分组，而不仅仅是将所有更改输出到新图，因此fig.keep将不起作用。

Answer 1

块选项fig.keep可以采用数值矢量来索引图，因此您可以通过fig.keep = 2:4选择最后三个图（或通过fig.keep = -1删除第一个图）。 / p>

要对不同幻灯片上的图进行分组，可以动态添加幻灯片标题。您可以将cat('\n\n## Title\n\n')与块选项results = 'asis'一起使用，也可以与knitr::asis_output()一起使用。

下面是一个完整的示例：

---
title: "Untitled"
author: "Author"
date: "04/12/2019"
output: ioslides_presentation
---

```{r, include=FALSE}
new_slide = function(title = '\n\n## Next\n\n') {
  knitr::asis_output(title)
}
```

## Slide title

```{r echo=FALSE, fig.keep=2:4}
plot(1:10, axes = FALSE, ty = "n")
axis(1)

new_slide()
axis(2)

new_slide()
points(1:10, 1:10)
```

请注意，当前版本的 knitr 中存在一个错误，I just fixed on Github。现在，您需要使用 knitr 的Github版本：

if (packageVersion('knitr') <= '1.26')
  remotes::install_github('yihui/knitr')