如何用单条命令在RStudio中批量指定年份创建虚拟变量？

针对含空格的“Retire planned”变量（在R中需用反引号Retire planned包裹引用），可以用以下几种简洁的单条命令实现需求：

方法1：使用%in%匹配年份范围字符串 #

原变量存储的是字符型年份，先生成2020-2070的字符型年份向量，再用%in%判断是否属于该范围：

plants$Retire_planned_dummy <- ifelse(plants$`Retire planned` %in% as.character(2020:2070), 1, 0)

方法2：转数值型后用范围判断 #

将字符型年份转为数值型，直接用>=和<=指定范围，这种方式更高效，还能避免字符格式不统一的问题：

plants$Retire_planned_dummy <- ifelse(as.numeric(plants$`Retire planned`) >= 2020 & as.numeric(plants$`Retire planned`) <= 2070, 1, 0)

如果数据中存在非年份格式的NA或异常值，可添加NA处理逻辑，比如将NA设为0：

plants$Retire_planned_dummy <- ifelse(!is.na(as.numeric(plants$`Retire planned`)) & as.numeric(plants$`Retire planned`) >= 2020 & as.numeric(plants$`Retire planned`) <= 2070, 1, 0)

方法3：用dplyr包简化代码（推荐） #

如果习惯使用tidyverse语法，用mutate可以更简洁地生成虚拟变量：

library(dplyr)
plants <- plants %>% 
  mutate(Retire_planned_dummy = as.integer(`Retire planned` %in% as.character(2020:2070)))

as.integer()会自动将TRUE转为1，FALSE转为0，效果和ifelse完全一致。

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