尝试在ggplot2中编写绘图函数时出错

Question

我试图在ggplot2中编写一个函数并获取此错误消息：

layout_base中的错误（数据，vars，drop = drop）：
至少一层必须包含用于构面的所有变量

这是我的代码：

growth.plot<-function(data,x,y,fac){ 
gp <- ggplot(data = data,aes(x = x, y = y)) 
gp <- gp + geom_point()  + facet_wrap(~ fac)
return(gp)
}

growth.plot(data=mydata, x=x.var, y=y.var,fac= fac.var)

如果我尝试不使用该功能，该图将完美显示

gp1 <- ggplot(data = mydata,aes(x = x.var), y = y.var))
gp1+ geom_point()+ facet_wrap(~ fac.var) # this works

Answer 1

这是可重现的解决方案，其中x，y和fac参数必须作为字符传递：

library(ggplot2)

make_plot = function(data, x, y, fac) {
    p = ggplot(data, aes_string(x=x, y=y, colour=fac)) +
        geom_point(size=3) +
        facet_wrap(as.formula(paste("~", fac)))
    return(p)
}

p = make_plot(iris, x="Sepal.Length", y="Petal.Length", fac="Species")

ggsave("iris_plot.png", plot=p, height=4, width=8, dpi=120)

感谢评论者@Roland和@aosmith指出了该解决方案的方法。