您共享的第一个链接中的dplyr解决方案可能会根据您的真实的数据抛出警告，但确实有效：

library(dplyr)

DF1 %>%
  filter(row_number() < min(which(sBP >= 140)), .by = ID)
#> Warning: There was 1 warning in `filter()`.
#> ℹ In argument: `row_number() < min(which(sBP >= 140))`.
#> ℹ In group 2: `ID = 2`.
#> Caused by warning in `min()`:
#> ! no non-missing arguments to min; returning Inf
#>   ID sBP
#> 1  1 130
#> 2  1 139
#> 3  2 120
#> 4  2 122
#> 5  2 123

字符串

以下是purrr的解决方案：

libray(purrr)
library(dplyr)

map_df(
  unique(ID), 
  \(x) tibble(
    id = x, 
    sbp = head_while(sBP[ID == x], \(y) y < 140)))

# A tibble: 5 × 2
     id   sbp
  <dbl> <dbl>
1     1   130
2     1   139
3     2   120
4     2   122
5     2   123

字符串

或者，请尝试

DF1 <- data.frame(ID, sBP) %>% 
  group_by(ID) %>% 
  mutate(new=ifelse(sBP>=140,1,NA)) %>% 
  fill(new) %>% filter(is.na(new)) %>% 
  select(-new)

字符串
创建于2023-11-09带有reprex v2.0.2

# A tibble: 5 × 2
# Groups:   ID [2]
     ID   sBP
  <dbl> <dbl>
1     1   130
2     1   139
3     2   120
4     2   122
5     2   123

型