Question

我的问题摘要：我目前正在对23个项目进行因子分析。安迪·菲尔德（Andy Field）在使用R发现统计信息中提出了该过程。但是，在计算因子分析的可靠性时，我遇到了一个问题。

更详细：

performance_problem <- .dataset2[, c(17,7,2,11,21)]
A <- dataset2 [, c(8,15,13,21)]
B <- dataset2 [, c(12,6,9,1)]
C <- dataset2[,c(20,14,4)]
D <- dataset2[,c(10,16,3)]
E <- dataset2 [,c(23,19,5)]

我根据不同的因素定义了不同的项目。例如，第一个因素称为性能问题，包括数据集2中的第17、7、2、11、21项。而且我没有收到运行R代码的错误。

我的因素分析中没有负因素负荷。因此，我直接使用以下R代码计算了我的可靠性：

alpha(performance_problem)

我也尝试过这个：

psych:alpha(performance_problem)

但是它们都不起作用。我从R收到的错误消息是：

Error in grDevices::col2rgb(colour, TRUE) : 
  invalid color name 'c(2, 1, 3, 3, 1, 4, 4, 1, 4, 1, 1, 1, 5, 5, 5, 6, 3, 4, 2, 3, 1, 2, 4, 5, 4, 2, 4, 1, 5, 4, 1, 6, 3, 6, 5, 1, 2, 1, 1, 5, 6, 2, 2, 6, 3, 5, 4, 5, 4, 6, 1, 6, 1, 5, 6, 6, 1, 4, 1, 6, 1, 5, 2, 1, 2, 3, 4, 5, 1, 1, 5, 4, 1, 1, 5, 5, 2, 1, 3, 1, 1, 5, 6, 6, 3, 1, 6, 1, 3, 1, 6, 4, 3, 3, 1, 1, 5, 3, 5, 4, 1, 1, 2, 1, 5, 1, 3, 2, 3, 1, 2, 1, 3, 3, 6, 2, 6, 1, 6, 2, 2, 6, 1, 3, 6, 5, 1, 1, 6, 6, 3, 5, 4, 1, 4, 5, 4, 5, 1, 5, 2, 3, 2, 5, 2, 1, 5, 6, 1, 6, 2, 5, 2, 1, 1, 3, 6, 1, 4, 4, 1, 2, 4, 6, 1, 1, 1, 
6, 1, 5, 6, 1, 5, 3, 1, 3, 1, 4, 3, 5, 1, 1, 2, 2, 2, 1, 5, 5, 5, 6, 2, 3, 4, 6, 1, 1, 1, 5, 4, 2, 5, 6, 1, 1, 5, 5, 5, 1, 5, 4, 4, 1, 3, 2, 2, 6, 1, 6, 1, 4, 5, 5, 1, 1, 5, 4, 1, 1, 5, 1, 5, 1, 2, 5, 2, 1, 1, 1, 6, 2, 4, 5, 6, 6, 1, 1, 4, 4, 5, 6, 1, 4, 6, 3, 6, 2, 2, 1, 2, 1, 2, 3, 6, 1, 4, 6, 5, 1, 2, 6, 2, 5, 1, 5, 4, 5, 1, 3, 1, 4, 3, 3, 1, 5, 2, 4, 1, 2, 2, 4, 2, 5, 6, 6, 6, 5, 1, 2, 4, 1, 5, 3, 1, 3, 1, 2, 6, 4, 4, 1, 1, 4, 1, 2, 1, 3, 1, 2, 5, 1, 5, 1, 1

但是我真的不明白为什么我在R中有这个问题？任何帮助将不胜感激！

Answer 1

尝试其他方法：

library(dplyr)
library(psych)

仅使用可靠性分析所需的变量创建df（称为df1）； df2是具有所有初始变量的df；和您要选择的变量，例如V1：V10

df1 <- dplyr::select(df2, V1:V10) 

psych::omega(df1, nfactors = 1) # you get both alpha and omega

计算因子分析的可靠性

1 个答案: