r - Lavaan 模型：如何让 semPaths 使用 Std.lv 而不是 Std.all

Question

我正在编辑我的问题，试图更清楚地说明我的 R 问题。我的问题是 semPaths() 没有打印 Std.lv 估计值。我的代码以 lavaan 代码开头，然后出现 semPaths 语句。

我提供 R 代码：

library(lavaan)

lower <- '
  .32
  .42   1.35
  .42    .86   1.35
 1.11   2.46   2.02  17.98
 1.55   3.21   3.01  11.75  19.98
  .85   2.00    1.7   7.85   8.28  10.56'

jsac.cov <- 
  getCov(lower, names = c("js1", "js2", "js3", "ac1", "ac2", "ac3"))

jsac <- '
  # latent variables
    js =~ js1 + js2 + js3
    ac =~ ac1 + ac2 + ac3
 '
fit <- cfa(jsac, 
       sample.cov = jsac.cov, 
       sample.nobs = 200)
summary(fit, fit.measures = TRUE, standardize = TRUE)

library(semPlot)

#print the paths with the path coefficients
semPaths(fit, "model", "est", intercepts = FALSE)

semPaths 语句绘制的路径系数在 lavaan 输出中标记为“估计值”。我试图绘制的是在 lavaan 输出中标记为“Std.lv”的估计值

谢谢。

“迈克”回答：在 sem 模型中将潜在因子方差设置为 1.0 (std.lv=TRUE)。我试过了

summary(fit, fit.measures = TRUE, std.lv = TRUE)

并获得此语法错误

Error in .local(object, ...) : unused argument (std.lv = TRUE)

Answer 1

“迈克”这个家伙是对的。我误解了。请注意包含 std.lv = TRUE 的 cfa 命令的第三行。这有效：

# run CFA
jsac <- '
  # latent variables
js =~ js1 + js2 + js3
ac =~ ac1 + ac2 + ac3
                      '

fit <- cfa(jsac, 
       sample.cov = jsac.cov, 
       sample.nobs = 200,std.lv = TRUE)    
summary(fit, fit.measures = TRUE)

#print the paths with the path coefficients
semPaths(fit, "model", "est", intercepts = FALSE)

谢谢“迈克”家伙。

Answer 2

在 sem 模型中将潜在因子方差设置为 1.0 (std.lv=TRUE)。