Guardar un gráfico en un objeto

En ggplot2, uno puede guardar fácilmente un gráfico en un objeto R.

p = ggplot(...) + geom_point()      # does not display the graph
p                                   # displays the graph

La función estándar plotproduce el gráfico como una función nula y devuelve NULL.

p = plot(1:10)     # displays the graph
p                  # NULL

¿Es posible guardar un gráfico creado por ploten un objeto?

los gráficos base se dibujan directamente en un dispositivo.

Podrías usar

1- recordPlot

2- el gridGraphicspaquete introducido recientemente , para convertir gráficos base a su equivalente en cuadrícula

Aquí hay un ejemplo mínimo,

plot(1:10) 

p <- recordPlot()
plot.new() ## clean up device
p # redraw

## grab the scene as a grid object
library(gridGraphics)
library(grid)
grid.echo()
a <- grid.grab()

## draw it, changes optional
grid.newpage()
a <- editGrob(a, vp=viewport(width=unit(2,"in")), gp=gpar(fontsize=10))
grid.draw(a)

Llegué muy tarde a esto, pero fue la primera pregunta que apareció cuando busqué la pregunta. Así que me gustaría agregar mi solución para futuros espectadores que se encuentren con la pregunta.

Resolví esto usando una función en lugar de un objeto. Por ejemplo, supongamos que queremos comparar dos distribuciones beta con diferentes parámetros. Podemos ejecutar:

z1<-rbeta(10000,5,5)
z2<-rbeta(10000,20,20)
plotit<-function(vector,alpha,beta){
plot(density(vector),xlim=c(0,1))
abline(v=alpha/(alpha+beta),lty="longdash")
}

Y guarde los gráficos como funciones en lugar de objetos.

z.plot1<-function(){plotit(z1,5,5)}
z.plot2<-function(){plotit(z2,20,20)}

A continuación, podemos llamar a cada gráfico como queramos simplemente llamando a los dos gráficos como funciones en lugar de objetos.

z.plot1()

traza la primera parcela y

z.plot2()

traza el segundo.

¡Espero que ayude a alguien que se encuentre con esto más tarde!

Puede utilizar la función de enlace activo del pryrpaquete si no desea cambiar directamente los valores del objeto creado.

library(pryr)
a %<a-% plot(1:10,1:10)

Cada vez que escriba aen la consola, el gráfico se volverá a imprimir en la pantalla. El %<a-%operador volverá a ejecutar el script cada vez (en el caso de un gráfico, creo que esto no es un problema). Entonces, esencialmente, cada vez que use ael código se volverá a ejecutar, lo que dará como resultado su gráfico que, por supuesto, puede manipular (superponer otro gráfico en la parte superior) o guardar usando, pngpor ejemplo. Sin aembargo, no se almacenará ningún valor en sí mismo . El valor seguirá siendo NULL.

No sé si lo anterior es lo que está buscando, pero podría ser una solución aceptable.

library(ggplot2)
# if mygraph is a plot object
ggsave("myplot1.png",mygraph)

# if the plot is in a list (e.g. created by the Bibliometrics package)
ggsave("myplot1.png",mygraphs[[1]])