所以走出象牙塔，去接触社会，来增长社会经验也会成为一个必然趋势。而大学生兼职既可以接触社会锻炼自己，又可以使自己的经济条件得到一定的改善，因而成为很多大学生的不二之选，渐渐形成一种普遍现象。但是在兼职过程中大学生也会碰到各种各样的挫折，甚至很多人逐渐把重心转移到高收益上，远离了锻炼自己的初衷，同时由于法律意识的缺失，大学生在兼职过程中有可能上当受骗，甚至误入歧途，怎样解决这些存在的问题成了兼职现象中不得忽视的一个重要问题。而大学生从兼职中实际的得到了哪些收获，更是最根本的问题。
带着这些问题，我们帮助客户进行了本次调查（查看文末了解数据免费获取方式），以了解大学生兼职的情况，从而为大学生兼职提供一些建议和帮助。
研究的方法：
1.问卷调查法：问卷调查法是指利用印好的问题表或卷子调查所要测定的问题的方法。该方法具有统一、高效、便于操作等特点。为了全面、准确地了解当今大学生兼职的现状、反映大学生兼职这一特殊现象所引起的一系列问题，笔者采用自编问卷的方式对大学生的兼职现状进行调查。
2.文献研究法：许多学者教师和研究人员已从不同的方面对于大学生兼职问题做过大量的研究，通过广泛地查阅、分析、整理相关资料和文献，从中了解到那些问题已经解决，借鉴前人的研究成果，形成自己的独特观点。
对象：采取随机抽取的方法对某大学大学生进行随机调查，调查地点是宿舍及饭堂，共发放问卷450份，有效回收400份。
因子分析和关联度
1. 数据预处理
查看原始数据
data=read.csv("问卷汇总.csv") head(data)
## 序号 X1.您的性别是... X2.您的年级是.. X3.你认为大学生有必要做兼职吗. ## 1 1 2 4 1 ## 2 2 2 4 2 ## 3 3 1 3 1 ## 4 4 2 4 1 ## 5 5 2 4 1 ## 6 6 1 4 1 ## X4.你是否做过兼职. X5.你认为兼职会影响你的学业吗. ## 1 1 2 ## 2 2 2 ## 3 1 4 ## 4 1 2 ## 5 1 2 ## 6 2 2 ## X6.当兼职与上课冲突时.你会怎么做啊. X7.您的家长是否同意您做兼职..
查看数据
str(data)
## 'data.frame': 172 obs. of 33 variables: ## $ 序号 : int 1 2 3 4 5 6 7 8 9 10 ... ## $ X1.您的性别是... : int 2 2 1 2 2 1 2 2 2 2 ... ## $ X2.您的年级是.. : int 4 4 3 4 4 4 4 4 4 3 ... ## $ X3.你认为大学生有必要做兼职吗. : int 1 2 1 1 1 1 1 1 2 1 ... ## $ X4.你是否做过兼职. : int 1 2 1 1 1 2 1 1 2 2 ... ## $ X5.你认为兼职会影响你的学业吗. : int 2 2 4 2 2 2 2 2 2 2 ... ## $ X6.当兼职与上课冲突时.你会怎么做啊. : int 1 2 3 3 3 2 3 3 2 3 ... ## $ X7.您的家长是否同意您做兼职.. : int 1 2 1 2 2 3 1 1 3 2 ... ## $ X8.你会选择做哪类兼职工作. : int 1 1 2 1 1 1 5 1 4 1 ... ## $ X9.你认为兼职过程中.你最大的优势是什么. : int 2 2 1 4 1 3 1 2 2 1 ... ## $ 第10题.A.海报或广告专门的中介机构网站. : int 0 1 1 0 1 0 0 1 0 0 ... ## $ 第10题.B.自己寻找. : int 1 0 1 0 1 0 1 1 1 1 ... ## $ 第10题.C.学校勤工俭学中心.老师等介绍. : int 0 0 0 0 0 1 0 0 0 0 ... ## $ 第10题.D.经熟人介绍或帮忙.包括家人.亲朋.同学.. : int 1 1 1 1 1 1 0 1 0 0 ... ## $ X11.若有兼职工作.您一般会选择什么时间的去做... : int 1 1 1 2 1 2 1 2 2 3 ... ## $ X12.你所做兼职是否与你的专业相关. : int 3 3 1 4 3 3 1 1 3 3 ... ## $ X13.你的月支出大概是多少. : int 5 3 4 1 5 6 6 4 3 5 ... ## $ X14.你实际的兼职日收入是多少. : int 2 1 2 2 3 2 3 2 1 2 ... ## $ X15.您会将您的兼职收入主要用于何处. : int 2 2 3 3 2 2 2 3 2 3 ... ## $ 第16题.A.提高消费水平. : int 1 0 0 0 1 0 1 0 0 1 ... ## $ 第16题.B.经济独立.能够自己支付的部分费用.增加自身成就感. : int 1 1 1 1 1 1 0 1 0 1 ... ## $ 第16题.C.扩大交际圈.接触并认识更多的人.让自己更大胆地与他人交流. : int 1 0 1 1 1 1 0 1 1 0 ... ## $ 第16题.D.增加工作经验和社会阅历.为以后的工作奠定基础. : int 1 1 1 0 1 0 0 1 0 0 ... ## $ X17.参加了兼职你觉得自己的社会能力有提高吗. : int 3 2 1 3 2 3 1 1 2 2 ... ## $ 第18题.A.薪酬较低.或不按时发工资.且工作要求苛刻. : int 0 1 0 0 0 1 1 0 0 0 ... ## $ 第18题.B.未享受到相关社会福利. : int 0 0 1 1 0 0 0 0 0 1 ... ## $ 第18题.C.自己的合法权益得不到保护.没有与雇主签订劳动合同等. : int 0 1 0 1 0 0 0 0 1 0 ... ## $ 第18题.D.技术.技能水平不足. : int 0 0 0 1 1 0 0 1 1 1 ... ## $ 第18题.E.对岗位信息缺乏了解. : int 1 0 0 0 1 1 0 0 0 0 ... ## $ 第18题.F.其他. : int 0 0 0 0 0 0 0 0 0 0 ... ## $ X19.你有过兼职受骗的经历吗. : int 2 2 2 2 2 2 1 2 2 2 ... ## $ X20..假如.被骗后.你会如何处理. : int 1 2 2 1 1 1 3 2 1 3 ... ## $ X21.您认为是否需要成立专门的兼职指导机构.为有意兼职的学生提供帮助和安全保障..: int 1 2 1 1 1 1 1 1 1 1 ...
删除缺失
data=data[complete.cases(data),]
2.绘制不同变量之间的关系
data=data[,c( "X1.您的性别是...", "X2.您的年级是..", "X3.你认为大学生有必要做兼职吗.", "X4.你是否做过兼职.", "X5.你认为兼职会影响你的学业吗.", "X6.当兼职与上课冲突时.你会怎么做啊.", "X7.您的家长是否同意您做兼职..", "X8.你会选择做哪类兼职工作.", "X9.你认为兼职过程中.你最大的优势是什么.", "第10题.A.海报或广告专门的中介机构网站.", "第10题.B.自己寻找.", "第10题.C.学校勤工俭学中心.老师等介绍.", "第10题.D.经熟人介绍或帮忙.包括家人.亲朋.同学..", "X11.若有兼职工作.您一般会选择什么时间的去做..." , "X12.你所做兼职是否与你的专业相关." , "X13.你的月支出大概是多少." , "X14.你实际的兼职日收入是多少." , "X15.您会将您的兼职收入主要用于何处." , "第16题.A.提高消费水平." , "第16题.B.经济独立.能够自己支付的部分费用.增加自身成就感." , "第16题.C.扩大交际圈.接触并认识更多的人.让自己更大胆地与他人交流." , "第16题.D.增加工作经验和社会阅历.为以后的工作奠定基础." , "X17.参加了兼职你觉得自己的社会能力有提高吗." , "第18题.A.薪酬较低.或不按时发工资.且工作要求苛刻." , "第18题.B.未享受到相关社会福利." , "第18题.C.自己的合法权益得不到保护.没有与雇主签订劳动合同等." , "第18题.D.技术.技能水平不足." , "第18题.E.对岗位信息缺乏了解." , "第18题.F.其他." , "X19.你有过兼职受骗的经历吗." , "X20..假如.被骗后.你会如何处理." , "X21.您认为是否需要成立专门的兼职指导机构.为有意兼职的学生提供帮助和安全保障.." )] plot(data[,c(1:8)])
点击标题查阅往期内容
R语言主成分PCA、因子分析、聚类对地区经济研究分析重庆市经济指标
01
02
03
04
3.数据描述性信息,可以查看基本统计量
summary(data)
## X1.您的性别是... X2.您的年级是.. X3.你认为大学生有必要做兼职吗. ## Min. :1.000 Min. :1.00 Min. :1.000 ## 1st Qu.:1.000 1st Qu.:3.00 1st Qu.:1.000 ## Median :2.000 Median :4.00 Median :1.000 ## Mean :1.535 Mean :3.57 Mean :1.163 ## 3rd Qu.:2.000 3rd Qu.:4.00 3rd Qu.:1.000 ## Max. :2.000 Max. :4.00 Max. :2.000 ## X4.你是否做过兼职. X5.你认为兼职会影响你的学业吗. ## Min. :1.000 Min. :1.000 ## 1st Qu.:1.000 1st Qu.:2.000 ## Median :1.000 Median :2.000 ## Mean :1.186 Mean :2.128 ## 3rd Qu.:1.000 3rd Qu.:2.000 ## Max. :2.000 Max. :4.000 ## X6.当兼职与上课冲突时.你会怎么做啊. X7.您的家长是否同意您做兼职.. ## Min. :1.000 Min. :1.000 ## 1st Qu.:2.000 1st Qu.:1.000 ## Median :3.000 Median :2.000 ## Mean :2.634 Mean :2.087 ## 3rd Qu.:3.000 3rd Qu.:3.000 ## Max. :3.000 Max. :4.000 ## X8.你会选择做哪类兼职工作. X9.你认为兼职过程中.你最大的优势是什么. ## Min. :1.000 Min. :1.000 ## 1st Qu.:1.000 1st Qu.:1.000 ## Median :2.000 Median :2.000 ## Mean :2.517 Mean :2.174 ## 3rd Qu.:4.000 3rd Qu.:3.000 ## Max. :5.000 Max. :4.000 ## 第10题.A.海报或广告专门的中介机构网站. 第10题.B.自己寻找. ## Min. :0.0000 Min. :0.0000 ## 1st Qu.:0.0000 1st Qu.:0.0000 ## Median :0.0000 Median :1.0000 ## Mean :0.3779 Mean :0.7384 ## 3rd Qu.:1.0000 3rd Qu.:1.0000 ## Max. :1.0000 Max. :1.0000 ## 第10题.C.学校勤工俭学中心.老师等介绍. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :0.0000 ## Mean :0.2384 ## 3rd Qu.:0.0000 ## Max. :1.0000 ## 第10题.D.经熟人介绍或帮忙.包括家人.亲朋.同学.. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :1.0000 ## Mean :0.7442 ## 3rd Qu.:1.0000 ## Max. :1.0000 ## X11.若有兼职工作.您一般会选择什么时间的去做... ## Min. :1.000 ## 1st Qu.:1.000 ## Median :2.000 ## Mean :2.035 ## 3rd Qu.:3.000 ## Max. :3.000 ## X12.你所做兼职是否与你的专业相关. X13.你的月支出大概是多少. ## Min. :1.00 Min. :1.000 ## 1st Qu.:3.00 1st Qu.:3.000 ## Median :3.00 Median :4.000 ## Mean :3.07 Mean :4.087 ## 3rd Qu.:4.00 3rd Qu.:5.000 ## Max. :4.00 Max. :7.000 ## X14.你实际的兼职日收入是多少. X15.您会将您的兼职收入主要用于何处. ## Min. :1.000 Min. :1.000 ## 1st Qu.:2.000 1st Qu.:2.000 ## Median :2.000 Median :2.000 ## Mean :2.331 Mean :1.994 ## 3rd Qu.:3.000 3rd Qu.:2.000 ## Max. :5.000 Max. :3.000 ## 第16题.A.提高消费水平. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :0.0000 ## Mean :0.3837 ## 3rd Qu.:1.0000 ## Max. :1.0000 ## 第16题.B.经济独立.能够自己支付的部分费用.增加自身成就感. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :1.0000 ## Mean :0.7326 ## 3rd Qu.:1.0000 ## Max. :1.0000 ## 第16题.C.扩大交际圈.接触并认识更多的人.让自己更大胆地与他人交流. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :1.0000 ## Mean :0.6279 ## 3rd Qu.:1.0000 ## Max. :1.0000 ## 第16题.D.增加工作经验和社会阅历.为以后的工作奠定基础. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :1.0000 ## Mean :0.7093 ## 3rd Qu.:1.0000 ## Max. :1.0000 ## X17.参加了兼职你觉得自己的社会能力有提高吗. ## Min. :1.00 ## 1st Qu.:1.00 ## Median :2.00 ## Mean :1.93 ## 3rd Qu.:2.00 ## Max. :4.00 ## 第18题.A.薪酬较低.或不按时发工资.且工作要求苛刻. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :0.0000 ## Mean :0.4767 ## 3rd Qu.:1.0000 ## Max. :1.0000 ## 第18题.B.未享受到相关社会福利. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :0.0000 ## Mean :0.3605 ## 3rd Qu.:1.0000 ## Max. :1.0000 ## 第18题.C.自己的合法权益得不到保护.没有与雇主签订劳动合同等. ## Min. :0.0000 ## 1st Qu.:0.0000 ## Median :0.0000 ## Mean :0.3837 ## 3rd Qu.:1.0000 ## Max. :1.0000 ## 第18题.D.技术.技能水平不足. 第18题.E.对岗位信息缺乏了解. 第18题.F.其他. ## Min. :0.0000 Min. :0.0000 Min. :0.0000 ## 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:0.0000 ## Median :0.0000 Median :0.0000 Median :0.0000 ## Mean :0.4244 Mean :0.3605 Mean :0.1686 ## 3rd Qu.:1.0000 3rd Qu.:1.0000 3rd Qu.:0.0000 ## Max. :1.0000 Max. :1.0000 Max. :1.0000 ## X19.你有过兼职受骗的经历吗. X20..假如.被骗后.你会如何处理. ## Min. :1.000 Min. :1.000 ## 1st Qu.:2.000 1st Qu.:1.000 ## Median :2.000 Median :2.000 ## Mean :1.994 Mean :1.779 ## 3rd Qu.:2.000 3rd Qu.:2.000 ## Max. :3.000 Max. :3.000 ## X21.您认为是否需要成立专门的兼职指导机构.为有意兼职的学生提供帮助和安全保障.. ## Min. :1.000 ## 1st Qu.:1.000 ## Median :1.000 ## Mean :1.076 ## 3rd Qu.:1.000 ## Max. :2.000
从每个变量的直方图可以看到变量的大概分布情况。绘制各个变量的饼图可以看到基本人口信息的各个取值的所占的百分比。
for(i in 2:5)hist( ,col=rainbow(12),main=paste(colnames(data)[i]))
for(i in 6:8)pie(table(data[,i]),col=rain
数据分享|R语言因子分析、相关性分析大学生兼职现状调查问卷数据可视化报告（下）：https://developer.aliyun.com/article/1495637
