require(ggplot2) df <- data.frame(x=seq(1,50)) x <- 1:50 p <- ggplot(df, aes(x=x)) for(i in 1:8){ p = local({ j <- i y <- (1+0.01*j)^x p + geom_line(aes(y=y, c…
