使用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是split变量，那应该可以解决问题。