使用purrr应用累积函数

Question

对于x的每个位置，我想计算有多少个＆gt; 5。 这是我的代码，使用for循环：

x<-c(2,8,4,9,10,6,7,3,1,5)

y <- vector()
for (i in seq_along(x)) {
  x1 <- x[1:i]
  y <- c(y, length(x1[x1>5]))
}
> y
 [1] 0 1 1 2 3 4 5 5 5 5

你能帮我用purrr做吗？可以在这里使用purrr :: reduce吗？

Answer 1

UPDATE tbl_candidates SET votecount = ( SELECT COUNT(sid) FROM tbl_votes WHERE tbl_votes.sid = tbl_candidates.sid GROUP BY sid ); 功能可以做到这一点

cumsum

Answer 2

您可以使用accumulate()中的purrr：

accumulate(x > 5, `+`)
#[1] 0 1 1 2 3 4 5 5 5 5

它基本上是Reduce() accumulate = TRUE

的包装器

accumulate <- function(.x, .f, ..., .init) {
  .f <- as_function(.f, ...)

  f <- function(x, y) {
    .f(x, y, ...)
  }

  Reduce(f, .x, init = .init, accumulate = TRUE)
}