程序代写代做代考 Survey

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()