15.9 상용로그 분포 (Common Logarithm Distribution) : stat_function(fun = log10)

# 상용로그분포 : fun = log10
ggplot(data.frame(x=c(0,100)), aes(x=x)) +
   stat_function(fun=log10, colour="black", size=1.5) +
   geom_vline(xintercept=10, colour="grey", linetype="dashed", size=1) +
   geom_vline(xintercept=100, colour="grey", linetype="dashed", size=1) +
   ggtitle("Common Logarithm Distribution")