如何将ODE模拟生成的天数时间列转换为从1月开始的月份

我们可以利用lubridate包快速将天数转换为对应日期，再调整ggplot的X轴显示为月份，以下是完整修改代码：

# 加载所需工具包
library(lubridate)
library(ggplot2)

df <- data.frame(time = c(1, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100), 
                 population = c(100, 200, 250, 320, 410, 400, 380, 365, 300, 275, 215))

# 将天数转换为日期（以当年1月1日为起始，time=1对应1月1日）
df$date <- ymd("2024-01-01") + days(df$time - 1)

# 绘制时间序列图，X轴显示月份
ggplot(df, aes(x = date, y = population)) +
  geom_line() +
  scale_x_date(date_labels = "%b", date_breaks = "1 month") + # 显示英文缩写月份，每月一个刻度
  xlab("月份")

关键步骤说明 #

• 日期转换：用ymd()指定起始年份的1月1日（可替换为任意年份），days(df$time - 1)是因为time=1对应第一天，无需额外加天数。
• X轴调整：scale_x_date()的date_labels控制显示格式，%b为英文缩写月份（如Jan、Feb），若需中文月份可改用"%m月"；date_breaks设置刻度间隔为1个月，保证X轴显示整洁。

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