Question

在下面的可重复示例中，我尝试为ggplot分布图创建一个函数并将其保存为R对象，目的是在网格中显示两个图。

ggplothist<- function(dat,var1)
{
        if (is.character(var1)) {
            var1 <- which(names(dat) == var1) 
    }
    distribution <- ggplot(data=dat, aes(dat[,var1])) 
    distribution <- distribution  + geom_histogram(aes(y=..density..),binwidth=0.1,colour="black", fill="white")
    output<-list(distribution,var1,dat)
    return(output)
}

致电功能：

set.seed(100)
df  <- data.frame(x = rnorm(100, mean=10),y =rep(1,100))    
output1 <- ggplothist(dat=df,var1='x')
output1[1]

现在一切都好了。

然后我想制作第二个情节，（注意意思是= 100而不是之前的10）

df2  <- data.frame(x = rep(1,1000),y = rnorm(1000, mean=100))    
output2 <- ggplothist(dat=df2,var1='y')
output2[1]

然后我尝试用平均值10重新绘制第一个分布。

output1[1]

我得到和以前一样的分配？但是，如果我使用函数中包含的信息，则将其返回并将其重置为可行的全局变量。

var1=as.numeric(output1[2]);dat=as.data.frame(output1[3]);p1 <- output1[1]
p1

如果有人能解释为什么会发生这种情况，我想知道。似乎为了绘制预期的分布，我必须将data.frame和variable重置为用于绘制绘图的内容。有没有办法将绘图保存为对象而不必这样做。幸运的是，我可以重新绘制第一个发行版。

但我无法同时绘制它们

 var1=as.numeric(output2[2]);dat=as.data.frame(output2[3]);p2 <- output2[1]
 grid.arrange(p1,p2)

错误：gList中的错误（列表（列表（数据=列表（x = c）（9.66707664902549,11.3631137069225，： “gList”中只允许“grobs”

在此“Grid of multiple ggplot2 plots which have been made in a for loop”答案中建议使用列表来包含图表

 ggplothist<- function(dat,var1)
{
    if (is.character(var1)) {
            var1 <- which(names(dat) == var1) 
    }
    distribution <- ggplot(data=dat, aes(dat[,var1])) 
    distribution <- distribution  + geom_histogram(aes(y=..density..),binwidth=0.1,colour="black", fill="white")
    plot(distribution)
    pltlist <- list()
    pltlist[["plot"]] <- distribution
    output<-list(pltlist,var1,dat)
    return(output)
}

output1 <- ggplothist(dat=df,var1='x')
p1<-output1[1]

output2 <- ggplothist(dat=df2,var1='y')
p2<-output2[1]

output1[1]

将再次生成均值= 100而不是均值= 10的分布和

grid.arrange(p1,p2)

将产生相同的错误

gList中的错误（列表（列表（plot = list（data = list（x = c（9.66707664902549 ,: “gList”中只允许“grobs”

作为最后一次尝试，我尝试使用recordPlot（）将关于绘图的所有内容记录到对象中。以下是函数内部。

    ggplothist<- function(dat,var1)
{
    if (is.character(var1)) {
            var1 <- which(names(dat) == var1) 
    }
    distribution <- ggplot(data=dat, aes(dat[,var1])) 
    distribution <- distribution  + geom_histogram(aes(y=..density..),binwidth=0.1,colour="black", fill="white")
    plot(distribution)
    distribution<-recordPlot()
    output<-list(distribution,var1,dat)
    return(output)
}

此函数将产生与以前相同的错误，具体取决于将dat和var1变量重置为绘制分布所需的值。并且同样不能放在网格内。

我在这个问题“R saving multiple ggplot2 plots as R-object in list and re-displaying in grid”中尝试过类似的问题，例如arrangeGrob（），但没有运气。

我真的想要一个创建包含绘图的R对象的解决方案，该对象可以自行重绘并且可以在网格内部使用，而无需在每次完成时重置用于绘制绘图的变量。我也想了解这种情况正在发生，因为我根本不认为它是直观的。

我能想到的唯一解决方案是将绘图绘制为png文件，保存在某处，然后让函数返回路径，以便我可以重复使用 - 是其他人正在做什么？

感谢您阅读，并为长期问题感到抱歉。

Answer 1

找到解决方案

How can I reference the local environment within a function, in R?

插入

localenv <- environment()

并在ggplot

中引用它

distribution <- ggplot(data=dat, aes(dat[,var1]),environment = localenv)

让一切顺利！即使有网格安排！

将绘图保存为R对象并显示在网格

1 个答案: