Как изменить угол стрелки остаточных отклонений в semPlot::semPaths?
Я визуализирую некоторые модели структурных путей, используя отличный пакет semPlot R, и мне удалось получить результат почти точно так, как мне бы хотелось.
Однако на рисунке вы можете увидеть несколько проблем:
- стрелка самоконтроля для остаточной дисперсии на конструкции CAP перекрывается с исходящими ребрами, и я хотел бы, например, повернуть ее, чтобы она входила и выходила в 3:00 и 6:00.
- стрелки самоконтроля для пунктов ниже VALUE находятся справа, но я бы хотел, чтобы они были внизу
Пара моментов:
- я пытался
style = 'lisrel'
но я хотел бы показать остаточные отклонения в виде петель - Я вручную изменил макет, используя следующий код, так как ни один из макетов по умолчанию не работает для меня. Может быть, мне нужно сделать что-то похожее на мои настройки с
orig_layout
чтобы сюжет заработал?
# Calculate an initial layout
orig_plot <- semPaths(regression_min_fit, 'std', layout = 'tree2', centerLevels = FALSE,
rotation = 1, DoNotPlot = TRUE)
# Tweak the layout
orig_layout <- orig_plot$layout
orig_layout[1:6, 1] <- -1
# lots of other similar lines
# Make the final plot manually specifying the modified layout.
semPaths(regression_min_fit, 'std', layout = orig_layout,
color = c(rep("white", 17), paste0(c(aqua, yellow, lilac), "66")),
edge.color = "black", nodeLabels = orig_labs,
filetype = 'pdf', filename = 'fig20_baseline_sem', width = 7, height = 4)