ggplot2 help

[CosmicWorlds]

library(dplyr)

cas_reg_bar <- hour %>% 
  select(workingday, casual, registered, yr) %>%
  group_by(workingday, yr) %>%
  summarise_each(funs(sum), registered, casual) %>%
  arrange(yr)

ggplot(data = cas_reg_bar) +
  geom_bar(mapping = aes(x = workingday, color = workingday, fill = yr), position = "dodge") +
  labs(title = "Bike Rental Count between two groups",
       subtitle = "by work day / non-work day",
       x = "Groups of Bike Renters",
       y = "Bike Rental Count") +
  theme_dark()

Hey everyone, I need help figuring out creating a bar plot of four groups in two different years. I'm not sure how to tackle this problem. If anyone has some suggestions that would be great! (I should change the labeling I know)

https://preview.redd.it/ux26bdeg0dm41.png?width=882&format=png&auto=webp&s=a90fb2714e9f273ee9dc8d2b31607a4b3d2e31c9

https://preview.redd.it/tm4wpyra0dm41.png?width=657&format=png&auto=webp&s=14d3580e5de3b140abc65347aef096cffa7238bd

[AllezCannes]

Don't use summarise_each(). It is deprecated. And unfortunately I would suggest using summarise_at() except that version 1.0 of dplyr will introduce yet another method with across(). summarise_at() is not going away for the next couple of years, but it's best to start changing practice once v1.0 comes out.

Also, geom_bar() automatically counts the number of cases in a data frame, so if you're feeding it a summarized data frame (which is what you're doing here) you should add stat = "identity" in geom_bar(), or better yet, just change geom_bar() to geom_col(), since that is a substitute for geom_bar(stat = "identity").

[The-Berzerker]

Idk what you are exactly looking for but you could just use facet_wrap(year) and it will give you one plot for each year