ggplot中是否存在基于类别自动为轴标签着色并生成图例的方法？

要实现类似fill/scale_fill的自动化流程，让轴标签按大类别着色并同步生成图例，推荐两种高效方法：

方法1：使用ggtext渲染带颜色的Markdown标签（推荐） #

借助ggtext包的element_markdown()，可以直接将轴标签渲染为带颜色的文本，同时和条形的填充颜色同步，自动生成图例。

步骤示例： #

1. 准备示例数据

library(ggplot2)
library(dplyr)
library(ggtext)
library(glue)

set.seed(123)
df <- tibble(
  sub_category = paste0("Item_", 1:8),
  value = sample(10:30, 8),
  main_category = rep(c("Category A", "Category B"), each = 4)
)

2. 定义大类别颜色映射（和scale_fill逻辑一致）

color_map <- c(
  "Category A" = "#1f77b4",
  "Category B" = "#ff7f0e"
)

3. 生成带颜色的Markdown标签

df <- df %>%
  mutate(label_text = glue("<span style='color:{color_map[main_category]}'>{sub_category}</span>"))

4. 绘制图表

ggplot(df, aes(x = sub_category, y = value, fill = main_category)) +
  geom_bar(stat = "identity") +
  # 关联带颜色的标签
  scale_x_discrete(labels = df$label_text) +
  # 同步填充颜色映射
  scale_fill_manual(values = color_map) +
  theme(
    axis.text.x = element_markdown(size = 10), # 启用Markdown渲染
    legend.title = element_text(size = 12),
    legend.text = element_text(size = 10)
  )

这种方法完全复用scale_fill的颜色映射逻辑，标签颜色和填充颜色自动同步，图例也会自动生成，无需额外手动配置。

方法2：纯ggplot2实现（无需额外包） #

如果不想引入ggtext，可以通过theme()中axis.text.x的colour参数关联大类别颜色，同时配合scale_color_manual生成图例。

ggplot(df, aes(x = sub_category, y = value, fill = main_category)) +
  geom_bar(stat = "identity") +
  # 定义填充颜色映射
  scale_fill_manual(values = color_map) +
  # 为轴标签设置对应大类别的颜色
  theme(
    axis.text.x = element_text(
      colour = color_map[df$main_category[match(df$sub_category, df$sub_category)]]
    )
  ) +
  # 生成标签颜色对应的图例（可选，若需要单独区分）
  scale_color_manual(values = color_map, name = "Label Category", guide = "legend") +
  guides(
    fill = guide_legend(title = "Fill Category"),
    color = guide_legend(title = "Label Category")
  )

这种方法无需额外依赖包，但需要手动关联标签颜色和大类别，图例可以根据需求单独配置。

内容的提问来源于stack exchange，提问作者N.F.F.