8

如何获得包含所有潜在因素的表格以及每个测量项目对所有因素的加载？我似乎无法找到一种方法将其从适合的熔岩模型中拉出来。这是我用来生成模型拟合的通用代码。

library(lavaan)
fit <- sem(mySemModel, data=df, std.ov=TRUE, std.lv=TRUE)
summary(fit, fit.measures=TRUE, rsq=TRUE, standardized=TRUE)

我正在寻找与 EFA 相同的输出。例如，如果我运行代码：

library(psych)
myFA <- fa(tpblatentData, 2)
print(myFA)

我会得到这样的东西：

               PA1   PA2
Qitem1              0.74
Qitem2              0.82
Qitem3              0.87
Qitem4        0.98      
Qitem5        0.94      
Qitem6        0.89
4

2 回答 2

19

inspect您可以使用包中的函数以矩阵形式获取模型的标准化载荷lavaan。以下代码将返回 lambda（因子载荷）、theta（观察到的误差协方差矩阵）、psi（潜在协方差矩阵）和 beta（潜在路径）矩阵。

inspect(fit,what="std")

从您的示例中可以看出，您正在寻找 lambda 矩阵中的因子载荷：

inspect(fit,what="std")$lambda

同样，您可以通过指定“est”而不是“std”来提取非标准化参数。

于 2015-06-20T21:27:48.747 回答
2

我发现乔尔的回答很有帮助。另一件可能有帮助的事情是将加载结果归因于变量。

由于 inspect() 函数返回一个列表，这对我来说很有用：

model_loadings <- inspect(model_fit, what = "std")[["lambda"]]

现在我可以使用这些值来计算其他有趣的东西。

于 2020-05-26T14:30:18.643 回答