R ggplot绘制箱线图时调用另一数据框值设置y轴刻度标签

现有两份数据集：

• data为绘图数据集，其中字段b是数值型编码值
• data1为原始数据集，其中字段b是和数值编码对应的字符型原始值
  需求为：使用data中的数值型b字段绘制箱线图，但y轴刻度标签替换为data1中b列对应的字符取值；方案需适配Shiny应用的大规模响应式数据集场景，禁止硬编码标签内容。

data <- data.frame(a = c(1,1,1,1,1,2,2,2,2,2,3,3,3,3,3),
                   b = c(10,10,11,11,12,12,12,13,13,13,14,14,14,15,15),
                   c = c('x','y','y','x','y','y','x','y','y','x','y','y','x','x','y'))

data1 <- data.frame(a = c(1,1,1,1,1,2,2,2,2,2,3,3,3,3,3),
                   b = c('never','never','rare','rare','some','some','some','most','most','most','often','often','often','always','always'),
                   c = c('x','y','y','x','y','y','x','y','y','x','y','y','x','x','y'))

尝试使用scale_y_discrete实现的代码如下：

ggplot(data,aes(x = as.factor(a), y = b, fill = c))+
      geom_boxplot()+
  scale_y_discrete(data1$b,labels=unique(data1$b))

运行后y轴刻度标签未按预期显示，核心原因是：b字段为数值型，ggplot默认将其识别为连续型变量，离散轴标度scale_y_discrete无法作用于连续型y轴，因此标签渲染失败。

通过动态生成数值编码与字符标签的映射表，搭配连续轴标度scale_y_continuous实现，全程无需硬编码任何标签，适配Shiny响应式场景：

library(ggplot2)

# 动态生成数值-标签映射关系，自动去重，适合大规模数据集
label_mapping <- unique(data.frame(
  num_value = data$b,
  char_label = data1$b
))

ggplot(data, aes(x = as.factor(a), y = b, fill = c)) +
  geom_boxplot() +
  scale_y_continuous(
    breaks = label_mapping$num_value, # 指定刻度对应的数值位置
    labels = label_mapping$char_label # 指定每个数值位置显示的字符标签
  )

若两个数据集行顺序并非严格对齐，可根据实际业务中的关联主键（如示例中可联合a+c字段）做匹配合并生成映射表，避免对应关系错误。

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