Как изменить угол стрелки остаточных отклонений в 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)

0 ответов

Другие вопросы по тегам