如何在ggplot2中创建对应离散轴数字标签的自定义图例？

核心思路 #

通过绑定一个不影响视觉效果的美学属性（如fill）触发图例生成，再手动统一美学属性的取值，同时替换图例标签为目标类别名称，既保留轴上的简洁数字标签，又获得可通过theme()修改的标准图例。

实现代码 #

library(tidyverse)

# 构造数据，添加类别名称映射
iris_mod <- iris %>%
  mutate(
    category = as.integer(as.factor(Species)),
    # 自定义数字与类别名称的对应关系
    category_name = case_when(
      category == 1 ~ "无肥花卉",
      category == 2 ~ "施过肥的花卉",
      category == 3 ~ "粗土壤种植的花卉"
    ),
    big_length = ifelse(Sepal.Length > 6.2, 1, 0)
  )

# 绘制图形并生成目标图例
iris_ex <- ggplot(data = iris_mod, aes(x = Sepal.Width, y = as.factor(category), fill = as.factor(category))) +
  geom_boxplot(alpha = 1, outlier.shape = NA) +  
  theme_bw() +
  # Y轴保留简洁的数字标签
  scale_y_discrete(name = "Scenario Label", breaks = 1:3, labels = 1:3) +
  scale_x_continuous(name = "Sepal Width", limits = c(-8, 12)) +
  # 定义fill映射：统一填充色，替换图例标签为中文名称
  scale_fill_manual(
    name = "图例名称",
    breaks = 1:3,
    labels = c("无肥花卉", "施过肥的花卉", "粗土壤种植的花卉"),
    values = rep("steelblue", 3)
  ) +
  # 确保图例显示正确的填充色（可选）
  guides(fill = guide_legend(override.aes = list(fill = "steelblue"))) +
  geom_vline(xintercept = 0, lty = 2) +
  coord_flip() +
  facet_wrap(~ big_length, scales = c('free_x')) +
  # 按需调整图例样式
  theme(
    legend.position = "right",
    legend.title = element_text(size = 12, face = "bold"),
    legend.text = element_text(size = 10)
  )

iris_ex

关键说明 #

• 若你的类别是1:8，只需扩展case_when中的对应关系、scale_y_discrete的breaks和labels，以及scale_fill_manual的breaks、labels和values长度即可。
• 利用theme()可以自由修改图例的位置、文字样式、背景等，完全符合标准图例的自定义需求。
• 这种方法没有依赖额外的颜色区分，仅通过图例传递数字与类别名称的对应关系，同时避免了轴标签拥挤的问题。

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