一个选项是使用两个标准filter()，一个用于“Run = \d{1，3}”，另一个用于“Final Intermolecular...”，使用来自dplyr包的lead() function，以确保“Final Intermolecular...”在“Run = \d{1，3}”之前8行，例如

library(tidyverse)

df <- data.frame(x = c(0, "Run = 123", 1, 2, 3, 4, 5, 6, 7, 8, "xxyyzz Final Intermolecular Energy     = 123", 0,
                       0, "Run = 345", 1, 2, 3, 4, 5, 6, 7, 8, "not final energy", 0))
df
#>                                               x
#> 1                                             0
#> 2                                     Run = 123
#> 3                                             1
#> 4                                             2
#> 5                                             3
#> 6                                             4
#> 7                                             5
#> 8                                             6
#> 9                                             7
#> 10                                            8
#> 11 xxyyzz Final Intermolecular Energy     = 123
#> 12                                            0
#> 13                                            0
#> 14                                    Run = 345
#> 15                                            1
#> 16                                            2
#> 17                                            3
#> 18                                            4
#> 19                                            5
#> 20                                            6
#> 21                                            7
#> 22                                            8
#> 23                             not final energy
#> 24                                            0

df %>%
  filter(str_detect(x, "Run = \\d{1,3}") & 
           str_detect(lead(x, n = 9), ".*Final Intermolecular Energy     ="))
#>           x
#> 1 Run = 123

# doesn't detect "Run = 345" as it doesn't match the second criteria

创建于2023-05-31带有reprex v2.0.2