私は、リスク回避と政治的野心の関係を調査する SEM のパス図を作成しようとしています。AWPS というラベルの付いた態度が仲介者として機能します。これら 3 つの要素 (およびそれらの係数) 間の関係を視覚化したいだけですが、私の図はノードに余分なバーが表示されて奇妙になり、標準誤差と思われるものを示しています。誰でも助けることができますか？前もって感謝します。
ここに私のコードがあります
model2 <- '#simple mediation
AWPS~Risk
Ambition~AWPS
Ambition~Risk'
fit2 <- sem(model2, data=Uni_obs_clean_F, ordered=c("AWPS","Ambition"))
summary(fit2)
parameterEstimates(fit2,standardized=FALSE)
semPaths(fit2, what="paths", whatLabels="par", style ="lisrels", theme="colorblind", nCharNodes=0, rotation=1)
