如何在R中用单个函数批量创建序列空列？

你可以通过批量生成列名结合向量化操作实现需求，无需编写30个独立的mutate调用，以下是两种常用方法：

方法1：使用dplyr的across函数 #

先生成需要添加的列名列表，再通过across一次性创建所有空列：

library(dplyr)

# 初始数据集
df <- as.data.frame(ID = c(1:5), field7_01 = c(0,0,1,1,3))

# 生成field7_02到field7_30的列名
new_cols <- paste0("field7_", sprintf("%02d", 2:30))

# 批量添加空列
df <- df %>%
  mutate(across(all_of(new_cols), ~ ""))

方法2：直接数据框赋值（无需dplyr） #

如果不依赖tidyverse，用基础R的赋值操作更简洁：

# 初始数据集
df <- as.data.frame(ID = c(1:5), field7_01 = c(0,0,1,1,3))

# 生成列名
new_cols <- paste0("field7_", sprintf("%02d", 2:30))

# 批量添加空列
df[new_cols] <- ""

说明：sprintf("%02d", 2:30)用于生成两位数序号，确保新列名和已有field7_01的格式统一（比如field7_02而非field7_2）。

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