Tworzenie diagramów za pomocą semPaths()

Strukturalne modelowanie równań z lavaan w R

Erin Buchanan

Professor

semPlot i 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)

Domyślny wynik semPaths()

Domyślny wykres z semPaths

Edytowanie wykresu

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

Zaktualizowany diagram z etykietami krawędzi

Układ wykresu

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

Zaktualizowany układ do opcji kołowej

Rotacja wykresu

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

Zaktualizowana rotacja drzewa z ukrytymi po lewej

Wizualizacja kolorów

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

Zaktualizowany kolor na ciemny fiolet

Czas na ćwiczenia!

Strukturalne modelowanie równań z lavaan w R