Splitten eines Plotaufrufs über mehrere Chunks

Question

Ich schreibe eine Erklärung eines Plots, wo ich im Grunde das Plot in einem ersten Chunk erstellen, dann diese Ausgabe beschreiben und eine Achse in einem zweiten Chunk hinzufügen werde.

Es scheint jedoch, jeder Abschnitt erzwingt eine neue Zeichenumgebung, so erhalten wir einen Fehler beim Versuch, einen Chunk mit axis allein zu führen. Beachten Sie:

--- 
output: html_document 
--- 

```{r first} 
plot(1:10, 1:10, xaxt = "n") 
``` 

Look, no x axis! 

```{r second} 
axis(side = 1, at = 1:10) 
``` 

Fehler in axis(side = 1, at = 1:10): plot.new wurde nicht genannt noch Anrufe: <Anonymous> ... withCallingHandlers ->withVisible ->eval ->eval ->axis Ausführung gestoppt

Offensichtlich ist dies eine gültige Problemumgehung, die identische-Ausgabe hat:

--- 
output: html_document 
--- 

```{r first} 
plot(1:10, 1:10, xaxt = "n") 
``` 

Look, no x axis! 

```{r second, eval = FALSE} 
axis(side = 1, at = 1:10) 
``` 
```{r second_invisible, echo = FALSE} 
plot(1:10, 1:10, xaxt = "n") 
axis(side = 1, at = 1:10) 
``` 

Aber das ist weniger als ideal (dupliziert Code, zweimal die Handlung zu bewerten ist, etc.)

This Frage verwandt ist - zum Beispiel könnten wir die second Brocken und setzen echo = -1 auf der second_invisible ausschließen Chunk (dies würde auch nicht in meiner Anwendung funktionieren, aber ich möchte die Dinge hier nicht übermäßig komplizieren)

Gibt es keine Option wie dev.hold, die wir an den ersten Chunk senden können?

Answer 1

Sie aussehen könnte, in die Verwendung recordPlot

--- 
output: html_document 
--- 

```{r first} 
plot(1:10, 1:10, xaxt = "n") 
x<-recordPlot() 
``` 

Look, no x axis! 

```{r second} 
replayPlot(x) 
axis(side = 1, at = 1:10) 

``` 

Quellen:

R: Saving a plot in an object

R plot without showing the graphic window

https://stat.ethz.ch/R-manual/R-devel/library/grDevices/html/recordplot.html < - beachten Sie die Hinweise über ggplot2 hier

Answer 2

Sie können eine Option festlegen global.device ein persistentes grafisches Gerät zu öffnen:

--- 
output: html_document 
--- 

```{r setup, include=FALSE} 
knitr::opts_knit$set(global.device = TRUE) 
``` 

```{r first} 
plot(1:10, 1:10, xaxt = "n") 
``` 

Look, no x axis! 

```{r second} 
axis(side = 1, at = 1:10) 
```