数据分析--用R语言预测离职（下）

最新推荐文章于 2023-12-01 16:34:56 发布

Cocaine_bai

最新推荐文章于 2023-12-01 16:34:56 发布

阅读量3.5k

点赞数 5

分类专栏： R 文章标签：机器学习

本文链接：https://blog.csdn.net/Cocaine_bai/article/details/80758636

版权

数据分析–用R语言预测离职（下）

接上一篇~

接下来我们探索离职和其他分类变量的关系~

> library(scales)
> k1 <- ggplot(attr.df, aes(x=Gender,fill=Attrition))+
+   geom_bar(position = "fill")+
+   labs(y="Percentage")+scale_y_continuous(labels = percent)
> k2 <- ggplot(attr.df, aes(x=BusinessTravel,fill=Attrition))+
+   geom_bar(position = "fill")+
+   labs(y="Percentage")+scale_y_continuous(labels = percent)
> k3 <- ggplot(attr.df, aes(x=Department,fill=Attrition))+
+   geom_bar(position = "fill")+
+   labs(y="Percentage")+scale_y_continuous(labels = percent)
> k4 <- ggplot(attr.df, aes(x=EducationField,fill=Attrition))+
+   geom_bar(position = "fill")+
+   labs(y="Percentage")+scale_y_continuous(labels = percent)
> k5 <- ggplot(attr.df, aes(x=MaritalStatus,fill=Attrition))+
+   geom_bar(position = "fill")+
+   labs(y="Percentage")+scale_y_continuous(labels = percent)
> k6 <- ggplot(attr.df, aes(x=OverTime,fill=Attrition))+
+   geom_bar(position = "fill")+
+   labs(y="Percentage")+scale_y_continuous(labels = percent)
> k7 <- ggplot(attr.df, aes(