删除与r中的特定条件不匹配的行

Question

我有一个包含多列的数据框，我想删除不满足特定条件的行。我只想将数据框中带有 -1 后跟 1 的行保留在其中一列中。

示例数据框

    column a   column b
1     1          1
2     3         -1
3     8          1
4     10        -1
5     12         1
6     15         1

示例输出:

    column a   column b
1     3         -1
2     8          1
3     10        -1
4     12         1

Answer 1

通过dplyr，您可以使用:

library(dplyr)
your_data %>%
  filter(
    (`column b` == -1 & lead(`column b`) == 1) |
    (`column b` == 1 & lag(`column b`) == -1)
  )
#   column a column b
# 2        3       -1
# 3        8        1
# 4       10       -1
# 5       12        1

使用此输入数据:

your_data = read.table(text = '    "column a"   "column b"
1     1          1
2     3         -1
3     8          1
4     10        -1
5     12         1
6     15         1', header = T, check.names = FALSE)