p <- ggplot2::ggplot(iris,ggplot2::aes(x =Sepal.Length,y=Sepal.Width))
p <- p +
ggplot2::geom_point(ggplot2::aes(colour='Species')) +
ggplot2::geom_line()
p$layers[[1]]
newLayer <- cloneLayer(l=p$layers[[1]])
(v <- cloneLayer(l=p$layers[[1]],verbose=TRUE))
eval(parse(text=v))
Run the code above in your browser using DataLab