data(baseball_players1000)
hist(baseball_players1000$weight,xlab="Weight (lbs)",
probability=TRUE, ylim=c(0,0.02),
main="Histogram of Weight for 1000 Baseball Players")
lines(density(baseball_players1000$weight,na.rm=TRUE))
Run the code above in your browser using DataLab