在Shiny中基于ggplot2命令实现Y轴指定名称保留、其余名称脱敏重命名的方法（不修改原始数据）

我来帮你搞定这个需求！不用修改原始数据，只靠ggplot的链式命令就能实现——核心是给scale_y_discrete()的labels参数传一个自定义函数，动态处理每个Y轴标签，完美适配各种未知的Y轴内容场景。

完整实现代码 #

library(ggplot2)
# 用户可修改该变量
keepname <- c("Valiant", "Honda Civic", "AMC Javelin")
# 用户不得修改以下ggplot代码行
ggplot(head(mtcars,10),aes(x=factor(vs),y=rownames(head(mtcars,10)),fill=gear)) + 
  geom_tile(color="gray60") +
  scale_y_discrete(labels = function(y_labels) {
    # 筛选出当前Y轴中实际存在的需保留名称
    valid_keep <- intersect(y_labels, keepname)
    # 为需要脱敏的标签分配唯一的LETTERS字符
    censor_items <- y_labels[!y_labels %in% valid_keep]
    censor_map <- setNames(LETTERS[seq_along(censor_items)], censor_items)
    # 执行替换：保留的名称不变，其余用对应字母替换
    ifelse(y_labels %in% valid_keep, y_labels, censor_map[y_labels])
  })

逻辑说明 #

这个自定义函数会自动适配当前Y轴的所有标签，处理逻辑非常灵活：

• 第一步：先找出keepname里实际出现在当前Y轴的名称，避免无效的保留规则
• 第二步：为所有需要脱敏的标签分配LETTERS里的唯一字母，确保每个脱敏标签有独立标识
• 第三步：用ifelse完成替换——保留的名称原样显示，其他标签自动替换为对应字母

特殊场景处理 #

如果keepname里的名称完全没有出现在当前Y轴，那么valid_keep会是空值，此时所有Y轴标签都会被替换成LETTERS里的字母，实现全脱敏效果。

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