R循环遍历数据框以创建新的数据框

Question

假设我有几个数据框

dfx01=data.frame(city=c("a","b","c","d"),yr=c(2000,2001,2003,2002))
dfx02=data.frame(city=c("a","e","c","d"),yr=c(2000,2001,2005,2002))
dfx012=data.frame(city=c("f","b","c","d"),yr=c(2000,2000,2001,2002))
dfx022=data.frame(city=c("f","b","c","g"),yr=c(2002,2000,2003,2001))

我应该如何输出仅子集 yr=2001 的相应数据帧 x01,x02,x012,x022？

我尝试过应用

dflist=list(dfx01,dfx02,dfx012,dfx022)
lapply(dflist, fun(x){subset(x,startyr=2000)})

但是如何命名 4 个新数据框 x01,x02,x012,x022？谢谢。

Answer 1

您的通话只需稍作改动即可。试试

lapply(dflist, subset, yr == 2000)

但我更喜欢 [ 子集，因为 subset 可能会产生意想不到的结果。以下是如何做到这一点，并同时添加新名称。要设置与您的数据框名称相似的名称，最好先将名称添加到列表中。

> dflist <- setNames(dflist, grep("dfx0", ls(), value = TRUE))
> setNames(lapply(dflist, function(x) x[x$yr==2001, ]), 
                  gsub("df", "", names(dflist)))
# $x01
#   city   yr
# 2    b 2001
# 
# $x012
#   city   yr
# 2    e 2001
# 
# $x02
#   city   yr
# 3    c 2001
# 
# $x022
#   city   yr
# 4    g 2001