将子集函数应用于数据框列表答案

【问题标题】：Apply subset function to a list of dataframes将子集函数应用于数据框列表
【发布时间】：2013-11-19 03:06:14
【问题描述】：

我有一个SpatialPolygonDataFrame 列表，我可以像这样将其同化为dataframe：

df.1 <- data.frame(A = c(1:10), B = c(1, 2, 2, 2, 5:10))
df.2 <- data.frame(A = c(1:10), B = c(1, 2, 2, 2, 2, 2, 7:10))
df.3 <- data.frame(A = c(1:10), B = c(1, 2, 2, 4:10))

list.df <- list(df.1, df.2, df.3)

我想根据条件获取每个数据帧的子集列表（list.df.sub 是我正在寻找的结果）：

df.1.sub <- subset(df.1, df.1$B != 2)
df.2.sub <- subset(df.2, df.2$B != 2)
df.3.sub <- subset(df.3, df.3$B != 2)

list.df.sub <- list(df.1.sub, df.2.sub, df.3.sub)

我想直接在list.df 上应用我的子集。我知道我必须使用lapply 函数但不知道如何？

【问题讨论】：

标签： r list dataframe lapply

【解决方案1】：

这应该可行：

lapply(list.df, function(x)x[x$B!=2,])

或subset:

lapply(list.df, subset, B!=2)

【讨论】：

【解决方案2】：

如果只想对一列进行子集化，也可以使用“[[”函数

example_list <- list(iris, iris, iris)
lapply(example_list, "[[", "Species")

【讨论】：