在后续代码块中重用图形设备

2019年8月4日 197次阅读

以下R-Markdown代码不适用于Knitr：

Create a bimodal toy distribution.

```{r}
a = c(rnorm(100, 5, 2), rnorm(100, 15, 3))
```

Set up the graphics device.

```{r fig.show='hide'}
plot(0, type = 'n', xlim = c(0, 20), ylim = c(0, 0.2), axes = FALSE)
```

Plot the density.

```{r}
polygon(density(a), col = 'black')
```

Knitr假设图形设备在R代码块的末尾结束,并关闭设备.因此,我无法重复使用(在第三个代码块中)先前设置的图形设备.

我的问题很简单：我怎样才能做到这一点？

最佳答案 您可以通过recordPlot()保留以前的绘图,并使用replayPlot()重绘它.这可以在自定义块挂钩函数中完成.这是一个简单的例子：

```{r setup}
library(knitr)
knit_hooks$set(plot.reuse = local({
  last = NULL
  function(before, options) {
    if (!isTRUE(options$plot.reuse)) {
      last <<- NULL
      return(NULL)
    }
    if (before) {
      if (inherits(last, 'recordedplot')) replayPlot(last)
    } else {
      last <<- recordPlot()
    }
    return(NULL)
  }
}))
```

Draw a plot.

```{r test-a, plot.reuse=TRUE}
plot(cars)
```

Add a line to the previous plot:

```{r test-b, plot.reuse=TRUE}
abline(lm(dist~speed, data=cars))
```

您还可以使用未记录的功能opts_knit $set(global.device = TRUE),以便整个文档始终使用相同的图形设备,该图形设备永远不会关闭.我从未在公众中提到过这个功能,虽然已经存在了两年,因为我没有仔细考虑过这种方法可能产生的意外后果.

点赞