火山图特定点标注问题：geom_label_repel仅显示3个目标基因

核心问题分析 #

1. geom_label_repel显示不全：原代码中max.overlaps=20阈值过低，57个标注中超过重叠限制的会被自动隐藏；同时box.padding=0.1导致标签框过于紧凑，加剧重叠触发。
2. geom_text可读性差：文字颜色继承点的颜色（蓝色下调基因），与背景对比度不足，且无背景框遮挡。

修正代码 #

results_df$Gene <- rownames(resultsLFC_df)

# 修复颜色 palette 乱码问题
palette <- c("Upregulated" = "red",
             "Downregulated" = "blue",
             "Not_significant" = "gray")

# 绘制火山图
results_df %>%
  mutate(Expression = if_else(padj < custom_alpha & log2FoldChange > 0, "Upregulated",
                             if_else(padj < custom_alpha & log2FoldChange < 0, "Downregulated", "Not_significant"))) %>%
  ggplot(aes(x = log2FoldChange, y = -log10(padj), color = Expression)) +
  geom_point(alpha = 0.8, size = 0.5) +
  geom_vline(xintercept = 0, linetype = "dashed") +
  geom_hline(yintercept = -log10(custom_alpha), linetype = "dashed") +
  
  # 替换为优化后的 geom_label_repel
  geom_label_repel(
    aes(label = if_else(Gene %in% genes_to_label, Gene, "")),
    fill = "white",          # 白色背景框解决可读性问题
    color = "black",         # 固定文字颜色为黑色
    arrow = arrow(length = unit(0.02, "npc")),
    box.padding = 0.3,       # 增大标签框内边距，减少重叠
    point.padding = 0.5,
    segment.color = "black", # 连接线用深色更清晰
    show.legend = FALSE,
    max.overlaps = 100       # 提高重叠阈值，确保所有标注显示
  ) +
  
  labs(title = condition_contrast, x = "log2(Fold Change)", y = "-log10(padj)") +
  scale_color_manual(values = palette, limits = names(palette)) +
  theme_classic()

参数调整说明 #

• max.overlaps=100：远大于待标注基因数，避免因重叠被隐藏
• fill="white"：给标签添加白色背景，彻底解决蓝色点上文字看不清的问题
• box.padding=0.3：增大标签框与文字的间距，减少标签间的重叠概率
• color="black"：固定文字颜色，不受点颜色影响

额外优化建议 #

• 若仍有少量标注重叠，可添加nudge_x/nudge_y参数微调标签位置，比如nudge_x = 0.2
• 若图表空间不足，通过theme(plot.margin = margin(1,1,1,1, "cm"))扩大绘图边距，给标注留出更多空间
• 可调整size参数放大标签文字，比如size=3

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