15.5 지수분포 (Exponential Distribution) : stat_function(fun = dexp)

# 지수분포 : fun = dexp
ggplot(data.frame(x=c(0,10)), aes(x=x)) +
   stat_function(fun=dexp, colour="brown", size=1.5) +
   ggtitle("Exponential Distribution")