R语言：如何按分组配色并按进样顺序调整颜色深浅？

我来给你梳理下具体的实现思路和代码，核心是先给每个分组分配固定主色，再针对每个分组内的进样顺序调整颜色亮度，实现深浅渐变：

步骤1：加载所需包并生成数据 #

先把基础环境和数据准备好，这里我加了随机种子让结果可重复：

library(RColorBrewer)
library(dplyr)
library(colorspace) # 用来方便调整颜色深浅，简化操作

# 生成你的示例数据
id <- rep(1:4, each=5)
group <- rep(LETTERS[1:4], each=5)
inj <- rep(1:5,4)
set.seed(123) # 设置随机种子保证结果一致
q1 <- sample(1:50,20)
q2 <- sample(1:50,20)
df <- data.frame(id, group, inj, q1,q2)

步骤2：为每个分组分配主色 #

先给每个group分配唯一的基础主色，这里用RColorBrewer的Paired调色板，保证分组间颜色区分清晰：

# 给A-D四个分组分别分配Paired调色板的前4个颜色
group_main_cols <- setNames(brewer.pal(4, "Paired"), LETTERS[1:4])

步骤3：生成随进样顺序渐变的颜色 #

用dplyr分组处理，针对每个分组内的inj（进样顺序），从浅到深调整颜色亮度——进样顺序越靠后（inj越大），颜色越接近主色（更深）：

df <- df %>%
  group_by(group) %>%
  mutate(
    # 生成亮度调整比例：inj=1时最浅（亮度提升50%），inj=5时回到原主色
    lighten_prop = seq(0.5, 0, length.out = n()),
    # 基于主色调整亮度，生成渐变颜色
    group_col = lighten(group_main_cols[group], lighten_prop)
  ) %>%
  ungroup()

验证效果（可选） #

你可以用ggplot2画个图直观看看效果，每个分组内的点颜色会从浅到深渐变，分组主色保持统一：

library(ggplot2)
ggplot(df, aes(x=inj, y=q1, color=group_col)) +
  geom_point(size=5) +
  scale_color_identity() + # 使用原颜色值
  facet_wrap(~group) +
  theme_bw()

如果不想额外加载colorspace包，也可以手动处理RGB通道实现相同效果，代码如下：

# 手动调整RGB的替代方案，无需colorspace包
df <- df %>%
  group_by(group) %>%
  mutate(
    # 亮度系数：inj=1时提升50%亮度，inj=5时回到原亮度
    bright_factor = seq(1.5, 1, length.out = n()),
    # 将主色转换为RGB数值
    rgb_vals = col2rgb(group_main_cols[group]),
    # 调整RGB通道，确保数值不超过255（颜色上限）
    adjusted_rgb = pmin(rgb_vals * bright_factor, 255),
    # 转回十六进制颜色格式
    group_col = rgb(adjusted_rgb[1,], adjusted_rgb[2,], adjusted_rgb[3,], maxColorValue = 255)
  ) %>%
  ungroup()

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