Here's a realization of Hadleyβs idea.
library(ggplot2) funcs <- list(log,function(x) x,function(x) x*log(x),function(x) x^2, exp) cols <-heat.colors(5,1) p <-ggplot()+xlim(c(1,10))+ylim(c(1,10)) for(i in 1:length(funcs)) p <- p + stat_function(aes(y=0),fun = funcs[[i]], colour=cols[i]) print(p)
source share