R语言如何以目标子串为变量名批量生成对应特征列？

该需求可完全在R中实现，以下提供两种适配不同使用习惯的实现方案，均支持上百个特征的批量生成操作：

方案1：基础R原生循环实现（无需安装第三方包） #

# 构造示例原始数据
df <- data.frame(ZZZ = c("M41", "M410", "M42", "F128"))
# 定义所有需要生成的目标子串，上百个目标可直接写入该向量
target_vec <- c("M41", "F12")

# 循环批量生成新列
for (target in target_vec) {
  # 注意动态列名必须使用[[ ]]赋值，不能用$运算符
  df[[target]] <- as.integer(substr(df$ZZZ, 1, 3) == target)
}

运行后你将获得列名为对应目标子串的0-1特征列，和你手动逐条写ifelse的效果完全一致。

方案2：tidyverse管道流实现（适合批量操作场景） #

如果你习惯使用tidyverse生态的语法，可使用dplyr的across函数实现更简洁的批量操作：

library(dplyr)

df <- df %>%
  mutate(
    # 遍历所有目标子串生成对应列
    across(all_of(target_vec), ~ as.integer(substr(ZZZ, 1, 3) == cur_column()))
  )

其中cur_column()会自动读取当前生成的列名（即目标子串），无需重复指定匹配规则。

实用扩展技巧 #

• 如果你需要生成所有ZZZ前3位唯一值对应的特征，无需手动录入目标子串，可直接自动提取：
  target_vec <- unique(substr(df$ZZZ, 1, 3))
• 若匹配规则有调整，只需修改substr(df$ZZZ, 1, 3) == target部分的逻辑即可批量生效。

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