Step-by-step explanation:
Using R, I used the following code to create a histogram:
bowling.scores <- c(87, 104, 79, 94, 117, 82, 72, 116, 105, 95, 88, 93, 109, 119, 75,
103, 112, 97, 73, 85, 91, 86, 102, 99, 106, 84, 98, 83, 81, 96, 92)
data.frame(bowling.scores)
ggplot(data.frame(bowling.scores), aes(x=bowling.scores)) +
xlim(c(70, 120)) +
scale_y_continuous(breaks = seq(0, 10, by=1), "Frequency") +
geom_histogram(breaks=seq(70, 120, by=10), color="black", fill="grey60") +
labs(title="Histogram of Bowling Scores", x="Bowling Scores", y="Frequency")
