如何在R的ggplot2中让特定国家的条形颜色更突出？

要突出特定国家的条形颜色，核心思路是通过新增分组标记结合颜色映射来实现，同时保证图例不受影响。具体操作如下：

• 给数据添加一个变量，标记出需要突出的目标国家（比如示例中的C国）
• 将fill映射为「年份」与「是否为目标国家」的交互项，以此区分目标国和其他国家的颜色
• 通过scale_fill_manual指定对应颜色，并调整图例逻辑，只保留年份相关的条目

以下是修改后的完整代码：

Panel <- read.dta("http://dss.princeton.edu/training/Panel101.dta")
Panel$y = Panel$y / 1000000

# 新增变量：标记是否为需要突出的C国
Panel <- Panel %>%
  filter(year %in% c(1990, 1991)) %>%
  mutate(is_target = ifelse(country == "C", "target", "other"))

# 绘制图形
ggplot(Panel, aes(x = country, y = y, fill = interaction(as.factor(year), is_target))) +
  geom_bar(stat = 'identity', position = 'dodge2', colour = 'white') +
  # 指定颜色：其他国家用原配色，C国对应年份用更深的色调
  scale_fill_manual(
    values = c(
      "1990.other" = "#001d87",    # 1990年非目标国颜色
      "1991.other" = "#d9912e",    # 1991年非目标国颜色
      "1990.target" = "#000a36",   # 1990年C国深色调
      "1991.target" = "#99661e"    # 1991年C国深色调
    ),
    # 控制图例只显示年份，保持原有样式
    breaks = c("1990.other", "1991.other"),
    labels = c("1990", "1991"),
    name = "Year"
  ) +
  labs(x = 'Country') +
  theme_classic()

关键细节说明 #

• interaction(as.factor(year), is_target)：将年份和目标国标记组合成新分组，让同一年份的目标国和非目标国拥有不同颜色
• 色值调整：目标国的颜色选用原配色的深色调（降低RGB亮度即可），保证视觉上更浓郁突出
• breaks和labels：只保留非目标国的年份条目作为图例，避免暴露分组逻辑，保持图例和原图一致

你可以自行替换country == "C"中的国家名称，或者调整深色调的具体色值，适配自己的需求。

内容的提问来源于stack exchange，提问作者Nuñes