Plot distributions and overlayed distrobutions using ggplot

plot_dist.R

plot_dist <- function(dist_fun, dist_args, range) {
  pl <- ggplot(data = data.frame(x = range), aes(x)) +
    stat_function(fun = dist_fun, n = 101, args = dist_args) + ylab("") +
    scale_y_continuous(breaks = NULL)
}

plot_overlay_dist <- function(dist_funs, dist_args, range) {
  pl <- ggplot(data = data.frame(x = range), aes(x)) + scale_y_continuous(breaks = NULL)
  fcnt <- 1;
  for(dfun in dist_funs) {
    pl <- pl + stat_function(fun = dfun, n = 101, args = dist_args[[fcnt]]) + ylab("")
    fcnt <- fcnt + 1
  }
  pl
}

print(plot_overlay_dist(c(dnorm,dcauchy), list(list(mean = 100, sd = 1),list(location = 100, scale = 2.5)), c(75,125)))