在多个图中重用 ggplot 图层

Question

我正在绘制大量图表，它们基本上使用相同类型的格式。只是想知道是否可以将这些层存储在变量中并重用它们。

方法1(不起作用)

t <- layer1() + layer2()
ggplot(df,aes(x,y)) + t

方法 2(有效但不是很优雅)

t <- function(x) x + layer1() + layer2()
t(ggplot(df,aes(x,y))

沿方法 1 的任何建议？

谢谢!

Answer 1

在我等待一些说明的同时，这里有几个示例演示如何将先前创建的图层添加到现有绘图中:

p <- ggplot(mtcars,aes(x = cyl,y = mpg)) + 
        geom_point()    
new_layer <- geom_point(data = mtcars,aes(x = cyl,y = hp),colour = "red")
new_layer1 <- geom_point(data = mtcars,aes(x = cyl,y = wt),colour = "blue")

p + new_layer

p + list(new_layer,new_layer1)