lapply 跨多个数据帧的函数集

Question

我有一组函数需要应用于多个数据帧。我想使用 lapply 函数而不是 for() 循环。

#sample data frame
id    lastpage    attribute_2
1          20            232
2          8             232
3          6             129
4          20           1271
5          20            129
6          20             74

当我一次将它应用到一个数据帧时，这些功能起作用。它基本上删除了变量“lastpage”值最低的重复项（基于attribute_2）：

 df <- df[order(df$attribute_2, -df$lastpage),]
 df <- df[!duplicated(df$attribute_2),]

当我尝试 (l) 将此函数应用于多个数据帧时，调用数据帧时似乎没有任何变化。直觉上我认为我在调用 df 时搞砸了一些事情，但我不确定是什么：

df.list <- list(df0, df1, df2, df3)
myFunc <- function(df) {
df <- df[order(df$attribute_2, -df$lastpage),]
df <- df[!duplicated(df$attribute_2),]
return(df)
}
df.list <- lapply(df.list, FUN = myFunc)

非常感谢您的帮助！ 我已经查看了所有关于 lapply 函数的类似问题，特别是这个：Applying a set of operations across several data frames in r 我可能犯了一个非常明显的错误，但我就是找不到。

编辑：感谢大家的帮助 对于任何想知道我现在到底使用什么代码的人：

df.list <- list(df0, df1, df2, df3)
myFunc <- function(x) {
  x <- x[order(x$attribute_2, -x$lastpage),]
  x <- x[!duplicated(x$attribute_2),]
}
df.list2 <- lapply(df.list, myFunc)

df2_c<-df.list2[[3]]

Answer 1

您的代码可能按预期工作，但您将其结果分配给 df.list，而不是原始 data.frames。该列表包含其中的副本，因此它们永远不会被修改。这是有意的，也是 R 中的期望行为。

事实上，只需继续使用您的 data.frames 列表即可。

Answer 2

这个例子做了你想做的事：

set.seed(314)
df <- data.frame(x = sample(1:10, size = 50, replace = TRUE),
                 y = sample(1:10, size = 50, replace = TRUE))

df.list <- list(df,df,df,df)

lapply(df.list,nrow)

testfunction <- function(data){
  data[!duplicated(data$x),]
}

lapply(df.list, testfunction)

我认为你的功能有问题。我注意到您引用的列 email 不在您的数据框中。

还建议重命名函数内部使用的变量，因此不要引用全局变量。

正如 Konrad 在另一个答案中所说，您的原始数据框保持不变，因此例如如下调用它们：

df.list2 <- lapply(df.list, testfunction)

df.list2[[1]]