如何在没有循环的情况下迭代地迭代列的值？

Question

我想迭代地更改列的值（示例中的值2）。 value2在时间上由value1和更新的value2在时间i和i-1中。

时间值按上升顺序库存。

对组柱的每个值分开进行处理。

但是如在我的示例中所述，我无法成功使用accompulate2（purrr软件包）更新value2。

也许有人可以给我一些建议。

谢谢。

input <- data.frame(group=c(1,1,1,2,2,2,2),
                time=c(1,2,3,1,2,3,4),
                value1=c(4,2,2,3,3,3,3),
                value2=c(4,2,1,3,3,1,1))

input<-arrange(input, group,time)

my_function <- function(df) {
df %>%
as_tibble() %>%
group_by(group) %>%
mutate(value2=purrr::accumulate2(.x = value2, .y = ((value1==lag(value1))
                                              & (lag(value2)==value1)
                                              & (value1!=value2))[-1],
                               .f = function(.i_1, .i, .y) {
                                 if (.y) {.i_1} else {.i}  
                               }) %>% unlist())
}

> input
  group time value1 value2
1     1    1      4      4
2     1    2      2      2
3     1    3      2      1
4     2    1      3      3
5     2    2      3      3
6     2    3      3      1
7     2    4      3      1

output <- my_function(input)

> output
  group time value1 value2
1     1     1      4      4
2     1     2      2      2
3     1     3      2      2 -> data change (OK)
4     2     1      3      3
5     2     2      3      3
6     2     3      3      3 -> data change (OK)
7     2     4      3      1 -> no data change / should be replaced by 3

Answer 1

看来您的问题在于您的算法。不幸的是，由于您没有在这里解释，因此我们无法为您提供帮助。

purrr :: comguate2很难使用，因此我建议您尽可能地分配代码。这将使您的代码更具可读性，并使调试和发现错误更加容易。

例如，请考虑以下内容：

library(tidyverse)
input <- data.frame(group=c(1,1,1,2,2,2,2),
                    time=c(1,2,3,1,2,3,4),
                    value1=c(4,2,2,3,3,3,3),
                    value2=c(4,2,1,3,3,1,1))
input <- arrange(input, group,time)

#document your functions when it
#' @param .i_1 this is ...
#' @param .i this is ...
#' @param .y this is ...
my_accu_function = function(.i_1, .i, .y) {
    if(.y) {.i_1} else {.i}  
}

my_function <- function(df) {
    df %>%
        as_tibble() %>%
        group_by(group) %>%
        mutate(
            cond = value1==lag(value1) & 
              lag(value2)==value1 & 
              value1!=value2,
            value2_update=purrr::accumulate2(.x = value2, 
                                             .y = cond[-1],
                                             .f = my_accu_function) %>% unlist()
        )
}


input
#>   group time value1 value2
#> 1     1    1      4      4
#> 2     1    2      2      2
#> 3     1    3      2      1
#> 4     2    1      3      3
#> 5     2    2      3      3
#> 6     2    3      3      1
#> 7     2    4      3      1
output = my_function(input)
output
#> # A tibble: 7 x 6
#> # Groups:   group [2]
#>   group  time value1 value2 cond  value2_update
#>   <dbl> <dbl>  <dbl>  <dbl> <lgl>         <dbl>
#> 1     1     1      4      4 FALSE             4
#> 2     1     2      2      2 FALSE             2
#> 3     1     3      2      1 TRUE              2
#> 4     2     1      3      3 FALSE             3
#> 5     2     2      3      3 FALSE             3
#> 6     2     3      3      1 TRUE              3
#> 7     2     4      3      1 FALSE             1
stopifnot(output$value2_update[7]==3)
#> Error: output$value2_update[7] == 3 is not TRUE

^{在2022-05-11创建的 reprex package （v2.0.1.1） ）}

您可以看到cond最终是错误的，因此accamulate2做出了当前值1而不是上一个值3。

如果您向我们解释您的算法，也许我们可以帮助您设置正确的条件cond，以便获得正确的输出。