Agree with @szsu. "curve" function expect a function as input. If you just wanted to add density line on top of a histogram just use "lines". Try the following codes:
I have no clue where to find the engel data frame and was unable to test the codes myself.