如何解决ggplot2轴类别自定义排序后标签显示不匹配问题

你需要将ggplot2图表的轴类别按Dark、Medium、Light的自定义顺序排列，而非默认字母序。尝试两种方法（设置scale_x_discrete(limits)或创建有序因子）后，条形排序符合要求，但Medium和Light的轴标签显示错误。

问题根源 #

你的代码中错误设置了scale_x_discrete(labels = df$Color)——这会把整个数据框的Color列值直接作为标签循环重复使用，而非匹配排序后的轴类别，导致标签和条形不对应。

解决方案 #

只需要两步就能同时修正排序和标签：

• 将Color列转为有序因子，指定自定义顺序；
• 移除错误的scale_x_discrete(labels = df$Color)参数，让ggplot2自动使用因子的levels作为轴标签。

修正后的完整代码 #

library(tidyverse)

df = data.frame(Group = c(rep('A',6), rep('B',6), rep('C',6)),
               Status = c('0', '0', '0', '1', '1', '1', '0', '0', '0', '1', '1', '1','0', '0', '0', '1', '1', '1'),
               Color = c('Dark','Light','Medium','Dark','Light','Medium','Dark','Light','Medium','Dark','Light','Medium','Dark','Light','Medium','Dark','Light','Medium'),
               Count = c(3,6,9,3,4,1,5,2,7,3,4,8,5,3,7,6,2,6))

# 将Color转为有序因子，指定自定义顺序
df$Color <- factor(df$Color, levels = c("Dark", "Medium", "Light"))

df <- df %>% group_by(Group, Status) %>% dplyr::mutate(percent = round(Count*100/sum(Count), 1))

ggplot(data = df, aes(x = Color, fill = Group, alpha= Status)) +
 scale_alpha_manual(values = c(1, 0.5)) +
 geom_bar(data=df[df$Status=="1",], aes(y=percent), stat="identity") +
 geom_bar(data=df[df$Status=="0",], aes(y=-percent), stat="identity") +
 coord_flip(ylim=c(-80,80)) +
 theme(text = element_text(size=16)) +
 scale_y_continuous(breaks=seq(-80,80,20),labels=abs(seq(-80,80,20))) + 
 scale_fill_brewer(palette="Set2") +
 facet_wrap(~Group, ncol=1) + theme(legend.position="right") +
 labs(y="Percentage", x="Colour", fill="Group", alpha = "Status") +
 theme_light()

效果说明 #

• 轴类别会严格按照Dark→Medium→Light的顺序排列；
• 轴标签自动匹配对应类别，不会再出现混乱。

替代方案（不修改原始数据框） #

如果不想改动原始数据框，也可以在scale_x_discrete中同时指定limits和匹配的labels：

ggplot(...) +
  # 其他图层保持不变
  scale_x_discrete(limits = c("Dark", "Medium", "Light"), labels = c("Dark", "Medium", "Light")) +
  # 其他设置保持不变

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