使用R中的分裂函数进行运行因子分析

Question

我有以下数据集：

MKT econ_unemp  econ_gas open
504 0.0743088   3.461    38
504 0.0740673   3.448    38
504 0.0740673   3.455    38
504 0.0740673   3.42     38
504 0.072682    3.391    38
505 0.0692244   3.345    38
505 0.0692244   3.381    38
505 0.0692244   3.484    38
505 0.0692244   3.488    38

我需要按市场对3个变量进行因子分析，所以我使用R中的split函数来分割数据：

  splitx<-split(data,data$DMA)

然后尝试运行因子分析如下：

for (i in 1:length(splitx)) {

 fa <- factanal(splitx[[i]],factors =1)
  }

但是我收到以下错误：

Error in optim(start, FAfn, FAgr, method = "L-BFGS-B", lower = lower,:non-finite value supplied by optim

我希望所提供的信息足够。有人可以帮我解决这个问题。

此致

Answer 1

by(data[, -1], data[, 1], factanal, factors = 1)

假设MKT是拆分变量，那应该可以解决这个问题。