如何在路径图上仅显示重要的路径线？[R: lavaan，semPlot]

Question

我想对我用lavaan和semPlot包所做的路径图进行更改。

require(lavaan); require(semPlot)
head(mtcars)
model <-'
mpg ~ hp + gear + cyl
hp ~ cyl + disp
'
fit <- sem(model, "std", data = mtcars)
semPaths(fit, "std", fade = F, residuals = F)

​

​

因为mpg <- gear和mpg <- cyl并不重要，所以我希望它以透明的方式显示(例如，将*添加到重要的路径线中，或者阻止非重要的路径线在路径图上显示)。有什么办法吗？

谢谢您一直鼓励我!

Answer 1

我最近发现了lavaanPlot包，它允许显示特定意义标准的系数。守则是：

require(lavaan); require(lavaanPlot)
head(mtcars)
model <-'
mpg ~ hp + gear + cyl
hp ~ cyl + disp
'
fit <- sem(model, "std", data = mtcars)
sem.model <- lavaanPlot(model = fit, node_options = list(shape = "box", fontname = "Helvetica"), edge_options = list(color = "grey"), coefs = TRUE, sig = 0.05)

生成的图像如下所示：

​

我相信它还可以进一步定制。