all_trips_v2 %>%
mutate(weekday =wday(started_at, label=TRUE)) %>%
group_by(member_casual, month) %>%
summarise(number_of_rides = n(), average_duration = mean(ride_length)) %>%
arrange(member_casual, month)) %>%
ggplot(aes(x= member_casual, y= number_of_rides, fill= rideable_type)) + geom_col(position= “dodge”)