# NOT RUN {
stem(Soccer$weight, scale = 2)
hist(Soccer$weight, breaks = seq(110, 210, 10), col = "orange",
main = "Problem 1.46 \n Weights of Soccer Players",
xlab = "weight (lbs)", right = FALSE)
# }
Run the code above in your browser using DataLab