R语言因子分析、相关性分析大学生兼职现状调查问卷数据可视化报告

随着大学的普及教育,大学生就业形势变得更加困难,很多学生都意识到这个问题。

 

由Kaizong Ye,Weilong Zhang撰写

所以走出象牙塔,去接触社会,来增长社会经验也会成为一个必然趋势。

而大学生兼职既可以接触社会锻炼自己,又可以使自己的经济条件得到一定的改善,因而成为很多大学生的不二之选,渐渐形成一种普遍现象。

但是在兼职过程中大学生也会碰到各种各样的挫折,甚至很多人逐渐把重心转移到高收益上,远离了锻炼自己的初衷,同时由于法律意识的缺失,大学生在兼职过程中有可能上当受骗,甚至误入歧途,怎样解决这些存在的问题成了兼职现象中不得忽视的一个重要问题。

而大学生从兼职中实际的得到了哪些收获,更是最根本的问题。

带着这些问题,我们帮助客户进行了本次调查,以了解大学生兼职的情况,从而为大学生兼职提供一些建议和帮助。

研究的方法:

  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.您的家长是否同意您做兼职..

视频

主成分分析PCA降维方法和R语言分析葡萄酒可视化实例

探索见解

去bilibili观看

探索更多视频

查看数据

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),]

图片

R语言主成分PCA、因子分析、聚类对地区经济研究分析重庆市经济指标

阅读文章


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

随时关注您喜欢的主题


