R语言中基于日期范围的for循环赋值问题求助

• 原代码的核心错误：
  1. 字符串引号不闭合，i-04-1" 缺少开头的双引号，属于语法错误
  2. 未将循环变量i与月日字符串拼接，直接写i-04-1会被当作数值运算，无法生成合法的日期格式字符串
• 修正方案：
  使用字符串拼接函数将年份i与固定月日部分拼接成完整的日期字符串，再传入as.Date转换为日期类型。同时避免每次循环覆盖数据框，建议用列表存储每年的结果。

修正后的代码 #

# 创建空列表存储每年的日期数据框
df_list <- list()

for (i in 1994:2019) {
  # 拼接合法的日期字符串，格式为"YYYY-MM-DD"
  start_date <- as.Date(paste0(i, "-04-01"))
  end_date <- as.Date(paste0(i, "-10-01"))
  # 生成月度日期序列并创建数据框
  df <- data.frame(date = seq(from = start_date, to = end_date, by = "month"))
  # 将结果存入列表，用年份命名元素方便后续调用
  df_list[[as.character(i)]] <- df
}

# 可选：合并所有年份的数据框为一个整体
combined_df <- do.call(rbind, df_list)

补充说明 #

• paste0(i, "-04-01") 会自动将数值类型的i转为字符串，拼接后生成"1994-04-01"这类as.Date可直接识别的标准日期格式
• 用列表存储循环结果，避免后续循环覆盖之前生成的df数据
• 若需要统一处理所有年份的数据，可通过do.call(rbind, df_list)将列表中的数据框合并为一个大的数据框

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