lapply 后从列表返回到 data.frame

Question

我有一个关于 lapply 的非常简单的问题。我正在从 STATA 过渡到 R，我认为有一些非常基本的概念我没有得到关于在 R 中循环的知识。但是我整个下午都在阅读它并且无法找到一种合理的方法来做这个非常简单的事情.

我有三个数据框 df1、df2 和 df3，它们都具有相同的列名、相同的顺序等。

我想一次性重命名它们的列。

我将数据框放在一个列表中：

dflist <- list(df1, df2, df3)

我想要的新名称：

varlist <- c("newname1", "newname2", "newname3")

编写一个函数，将名称替换为 varlist 中的名称，并将其应用于数据帧

ChangeNames <- function(x) {
  names(x) <- varlist 
  return(x)
}

dflist <- lapply(dflist, ChangeNames)

因此，据我了解，R 更改了我放入列表中的数据帧副本的名称，但没有更改原始数据帧本身。我希望重命名数据框本身，而不是列表的元素（被困在列表中）。

现在我可以走了

df1 <- as.data.frame(dflist[1])
df2 <- as.data.frame(dflist[2])
df2 <- as.data.frame(dflist[3])

但这似乎很奇怪。你需要一个循环来取回循环的元素吗？

基本上：一旦您将一些数据框放入一个列表并通过 lapply 在它们上运行您的函数，您如何将它们从列表中移出，而不是从第一个开始？

Answer 1

如果您只想更改名称，这在 R 中并不难。请记住，赋值运算符 <- 可以按顺序应用。因此：

names(df1) <- names(df2) <- names(df3) <- c("newname1", "newname2", "newname3")

Answer 2

我不确定我的理解是否正确，您要重命名数据框的列还是包含数据框的列表组件？

如果是第一个，请先搜索再提问，问题已经问过here。

因此，如果列表中有更多数据框，您可以轻松地执行以下操作：

# Creating some sample data first
> dflist <- list(df1 = data.frame(a = 1:3, b = 2:4, c = 3:5),
+ df2 = data.frame(a = 4:6, b = 5:7, c = 6:8),
+ df3 = data.frame(a = 7:9, b = 8:10, c = 9:11))

# See how it looks like
> dflist
    $df1
  a b c
1 1 2 3
2 2 3 4
3 3 4 5

$df2
  a b c
1 4 5 6
2 5 6 7
3 6 7 8

$df3
  a  b  c
1 7  8  9
2 8  9 10
3 9 10 11

# And do the trick
> dflist <- lapply(dflist, setNames, nm = c("newname1", "newname2", "newname3"))

# See how it looks now
> dflist

$df1
  newname1 newname2 newname3
1        1        2        3
2        2        3        4
3        3        4        5

$df2
  newname1 newname2 newname3
1        4        5        6
2        5        6        7
3        6        7        8

$df3
  newname1 newname2 newname3
1        7        8        9
2        8        9       10
3        9       10       11

因此，列表中每个数据框的名称从a、b 和c 更改为newname1、newname2 和newname3。

如果是第二个，你可以这样做：

> names(dflist) <- c("newname1", "newname2", "newname3")