基于日期添加并填充数据列的R语言实现需求

这里提供几种在R中生成月份哑变量列的方法，都能满足你的需求：

方法1：基础R实现 #

利用model.matrix快速生成哑变量矩阵，再合并到原数据集：

# 提取每条记录的月份（两位数格式）
mydata$month <- format(mydata$mydate, "%m")
# 生成月份哑变量矩阵（去掉截距项）
month_dummies <- model.matrix(~ 0 + month, data = mydata)
# 将列名重命名为m1至m12
colnames(month_dummies) <- paste0("m", 1:12)
# 合并原数据与哑变量矩阵，同时移除临时的month列
result <- cbind(mydata[, -which(names(mydata) == "month")], month_dummies)

# 输出结果
print(result)

运行后输出：

co  b     mydate m1 m2 m3 m4 m5 m6 m7 m8 m9 m10 m11 m12
1 2.3 3 2015-10-01  0  0  0  0  0  0  0  0  0   1   0   0
2 3.1 5 2015-11-01  0  0  0  0  0  0  0  0  0   0   1   0
3 5.7 6 2015-12-01  0  0  0  0  0  0  0  0  0   0   0   1

方法2：tidyverse 简洁实现 #

如果习惯使用tidyverse工具链，可以用dplyr和tidyr组合完成：

library(tidyverse)

result <- mydata %>%
  # 提取月份并转为因子，确保1-12月都被覆盖
  mutate(month = factor(format(mydate, "%m"), levels = sprintf("%02d", 1:12))) %>%
  # 宽表转换生成哑变量列
  pivot_wider(
    names_from = month,
    names_prefix = "m",
    values_fn = ~1,
    values_fill = 0
  ) %>%
  # 把m01、m02这类列名改为m1、m2
  rename_with(~str_remove(.x, "0"), starts_with("m0"))

print(result)

方法3：手动循环生成列 #

这种方法逻辑直观，适合新手理解：

# 循环生成m1到m12列
for (month_num in 1:12) {
  # 判断当前记录的月份是否等于循环的月份，是则填1，否则填0
  mydata[[paste0("m", month_num)]] <- as.integer(
    format(mydata$mydate, "%m") == sprintf("%02d", month_num)
  )
}

# 输出结果
print(mydata)

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