R-按顺序使用现有列名动态创建列

# 导入dplyr包
library(dplyr)

# 创建一个数据框
data <- data.frame(col1 = c(1, 2, 3),
                   col2 = c(4, 5, 6))

# 按顺序使用现有列名动态创建列
new_col_names <- c("col3", "col4")
data <- data %>%
  mutate(!!!set_names(map(new_col_names, ~rlang::expr(!!sym(.))), new_col_names))

# 打印结果
print(data)

# 创建一个数据框
data <- data.frame(col1 = c(1, 2, 3),
                   col2 = c(4, 5, 6))

# 按顺序使用现有列名动态创建列
new_col_names <- c("col3", "col4")
for (col_name in new_col_names) {
  data[[col_name]] <- NA
}

# 打印结果
print(data)