ggplot2：从ggplot-Object创建一个独立副本

Question

我不知道如何把它放在OO-Speech中。但是当你创建一个ggplot时，它将依赖于源数据框架。那么如何保存没有这种依赖关系的ggplot呢？

dat <- data.frame(x=runif(10),y=runif(10)) 
g <- ggplot(dat, aes(x,y)) + geom_point() 
g 

dat <- NULL 
g 

第二个$ g $不会产生一个图，因此dat是$ NULL $。我如何保存$ g $，以便更改dat？

我知道这不是很好的做法，但我得到了一些我不想摆弄的很长的代码。

Answer 1

我认为有几种选择，我按照我的喜好显示。

## setup 
require(ggplot2) 
set.seed(10) # make reproducible 
dat <- data.frame(x=1:10,y=runif(10)) 

我最喜欢的选择是为您的代码创建一个简单的函数包装。然后，无论何时您需要更改数据，只需将新数据传递给您的函数，它就会将其提供给ggplot并创建新图形。这是灵活的，相当强大的问题。它也是可扩展的，因为如果后来你决定你也希望能够改变标题，那么你也可以为你的函数添加一个标题参数。

## my favorite option 
myplot <- function(data) { 
    ggplot(data, aes(x, y)) + geom_point() 
} 

## use it 
myplot(data = dat) 

## change it 
dat <- data.frame(x = 11:20, y = runif(10)) 
myplot(data = dat) 

另一种方法是你要ggplot调用保存为一个表达式，这是未评估。然后你只需要评估它。这几乎就像每次输入代码（它在某些方面有所不同，但这是我能想到的最好的比喻）。

## not wild about this one 
myplotcall <- expression(ggplot(dat, aes(x,y)) + geom_point()) 

## look at it (literally just the input) 
myplotcall 
expression(ggplot(dat, aes(x, y)) + geom_point()) 

## use it 
eval(myplotcall) 

## change it 
dat <- data.frame(x = 21:30, y = runif(10)) 
eval(myplotcall) 

您可以更改ggplot对象本身的数据。我认为这种方法是最容易出问题的，因为你正在使用一个对象内部的东西，而这个内部对象并没有真正被用户改变（也就是说，因为我们不能说我们应该这样做）。这是更为恰当的%+%操作完成（见joran的答案）

## not wild about this either 
g <- ggplot(dat, aes(x,y)) + geom_point() 
g ## use it 

## change it 
dat <- data.frame(x = 31:40, y = runif(10)) 
g$data <- dat 
g 

Answer 2

就个人而言，我认为，@约书亚的答案是太复杂了（如果我了解你想要做什么）。

我不认为这有什么意义改变存储在剧情对象的数据帧，因为GGPLOT2有专门设计一个新的数据帧适用于一个给定的剧情对象特殊管道符：%+% 。

dat <- data.frame(x=runif(10),y=runif(10)) 
g <- ggplot(dat, aes(x,y)) + geom_point() 
g 

#Change the data frame 
dat$y <- rexp(10) 
#Replot g using the altered data frame 
g %+% dat 

这个工作，当然，与原始数据帧的不只是更改后的版本，而是一个全新的数据帧，只要它具有所有必要的变量（并且它们被命名为相同）。