R如何基于现有变量批量创建新变量并同步完成重编码

你的重编码逻辑可以先做简化：仅当原变量取值为1时新变量为1，其余情况均为0，完全可以用as.integer(原变量 == 1)一步实现，无需逐条件赋值。
针对批量生成100个带C后缀新变量的需求，以下是两种主流实现方式：

• tidyverse方案（推荐，代码简洁易维护）
  使用dplyr的across()函数实现跨列批量处理，直接通过.names参数控制新变量命名规则：

library(dplyr)
df <- df %>%
  mutate(
    # 选择编号1到100的原变量列
    across(`1`:`100`,
           # 每列的重编码逻辑
           ~ as.integer(.x == 1),
           # 新变量命名规则：原列名加后缀C
           .names = "{.col}C")
  )

如果你的原变量不是严格连续排序，也可以用matches("^\\d+$")作为列选择规则，匹配所有列名是纯数字的变量。

• base R方案（无需加载第三方包）
  用循环遍历实现，适合轻量化场景：

for (i in 1:100) {
  # 拼接新变量名，读取对应原变量值重编码
  df[[paste0(i, "C")]] <- as.integer(df[[as.character(i)]] == 1)
}

两种方案都可以一次性完成100个新变量的生成和赋值，不需要手动逐列写代码。

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