在R中创建两位数的月和日列

# 安装并加载lubridate包
install.packages("lubridate")
library(lubridate)

# 创建日期向量
dates <- seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by = "day")

# 提取月份和日期
months <- month(dates, label = TRUE, abbr = FALSE)
days <- day(dates)

# 将月份和日期转换为两位数格式
months <- formatC(months, width = 2, flag = "0")
days <- formatC(days, width = 2, flag = "0")

# 创建包含两位数月和日的数据框
date_df <- data.frame(Month = months, Day = days)

# 打印结果
print(date_df)