使用应用函数族对 List 中的行进行子集

Question

这是一个普遍的问题，我如何使用应用函数显示列表中每个元素的前几行。 我知道我必须使用 lapply 但我很困惑我将在其中使用什么功能

# I have tried this but I did not work. 
lapply( data.list , "[" ,1:3)

Answer 1

通过提取器，如果我们不使用, ，它会将其视为列索引

lapply(data.list, `[`, 1:3, )

或者另一种选择是利用head

lapply(data.list, head, 3)

数据

data.list <- list(head(mtcars), head(mtcars))