抓住数据框列表R中每列的前10个值

Question

我有一个列和行长不均匀的数据帧列表，我想以最快的方式只提取每列的前10个元素。

示例：

ex1 = data.frame(a = 1:20, b = 31:40)
ex2 = data.frame(a = 1:100)
ex3 = data.frame()
list = c()
list[[1]] = ex1; list[[2]] = ex2; list[[3]] = ex3

输出应为数据帧的列表，每列仅具有顶部和底部的10个值。对于ex1，这看起来像是带有a和b列的数据框。 a将具有1-10和10-20，list [[2]]将容纳一个包含元素1:10和90：100的数据帧，而list [[3]]将为空。

谢谢。

Answer 1

一种选择是使用head和tail并绑定相应的行

lapply(list, function(x) rbind(head(x, 10), tail(x, 10)))
#[[1]]
#    a  b
#1   1 31
#2   2 32
#3   3 33
#4   4 34
#5   5 35
#6   6 36
#7   7 37
#8   8 38
#9   9 39
#10 10 40
#11 11 31
#12 12 32
#13 13 33
#14 14 34
#15 15 35
#16 16 36
#17 17 37
#18 18 38
#19 19 39
#20 20 40
#
#[[2]]
#      a
#1     1
#2     2
#3     3
#4     4
#5     5
#6     6
#7     7
#8     8
#9     9
#10   10
#91   91
#92   92
#93   93
#94   94
#95   95
#96   96
#97   97
#98   98
#99   99
#100 100
#
#[[3]]
#data frame with 0 columns and 0 rows