如何将导入的月份名称转为日期，实现ggplot2折线图时间顺序排序？

方法一：将月份转为有序因子（简单直接） #

这是最适合新手的方法，无需额外安装包，直接给月份指定时间顺序即可：

# 注意包名首字母为小写，修正原代码的拼写错误
library(ggplot2)

# 按时间顺序列出所有月份名称（如果你的月份是中文，替换为"一月""二月"...即可）
month_order <- c("January", "February", "March", "April", "May", "June", 
                 "July", "August", "September", "October", "November", "December")

# 把MONTH列转换成「有序因子」，强制按上面的时间顺序排列
Book2$MONTH <- factor(Book2$MONTH, levels = month_order, ordered = TRUE)

# 重新绘制折线图，此时月份会按时间顺序展示
ggplot(data=Book2, aes(x=MONTH, y=AMROSUM, group=1)) + geom_line()

原理：默认情况下ggplot会把文本型的月份按字母排序，转换成有序因子后，x轴就会严格遵循你指定的month_order顺序排列。

方法二：将月份转为日期格式（更灵活） #

如果想让x轴支持更丰富的日期展示（比如显示年份、调整刻度间隔），可以把月份转成标准日期格式，需要用到lubridate包：

# 先安装lubridate包（仅需运行一次）
install.packages("lubridate")

# 加载所需的包
library(lubridate)
library(ggplot2)

# 把月份名称转换成具体日期（这里假设年份为2023，可自行修改）
Book2$month_date <- ymd(paste("2023", Book2$MONTH, "01", sep = "-"))

# 用日期列画图，ggplot会自动按时间顺序排序
ggplot(data=Book2, aes(x=month_date, y=AMROSUM, group=1)) + 
  geom_line() +
  # 设置x轴显示为月份名称，每月一个刻度
  scale_x_date(date_labels = "%B", date_breaks = "1 month")

原理：将月份转换为2023-01-01这类标准日期后，ggplot会自动识别时间逻辑，还能通过scale_x_date自定义x轴的显示样式。

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