3  Loading Citibike Data

library(tidyverse)
df <- read_csv("data/JC-202603-citibike-tripdata.csv")

Simple Bar Chart that shows how many citibike rides were from members vs casual users in Jersey City

library(tidyverse)
ggplot(df, aes(member_casual)) + 
    geom_bar()