ggplot2按值设置点颜色：col1或col2<5时点为红色的实现求助

我懂你折腾好几个小时找不到解决办法的烦躁，试了各种函数都没搞定对吧？咱们来把你的代码调整一下，完美实现你要的效果~

首先看你的核心需求：只要col1或col2小于5，对应点就显示红色，否则用绿色。你原来的代码只判断了col1>5，既没考虑col2的情况，也没处理数据里的NA，所以达不到预期。

修改后的完整代码 #

# 先确认你的数据框（如果已经有AB2可以跳过这部分）
AB2 <- data.frame(
  col1 = c(NA, NA, NA, NA, NA, 8.72, 2.32, NA, 8.29, 9.36),
  col2 = c(NA, 4.73, NA, NA, NA, 7.64, NA, NA, 6.23, 7.72)
)

# 绘图逻辑调整
scatter_plot <- ggplot(AB2, aes(col1, col2))
scatter_plot + 
  geom_point(
    aes(color = ifelse((col1 < 5 | col2 < 5), "red", "#5DCA03")),
    na.rm = TRUE  # 忽略双NA的行，避免不必要的警告
  ) + 
  labs(x = "col1", y = "col2") +  # 纠正了你原来轴标签和数据映射搞反的问题，特殊需求可改回
  geom_smooth(method = "lm") +
  scale_color_identity()  # 让ggplot直接识别我们指定的颜色值

关键调整说明 #

• 颜色判断逻辑：用col1 < 5 | col2 < 5实现“或”的条件，只要其中一个数值小于5，点就变红；两个都≥5时用绿色，完全匹配你的需求。
• NA处理：添加na.rm = TRUE，因为你的数据里有不少行col1和col2都是NA，这些行本来就不会被绘制，加上这个参数可以消除控制台的警告信息。
• 颜色识别：scale_color_identity()是核心，因为我们直接用了具体的颜色字符串（比如"red"、"#5DCA03"），这个函数告诉ggplot不要把这些字符串当作分类标签，而是直接作为颜色使用。
• 轴标签修正：你原来的labs(x = "col2", y = "col1")和aes(col1, col2)的映射搞反了，我帮你调整成了对应的数据列，要是你有特殊展示需求可以再改回去~

效果验证 #

用你的测试数据来看：

• 行2（col2=4.73<5）→ 红色
• 行6（col1=8.72、col2=7.64都≥5）→ 绿色
• 行7（col1=2.32<5）→ 红色
• 行9、10（两个列都≥5）→ 绿色
  完全符合你的需求~

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