删除列表中每个子集的最后一行

Question

我有一个包含多个数据框的列表。我想删除列表中每个数据框的最后一行。我用了

sapply(list.name,function(d){d<- d[-nrow(d),]})

但它不起作用。有谁知道我怎么做。

Answer 1

怎么样：

lapply(list.name,head,-1)

Answer 2

你很亲密，不需要在你的职能范围内进行任命。

newlist <- lapply(dflist, function(d) d[-nrow(d), ])

这是一个更通用的解决方案，您可以适应其他问题但在这种情况下@textb解决方案更有效。