如何在R的for循环中为日期添加月份并将结果存入list或dataframe？

你可以借助lubridate包的日期偏移功能实现需求，以下提供两种实现方式：

1 基于原有for循环逻辑的修正版 #

你原有逻辑的核心问题是缺少安全的月份偏移方法，以及没有将生成的新行追加到原有数据框中，修正后代码如下：

# 加载依赖包，lubridate用于日期处理，dplyr适配你原有代码的rename语法
library(lubridate)
library(dplyr)

# 初始化数据框
current_date <- Sys.Date()
D <- data.frame(Month = month(current_date), Year = year(current_date))

for (x in 1:23) { # 已经初始化了当前月，再循环23次刚好凑够24个月
  # 用%m+%安全加月份，避免月末日期偏移问题
  tmp_date <- current_date %m+% months(x)
  # 生成新行并追加到数据框
  new_row <- data.frame(Month = month(tmp_date), Year = year(tmp_date))
  D <- rbind(D, new_row)
}

2 更高效的向量化实现（无需for循环） #

R的向量化语法比for循环更简洁高效，推荐用这种写法：

library(lubridate)

# 生成包含当前月在内共24个月的连续日期序列
date_seq <- Sys.Date() %m+% months(0:23)
# 直接转换为两列数据框
D <- data.frame(
  Month = month(date_seq),
  Year = year(date_seq)
)

调整说明 #

如果不需要包含当前月份，仅从下个月开始计算2年的时间范围，把上述代码中的0:23改为1:24即可。

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