library(dplyr)
library(ggplot2)
friday %>%
filter(type == "traffic") %>%
ggplot(aes(x = sixth)) +
geom_histogram(binwidth = 2000) +
xlim(110000, 140000)
friday %>%
filter(type == "traffic") %>%
ggplot(aes(x = thirteenth)) +
geom_histogram(binwidth = 2000) +
xlim(110000, 140000)
Run the code above in your browser using DataLab