如何分区矢量？

Question

我该如何构建一个函数

slice(x, n) 

这将返回一个向量列表,其中每个向量除了可能是最后一个具有大小n,即

slice(letters, 10)

会回来的

list(c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j"),
     c("k", "l", "m", "n", "o", "p", "q", "r", "s", "t"),
     c("u", "v", "w", "x", "y", "z"))

？

Answer 1

你可以使用这个split功能:

split(letters, as.integer((seq_along(letters) - 1) / 10))

如果你想把它变成一个新功能:

slice <- function(x, n) split(x, as.integer((seq_along(x) - 1) / n))
slice(letters, 10)

Answer 2

slice<-function(x,n) {
    N<-length(x);
    lapply(seq(1,N,n),function(i) x[i:min(i+n-1,N)])
}