CODEWITHSUNDEEP
rplot
Remi.b
Remi.b

Reputation: 18219

Save a plot in an object

In ggplot2, one can easily save a graphic into a R object.

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

The standard function plot produces the graphic as a void function and returns NULL.

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

Is it possible to save a graphic created by plot in an object?

Upvotes: 115

Views: 84500

Answers (3)

cartwheel
cartwheel

Reputation: 671

I solved this by using a function instead of an object. For example, suppose we want to compare two beta distributions with different parameters. We can run:

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")
}

And save the plots as functions rather than objects.

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

Next, we can call each plot as we want by simply calling the two plots as functions rather than objects.

z.plot1()

plots the first plot and

z.plot2()

plots the second.

Upvotes: 57

baptiste
baptiste

Reputation: 77106

base graphics draw directly on a device.

You could use

1- recordPlot

2- the recently introduced gridGraphics package, to convert base graphics to their grid equivalent

Here's a minimal example,

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)

Upvotes: 123

LyzandeR
LyzandeR

Reputation: 37879

You can use the active binding feature of the pryr package if you don't want to directly change the values of the object created.

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

Each time you type a on the console the graph will be reprinted on the screen. The %<a-% operator will rerun the script every time (in case of one graph this is not a problem I think). So essentially every time you use a the code will be rerun resulting in your graph which of course you can manipulate (overlay another plot on top) or save using png for example. No value itself will be stored in a however. The value will still be NULL.

I don't know if the above is what you are looking for but it might be an acceptable solution.

Upvotes: 21

Related Questions