如何使用ggplot2在柱状图中高亮单个指定柱子（以第9周柱为例）

先说明你现有代码可优化的细节：目前在aes参数里反复写russ2020$列名的写法完全冗余——因为ggplot已经通过data参数指定了数据源，直接在aes里写列名即可，这种写法不仅会让代码变冗长，数据如果做过子集筛选时还容易出现长度不匹配的报错。
顺带提一个代码里的小bug：scale_x_continuous的第一个位置参数是轴标题，你直接把week的数值向量传进去了，虽然因为后面单独写了xlab("Week")没出现显示异常，但还是建议把参数写全，换成显式的breaks = russ2020$week的写法，减少偶发报错的概率。

核心实现逻辑 #

高亮本质是给不同分类的柱状图分配差异化的视觉属性（最常用的是填充色），只需要单独把第9周的柱子从同组的颜色里拆分出来即可，不需要手动给单个柱子改参数，调整起来非常灵活：

• 第一步：在原数据框里新增一列分组标记，用逻辑判断把第9周的样本和其他周的样本区分开
  对应代码：russ2020$highlight_group <- ifelse(russ2020$week == 9, "第9周", "常规周")
• 第二步：把刚生成的分组列映射到geom_bar的fill属性上，让ggplot自动按分组分配填充色
• 第三步：手动指定两个分组的配色，关掉无意义的图例，避免占用绘图空间

调整后的完整代码 #

# 新增高亮分组标记
russ2020$highlight_group <- ifelse(russ2020$week == 9, "第9周", "常规周")

russ_graph <- ggplot(data = russ2020,
                     aes(x = week,
                         y = `round(mean(epa), 3)`)) +
  # 映射高亮分组到填充色
  geom_bar(stat = "identity",
           aes(fill = highlight_group)) +
  # 手动设置配色，关闭高亮图例
  scale_fill_manual(values = c("常规周" = "grey75", "第9周" = "#E64B35"),
                    guide = "none") +
  ggtitle("Let Russ Cook?") +
  annotate("text", x = 9, y = -0.25, label = "Russ Trademarks") +
  annotate("text", x = 9, y = -0.3, label = "\"Let Russ Cook\"") +
  theme(plot.title = element_text(hjust = 0.5)) +
  xlab("Week") + ylab("EPA per Play") +
  scale_x_continuous(breaks = russ2020$week,
                     labels = as.character(russ2020$week)) +
  geom_text(aes(label = `round(mean(epa), 3)`), vjust = 2, size = 2.5)

可选的强化高亮细节 #

如果基础的颜色差异还不够突出，可根据需求追加调整：

• 给第9周的柱子加专属边框：在geom_bar里追加colour的映射，常规周设置为无边框（NA值），第9周设置为和填充同色的深色即可
• 微调x轴的刻度，把第9周的刻度标签单独加粗，进一步强化视觉关联
• 注意不要把高亮色设的过于刺眼，保持整体绘图风格统一即可，上述代码里用的浅灰+正红的配色是长期可读性比较高的组合。

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