我有一个数据框列表。我想提取每个数据帧的前 248 行,然后将它们绑定(bind)到一个数据帧中。
allData
是数据帧列表。我尝试将 lapply
与 subset
一起使用,但我不知道如何引用其中的行号。 subset
函数的“子集”参数似乎只接受逻辑向量。
temp <- lapply(allData, subset, subset = (row.names(allData) <= 248))
这段代码是我的想法,但行不通,因为 row.names(allData)
实际上只适用于列表本身,而不适用于数据框。那么如何引用每个数据框的行号呢?
最佳答案
使用 base R,我们可以做到
do.call(rbind, lapply(allData, function(x) x[1:248, ]))
或与 purrr
purrr::map_dfr(allData, ~.[1:248, ])
使用包含 mtcars
数据的可重现示例,并对前 5 行进行子集化。
allData <- list(mtcars, mtcars)
do.call(rbind, lapply(allData, function(x) x[1:5, ]))
# mpg cyl disp hp drat wt qsec vs am gear carb
#Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
#Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
#Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
#Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
#Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
#Mazda RX41 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
#Mazda RX4 Wag1 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
#Datsun 7101 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
#Hornet 4 Drive1 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
#Hornet Sportabout1 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
关于r - 如何使用 lapply 按行号范围对列表中的数据帧进行子集化?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/56750090/