R how to group by month and year in tidyverse with postgres data

# It is better to use date_trunc which is supported in Postgresql

volume.experiences %>%
  mutate(monthyear = date_trunc("month",date_of_experience)) %>%
  group_by(monthyear) %>%
  summarize(count=sum(count)) %>%
  ggplot(aes(x=monthyear, y = as.integer(count))) +
  geom_area(fill="lightblue", color="black") +
  labs(x = "Date", y = "# of experiences")