将图保存在对象中

在中ggplot2，可以轻松地将图形保存到R对象中。

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

标准函数plot将图形生成为void函数，并返回NULL。

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

是否可以保存由plot对象创建的图形？

基本图形直接在设备上绘制。

你可以用

1- recordPlot

2-最近推出的gridGraphics软件包，用于将基本图形转换为等效的网格

这是一个最小的例子，

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)

我对此很迟，但是这是我搜索问题时出现的第一个问题。因此，我想为遇到此问题的未来观众添加我的解决方案。

我通过使用函数而不是对象解决了这个问题。例如，假设我们要比较两个具有不同参数的beta分布。我们可以运行：

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

并将图另存为函数而不是对象。

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

接下来，我们可以通过简单地将两个图称为函数而不是对象来调用每个图。

z.plot1()

绘制第一个图并

z.plot2()

绘制第二个。

希望这对以后偶然跌倒的人有所帮助！

pryr如果您不想直接更改创建的对象的值，则可以使用包的活动绑定功能。

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

每次a在控制台上键入时，图形都会重新打印在屏幕上。该%<a-%运营商将每一次（在一个图的情况下，这是没有问题的，我认为）重新运行该脚本。因此，基本上，每次使用a该代码时，都会重新运行，从而生成图形，您当然可以对其进行操作（在顶部覆盖另一个图）或使用png例如保存。a但是，将不会存储任何值本身。该值仍将为NULL。

我不知道以上是否是您要寻找的，但这可能是可以接受的解决方案。

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]])