R语言如何批量创建数据框副本并为每个副本新增列赋唯一值

三种方案均无需生成32个中间数据框，一步生成最终合并结果，效率远高于手动逐一声明的写法。

方案1：data.table实现（超大数据集首选，性能最优） #

内存占用低、运行速度快，适合处理体量极大的数据集：

library(data.table)
# 将原数据转换为data.table格式
setDT(df)
# 替换为你实际需要填充的32个唯一值向量
char_vec <- c("apple", "banana", "green", "red")
# 笛卡尔积直接生成目标数据集，无冗余中间对象
result <- merge(df, data.table(character = char_vec), by = NULL)

方案2：tidyverse实现（可读性高，适合中等规模数据集） #

代码简洁易读，不需要理解复杂的底层逻辑：

library(tidyverse)
char_vec <- c("apple", "banana", "green", "red")
# 直接生成笛卡尔积，若需要严格保留原数据集的行顺序，可将crossing替换为expand_grid
result <- df %>% 
  crossing(character = char_vec)

方案3：base R实现（无需加载第三方包） #

不需要安装任何依赖包，直接用R原生函数实现：

char_vec <- c("apple", "banana", "green", "red")
result <- merge(df, data.frame(character = char_vec), by = NULL)

注意事项 #

• character是R的内置函数名，建议将新增列名改为char_type等非关键字名称，避免后续操作出现非预期错误，如果保留原名，调用时需要用反引号包裹，例如df$`character` 。

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