ggplot(data = as.data.frame(x), aes(x)) +
geom_histogram(binwidth = 1,
origin = -0.5,
col = "black",
fill = "blue",
alpha = 0.5) +
scale_x_continuous(breaks = 0:8) +
labs(x = "Answer Score",
y = "Frequency",
title = "Alex's Stack Overflow Answers") +
theme(text = element_text(size = 15))