在应用不同功能时如何遍历数据帧列表？

Question

我有几个数据框的列表。我希望遍历每个数据框，并将第一列更改为Date，更改行名，等等。然后，我想将每个数据框返回到全局环境。这是我当前无法使用的代码。

meta = lapply(meta, function(x){
x[[1]] = as.Date(x)
rownames(x) = x[[1]]
x$Date = NULL
return(x)
})

谢谢您的协助！

Answer 1

你想要

invisible(lapply(names(meta), function(name) {
    x <- meta[[name]]
    x[[1]] = as.Date(x[[1]])
    rownames(x) = x[[1]]
    x[[1]] = NULL
    assign(sub(".csv", "", name), x, envir = .GlobalEnv)
}))

请参见help("assign")。