在R语言中将Date类型日期列修改为仅保留月日的方法求助

问题核心 #

你的DATE列是Date类型，而Date类型在R中必须包含年份信息，所以直接修改Date类型本身无法去除年份。要实现仅保留月日的需求，需要将其转换为字符型或因子型，这样既能保留月日格式，又能用于折线图的横轴对齐对比。

方法1：Base R 快速转换 #

使用format()函数直接将Date类型转为仅含月日的字符，格式符按需选择：

# 转换为「月-日」格式（如01-01）
NSW_2010$DATE_MD <- format(NSW_2010$DATE, "%m-%d")

# 若需要「月/日」格式，替换为：
# NSW_2010$DATE_MD <- format(NSW_2010$DATE, "%m/%d")

如果要保证绘图时横轴的日期顺序正确，建议转成因子并指定排序后的水平：

# 提取所有唯一月日值，按日期逻辑排序
md_levels <- unique(format(NSW_2010$DATE, "%m-%d"))
md_levels <- md_levels[order(as.Date(paste("2020", md_levels, sep = "-")))]

# 转换为因子
NSW_2010$DATE_MD <- factor(NSW_2010$DATE_MD, levels = md_levels)

方法2：lubridate 包精细化处理 #

用lubridate提取月和日，再组合成标准格式：

library(lubridate)

# 补零生成两位格式的月日（如01-01而非1-1）
NSW_2010$DATE_MD <- sprintf("%02d-%02d", month(NSW_2010$DATE), day(NSW_2010$DATE))

同样，如需保证顺序，转因子的逻辑和Base R一致。

跨DataFrame绘图对齐要点 #

对比两个不同年份的DataFrame（如NSW_2010和NSW_2011）时，必须统一两个DataFrame的DATE_MD因子水平，否则横轴会错位：

# 合并两个数据集的月日值，生成统一排序的水平
all_md <- unique(c(NSW_2010$DATE_MD, NSW_2011$DATE_MD))
all_md <- all_md[order(as.Date(paste("2020", all_md, sep = "-")))]

# 统一因子水平
NSW_2010$DATE_MD <- factor(NSW_2010$DATE_MD, levels = all_md)
NSW_2011$DATE_MD <- factor(NSW_2011$DATE_MD, levels = all_md)

# ggplot2 绘图示例
library(ggplot2)
ggplot() +
  geom_line(data = NSW_2010, aes(x = DATE_MD, y = TOTALDEMAND, color = "2010"), group = 1) +
  geom_line(data = NSW_2011, aes(x = DATE_MD, y = TOTALDEMAND, color = "2011"), group = 1) +
  labs(x = "月-日", y = "总需求", color = "年份") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

为什么之前的尝试失效？ #

你之前用format()或lubridate操作后年份仍存在，大概率是因为：

1. 没有将结果赋值到新列（或错误覆盖了原Date类型列）；
2. 后续操作中误将字符型转回了Date类型（Date类型必须包含年份，所以会自动补全默认年份）。

内容的提问来源于stack exchange，提问作者K-J