我非常希望得到以下帮助 - 我有这个SPSS数据集(.sav),我已经测试了22个项目的比例(Likert,来自&#34的5个选项;完全不同意"到&# 34;完全同意")。我有1,500名受访者,我想在该计划中做一个多媒体相关矩阵。
我已经阅读了一些有关此内容的帖子,但似乎没有做到这一点。我已将我的22个项目命名为" item1,item2,item3 ...",并且值为0,1,2,3或4。 我已经安装了" psych"和#34; polycor"封装
请帮忙! 非常感谢提前!
答案 0 :(得分:1)
尝试调整此代码:
您的数据
item<-paste0("item",seq(0,22,1))
df<-data.frame(item=rep(item,1000),
values=round(runif(1000,0,4),0))
head(df)
item values
1 item0 1
2 item1 1
3 item2 3
4 item3 1
5 item4 0
6 item5 4
创建相关矩阵
groups = unique(df$item)
cor_matrix<-sapply(1:length(groups), function(i)
sapply(1:length(groups), function(j)
cor(x = df$values[df$item == groups[i]], y = df$values[df$item == groups[j]])))
绘制相关矩阵
corrplot(cor_matrix, type = "upper", order = "hclust",
tl.col = "black", tl.srt = 45) #Visual approach
corrplot(cor_matrix, method = "number", col = "black", cl.pos = "n") #Numeric approach