在R语言中如何复制对象？解决符号引用无法生成数据框副本问题

一、R中复制对象的常用方法 #

• 直接赋值：最基础的方式，比如 df1_copy <- df1。对于普通数据框，这种方式足够生成独立副本；但如果是data.table这类特殊对象，直接赋值是引用而非拷贝，需要用专门的拷贝函数。
• 专用拷贝函数：针对复杂对象（如data.table、带环境的列表），用data.table::copy()生成深拷贝，比如 df1_copy <- data.table::copy(df1)。
• 序列化反序列化：通过serialize()和unserialize()实现完全深拷贝，适合所有类型的对象，代码示例：df1_copy <- unserialize(serialize(df1, NULL))。

二、修正你的符号引用问题 #

你用sym(paste0("df","1"))得到的只是代表df1这个对象名的符号，并没有实际获取到对象本身，所以df1_copy不是副本。可以用以下两种方式修正：

方法1：直接赋值（优先推荐） #

如果明确知道对象名是df1，直接赋值是最简单高效的：

library(tidyverse)
df1 <- data.frame(dt=c(1:100))
df1_copy <- df1

方法2：动态获取对象后复制 #

如果需要通过字符串拼接动态获取对象名（比如批量处理场景），可以用get()或者rlang::eval_tidy()获取对象，再复制：

library(tidyverse)
df1 <- data.frame(dt=c(1:100))
# 用rlang工具链
df1_sym <- sym(paste0("df","1"))
df1_copy <- eval_tidy(df1_sym)

# 或者用基础R的get()
df1_copy <- get(paste0("df","1"))

如果需要深拷贝复杂对象，结合copy()即可：

df1_copy <- data.table::copy(get(paste0("df","1")))

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