如何在ggplot中仅修改现有柱状图的指定分组填充色

需求说明 #

复用旧项目代码生成柱状图后，希望将前3组（Disturbed_Feed、Disturbed_Foot、Disturbed_Temp）设置为相近粉色系，另外2组（Recovery、UnDisturbed）保留默认颜色，同时维持黑色柱子边框、黑色误差棒等现有特性。此前直接修改fill参数导致图表混乱，出现误差棒偏移、图例异常、柱子重叠等问题。

解决方法 #

不要直接修改aes()中的fill映射，而是使用scale_fill_manual()在保留原有分组逻辑的基础上，为每个emean_Treatment类别指定颜色，这样不会破坏图表结构。

步骤1：定义自定义颜色向量 #

按emean_Treatment的类别顺序，为前3组指定粉色系颜色，后2组沿用ggplot默认配色：

custom_colors <- c(
  "Disturbed_Feed" = "#FFC0CB",    # 粉色
  "Disturbed_Foot" = "#FF6B6B",    # 淡红
  "Disturbed_Temp" = "#C92A2A",    # 深红
  "Recovery" = scales::hue_pal()(2)[1],  # 默认配色1
  "UnDisturbed" = scales::hue_pal()(2)[2] # 默认配色2
)

步骤2：修改原ggplot代码 #

在原图表代码中添加scale_fill_manual()，传入自定义颜色向量即可：

emeanplot2 <- ggplot(emeanframe,
                     aes(x=emean_Sleep_State,
                         y=realmean,
                         fill=emean_Treatment))+
  geom_col(position='dodge',
           color='black')+
  geom_errorbar(aes(ymin=realminmean,
                    ymax=realmaxmean),
                color='black',width=0.2,position=position_dodge(width=0.9),linewidth=1)+
  scale_x_discrete(limits=c('WAKE','SWS','REM'))+
  # 引入自定义颜色映射
  scale_fill_manual(values = custom_colors)+
  labs(x='Sleep State',
       y= 'Proportion of Behaviour',
       color="Type of Night",size=14)+
  ylim(0,1)+
  guides(fill=guide_legend(title='Type of Night'))+
  theme(axis.text.x=element_text(size=12),
        axis.text.y=element_text(size=12),
        axis.title.x=element_text(size=14),
        axis.title.y=element_text(size=14))

print(emeanplot2)

错误原因说明 #

此前直接修改fill=c(...)会破坏emean_Treatment的分组映射关系，导致ggplot无法正确匹配每个柱子对应的分组，进而引发误差棒偏移、柱子重叠等问题。而scale_fill_manual()是在保留原有分组逻辑的前提下，为每个分组绑定对应颜色，完全兼容原图表的结构和特性。

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