如何在ggplot geom_area()中为特定值指定填充颜色（不额外处理数据框）

针对你需要固定"Low Frequency"（灰色）和"Non Overlapping"（黑色）填充色，其余类别自动使用ggplot默认色的需求，这里提供两种无需额外数据框的解决方案，且具备高度可复用性：

方法一：直接用scale_fill_discrete指定固定颜色 #

scale_fill_discrete会自动为未明确指定的类别分配默认填充色，完美适配数量不固定的其他样本：

ggplot(example, aes(x = origin, y = frequency, group = id_simple, fill = id_simple)) +
  geom_area(alpha = 0.6, size = 1, colour = "black") +
  scale_fill_discrete(
    values = c(
      "Low Frequency" = "gray",
      "Non Overlapping" = "black"
    )
  ) +
  theme_light()

方法二：手动组合默认色与固定色（精准控制） #

如果需要明确获取ggplot的默认颜色并组合，可先提取默认色再构建完整颜色向量：

# 获取对应数量的ggplot默认离散填充色
default_color_count <- length(unique(example$id_simple)) - 2
default_colors <- scales::hue_pal()(default_color_count)

# 构建包含固定色的命名向量
color_mapping <- c(
  setNames(default_colors, setdiff(unique(example$id_simple), c("Low Frequency", "Non Overlapping"))),
  "Low Frequency" = "gray",
  "Non Overlapping" = "black"
)

ggplot(example, aes(x = origin, y = frequency, group = id_simple, fill = id_simple)) +
  geom_area(alpha = 0.6, size = 1, colour = "black") +
  scale_fill_manual(values = color_mapping) +
  theme_light()

封装成函数提升复用性 #

因为需要频繁制作此类图表，把颜色设置逻辑封装成函数，每次调用只需一行代码：

custom_fill_scale <- function() {
  scale_fill_discrete(
    values = c(
      "Low Frequency" = "gray",
      "Non Overlapping" = "black"
    )
  )
}

# 调用示例
ggplot(example, aes(x = origin, y = frequency, group = id_simple, fill = id_simple)) +
  geom_area(alpha = 0.6, size = 1, colour = "black") +
  custom_fill_scale() +
  theme_light()

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