在Hadley Wickham的《ggplot2》一书的第10.3章中,他提到了制作绘图函数。我想制作许多使用刻面的类似图,但我不能引用专栏。如果我所有的参考文献都是美学方面的,那么我就可以使用aes_string,一切都可以正常工作。Facet_wrap似乎没有类似的东西。
library(ggplot2)
data(iris)
这是我想要函数化的图。
pl.flower1 <- ggplot(data=iris,
aes_string(x='Sepal.Length', y='Sepal.Width', color='Petal.Length')) +
geom_point() +facet_wrap(~Species)
如果我不刻面,这是可行的。
flowerPlot <- function(dat, sl, sw, pl, sp){
ggplot(data=dat, aes_string(x=sl, y=sw, color=pl)) + geom_point()
}
pl.flower2 <- flowerPlot(iris, sl='Sepal.Length', sw='Sepal.Width', pl='Petal.Length')
下面两行中的"sp“应该是什么?一个公式,一个字符串?也许整个方法都是错的。
flowerPlotWrap <- function(dat, sl, sw, pl, sp){
ggplot(data=dat, aes_string(x=sl, y=sw, color=pl)) + geom_point() +facet_wrap(sp)
}
pl.flower3 <- flowerPlotWrap(iris, sl='Sepal.Length', sw='Sepal.Width', pl='Petal.Length', sp= ?????)
除了一个答案之外,我还想指出人们是如何处理这个问题的?
https://stackoverflow.com/questions/10004847
复制相似问题