R 将选定的索引范围与阈值进行比较

我认为最好使用for循环进行迭代.

library(tidyverse)

df <- tibble(id = rep(1:2, each = 9),
             range_index = rep(c(2,4,4,5,7,7,9,9,NA), 2),
             score = c(5,4,4,3,2,2,3,1,1,5,4,4,3,2,2,3,1,0))
df %>%
  group_by(id) %>%
  mutate(
    baseline = {
      baseline <- score
      for (i in 2:(n() - 1)) {
        baseline[i] <- min(baseline[i - 1], max(score[i]:score[range_index[i]]))
      }
      baseline[n()] <- baseline[n() - 1]
      baseline
    }
  )
#> # A tibble: 18 × 4
#> # Groups:   id [2]
#>       id range_index score baseline
#>    <int>       <dbl> <dbl>    <dbl>
#>  1     1           2     5        5
#>  2     1           4     4        4
#>  3     1           4     4        4
#>  4     1           5     3        3
#>  5     1           7     2        3
#>  6     1           7     2        3
#>  7     1           9     3        3
#>  8     1           9     1        1
#>  9     1          NA     1        1
#> 10     2           2     5        5
#> 11     2           4     4        4
#> 12     2           4     4        4
#> 13     2           5     3        3
#> 14     2           7     2        3
#> 15     2           7     2        3
#> 16     2           9     3        3
#> 17     2           9     1        1
#> 18     2          NA     0        1