如何筛选出数据框中包含两个以上连续TRUE逻辑值的行？

嘿，这就帮你搞定这个问题！先把你的数据框明确下来，然后一步步实现筛选逻辑。

第一步：构造你的数据框 #

首先先把你提供的数据结构转成可直接使用的R数据框：

df <- structure(list(ID = c(1, 2, 3, 4, 5, 6), 
                     A = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), 
                     B = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), 
                     C = c(FALSE, TRUE, FALSE, FALSE, FALSE, TRUE), 
                     D = c(FALSE, FALSE, FALSE, FALSE, TRUE, TRUE), 
                     E = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)), 
                .Names = c("ID", "A", "B", "C", "D", "E"), 
                class = "data.frame", 
                row.names = c(NA, 6L))

第二步：核心逻辑实现 #

我们的目标是对每行的逻辑列（A到E），找出连续TRUE的最长长度，然后筛选出最长长度≥2的行。这里提供两种方法：

方法一：基础R实现 #

用apply配合rle（游程编码）函数来计算连续值的长度：

# 提取除ID外的逻辑列
logical_cols <- df[, -1]

# 定义函数：计算一行中连续TRUE的最大长度
max_consec_true <- function(x) {
  # 把逻辑值转成0/1
  x_num <- as.integer(x)
  # 用rle计算连续序列的长度和对应值
  runs <- rle(x_num)
  # 筛选出值为1（对应TRUE）的连续长度，取最大值，没有的话返回0
  max_len <- max(runs$lengths[runs$values == 1], 0)
  return(max_len)
}

# 为每行添加连续TRUE的最大长度列
df$max_consec <- apply(logical_cols, 1, max_consec_true)

# 筛选目标行
result <- df[df$max_consec >= 2, ]
print(result)

运行后你会得到ID为5和6的行，这两行分别有2个和3个连续的TRUE。

方法二：tidyverse风格实现 #

如果你习惯用dplyr，可以用更简洁的管道写法：

library(dplyr)

result <- df %>%
  rowwise() %>%
  mutate(
    max_consec = {
      # 提取当前行的A到E列
      x <- c_across(A:E)
      # 计算连续TRUE的最大长度
      runs <- rle(as.integer(x))
      max(runs$lengths[runs$values == 1], 0)
    }
  ) %>%
  filter(max_consec >= 2) %>%
  # 移除辅助列
  select(-max_consec)

print(result)

这个结果和基础R方法完全一致，只是写法更符合现代R的编码习惯。

内容的提问来源于stack exchange，提问作者DSSS