lavaan mediator模型

时间:2016-04-26 09:51:24

标签: r plot r-lavaan semplot

以下中介模型来自lavaan tutorial。 下面我使用semPaths包中的semPlot打印了模型结构。但似乎缺少一条路径。

set.seed(1234)
X <- rnorm(100)
M <- 0.5*X + rnorm(100)
Y <- 0.7*M + rnorm(100)
Data <- data.frame(X = X, Y = Y, M = M)
model <- ' # direct effect
             Y ~ c*X
           # mediator
             M ~ a*X
             Y ~ b*M
           # indirect effect (a*b)
             ab := a*b
           # total effect
             total := c + (a*b)
         '
fit <- sem(model, data = Data)
summary(fit, standardized=TRUE)

结果的回归部分是:

Regressions:
                   Estimate  Std.Err  Z-value  P(>|z|)   Std.lv  Std.all
  Y ~                                                                   
    X          (c)    0.036    0.104    0.348    0.728    0.036    0.028
  M ~                                                                   
    X          (a)    0.474    0.103    4.613    0.000    0.474    0.419
  Y ~                                                                   
    M          (b)    0.788    0.092    8.539    0.000    0.788    0.679

使用semPaths绘制模型仅显示三个回归路径中的两个。 X - &gt;不显示Y路径。

semPaths(fit, "std", edge.label.cex = 0.71)

enter image description here

有人可以解释为什么会这样或我如何添加丢失的路径?

1 个答案:

答案 0 :(得分:0)

试试这个并告诉我它是否有帮助

semPaths(fit,title = FALSE,layout =&#34; spring&#34;,whatLabels =&#34; std&#34 ;, intercepts = FALSE,style =&#34; ram&#34;)