df<- df %>% filter(str_detect(ComplaintType, "HEATING")) %>%
mutate(month = month.abb[month(mdy_hms(CreatedDate))]) %>%
filter(!is.na(month))
monthly_complaints <- df%>%
group_by(month)%>%
summarise(count = n()) %>%
arrange(desc(count))
monthly_complaints$month = factor(monthly_complaints$month,levels = month.abb)
ggplot(monthly_complaints,aes(x=month,y=count))+geom_bar(stat='identity',fill='#f68060', alpha=.6, width=.4)+geom_col(position = "dodge") +labs(
title = " Heat Complaints Against Months of Top Boroughs",
y="Month", x="Complaint Count")