Imprimir trazados generados en una función utilizando R Markdown en RStudio

Question

Estoy intentando usar la función R-Markdown en R Studio, donde estaba tratando de imprimir trazados que se generan dentro de una función. Este es un ejemplo básico y descuidado de lo que estoy tratando de hacer.

**Test printing plots generated in a function** 
================================================ 

``` {r fig.width=8, fig.height=4, warning=FALSE, eval=TRUE, message=FALSE, tidy=TRUE, dev='png', echo=FALSE, fig.show='hold', fig.align='center'} 
dat <- data.frame(x=c(1:10),y=c(11:20),z=c(21:30),name=rep(c("a","b"),each=5)) 
library(ggplot2) 

ex <- function(data){ 

    plot(data[,1],data[,2]) 
    plot(data[,1],data[,3]) 
} 

for (i in 1:10){ 
t1 <- rbind(i,ex(dat)) 
} 
t1 
``` 

Los probar este código, por favor asegúrese de guardarlo como archivo ".RMD" y ejecute el knithtml() en la barra de herramientas rstudio. Este código anterior funciona absolutamente bien con el tipo de salida html que deseo. Sin embargo, cuando reemplazo la función de trazado base por código basado en ggplot, no puedo obtener knithtml() para producir la salida ggplot de los 10 gráficos que obtuve como antes. El código de la gráfica base anterior ahora se reemplazó por el siguiente código

p1 <- ggplot(data=data, aes(x=data[,1],y=data[,2])) 
    p1 <- p1+geom_point() 
    p1 

Me falta algo muy simple aquí.

VJ

Answer 1

Hay dos problemas en su código:

1. ggplot no reconoce los datos x y datos de y, dispensada funciona dentro del entorno de datos. Debe darle los nombres de las columnas directamente.
2. El código en su bucle no tiene sentido. No se puede mezclar un gráfico con un índice ... (la razón por la que funciona con el trazado base es a través de un efecto secundario) Lo he reemplazado con el comando de trazado simple.

El siguiente trabajo:

**Test printing plots generated in a function** 
================================================ 

``` {r fig.width=8, fig.height=4, warning=FALSE, eval=TRUE, message=FALSE, tidy=TRUE, dev='png', echo=FALSE, fig.show='hold', fig.align='center'} 
dat <- data.frame(x=c(1:10),y=c(11:20),z=c(21:30),name=rep(c("a","b"),each=5)) 
library(ggplot2) 

ex <- function(data){ 
    p1 <- ggplot(data=data, aes(x=x,y=y)) 
    p1 <- p1+geom_point() 
    return(p1) 
} 

for (i in 1:2){ 
plot(ex(dat)) 
} 

```