semPaths()でダイアグラムを作成する

Rで学ぶlavaanによる構造方程式モデリング

Erin Buchanan

Professor

semPlotとsemPaths()

library(lavaan)
library(semPlot)

twofactor.model <- 'text =~ x4 + x5 + x6
    speed =~ x7 + x8 + x9'
twofactor.fit <- cfa(model = twofactor.model, 
                     data = HolzingerSwineford1939)

semPaths(object = twofactor.fit)

semPaths()のデフォルト出力

semPathsのデフォルト出力

図の編集

semPaths(object = twofactor.fit,
         whatLabels = "std", 
         edge.label.cex = 1)
#whatLabels can also be "par"

エッジラベル付きの更新された図

図のレイアウト

semPaths(object = twofactor.fit,
          whatLabels = "std", 
          edge.label.cex = 1, 
          layout = "circle")
#layout options are tree, circle, spring, tree2, circle2

円形レイアウトに更新された図

図の回転

semPaths(object = twofactor.fit,
          whatLabels = "std", 
          edge.label.cex = 1, 
          layout = "tree", rotation = 2)
#rotation options are 1, 2, 3, 4 for tree layouts

潜在変数を左に配置したツリー回転の図

色の可視化

semPaths(object = twofactor.fit,
         whatLabels = "std", 
         edge.label.cex = 1, 
         layout = "tree", rotation = 2,
         what = "std", edge.color = "purple")
#what options include par and std

紫色に更新された図

さあ、練習しましょう！

Rで学ぶlavaanによる構造方程式モデリング