如何用R的plot命令为特定因子/组指定专属颜色？

嘿，我完全懂你的困扰——当数据集变化（比如移除异常值）时，原来按行顺序分配的颜色就乱了，没法保证A3始终是蓝色、A4始终是红色对吧？不用points()或者ggplot，咱们可以用分组-颜色映射的方法来解决，直接把组和颜色绑定，不管数据怎么变颜色都不会错位。

核心思路 #

不要直接给col参数一个固定长度的颜色向量，而是根据Team列的取值，把每个组映射到指定颜色。这样每一行的颜色都会匹配它所属的组，而非按行顺序循环分配。

修改后的完整代码 #

# 读取数据
d <- read.csv("data-outlier.csv", header=T)

# 定义分组-颜色映射：把每个Team绑定到固定颜色
color_map <- c("A3" = "blue", "A4" = "red2")

par(mar=c(5,5.5,4,2)+0.1)
# 关键修改：用color_map根据Team取值匹配颜色
plot(
  formula = Wealth ~ Age, 
  data = d, 
  pch = 20, 
  col = color_map[d$Team],  # 这里是核心修改！
  xlab = expression(Age), 
  ylab = expression(Income), 
  xlim=c(0,140), 
  las = 1, 
  cex = 1.5, 
  cex.axis = 1.6, 
  cex.lab = 1.8, 
  bty = 'l' 
)

# 拟合回归线（颜色也用映射，避免重复写颜色值）
A3 <- subset(d, Team=="A3")
A4 <- subset(d, Team=="A4")
rA3 <- lm(Wealth~Age, data=A3)
rA4 <- lm(Wealth~Age, data=A4)
abline(rA3, lty=3, col=color_map["A3"])
abline(rA4, lty=3, col=color_map["A4"])

# 图例也用映射，保持统一
legend(
  x = 'bottomright', 
  legend = names(color_map), 
  col = color_map, 
  pch = 20, 
  bty = 'n'
)

为什么原来的方法会出问题？ #

你之前用col = c('blue','red2')时，R会按数据行的顺序循环分配这两个颜色——如果两个数据集里A3和A4的行顺序、数量不一样（比如移除异常值后某组的行数变了），颜色就会和组错位。而用映射的方式，直接把"A3"和"blue"绑定，不管数据怎么变，只要行的Team是"A3"，就会用蓝色，彻底解决这个问题。

扩展小技巧 #

如果以后你的数据增加了新的分组（比如A5），只需要在color_map里添加新的键值对就行，比如：

color_map <- c("A3" = "blue", "A4" = "red2", "A5" = "green3")

所有用到颜色的地方都会自动适配，不用逐一修改代码，非常方便。

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