如何在R中使用ggdag和dagitty创建整洁的DAG？

针对你遇到的标签不居中、遮挡线条的问题，可通过调整节点坐标、使用防重叠文本图层解决，以下是修改后的代码和关键说明：

修改后的完整代码 #

library(ggdag)
library(dagitty)
library(ggrepel) # 用于自动规避文本重叠

# 调整节点坐标，增大上下混杂因素的垂直间距
simple_dag_with_coords_and_labels <- dagify(
  outcome ~ treatment + confounder1 + confounder2 + confounder3 + confounder4,
  treatment ~ confounder1 + confounder2 + confounder3 + confounder4,
  exposure = "treatment",
  outcome = "outcome",
  labels = c(outcome = "Outcome", treatment = "Deranged LFT", 
             confounder1 = "DM", 
             confounder2 = "Days on PN", 
             confounder3 = "Presence of\nhepatotoxic drugs", 
             confounder4 = "Presence of\nline sepsis"),
  coords = list(x = c(treatment = 0, confounder1 = 1, confounder2 = 1, confounder3 = 1, confounder4 = 1, outcome = 2),
                y = c(treatment = 0, confounder1 = 2, confounder2 = 1, confounder3 = -1, confounder4 = -2, outcome = 0)) # 拉大上下节点间距
)

ggdag(simple_dag_with_coords_and_labels, stylized = TRUE) +
  # 用repel图层自动避重，同时强制标签居中
  geom_dag_text_repel(aes(label = label), hjust = 0.5, vjust = 0.5, check_overlap = TRUE) +
  geom_dag_point() + # 保留节点圆点
  guides(fill = FALSE, color = FALSE) +
  theme_dag()

关键修改说明 #

• 调整节点坐标：把confounder1的y值从1.7改为2，confounder4从-1.7改为-2，增大上下混杂因素的垂直间距，从根源减少标签重叠概率
• 标签居中对齐：通过hjust=0.5和vjust=0.5强制文本在节点中心对齐
• 自动防重叠：使用geom_dag_text_repel替代默认文本图层，它会自动调整标签位置避开线条和其他文本；开启check_overlap=TRUE过滤完全重叠的文本
• 移除冗余参数：删掉原代码中text=FALSE，确保标签正常渲染

如果仍有局部重叠，可微调单个节点的x/y坐标，或调整geom_dag_text_repel的force参数（比如force=2）加大标签偏移力度。

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