r - 在 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 是拆分变量。