library(ggplot2)
survey_month<-c("2020-01", "2020-01","2020-01", "2020-01", "2020-01","2020-02", "2020-02", "2020-02","2020-03", "2020-03", "2020-03","2020-04", "2020-04", "2020-04","2020-04", "2020-04", "2020-04","2020-03" )
sport<-c("golf","golf","golf","cricket","football","golf","cricket","football","golf","cricket","football","golf","cricket","football","cricket","cricket","football","golf" )
df <- data.frame(sport,survey_month)
ggplot(data=df,aes(x=survey_month)) + geom_bar(aes(fill=sport),width=0.4)