如何在ggplot2图表中将Y轴类别文本替换为等尺寸自定义颜色块？

要实现把Y轴的类别文本替换为对应颜色的胶囊形块，且保证尺寸一致，同时支持自定义十六进制颜色，可以借助ggtext包的HTML渲染能力，结合ggplot2的刻度标签自定义功能来实现。

完整代码示例 #

# 加载所需包
library(ggplot2)
library(ggtext)
library(dplyr)

# 1. 定义动态颜色映射（支持任意十六进制颜色码）
color_map <- c(
  RED = "#FF4444",  # 自定义红色
  BLUE = "#4466FF"  # 自定义蓝色
)

# 2. 准备示例数据（模拟原数据结构：mpg为X，color为Y类别）
data <- mtcars %>%
  mutate(color = ifelse(cyl == 4, "BLUE", "RED")) %>%
  select(mpg, color)

# 3. 生成带颜色胶囊Y轴的散点图
ggplot(data, aes(x = mpg, y = color, color = color)) +
  geom_point(size = 3) +
  # 自定义Y轴刻度标签为颜色胶囊块
  scale_y_discrete(
    labels = function(x) {
      sapply(x, function(label) {
        paste0(
          "<span style='display: inline-block; ",
          "width: 45px; height: 22px; ",  # 固定尺寸保证一致性
          "background-color: ", color_map[label], "; ",
          "border-radius: 11px;'></span>"  # 胶囊形圆角（高度的一半）
        )
      })
    }
  ) +
  # 自定义点的颜色与映射一致
  scale_color_manual(values = color_map) +
  # 启用HTML/markdown渲染Y轴文本
  theme(
    axis.text.y = element_markdown(margin = margin(r = 10)),  # 加右边距避免点重叠
    legend.position = "none"  # 隐藏默认图例
  ) +
  labs(x = "mpg", y = NULL)  # 隐藏Y轴标题

关键细节说明 #

• 动态颜色定义：通过命名向量color_map可以任意替换十六进制颜色码，直接关联Y轴类别与颜色
• 等尺寸胶囊块：通过width和height固定颜色块大小，border-radius设为高度的一半实现胶囊形状
• HTML渲染支持：ggtext::element_markdown()让ggplot能解析HTML样式，实现颜色块的可视化
• 点颜色匹配：scale_color_manual保证散点颜色与Y轴颜色块一致，提升视觉统一性

内容的提问来源于stack exchange，提问作者Daniel D. Sjoberg