为可变数据帧分配可变列名称

我正在遍历数据框列表dfList，它们都是Nx2，我想将每个数据帧的列名更改为c("Date", dfList[i])。例如：为可变数据帧分配可变列名称

dfList <- c("df1", "df2", "df3") 

for(i in 1:length(dfList)){ 
    names(get(dfList[i])) <- c("Date", dfList[i]) 
}

这将导致错误：

Error in names(get(dfList[i])) <- c("Date", dfList[i]) : could not find function "get<-"

names(get(dfList[i]))本身的工作原理，并返回原来的列名。另外，c("Date", dfList[i])的作品。

任何想法如何解决我收到的错误？

谢谢！

来源

2016-02-19 Clark Henry

尝试：

for(i in 1:length(dfList)){ 
    temp <- get(dfList[i]) 
    names(temp) <- c("Date", dfList[i]) 
    assign(dfList[i],temp) 
}

应当注意的是，你应尽量避免get和assign，而且它可能更好，当你创建的数据帧指定的列名。

来源

2016-02-19 23:45:58 Laterow

如果你确定使用purrr：

library(purrr) 

df_list <- list(data.frame(1:10, ncol = 2), 
       data.frame(1:20, ncol = 2), 
       data.frame(1:30, ncol = 2)) 


map2(df_list, 1:length(df_list), function(x, y) setNames(x, c("Date", paste('df', y, sep = ""))))

来源

2016-02-19 23:50:48 andrewelamb

为可变数据帧分配可变列名称

回答

相关问题