Как сделать график для просмотра SEM двух независимых выборок на одном графике в R? - PullRequest
Новая
       37

Как сделать график для просмотра SEM двух независимых выборок на одном графике в R?

1 голос
/ 08 июля 2019

Я работаю с Подтверждающим факториальным анализом в одномерной анкете и хочу создать график SEM. Тем не менее, участники, которые ответили на вопросник, свободно говорят на двух языках, одна группа ответила на вопросник на языке X, а другая ответила на тот же вопросник на языке Y. Я хочу создать один график, который показывает параметры двух групп. Как в этом примере:

one-dimensional model with two intependent groups

Я могу создавать отдельные участки только с помощью R: 

library(lavaan)
library(semPlot)

#data
GrupoX <- data[data$language == 1,25:34]
GrupoY <- data[data$language == 2,25:34]

#fitting
modelX <- " f1  =~ Item1 + Item2 + Item3 + Item4 + Item5 + Item6 + Item7 + Item8 + Item9 + Item10"
fitX <- lavaan(modelX, data = GrupoX, auto.var = TRUE, auto.fix.first=TRUE, auto.cov.lv.x=TRUE, estimator="ML")
modelY <- " f1  =~ Item1 + Item2 + Item3 + Item4 + Item5 + Item6 + Item7 + Item8 + Item9 + Item10"
fitY <- lavaan(modelX, data = GrupoY, auto.var = TRUE, auto.fix.first=TRUE, auto.cov.lv.x=TRUE, estimator="ML")

#plots
semPaths(fitX, what = "std", residuals = FALSE, nCharNodes = 0, edge.label.cex = 1, legend=F, rotation=2)
semPaths(fitY, what = "std", residuals = FALSE, nCharNodes = 0, edge.label.cex = 1, legend=F, rotation=2)

Может ли кто-нибудь помочь мне с тем, как я могу создать отдельный сюжет с информацией из каждой группы? Является ли это возможным?

...