DC Bike Day Heatmap

bike day heatmap.txt

library(ggplot2)

ggplot(bike_day_heatmap, aes(x = week, y = days, fill = n)) +
  scale_fill_viridis(name="# of Rides", option = "C", 
                     limits = c(0, max(bike_day_heatmap$n))) + 
  geom_tile(color = "white", size = 0.4) + 
  scale_x_continuous(expand = c(0, 0), breaks = seq(1, 52, length = 12), 
                     labels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))+
  theme_minimal() + 
  theme(legend.position = "bottom") +
  labs(title = "DC Bikeshare: Heatmap of Rides taken per Day",
       x = "Month", y = "Day of the Week",
       subtitle = "July 1, 2015 to June 30, 2016",
       caption = "Data from: https://s3.amazonaws.com/capitalbikeshare-data/index.html")