trazado de la media de densidad GGPLOT2

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