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