ggplot图表可视化：按X轴区间设置散点不同颜色的解决方案需求

嘿，我来帮你搞定这个散点颜色分组的需求！首先得先指出你原代码里的两个小问题：一是aes()后面的括号没闭合，二是用xlim(100, 200)会直接过滤掉所有x<=100的数据点，这样你根本看不到红色的点啦。下面是完整的解决方案：

核心思路 #

我们需要先给数据添加一个分组变量，根据Boyta的区间给每个点分配对应的颜色组，然后把这个变量映射到ggplot的color美学上，再手动指定对应颜色即可。

具体步骤&代码 #

1. 先给数据添加颜色分组变量 #

这里提供两种方式，选你习惯的就行：

方式一：用dplyr的case_when（更清晰，适合多条件）

library(ggplot2)
library(dplyr)

# 给数据添加分组列
totalarum <- totalarum %>%
  mutate(
    x_group = case_when(
      Boyta <= 100 ~ "x ≤ 100",       # 第一个区间：红色
      Boyta > 100 & Boyta <= 200 ~ "100 < x ≤ 200", # 第二个区间：蓝色
      TRUE ~ "超出范围"               # 可选：处理x>200的点，设为灰色
    )
  )

方式二：用base R的ifelse（无需额外包）

# 给数据添加分组列
totalarum$x_group <- ifelse(
  totalarum$Boyta <= 100, 
  "x ≤ 100", 
  ifelse(totalarum$Boyta <= 200, "100 < x ≤ 200", "超出范围")
)

2. 绘制带颜色分组的散点图 #

这里分两种场景：

场景A：想显示所有区间的点（包括x<=100的红色点）

把x轴范围调整为包含x<=100的区间，比如从0到200：

ggplot(totalarum, aes(y = Pris, x = Boyta, color = x_group)) +
  geom_point() +
  # 设置坐标轴范围，保留所有数据
  xlim(0, 200) + 
  ylim(1, 10000000) +
  # 手动指定每个分组的颜色
  scale_color_manual(
    values = c(
      "x ≤ 100" = "red",
      "100 < x ≤ 200" = "blue",
      "超出范围" = "gray" # 可选，给x>200的点设灰色
    ),
    name = "X轴区间" # 修改图例标题，可选
  )

场景B：只想显示100-200的点，但仍按原始区间设颜色

如果你确实只想展示x在100-200的区域，但希望x<=100的点（即使不在视图内）也被标记为红色，那用coord_cartesian()替代xlim()，它只会缩放视图，不会删除数据：

ggplot(totalarum, aes(y = Pris, x = Boyta, color = x_group)) +
  geom_point() +
  # 仅缩放视图，不删除数据
  coord_cartesian(xlim = c(100, 200), ylim = c(1, 10000000)) +
  scale_color_manual(
    values = c(
      "x ≤ 100" = "red",
      "100 < x ≤ 200" = "blue",
      "超出范围" = "gray"
    ),
    name = "X轴区间"
  )

关键提醒 #

• xlim()和coord_cartesian()的区别：xlim()会直接删除超出范围的行数据，而coord_cartesian()只是调整图表显示范围，所有数据都保留。如果你想让x<=100的红色点出现在图表里，一定要用xlim(0,200)或者coord_cartesian(xlim=c(0,200))。
• 如果你不需要处理x>200的点，可以把分组里的TRUE ~ "超出范围"去掉，这样这些点会被归为NA，默认不会显示颜色（或者你可以设置na.value来处理）。

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