如何为ggplot的geom_point基于双字段值设置差异化点颜色

要实现你的需求，核心是先根据value.1的阈值筛选出灰色点，再对剩余点按value的范围分配颜色。以下是两种可行的修改方案：

方案1：提前创建分组变量（可读性更强） #

先在数据中生成一个用于颜色映射的分组变量，优先处理value.1 < 0.005的情况：

# 创建颜色分组变量
my_data$color_group <- with(my_data, 
  ifelse(value.1 < 0.005, "low_value1", 
         ifelse(value <= 40, "value_le40", "value_gt40"))
)

# 修改ggplot代码
someplot <- ggplot(my_data, aes(x = as.numeric(levels(variable))[variable], y = value.1)) + 
  geom_point(aes(colour = color_group), size = 1) +
  scale_color_manual(
    name = "分组规则",
    values = c("low_value1" = "gray", "value_le40" = "orange", "value_gt40" = "blue"),
    labels = c("value.1 < 0.005", "value ≤ 40", "value > 40")
  ) +
  scale_x_continuous(limits = c(0, 16600), breaks = seq(0, 16600, by = 200)) +
  scale_y_continuous(limits = c(0.001, 0.95), breaks=c(0.001, 0.005, 0.010, 0.015, 0.020, 0.040,0.060, 0.080)) +
  theme(plot.title = element_text(hjust = 0.5, size=20)) +
  theme(axis.text.x=element_text(size=rel(1), angle=90)) +
  theme(legend.key.size = unit(1, 'cm'),
        legend.key.height = unit(1, 'cm'), 
        legend.key.width = unit(1, 'cm'), 
        legend.title = element_text(size=14),
        legend.text = element_text(size=14))

plot(someplot)

方案2：直接在颜色映射中写条件（代码更紧凑） #

不需要新增变量，直接在aes(colour)中嵌套条件判断：

someplot <- ggplot(my_data, aes(x = as.numeric(levels(variable))[variable], y = value.1)) + 
  geom_point(
    aes(colour = ifelse(value.1 < 0.005, "gray_group", ifelse(value <=40, "orange_group", "blue_group"))), 
    size = 1
  ) +
  scale_color_manual(
    name = "分组规则",
    values = c("gray_group" = "gray", "orange_group" = "orange", "blue_group" = "blue"),
    labels = c("value.1 < 0.005", "value ≤ 40", "value > 40")
  ) +
  scale_x_continuous(limits = c(0, 16600), breaks = seq(0, 16600, by = 200)) +
  scale_y_continuous(limits = c(0.001, 0.95), breaks=c(0.001, 0.005, 0.010, 0.015, 0.020, 0.040,0.060, 0.080)) +
  theme(plot.title = element_text(hjust = 0.5, size=20)) +
  theme(axis.text.x=element_text(size=rel(1), angle=90)) +
  theme(legend.key.size = unit(1, 'cm'),
        legend.key.height = unit(1, 'cm'), 
        legend.key.width = unit(1, 'cm'), 
        legend.title = element_text(size=14),
        legend.text = element_text(size=14))

plot(someplot)

关键修改说明 #

• 优先级处理：确保value.1 < 0.005的条件被优先判断，覆盖后续的value分组规则
• 扩展颜色映射：新增灰色对应的分组类别，在scale_color_manual中匹配对应的颜色和图例标签
• 注意：如果variable不是因子类型，as.numeric(levels(variable))[variable]会报错，此时替换为x = as.numeric(variable)即可

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