各种市场/地区动态使用因子分析

Question

我需要根据市场运行因子分析，所以我使用split函数创建了一个列表：

    splitx <- split(data,list(data$econ_gas,data$econ_unemp,data$open),data$MKT)

然后我循环通过'splitx'列表来运行因子分析，如下所示：

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

      factanal(~ ., data = splitx, factors = 1) 

     }

我收到以下错误：

事实错误（splitx，factors = 1）：因子分析仅适用于数值变量。

我还提供了我正在处理的数据的快照：

    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

我能否得到一些帮助。