image.png

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]))
image.png
image.png
 for(i in 6:8)pie(table(data[,i]),col=rain
image.png
image.png

1.相关性分析

datacor=data
#数据转换格式
for(i in 1:ncol(data))data
cor(datacor[,c(  
              "X1.您的性别是...",
              "X2.您的年级是..",
              "X3.你认为大学生有必要做兼职吗.",
              "X4.你是否做过兼职.",
              "X5.你认为兼职会影响你的学业吗.",
              "X6.当兼职与上课冲突时.你会怎么做啊.",
              "X7.您的家长是否同意您做兼职..",
##                                                                               X1.您的性别是...
## X1.您的性别是...                                                                   1.000000000
## X2.您的年级是..                                                                    0.042512825
## X3.你认为大学生有必要做兼职吗.                                                    -0.030839698
## X4.你是否做过兼职.                                                                -0.123297805
## X5.你认为兼职会影响你的学业吗.                                                     0.005539643
## X6.当兼职与上课冲突时.你会怎么做啊.                                               -0.029378056
## X7.您的家长是否同意您做兼职..                                                      0.066805816
## X8.你会选择做哪类兼职工作.                                                        -0.137004420
## X9.你认为兼职过程中.你最大的优势是什么.                                           -0.022770679
## 第10题.A.海报或广告专门的中介机构网站.                                            -0.042489939
## 第10题.B.自己寻找.                                                                 0.081411714
## 第10题.C.学校勤工俭学中心.老师等介绍.                                             -0.080161171
## 第10题.D.经熟人介绍或帮忙.包括家人.亲朋.同学..                                     0.147865453
## X11.若有兼职工作.您一般会选择什么时间的去做...                                    -0.017180008
## X12.你所做兼职是否与你的专业相关.                                                 -0.005813594
## X13.你的月支出大概是多少.                                                         -0.122891632
## X14.你实际的兼职日收入是多少.                                                      0.031984006
## X15.您会将您的兼职收入主要用于何处.                                                0.068084808
## 第16题.A.提高消费水平.                                                            -0.031216500
## 第16题.B.经济独立.能够自己支付的部分费用.增加自身成就感.                           0.015923196
## 第16题.C.扩大交际圈.接触并认识更多的人.让自己更大胆地与他人交流.                  -0.090851946
## 第16题.D.增加工作经验和社会阅历.为以后的工作奠定基础.                             -0.006566725
## X17.参加了兼职你觉得自己的社会能力有提高吗.                                        0.039602685
## 第18题.A.薪酬较低.或不按时发工资.且工作要求苛刻.                                  -0.066757185
## 第18题.B.未享受到相关社会福利.                                                    -0.028229221
## 第18题.C.自己的合法权益得不到保护.没有与雇主签订劳动合同等.                       -0.055186313
## 第18题.D.技术.技能水平不足.                                                       -0.024680535
## 第18题.E.对岗位信息缺乏了解.                                                      -0.052506352
## 第18题.F.其他.                                                                    -0.015928568
## X19.你有过兼职受骗的经历吗.                                                        0.013443674
## X20..假如.被骗后.你会如何处理.                                                     0.005144417
## X21.您认为是否需要成立专门的兼职指导机构.为有意兼职的学生提供帮助和安全保障..      0.090247155
##                                                                               X2.您的年级是..
## X1.您的性别是...                                                                   0.04251282
## X2.您的年级是..                                                                    1.00000000
## X3.你认为大学生有必要做兼职吗.                                                     0.02328564
## X4.你是否做过兼职.                                                                 0.05841762
## X5.你认为兼职会影响你的学业吗.                                                    -0.05933900
## X6.当兼职与上课冲突时.你会怎么做啊.                                               -0.01756077
## X7.您的家长是否同意您做兼职..                                                      0.04212928
## X8.你会选择做哪类兼职工作.                                                        -0.14379820
## X9.你认为兼职过程中.你最大的优势是什么.                                           -0.03209377
## 第10题.A.海报或广告专门的中介机构网站.                                             0.11800058
## 第10题.B.自己寻找.                                                                 0.01195255
## 第10题.C.学校勤工俭学中心.老师等介绍.                                              0.03160803
## 第10题.D.经熟人介绍或帮忙.包括家人.亲朋.同学..                                     0.02014014
## X11.若有兼职工作.您一般会选择什么时间的去做...                                    -0.07427207
## X12.你所做兼职是否与你的专业相关.                                                  0.01138039
## X13.你的月支出大概是多少.                                                         -0.09757589
## X14.你实际的兼职日收入是多少.                                                      0.09443707
## X15.您会将您的兼职收入主要用于何处.                                                0.06202746
## 第16题.A.提高消费水平.                                                            -0.12845729
## 第16题.B.经济独立.能够自己支付的部分费用.增加自身成就感.                          -0.16314114
## 第16题.C.扩大交际圈.接触并认识更多的人.让自己更大胆地与他人交流.                  -0.04307850
## 第16题.D.增加工作经验和社会阅历.为以后的工作奠定基础.                              0.11737488
## X17.参加了兼职你觉得自己的社会能力有提高吗.                                        0.03273904
## 第18题.A.薪酬较低.或不按时发工资.且工作要求苛刻.                                  -0.09408986
## 第18题.B.未享受到相关社会福利.                                                     0.13129786
## 第18题.C.自己的合法权益得不到保护.没有与雇主签订劳动合同等.                        0.07424595
## 第18题.D.技术.技能水平不足.                                                        0.07324299
## 第18题.E.对岗位信息缺乏了解.                                                       0.06286382
## 第18题.F.其他.                                                                    -0.05536032
## X19.你有过兼职受骗的经历吗.                                                       -0.06075709
## X20..假如.被骗后.你会如何处理.                                                     0.05179084
## X21.您认为是否需要成立专门的兼职指导机构.为有意兼职的学生提供帮助和安全保障..      0.04950582

数据归一化

data=scale(datacor)

变量间的相关分析

查看性别和大学生有必要做兼职之间是否有相关关系

cor.test您的性别是...,
         你认为大学生有必要做兼职吗.)
## 
##  Pearson's product-moment correlation
## 
## data:  datacor$X1.您的性别是... and datacor$X3.你认为大学生有必要做兼职吗.
## t = -0.40229, df = 170, p-value = 0.688
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  -0.1796451  0.1193455
## sample estimates:
##        cor 
## -0.0308397

检验的结果是,由于P =0.688> =0.05,因此在0.05的显署性水平下,接受原假设,认为两者之间具有相关关系。

查看性别和大学生有必要做兼职之间是否有相关关系

cor.test(X14.你实际的兼职日收入是多少.,
       2.您的年级是..)
## 
##  Pearson's product-moment correlation
## 
## data:  datacor$X14.你实际的兼职日收入是多少. and datacor$X2.您的年级是..
## t = 1.2368, df = 170, p-value = 0.2179
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  -0.05598853  0.24067056
## sample estimates:
##        cor 
## 0.09443707

检验的结果是,由于P =0.2179> =0.05,因此在0.05的显署性水平下,接受原假设,认为两者之间具有相关关系。

查看年级和大学生有必要做兼职之间是否有相关关系

## 
##  Pearson's product-moment correlation
## 
## data:  datacor$X2.您的年级是.. and datacor$X3.你认为大学生有必要做兼职吗.
## t = 0.30369, df = 170, p-value = 0.7617
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  -0.1267906  0.1723196
## sample estimates:
##        cor 
## 0.02328564

检验的结果是,由于P =0.7617> =0.05,因此在0.05的显署性水平下,接受原假设,认为两者之间具有相关关系。

2.因子分析

因子分析模型

旋转前因子分析

5个因子

## Loading required package: rJava
## Loading required package: xlsxjars
famod1=facal(data, factors =5,na.a
image.png
## Uniquenesses:
##                        X1.您的性别是... 
##                                   0.900 
##                         X2.您的年级是.. 
##                                   0.932 
##          X3.你认为大学生有必要做兼职吗. 
##                                   0.868 
##                      X4.你是否做过兼职. 
##                                   0.469 
##          X5.你认为兼职会影响你的学业吗. 
##                                   0.919 
##     X6.当兼职与上课冲突时.你会怎么做啊. 
##                                   0.005 
##           X7.您的家长是否同意您做兼职.. 
##                                   0.005 
##              X8.你会选择做哪类兼职工作. 
##                                   0.627 
## X9.你认为兼职过程中.你最大的优势是什么. 
##                                   0.903 
## 
## Loadings:
##                                         Factor1 Factor2 Factor3 Factor4
## X1.您的性别是...                                        -0.202  -0.199 
## X2.您的年级是..                                                 -0.245 
## X3.你认为大学生有必要做兼职吗.                   0.130   0.305         
## X4.你是否做过兼职.                                       0.721         
## X5.你认为兼职会影响你的学业吗.           0.192          -0.160         
## X6.当兼职与上课冲突时.你会怎么做啊.      0.993                         
## X7.您的家长是否同意您做兼职..                    0.942   0.186  -0.163 
## X8.你会选择做哪类兼职工作.                                       0.599 
## X9.你认为兼职过程中.你最大的优势是什么.                                
##                                         Factor5
## X1.您的性别是...                               
## X2.您的年级是..                                
## X3.你认为大学生有必要做兼职吗.          -0.112 
## X4.你是否做过兼职.                             
## X5.你认为兼职会影响你的学业吗.                 
## X6.当兼职与上课冲突时.你会怎么做啊.            
## X7.您的家长是否同意您做兼职..            0.213 
## X8.你会选择做哪类兼职工作.                     
## X9.你认为兼职过程中.你最大的优势是什么.  0.291 
## 
##                Factor1 Factor2 Factor3 Factor4 Factor5
## SS loadings      1.040   0.938   0.722   0.500   0.171
## Proportion Var   0.116   0.104   0.080   0.056   0.019
## Cumulative Var   0.116   0.220   0.300   0.356   0.375
## 
## Test of the hypothesis that 5 factors are sufficient.
## The chi square statistic is 0.16 on 1 degree of freedom.
## The p-value is 0.686

从 结果 来看,5个主因子所解释的方差基本反映了10个指标的信息,第一个因子在 当兼职与上课冲突时.你会怎么做啊.的变量的载荷值较大,因子该因子反映的是兼职方面的能力,第二个因子在 .您的家长是否同意您做兼职变量的载荷较大。第三个因子在每个变量的载荷相似是一个综合因素,第四个因子在你会选择做哪类兼职工作问题上的载荷较大,而第5个因子在兼职过程中.你最大的优势是什么.上的载荷较大,因此,各个因子分分别可以代表这些的值的含义,从因子分析的结果来看,每个因子的意义比较明显。

plot(famod11)#绘制正交或斜交结果的图形,查看每个样本点再不同因子上的得分情况
image.png
fagram(famod11,simple=TRUE)  #5个因子与变量之间的关系
image.png
$scores  #因子得分
##            ML2          ML1         ML3          ML4           ML5
## 1   -3.0490655 -1.262501540 -0.58417383 -0.638971487 -0.1470792180
## 2   -1.1945134 -0.407219501  1.53050633 -0.775454239 -0.5478973054
## 3    0.7752151 -1.174287246 -0.56515289  0.194757467 -0.0233325030
## 4    0.7696996 -0.175321580 -0.53169295 -0.649030083  0.2651034446
## 5    0.7358433 -0.049096318 -0.47453116 -0.769184711 -0.4437886710
## 6   -1.2114897  0.596534006  1.45720731 -0.624448954  0.5418134207
## 7    0.6984950 -0.957581437 -0.42629731  0.678833324 -0.7255935212
## 8    0.7996831 -1.215915018 -0.56416408 -0.667881871 -0.4843577109
## 9   -1.3144948  0.879717981  1.69019496  0.203369517 -0.2747347224
## 10   0.7329114 -0.335048160  1.17288720 -0.677389500 -0.5378620998
## 11   0.6683811  0.038555664 -0.31728584  1.201085623  0.5316001573
## 12  -3.1913211  0.018441194 -0.16244176  0.921761649  0.3640902428
## 13   0.6574275  0.065027716 -0.14243201  0.892851266  0.0268117499
## 14   0.5969834  2.214819639 -0.01412711 -0.186295749  0.3216652007
## 15  -1.2562897  0.667520342  1.95971185 -0.654086524 -0.2226140727
## 16  -1.1982862 -0.046730940 -0.51404964 -0.539145389 -0.1974830556
## 17   0.7469984 -0.135627742 -0.41704475 -0.225732657  0.3002412238
## 18   0.6797017  0.071022464 -0.40447546  0.310941885 -0.2111951279
## 19   0.7212673 -1.101790984 -0.23206494  0.994154106 -0.0137572900
## 20   0.6324663  2.123915086 -0.14960047 -0.400833936  0.6631493809
## 21  -1.1150663 -1.309323254 -0.46811501 -0.365610298  0.1143476895
## 22  -1.1772456 -0.114464666 -0.50358996 -0.714677976 -0.0388520527
## 23  -1.1469654 -1.245203028 -0.31212551 -0.071517298 -0.0777115866
## 24   0.7135691 -0.055091067 -0.21248771 -0.187275330 -0.2057817932
## 25   0.7322209 -1.128263036 -0.40691877  1.302388464  0.4910311174
## 26  -1.2219955 -0.066394792 -0.21184330  0.213923089  0.1979202156
## 27   0.6498245  1.081642082 -0.13125944  0.138216600  0.3061473809
## 28   0.6400693  1.107300720 -0.16077305  0.353800730  0.3838137499
## 29   0.6699465  0.096681103 -0.43398907  0.526526015 -0.1335287589
## 30  -1.1997212 -0.060400043 -0.47388675 -0.367986292 -0.0400866623
## 31   0.7361399 -0.139241242 -0.25059557 -0.107172244  0.2668129506
=famod11$scores %*%)#每个样本的每个因子得分乘以因子方差权重
cbind(s,decre
##        [,1]                    [,2] 
##   [1,] "0.684292148532709"     "49" 
##   [2,] "0.682922604084486"     "145"
##   [3,] "0.637282813915165"     "83" 
##   [4,] "0.63264266719218"      "169"
##   [5,] "0.52614929396462"      "107"
##   [6,] "0.47469132249647"      "14" 
##   [7,] "0.44897869276371"      "20" 

绘制正交或斜交结果的图形,查看每个变量在不同因子上的载荷情况 图 中 不同点代表不同的变量,横轴和纵轴代表不同的主因子,如果变量在纵轴对应的因子上具有较高的载荷,则分布在散点图的左上角,若变量在横轴因子上有较大的载荷,则分布在右下角。 从 上 图,可以看到5个因子在9个变量上载荷比重的关系,因子和变量之间有联系说明因子在这些变量上有较大的载荷,连线的数字表示该因子在该变量上的载荷值。 从因子得分上,我们可以看到每个接受调查的用户在5个因子上的得分情况,从而判断每个接受调查用户在不同的兼职指标上的能力强弱。同时我们可以通过每个因子的方差解释程度作为权重来计算每个用户的综合因子得分。

4个因子分析

## Standardized loadings (pattern matrix) based upon correlation matrix
##                                           ML2   ML1   ML3   ML4    h2
## X1.您的性别是...                         0.07  0.03 -0.20 -0.23 0.098
## X2.您的年级是..                          0.04  0.02  0.07 -0.28 0.087
## X3.你认为大学生有必要做兼职吗.           0.17  0.05  0.31  0.00 0.128
## X4.你是否做过兼职.                       0.11  0.14  0.67 -0.03 0.481
## X5.你认为兼职会影响你的学业吗.          -0.20  0.06 -0.17  0.07 0.079
## X6.当兼职与上课冲突时.你会怎么做啊.     -0.69  0.72  0.00  0.00 0.995
## X7.您的家长是否同意您做兼职..            0.69  0.72  0.00  0.00 0.995
## X8.你会选择做哪类兼职工作.              -0.20 -0.05  0.07  0.47 0.269
## X9.你认为兼职过程中.你最大的优势是什么.  0.08  0.07 -0.12  0.13 0.043
##                                            u2 com
## X1.您的性别是...                        0.902 2.2
## X2.您的年级是..                         0.913 1.2
## X3.你认为大学生有必要做兼职吗.          0.872 1.6
## X4.你是否做过兼职.                      0.519 1.1
## X5.你认为兼职会影响你的学业吗.          0.921 2.4
## X6.当兼职与上课冲突时.你会怎么做啊.     0.005 2.0
## X7.您的家长是否同意您做兼职..           0.005 2.0
## X8.你会选择做哪类兼职工作.              0.731 1.4
## X9.你认为兼职过程中.你最大的优势是什么. 0.957 3.2
## 
##                        ML2  ML1  ML3  ML4
## SS loadings           1.09 1.07 0.64 0.38
## Proportion Var        0.12 0.12 0.07 0.04
## Cumulative Var        0.12 0.24 0.31 0.35
## Proportion Explained  0.34 0.34 0.20 0.12
## Cumulative Proportion 0.34 0.68 0.88 1.00
## 
## Mean item complexity =  1.9
## Test of the hypothesis that 4 factors are sufficient.
## 
## The degrees of freedom for the null model are  36  and the objective function was  0.31 with Chi Square of  51.93
## The degrees of freedom for the model are 6  and the objective function was  0 
## 
## The root mean square of the residuals (RMSR) is  0.01 
## The df corrected root mean square of the residuals is  0.02 
## 
## The harmonic number of observations is  172 with the empirical chi square  0.98  with prob <  0.99 
## The total number of observations was  172  with MLE Chi Square =  0.58  with prob <  1 
## 
## Tucker Lewis Index of factoring reliability =  3.152
## RMSEA index =  0  and the 90 % confidence intervals are  NA NA
## BIC =  -30.3
## Fit based upon off diagonal values = 0.99
## Measures of factor score adequacy             
##                                                 ML2  ML1  ML3   ML4
## Correlation of scores with factors             1.00 1.00 0.72  0.57
## Multiple R square of scores with factors       0.99 1.00 0.52  0.32
## Minimum correlation of possible factor scores  0.99 0.99 0.04 -0.35
图片1.png
image.png
image.png

从结果来看,3个主因子所解释的方差占整个方差的80%左右,基本反映了11个指标的信息,第一个因子.当兼职与上课冲突时.你会怎么做啊和您的家长是否同意您做兼职.的变量的载荷值较大,因此该因子反映的是兼职和个人家庭学业方面关系的能力,第5个因子在性别和年级两个变量的载荷较大,反应的是调查者的节本情况。第3个因子在是否做过兼职的载荷较大,所以可以代表兼职经验的能力。因此,各个因子分分别可以代表这些的值的含义,从因子分析的结果来看,每个因子的经济意义比较明显。 图中 不同点代表不同的变量,横轴和纵轴代表不同的主因子,如果变量在纵轴对应的因子上具有较高的载荷,则分布在散点图的左上角,若变量在横轴因子上有较大的载荷,则分布在右下角。 从上图,可以看到4个因子在11个变量上载荷比重的关系,因子和变量之间有联系说明因子在这些变量上有较大的载荷,连线的数字表示该因子在该变量上的载荷值。


可下载资源

关于作者

Kaizong Ye拓端研究室(TRL)的研究员。

本文借鉴了作者最近为《R语言数据分析挖掘必知必会 》课堂做的准备。

​非常感谢您阅读本文,如需帮助请联系我们!

 
QQ在线咨询
售前咨询热线
15121130882
售后咨询热线
0571-63341498

关注有关新文章的微信公众号


永远不要错过任何见解。当新文章发表时,我们会通过微信公众号向您推送。

技术干货

最新洞察

This will close in 0 seconds