hi everyone
could you please help me to find my mistake.
bike_type <- bike_rides[, c(1,2,13,16)]
EDIT
correct code
bike_type %>% group_by(month, rideable_type, member_casual) %>%
summarise(n = n()) %>%
ggplot()+geom_col(mapping = aes(
x=month, y=n, fill = member_casual
))+facet_wrap(~rideable_type)
that's what I want to get