Jason Van Pelt, Jeni Rainer
3/22/2019
ggplot(hist_data, aes(spanCount)) +
geom_histogram(binwidth = .1, col = "black", fill = "blue")
This is test data, but has not been massaged in any way.
hist_data %>%
mutate(spanCountNew = ifelse(hist_data$spanCount > 10, 10, hist_data$spanCount)) %>%
ggplot(aes(spanCountNew)) +
geom_histogram(binwidth = .1, col = "black", fill="blue")
ggplot(hist_data, aes(spanCount)) +
geom_histogram(binwidth = 1, col = "black", fill = "blue")
hist_data %>%
mutate(spanCountNew = ifelse(hist_data$spanCount > 10, 10, hist_data$spanCount)) %>%
ggplot(aes(spanCountNew)) +
geom_histogram(binwidth = 1, col = "black", fill="blue")