使用lubridate提取日期月份时的列名异常问题求解

你原来的代码出现列名混乱，是因为错误地将df_mod$date转成数据框后赋值回原date列，导致date列变成了嵌套的数据框结构。以下是几种更简洁且规范的实现方式：

方法一：使用dplyr直接添加Month列 #

在生成df_mod之后，直接用mutate从date列提取月份，不会破坏原date列的结构：

library(dplyr)
library(lubridate)

# 先生成df_mod
df_mod <- cbind(df[4], stack(df[1:3]))

# 直接添加Month列
df_mod <- df_mod %>%
  mutate(Month = month(date, label = TRUE))

方法二：在stack前先处理月份（更高效） #

如果数据量较大，可以先在原df中生成Month列，再进行stack操作，减少后续步骤：

library(dplyr)
library(lubridate)

# 先在原df添加Month列
df <- df %>%
  mutate(Month = month(date, label = TRUE))

# 再生成df_mod，包含date、Month和堆叠后的变量
df_mod <- cbind(df[c("date", "Month")], stack(df[1:3]))

方法三：Base R实现（无需加载额外包） #

如果你不想使用tidyverse包，用Base R也可以轻松实现：

# 生成df_mod
df_mod <- cbind(df[4], stack(df[1:3]))

# 添加Month列
df_mod$Month <- format(df_mod$date, "%b")
# 注：%b会生成缩写月份（如Jan、Feb），如果需要全称用%B

以上三种方式都能在保留原date列的同时，生成干净的Month列，不会出现嵌套列名的问题。

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