lapply和subsetting列

Question

我想让使用lapply()的bit更加优雅…(例如，one like会更好)，而不是之前必须设置一个函数。也就是说，有没有一个标准函数，我可以在其中使用[,c(1:4)]或类似的参数。

所以为了制作一个可重现的例子。

x <- xts(matrix(rnorm(500*8),ncol=8),Sys.Date()-500:1)
x.m <- split(x,'months')

下面基本上只对拆分创建的列表中的每个元素使用前4列，因此我必须创建一个函数来执行此操作，但我希望它在某种程度上更优雅……

ff <- function(xts.obj){xts.obj[,c(1:4)]}

g <- lapply(x.m, ff)

谢谢

Answer 1

[是一个函数

> args(xts:::`[.xts`)
function (x, i, j, drop = FALSE, which.i = FALSE, ...) 
NULL

所以，你可以直接使用它。这两个都可以做到。

lapply(x.m, '[', , c(1:4))
lapply(x.m, '[', j=c(1:4))

Answer 2

如果仅仅是让额外的函数到处浮动就会让你出错，你可以在lapply调用中使用匿名函数。

g <- lapply(x.m, FUN = function(x){x[, c(1:4]}