r - 在R中绘制简单的中介图

Question

是否有一种(最好是简单直接的)方法可以在 R 中绘制具有中介系数的简单路径图？

我一直在寻找 DiagrammeR 包，但这看起来有点矫枉过正(说实话，我没能弄清楚如何绘制情节)。

我知道的其他选项是 Dia或Inkscape但这些需要手动定位、连接路径等。

mediation 包有一个 plot 选项，但它会绘制引导 CI，我想要实现的是一 strip 有如下系数的简单路径:

Answer 1

同时@baptiste解决方案也可能有效，我一直在寻找可发布的格式。

函数plotmat来自library(diagram)是最接近我的例子的一个:

对于可重现的示例，请使用:

library(diagram)
data <- c(0, "'.47*'", 0,
          0, 0, 0, 
          "'.36*'", "'.33* (.16)'", 0)
M<- matrix (nrow=3, ncol=3, byrow = TRUE, data=data)
plot<- plotmat (M, pos=c(1,2), 
                name= c( "Math self-efficacy","Math ability", "Interest in the math major"), 
                box.type = "rect", box.size = 0.12, box.prop=0.5,  curve=0)