使用R语言semPlot函数时如何避免因子载荷重叠？

问题背景 #

我在R语言的lavaan包中运行了验证性因子分析（CFA），并尝试绘制分析结果。以下是CFA模型及绘图代码：

CFA模型代码 #

cfamodel <- "
    CommonEF =~ Anntisaccade+StopSignal+Stroop+KeepTrack+LetterMem+SNback+NumberLetter+ColorShape+CategorySwitch 
    
    Update =~ b*KeepTrack+b*LetterMem+b*SNback
    
    Shifting =~ c*NumberLetter+c*ColorShape+c*CategorySwitch
"
runcfa = cfa(model = cfamodel, data=data, std.lv=TRUE, orthogonal=TRUE)

summary(runcfa, standardized=TRUE, fit.measures=TRUE)

semPlot绘图代码 #

semPaths(runcfa, whatLabels="std", intercepts=FALSE, style="lisrel",
         nCharNodes=0, 
         nCharEdges=0,
         curveAdjacent = TRUE,title=FALSE, layout="tree2",curvePivot=TRUE,
         edge.label.cex=2,
         sizeInt = 4, sizeLat = 7, sizeMan = 6, label.cex = 3, exoCov = FALSE)

运行上述代码后，因子载荷标签出现相互重叠的问题，查阅semPlot文档及相关帖子未找到解决方案。

实用解决方法 #

1. 更换布局类型 #

layout="tree2"对多因子多观测变量的模型适配性较差，可尝试其他布局算法：

• layout="spring"：基于力导向算法，自动分散节点减少重叠
• layout="circle"：观测变量环形排列，因子置于中心
• layout="tree"：配合rotation参数调整布局方向（如rotation=2）

示例代码：

semPaths(runcfa, whatLabels="std", intercepts=FALSE, style="lisrel",
         nCharNodes=0, nCharEdges=0,
         curveAdjacent = TRUE, title=FALSE, layout="spring",
         edge.label.cex=2, sizeInt=4, sizeLat=7, sizeMan=6, label.cex=3, exoCov=FALSE)

2. 调整标签与节点尺寸 #

• 缩小edge.label.cex（从当前2改为1.5或1），减少标签占用空间
• 用edge.label.position调整标签位置（如设为0.3，让标签靠近观测变量一侧）
• 减小sizeMan/sizeLat，为标签预留更多空隙

示例代码：

semPaths(runcfa, whatLabels="std", intercepts=FALSE, style="lisrel",
         nCharNodes=0, nCharEdges=0,
         curveAdjacent = TRUE, title=FALSE, layout="tree2", curvePivot=TRUE,
         edge.label.cex=1.5, edge.label.position=0.3,
         sizeInt=4, sizeLat=6, sizeMan=5, label.cex=2.5, exoCov=FALSE)

3. 手动控制连线弯曲度 #

关闭curveAdjacent=TRUE，通过curve参数为重叠连线设置不同弯曲方向（正/负值对应不同弯曲方向）：

semPaths(runcfa, whatLabels="std", intercepts=FALSE, style="lisrel",
         nCharNodes=0, nCharEdges=0,
         curveAdjacent = FALSE, title=FALSE, layout="tree2", curvePivot=TRUE,
         curve=c(0,0,0,1,-1,1,-1,1,-1), # 为9条载荷连线设置不同弯曲度
         edge.label.cex=2, sizeInt=4, sizeLat=7, sizeMan=6, label.cex=3, exoCov=FALSE)

4. 手动修改节点坐标 #

导出布局对象后，直接调整特定节点的坐标，彻底解决重叠：

# 获取布局对象（不直接绘图）
plot_obj <- semPaths(runcfa, whatLabels="std", intercepts=FALSE, style="lisrel",
                     nCharNodes=0, nCharEdges=0,
                     curveAdjacent = TRUE, title=FALSE, layout="tree2", curvePivot=TRUE,
                     edge.label.cex=2, sizeInt=4, sizeLat=7, sizeMan=6, label.cex=3, exoCov=FALSE,
                     plot=FALSE)

# 查看并修改节点坐标（行对应节点，可通过labels匹配目标节点）
print(plot_obj$layout)
# 示例：调整KeepTrack节点的坐标
plot_obj$layout[which(plot_obj$labels$labels == "KeepTrack"), ] <- c(1, -2)

# 绘制修改后的图形
plot(plot_obj)

5. 换用其他绘图工具 #

若semPlot的自动布局始终无法满足需求，可尝试更灵活的包：

• lavaanPlot（基于DiagrammeR）：

library(lavaanPlot)
lavaanPlot(model = runcfa, node_options = list(shape = "box", fontname = "Helvetica"),
           edge_options = list(color = "grey"), coefs = TRUE, stand=TRUE)

• ggsem（基于ggplot2）：

library(ggsem)
ggsem_path(runcfa, standardized = TRUE) + theme_minimal()

内容的提问来源于stack exchange，提问作者Paul