如何在ggplot2的geom_bar()中为特定条件的柱状图设置加粗边框高亮

要实现这个需求，核心思路是先给数据打标签标记需要高亮的行，再让ggplot根据这个标签来控制柱状图的边框粗细。具体步骤如下：

1. 给数据添加高亮标记列
   首先在你的数据框中新增一列（比如highlight），用case_when匹配你指定的条件，把符合条件的行标记为TRUE，其余为FALSE。注意要和原数据的字符串大小写保持一致（比如原数据里health的第三个值是小写的moderate，你的条件里写成了Moderate，这会匹配失败，要修正）：

library(dplyr)

# 新增高亮标记列
smoking_health <- smoking_health %>%
  mutate(
    highlight = case_when(
      # 修正条件里的大小写，确保和原数据匹配
      (smoking_status == 'Nonsmoke' & health == 'moderate' & colors %in% c('c', 'f')) | 
      (smoking_status == 'Current_Smoker' & health == 'very_bad' & colors == 'e') ~ TRUE,
      TRUE ~ FALSE
    )
  )

2. 修改绘图代码，映射边框粗细
   在geom_bar中，把size参数映射到新增的highlight列，然后用scale_size_manual指定两种状态对应的边框粗细：

library(ggplot2)

smoking_health %>% 
  ggplot(aes(health, colors_percentage, fill = colors))+ 
  # 新增size的映射，同时保留黑色边框
  geom_bar(stat = 'identity', color = 'black', aes(size = highlight))+ 
  facet_grid(~ smoking_status, scale = 'free', space = 'free_x')+ 
  scale_fill_manual(values = palette)+ 
  # 设置普通柱子和高亮柱子的边框粗细，可自行调整数值
  scale_size_manual(values = c(FALSE = 0.25, TRUE = 1.5))+
  theme(
    axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1, size = 8),
    # 隐藏highlight的图例，避免干扰原有图例
    legend.position = "none"
  )

关键说明： #

• scale_size_manual里的数值可以根据你的需求调整，比如把TRUE对应的数值改成2，边框会更粗。
• 如果希望高亮的柱子边框颜色也不同（比如红色），可以把color参数也映射到highlight列，再用scale_color_manual设置颜色，比如：

  geom_bar(stat = 'identity', aes(size = highlight, color = highlight))+
  scale_color_manual(values = c(FALSE = 'black', TRUE = 'red'))
  

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