R循环内动态创建变量并直接添加至DataFrame的更优实现方法

你原来的实现存在assign生成全局临时变量、后续需要手动列变量名合并的问题，容易遗漏变量且污染工作环境，完全可以在循环内直接完成变量添加，也有更符合R语言习惯的向量化实现方式。

方案1：最小改动现有循环实现 #

直接通过数据框的双括号索引[[动态指定列名，不需要额外的全局变量赋值和后续合并操作，代码如下：

Year <- c(2005,2010,1996,1994,2001,2006,2019,2021, 2018,1987)
ls.output <- data.frame(Year)

for(y in 2005:2020) {
  # 直接为数据框新增列，paste0动态生成列名
  ls.output[[paste0("Y", y)]] <- as.integer(ls.output$Year < y)
}

说明：as.integer可以直接将逻辑判断结果转为1/0，不需要额外调用ifelse，代码更简洁。

方案2：Base R向量化实现（推荐，无需显式循环） #

用lapply批量生成所有需要的列，直接绑定到原数据框，运行效率更高，代码如下：

Year <- c(2005,2010,1996,1994,2001,2006,2019,2021, 2018,1987)
ls.output <- data.frame(Year)

target_years <- 2005:2020
# 批量生成列并赋值给数据框
ls.output[paste0("Y", target_years)] <- lapply(target_years, function(y) as.integer(ls.output$Year < y))

方案3：tidyverse生态实现 #

如果你习惯使用dplyr和purrr处理数据，可以用map_dfc批量生成列，代码风格更统一：

library(dplyr)
library(purrr)

ls.output <- data.frame(Year = c(2005,2010,1996,1994,2001,2006,2019,2021, 2018,1987)) %>%
  mutate(
    map_dfc(2005:2020, \(y) tibble(!!paste0("Y", y) := as.integer(Year < y)))
  )

以上方案均不需要手动罗列变量名做合并，也不会生成多余的全局变量，代码容错率和运行效率都优于你目前的实现。

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