cor(x, use = use) 中的错误：同时提供“x”和“y”或类似矩阵的“x”

Question

我正在使用 psych 软件包， 我尝试过以下代码：

library(psych)
str(price_per_d)
Least_appealing <-subset(zdf_base, select=c("price_per_h", 
"price_per_d", "mileage", "one_way_option", "difficulties", 
"vehicle_types", "parking_spot","picking_up","availability", "dirty", 
"returning","refilling", "loalty_programs"))
# code from stackoverflow which I use, to get a numeric x
Least_appealing <- gsub(",", "", Least_appealing)  
Least_appealing <- as.numeric(Least_appealing)

fa.parallel(Least_appealing)

我收到此错误消息：

 > library(psych)
 > str(price_per_d)
 Factor w/ 1 level "Price (daily rate too high)": 1 NA 1 1 1 NA NA 1 1 
 NA ...
 > Least_appealing <-subset(zdf_base, select=c("price_per_h", 
 +                                             "price_per_d", 
 "mileage", "one_way_option", "difficulties", 
 +                                             "vehicle_types", 
 "parking_spot","picking_up","availability", "dirty", 
 +                                             "returning","refilling", 
 "loalty_programs"))
 > 
 > Least_appealing <- gsub(",", "", Least_appealing)  
 > Least_appealing <- as.numeric(Least_appealing)
 **Warnmeldung:
 NAs durch Umwandlung erzeugt** 
> 
> fa.parallel(Least_appealing)
**Fehler in cor(x, use = use) : supply both 'x' and 'y' or a matrix-like 
'x'**
> 

如何成功进行因子分析？

首先我收到错误消息，我的“x”必须是数字，这就是我使用上述代码的原因。

当我使用这段代码时，R 告诉我，我通过转换得到了 NA。 我仍然继续尝试 fa.parallel，这给了我另一个错误消息。

Answer 1

如果您的字符数据与数字数据混合在一起（例如，您的编码是分类的，并且需要将其转换为数字，则可以在执行 fa 之前尝试使用 char2numeric 函数。

例如混合了分类数据和数值数据；

describe(data)  #this will flag those variables that are categorical with an asterix
new.data <- char2numeric(data)  #this makes all numeric
fa(new.data, nfactors=3) #to get three factors

看来您的“最不吸引人”对象中只有一个变量。