Среднее график на графике плотности ggplot2

# Add a vertical line argument: 
geom_vline(aes(xintercept=mean(weight)),
            color="blue", linetype="dashed", size=1)
Fine Fowl