如何用ggplot2将柱状图横轴Bin按升序排列？

这个问题的核心原因是你的Bin列是字符型变量，R默认会按照字符串的字母顺序来排序，而不是我们直觉里的数值区间顺序。比如"1,000-1,100"因为首字符是'1'，会排在"400-500"（首字符'4'）前面，直接导致了横轴顺序混乱。

解决步骤： #

1. 提取区间起始数值，确定正确排序逻辑：从每个Bin字符串里提取起始数字（比如从"400-500"取400，"1,000-1,100"取1000），用这个数值来锚定真实的区间顺序。
2. 将Bin转换为有序因子：把Bin列转换成ordered factor，指定好我们想要的升序区间顺序，这样ggplot2就会严格按照设定的顺序绘制横轴。

完整代码示例： #

library(ggplot2)

# 你的原始数据
data.bins1<-structure(list(Bin = c("400-500", "500-600", "600-700", "700-800", "800-900", "900-1000", "1,000-1,100", "1,100-1,200", "1,200-1,300", "1,300-1,400", "1,400-1,500", "400-500", "500-600", "600-700", "700-800", "800-900", "900-1000", "1,000-1,100", "1,100-1,200", "1,200-1,300", "1,300-1,400", "1,400-1,500"), variable = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("2013", "2014"), class = "factor"), value = c(10150, 4252, 5495, 4732, 2105, 2184, 720, 350, 407, 375, 320, 15404, 8201, 3901, 3469, 2547, 1594, 907, 515, 420, 354, 300)), row.names = c(NA, -22L), class = "data.frame")

# 步骤1：提取每个Bin的起始数值，生成排序后的Bin列表
# 先去除逗号、分割区间字符串，取起始部分转成数值
start_nums <- as.numeric(gsub(",", "", sapply(strsplit(data.bins1$Bin, "-"), `[`, 1)))
# 获取唯一Bin值，并按起始数值排序
sorted_bins <- unique(data.bins1$Bin)[order(unique(start_nums))]

# 步骤2：将Bin转换为有序因子
data.bins1$Bin <- factor(data.bins1$Bin, levels = sorted_bins, ordered = TRUE)

# 绘制图表（顺便修正了原代码的小问题：把scale_color_manual改成scale_fill_manual，因为用的是fill美学映射）
ggplot(data.bins1, aes(Bin, value)) +
  geom_bar(aes(fill = variable), width = 0.4, position = position_dodge(width=0.5), stat="identity") +
  theme(legend.position="top", 
        legend.title = element_blank(),
        axis.title.x=element_blank(), 
        axis.title.y=element_blank()) +
  scale_fill_manual(values = c("#00AFBB","#E7B800"))

额外说明： #

• 原代码里用了scale_color_manual，但geom_bar是通过fill来区分分组的，所以改成scale_fill_manual才能让颜色正确应用到柱子填充上。
• 转换成有序因子后，ggplot2会完全遵循你设定的levels顺序渲染横轴，最终呈现从400-500到1400-1500的自然升序排列。

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