R语言ggplot绘图时按p值条件自定义散点颜色的实现方法问询

推荐实现方案（符合ggplot语法规范，支持自动生成图例） #

直接通过aes映射p值的显著性判断逻辑，再手动指定对应颜色即可，修改后的完整代码如下：

ggplot(data = df) +
  geom_jitter(mapping = aes(x = as.factor(Phenotype), 
                            # 注意列名大小写要和你的实际数据匹配，示例数据为Genic_enrichment
                            y = Genic_enrichment, 
                            color = pvalue < 0.05),
              width = 0.2) + # 可自定义抖动幅度，避免点重叠过密
  theme_classic() +
  geom_vline(xintercept = 0, linetype = 2) +
  geom_hline(yintercept = 0, linetype = 2) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) + 
  scale_x_discrete(guide = guide_axis(check.overlap = TRUE)) +
  # 手动指定两组的对应颜色
  scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black"),
                     labels = c("p≥0.05", "p<0.05"),
                     name = "显著性") +
  # 不需要图例的话取消下面一行的注释即可
  # guides(color = "none")

改动说明 #

• 在geom_jitter的aes()中新增color = pvalue < 0.05，ggplot会自动逐行判断数据的p值是否小于0.05，按结果分组绑定颜色，完全和数据行一一对应，不会出现顺序不匹配的问题
• 通过scale_color_manual自定义分组对应的颜色、图例标签、图例名称，可根据需求调整
• 注意检查列名大小写：你的原始代码中y轴列名写的是Genic_Enrichment，但示例数据中的列名是Genic_enrichment，实际运行时要保证和真实数据的列名完全一致，否则会报错。

无图例快速实现方案 #

如果不需要显示图例，也可以直接在aes外部指定颜色向量，修改后的代码如下：

ggplot(data = df) +
  geom_jitter(mapping = aes(x = as.factor(Phenotype), y = Genic_enrichment),
              color = ifelse(df$pvalue < 0.05, "red", "black"),
              width = 0.2) +
  theme_classic() +
  geom_vline(xintercept = 0, linetype = 2) +
  geom_hline(yintercept = 0, linetype = 2) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) + 
  scale_x_discrete(guide = guide_axis(check.overlap = TRUE))

说明 #

你之前的尝试错误是引用了不存在的df$col4，替换成实际的df$pvalue即可正常运行。该方法代码更简洁，但无法自动生成规范图例，适合快速出图的场景。

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