Basically, I'm just trying to plot a curve over my histogram for the weight of a few students.

     lines(density(weight), lwd = 2, col = "red")

However, what I get is a line on the bottom of the graph. I suppose the density has to be such that the integral of the curve is 1. What command should I be using instead of density, if I want to have a fitting curve for the histogram?