Survey
123
2020/11/6
library(ggplot2)
## Warning: package ‘ggplot2’ was built under R version 3.6.3
survey_df<-read.csv("Survey.csv")
survey_df<-survey_df[,2:7]
names(survey_df)<-c("gender","age","employment_sector","work_years","Sydney_part","")
ggplot(survey_df,mapping = aes(x=age,fill=age)) +
geom_bar() +
theme(legend.position="none")
ggplot(survey_df,mapping = aes(x=reorder(employment_sector,rep(1,length(employment_sector)),sum),fill=employment_sector)) +
geom_bar() +
theme(legend.position="none") +
xlab("employment sector") +
coord_flip()