Simple example of a function drawing:
p <- ggplot(data = data.frame(x = 0), mapping = aes(x = x)) p + stat_function(fun = function(x) x^2 + 1*2)
Like this?
fun1 <- function(x,a,b) a*x^2 + b p <- ggplot(data = data.frame(x = 0), mapping = aes(x = x)) p + stat_function(fun = fun1, args=list(a=1, b=2)) + stat_function(fun = fun1, args=list(a=2, b=1), col='red') + xlim(-5,5)