如果我没理解错的话，你需要确保任何一串零都至少有5行长，除非它在数据的末尾。

library(dplyr)

df %>% 
  group_by(zero_run = cumsum(n == 0 & lag(n, default = 1) != 0)) %>% 
  mutate(
    zeros_consecutive = row_number(),
    n_new = ifelse(zero_run == 0 | zeros_consecutive > 5, n, 0)
  ) %>% 
  ungroup()

# # A tibble: 20 × 4
#       n zero_run zeros_consecutive n_new
#   <dbl>    <int>             <int> <dbl>
#  1     0        1                 1     0
#  2  9009        1                 2     0
#  3     0        2                 1     0
#  4     0        2                 2     0
#  5     0        2                 3     0
#  6     0        2                 4     0
#  7     0        2                 5     0
#  8  5410        2                 6  5410
#  9     0        3                 1     0
# 10     0        3                 2     0
# 11     0        3                 3     0
# 12     0        3                 4     0
# 13     0        3                 5     0
# 14     0        3                 6     0
# 15    32        3                 7    32
# 16     0        4                 1     0
# 17     0        4                 2     0
# 18  1054        4                 3     0
# 19     0        5                 1     0
# 20     0        5                 2     0

为了更好地演示该方法，我在helper列中保留了这些内容，但是您可以通过使用n = ifelse(...)代替n_new = ifelse(...)并添加select(!zeros_run:zeros_consecutive)来删除这些内容。