ggplot绘制堆叠柱状图如何隐藏0值图例项且固定因子对应颜色

• 保留0值绘图时，默认的scale_fill_viridis()会将所有因子水平全部加入图例，无论对应数值是否为0
• 将0替换为NA后，ggplot默认会自动丢弃无观测值的因子水平，原本匹配全部35种糖型的色板会重新分配给剩余的少数糖型，直接导致糖型与颜色的对应关系错乱

核心思路是提前为所有糖型绑定固定颜色，再手动控制图例显示项，不需要修改原始数据，就能同时满足「糖型-颜色固定对应」「图例隐藏0值糖型」两个需求。

步骤1：固定糖型顺序与专属配色 #

先保留你原本设置因子顺序的代码，再提前为每一种糖型分配固定的turbo色值，从根源上避免颜色错位：

library(ggplot2)
library(viridis)

# 固定糖型因子顺序（原有代码不变）
t$Glycoform<-factor(t$Glycoform,levels=c("NaNaF","NaAF","NaGnF","NaMF","NaNa","NaA","NaGn","NaM","AAF","AGnF","AMF","AA","AGn","AM/Man4Gn","Man4A/Man5Gn","Man5/A","GnGnXF","MGnXF","MMXF","GnGnF","MGnF","MMF","GnGnX","MGnX","MMX","GnGn","MGn","MM","Man9","Man8","Man7","Man6","Man5","Man4","Rest"))

# 生成与糖型一一绑定的固定turbo色卡
glyco_colors <- viridis(n = nlevels(t$Glycoform), option = "turbo")
names(glyco_colors) <- levels(t$Glycoform)

步骤2：绘图时控制图例显示项 #

用scale_fill_manual()调用固定色卡，通过breaks参数指定仅将占比大于0的糖型放入图例，同时设置drop=FALSE禁止自动丢弃因子水平，保证颜色映射不偏移：

ggplot(t,aes(fill=Glycoform,y=Percentage,x=Plant,group=Glycoform))+
  geom_bar(stat="identity",color="white",size=1.2, width=0.8)+
  # 固定配色+控制图例显示项
  scale_fill_manual(
    values = glyco_colors,
    breaks = t$Glycoform[t$Percentage > 0], # 仅非0值糖型显示在图例中
    drop = FALSE # 禁止丢弃未观测到的因子水平，避免配色错乱
  )+
  geom_text(data=subset(t,Percentage>0),position=position_stack(vjust=0.5),color="white",size=4,aes(label=Glycoform),fontface="bold")+
  guides(fill=guide_legend(ncol=2))

（可选）如果坚持替换0为NA的写法 #

如果已经习惯先把0值替换为NA，只需要保留上述固定色卡和drop=FALSE设置即可，同样不会出现配色错乱：

# 将0值替换为NA
t[t == 0] <- NA

ggplot(t,aes(fill=Glycoform,y=Percentage,x=Plant,group=Glycoform))+
  geom_bar(stat="identity",color="white",size=1.2, width=0.8)+
  scale_fill_manual(
    values = glyco_colors,
    drop = FALSE
  )+
  # 注意过滤NA值避免文本标注报错
  geom_text(data=subset(t,!is.na(Percentage)),position=position_stack(vjust=0.5),color="white",size=4,aes(label=Glycoform),fontface="bold")+
  guides(fill=guide_legend(ncol=2))

• 糖型与颜色的对应关系永久固定，后续绘制多组样本的堆叠柱图时，即使不同样本检出的糖型种类不同，同一种糖型的颜色始终保持一致，跨图可比性强
• 图例自动隐藏占比为0的糖型，不会出现冗余项
• 不需要修改原始数据结构，避免NA值引入的额外计算错误

内容的提问来源于stack exchange，提问作者D.radiodurans