r - 在函数中复制数据框

Question

我要复制数据框 a到一个新的数据框 b在一个函数里面。

a <- mtcars

saveData <- function(x, y){
    y <- x
    return(y)
}

saveData(a, b)

在这个例子中，函数应该创建对象/数据框 b . b应该是 a 的副本(即， mtcars )
关键是灵活地“命名”对象。
我玩得太多了 assign() , deparse() , 和 substitute() ，但我无法让它工作。

Answer 1

从函数中保存全局环境中的数据不是一个好习惯。但是，如果您想这样做，这里有一种方法:

saveData <- function(x, y){
   assign(deparse(substitute(y)), x, envir = parent.frame())
}

a <- mtcars
b

Error: object 'b' not found

saveData(a, b)
b
#                     mpg cyl  disp  hp drat    wt  qsec vs am gear carb
#Mazda RX4           21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
#Mazda RX4 Wag       21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
#Datsun 710          22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
#Hornet 4 Drive      21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
#Hornet Sportabout   18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
#...