如何使用函数中传递的参数动态命名R函数中的数据集？

Question

我尝试使用以下代码来完成此操作：

sim<-function(df,df1){

y<-df1

assign(paste(y),data.frame(Var1=numeric(), Var2=numeric(), Var3=numeric(),
                             Var4=numeric()),envir=.GlobalEnv)

colnames(df)[2]<-paste(y)

return(names(df))
}

sim(test,"test")  

colnames(test)

我得到以下输出：

sim（测试，“测试”）

Answer 1

我只是想出了点什么。函数没有更改“test”的colnames的原因是R不能更改函数中的全局数据帧，除非更改也是全局的。

因此，我能想到的唯一修复方法是使用assign函数将修改赋给全局数据帧'test'，我只做了覆盖'test'

sim<-function(df,df1){

y<-df1    
assign(paste(y),data.frame(Var1=numeric(), Var2=numeric(), Var3=numeric(),
                             Var4=numeric()),envir=.GlobalEnv)

colnames(df)[2]<-paste(y)    
assign(paste(y),df,envir=.GlobalEnv)
}

sim(test,"test")  

colnames(test)

结果是这样的：

sim（测试，“测试”）

colnames（测试）

[1]“var1”“测试”“var3”“var4”