列表中的拆分函数并省略一些观察结果答案

【问题标题】：split function in lists and leave out some observations列表中的拆分函数并省略一些观察结果
【发布时间】：2018-01-23 16:31:21
【问题描述】：

这是我的代码：

cpi <- c(100:200)
cpi_sp <- seq_along(cpi) 
cpis <- list(cpi, c(100:200), c(100:200), c(100:200))
cpis_y <- lapply(cpis, function(x) split(x, ceiling(cpi_sp/12)) )

我想要那个split resp。 ceiling 首先做他们的工作，例如4 次观察，然后总是接下来的 12 次。我知道有一个简单的方法，但直到现在我才找到它。感谢您的帮助！

【问题讨论】：

想要的结果是什么？
你的意思是lapply(cpis, function(x) split(x, c(rep(0, 4), ceiling(cpi_sp[-(1:4)]/12))))
是的，这就是解决方案！请将此作为答案发布，我会接受！ :)

标签： r list split lapply ceil

【解决方案1】：

akrun 发布的答案是：

lapply(cpis, function(x) split(x, c(rep(0, 4), ceiling(cpi_sp[-(1:4)]/12))))

【讨论】：