在ggplot2中调整图例顺序与堆叠条形顺序一致（反转abcd为dcba）

方法1：修改数据的因子水平 #

通过将cat列转换为因子，并指定levels为c('d','c','b','a')，让填充色的顺序直接匹配条形的堆叠顺序，同时可简化position参数：

plot_data <- data.frame(cat=c('a','b','c','d'),value=c(1:4))
# 修改cat为因子，指定顺序为d、c、b、a
plot_data$cat <- factor(plot_data$cat, levels = c('d','c','b','a'))

plot_data %>% ggplot(aes(x='1',y=value,fill=cat))+
  geom_bar(stat='identity', position = position_stack())+
  geom_text(aes(label=value), position = position_stack(vjust=0.5))

方法2：使用scale_fill_discrete反转图例 #

无需修改原始数据，直接在ggplot图层中添加scale_fill_discrete(reverse = TRUE)即可反转图例顺序：

plot_data <- data.frame(cat=c('a','b','c','d'),value=c(1:4))
plot_data %>% ggplot(aes(x='1',y=value,fill=cat))+
  geom_bar(stat='identity',position = position_stack(reverse=TRUE))+
  geom_text(aes(label=value),position = position_stack(reverse=TRUE,vjust=0.5))+
  scale_fill_discrete(reverse = TRUE)

方法3：使用guides手动设置图例顺序 #

通过guides()函数指定fill图例反转，效果与方法2一致：

plot_data <- data.frame(cat=c('a','b','c','d'),value=c(1:4))
plot_data %>% ggplot(aes(x='1',y=value,fill=cat))+
  geom_bar(stat='identity',position = position_stack(reverse=TRUE))+
  geom_text(aes(label=value),position = position_stack(reverse=TRUE,vjust=0.5))+
  guides(fill = guide_legend(reverse = TRUE))

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