如何在R的ggplot2中正确排序含年份周数的X轴？

问题原因 #

你的Week列是字符类型，ggplot默认按字典序对字符型X轴排序，导致2022开头的周数排在2023前面，不符合「先2023w1-2023w20，再2022w1-2022w20」的需求。另外，Quantity列是字符型，会影响柱状图的数值展示，需先转为数值型。

解决方案 #

方法一：直接指定因子水平（适合已有正确顺序的原始数据） #

利用你原始Week向量的顺序，将其转换为有序因子，让ggplot按因子水平顺序渲染X轴：

# 修正Quantity为数值型
df$Quantity <- as.numeric(df$Quantity)

# 将Week转换为有序因子，水平顺序匹配原始Week向量
df$Week <- factor(df$Week, levels = Week, ordered = TRUE)

# 重新绘图
windows()    
plot <- ggplot(df) +
  geom_bar(aes(x=Week, y=Quantity), stat="identity", fill="pink", colour="pink")+
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
plot

方法二：提取年份和周数排序（通用方法，适合数据顺序混乱的情况） #

若原始数据顺序不符合预期，可提取年份和周数，按年份降序、周数升序排序后设置因子水平：

# 修正Quantity为数值型
df$Quantity <- as.numeric(df$Quantity)

# 提取年份和周数，排序后设置因子水平
df <- df %>%
  mutate(
    Year = as.numeric(substr(Week, 1, 4)),
    Week_num = as.numeric(substr(Week, 6, nchar(Week)))
  ) %>%
  arrange(desc(Year), Week_num) %>%
  mutate(Week = factor(Week, levels = unique(Week), ordered = TRUE)) %>%
  select(-Year, -Week_num) # 删除临时辅助列

# 绘图
windows()    
plot <- ggplot(df) +
  geom_bar(aes(x=Week, y=Quantity), stat="identity", fill="pink", colour="pink")+
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
plot

效果说明 #

两种方法均能实现X轴按「2023w1→2023w20→2022w1→2022w20」的顺序排列，同时修正了Quantity的类型问题，确保柱状图高度正确反映数值大小。

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