ggplot2设置坐标轴文本颜色匹配分组变量并按组聚合

原代码失效有两个核心原因：

• 分类轴默认对model按字母顺序排序，未按manufacturer分组聚合，同厂商车型会分散在轴的不同位置
• element_text()的color参数传入的颜色向量和原始数据行一一对应，但轴刻度标签是去重后按排序后的model顺序渲染，向量长度、匹配顺序完全不对应，因此颜色映射错乱

分两步实现需求，不需要复杂的自定义主题操作：

1. 先对数据集排序，将model转为因子并按manufacturer分组设置因子水平，保证同厂商车型在轴上聚合排列
2. 使用ggh4x扩展包提供的彩色轴向导，按排序后的model顺序匹配对应厂商的颜色，实现标签颜色和厂商绑定

完整可运行代码：

library(ggplot2)
library(dplyr)
# 若未安装ggh4x先运行：install.packages("ggh4x")
library(ggh4x)

# 读取并处理数据
dat <- mpg[mpg$cyl == 4,]
# 按厂商、车型排序，将model转为因子固定轴上的排列顺序
dat <- dat %>%
  arrange(manufacturer, model) %>%
  mutate(model = factor(model, levels = unique(model)))

# 自定义的厂商对应颜色
cols <- c("audi" = "#a6cee3", "chevrolet" = "#1f78b4", "dodge" = "#b2df8a",
          "honda" = "#33a02c", "hyundai" = "#fb9a99","nissan" = "#e31a1c",
          "subaru" = "#fdbf6f","toyota" = "#ff7f00","volkswagen" = "#cab2d6")

# 构造和轴标签顺序完全匹配的颜色向量
model_label_cols <- cols[as.character(dat$manufacturer[match(levels(dat$model), dat$model)])]

# 绘图
ggplot(data = dat, aes(x = cty, y = model )) +
  geom_point(shape = 21, size = 2, fill = "white") +
  theme_bw() +
  theme(
    panel.grid.major = element_line(colour = "gray85", linetype="longdash", size=0.1),
    text = element_text(size = 14),
    axis.text.x = element_text(size = 12, color = "black"),
    legend.position = "none"
  ) +
  # 给y轴标签设置对应颜色
  scale_y_discrete(
    guide = guide_axis_color(color = model_label_cols, size = 12)
  )

运行代码后，垂直轴上同厂商的车型会连续排列，每个车型的文本颜色和所属厂商的指定颜色完全一致：audi两款车型为浅蓝、hyundai两款车型为浅粉，和需求描述的理想效果完全匹配。

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