ggplot图例重复点消除与回归系数显著性星号标记求助

一、消除图例重复点与额外散点 #

零膨胀负二项回归（zeroinfl）包含**计数模型（count）和零膨胀模型（zero）**两个独立部分，你看到的重复标记和额外散点，大概率是因为ggplot同时绘制了两个模型的系数却未做明确区分。解决步骤如下：

1. 提取并整理系数数据
   用broom包的tidy()函数提取模型系数，同时区分两个模型部分：

   library(broom)
   library(pscl)
   # 假设你的模型是model <- zeroinfl(y ~ x1 + x2 | z1 + z2, data = df)
   coef_df <- tidy(model, conf.int = TRUE) %>%
     mutate(model_part = ifelse(grepl("count", term), "count", "zero")) %>%
     # 若只需要计数模型的系数，过滤掉zero部分；需同时展示两个模型则删除此行
     filter(model_part == "count")
   

2. 绘图时明确美学映射
   如果需要同时展示两个模型，用color映射model_part区分；如果只需要单个模型，直接用过滤后的数据绘图：

   library(ggplot2)
   # 单模型绘图（无重复标记）
   ggplot(coef_df, aes(x = term, y = estimate)) +
     geom_point(size = 3, color = "darkblue") +
     geom_errorbar(aes(ymin = conf.low, ymax = conf.high), width = 0.2) +
     theme_bw() +
     coord_flip()
   
   # 双模型绘图（用颜色区分，无重复图例）
   ggplot(coef_df, aes(x = term, y = estimate, color = model_part)) +
     geom_point(size = 3) +
     geom_errorbar(aes(ymin = conf.low, ymax = conf.high), width = 0.2) +
     theme_bw() +
     coord_flip()
   

   明确区分模型部分后，就能避免重叠的无意义散点和重复图例标记。

二、添加显著性星号标记 #

先给系数数据添加显著性等级列，再用geom_text把星号放在系数点旁：

1. 计算显著性星号
   在整理后的coef_df中添加sig_stars列：

   coef_df <- coef_df %>%
     mutate(
       sig_stars = case_when(
         p.value < 0.001 ~ "***",
         p.value < 0.01 ~ "**",
         p.value < 0.05 ~ "*",
         TRUE ~ ""
       )
     )
   

2. 在图中添加星号
   用geom_text指定星号位置（比如误差条右侧）：

   ggplot(coef_df, aes(x = term, y = estimate)) +
     geom_point(size = 3, color = "darkred") +
     geom_errorbar(aes(ymin = conf.low, ymax = conf.high), width = 0.2) +
     geom_text(aes(label = sig_stars), hjust = -0.5, color = "black") + # 调整hjust控制星号位置
     theme_bw() +
     coord_flip()
   

   若同时展示两个模型，将color = model_part加入aes()即可让星号随模型区分颜色。

注意事项 #

• 若之前未区分count和zero部分，ggplot会把两个模型的系数叠加在同一x轴标签上，形成你看到的额外散点。
• 不需要零膨胀模型系数时，直接用filter(model_part == "count")过滤就能彻底消除重复元素。

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