如何从列联表获得对应分析的结果

最新推荐文章于 2024-09-27 14:53:05 发布

羊城迷鹿

最新推荐文章于 2024-09-27 14:53:05 发布

阅读量2.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： R 文章标签： R 对应分析列联表

本文为博主原创文章，未经博主允许不得转载，听见没。

本文链接：https://blog.youkuaiyun.com/jining11/article/details/82353904

R 专栏收录该内容

16 篇文章

订阅专栏

本文通过一个具体的案例展示了如何使用R语言进行对应分析。首先构造了关于自评成绩与可能性之间的列联表，然后通过一系列的数据转换操作，最终绘制出了双标图。此过程详细介绍了从数据准备到可视化的完整步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

对应分析所针对的原始数据必须有行向量和列向量, 在轻松获得所感兴趣的两个变量组成的列联表之后, 要进行多步转换,才能获取结果.

获取列联表

 Sub1 <- data.frame(F$自评成绩, F$可能性) %>% table


          F.可能性
F.自评成绩 完全有可能 有可能 不确定 不可能 完全不可能
  90~100分         13      7      3      1          0
  80~89分           9     22     12      2          0
  70~79分           2      6      3      0          0
  60~69分           2      0      1      2          1
  60分以下          0      0      2      1          0

现将其转换为矩阵,注意到列联表有五行,要保留这种格式.

Sub2 <- matrix(unlist(Sub1), nrow = 5)

[,1] [,2] [,3] [,4] [,5]
[1,]   13    7    3    1    0
[2,]    9   22   12    2    0
[3,]    2    6    3    0    0
[4,]    2    0    1    2    1
[5,]    0    0    2    1    0

接下来将格式转换为数据框并增添行变量和列变量

Sub2 <- as.data.frame(Sub2, row.name = c('90~100分', '80~89分', '70~79分', '60~69分', '60分以下'))
names(Sub2) <- c('完全有可能', '有可能', '不确定', '不可能', '完全不可能')

         完全有可能 有可能 不确定 不可能 完全不可能
90~100分         13      7      3      1          0
80~89分           9     22     12      2          0
70~79分           2      6      3      0          0
60~69分           2      0      1      2          1
60分以下          0      0      2      1          0

得到双标图

Sub2 %>% MASS::corresp(nf = 2) %>% biplot(cex = 1)