ggMeanMedian

ggplot(${1:data = }, aes(${2:x = )}) + 
		geom_histogram(aes(y = ..density..), ${3:binwidth = }, colour = "black", fill = "white") + 
		geom_density(alpha = .2, fill = "#FF6666") + 
		geom_vline(aes(xintercept = mean(${4:}), color = "mean"), linetype = "dashed", size = 2) + 
		geom_vline(aes(xintercept = median(${5:}), color = "median"), linetype = "dashed", size = 2) + 
		scale_color_manual(name = "Dispersion", values = c(median = "blue", mean = "red"))

This is an R snippet. Therefore, the following formatted pieces of code, ${#:...}, need to be replaced with actual values.