r - 还回名字

Question

我有一个 df 看起来像这样:

我想得到所有至少连续出现 2 次 1 的名字。

在这种情况下，我只想返回 B C D F。

有没有办法做到这一点？

Answer 1

我们可以循环遍历行，使用 rle(查找是否有连续元素)并创建逻辑索引以对“名称”进行子集化

df1$Name[apply(df1[-1], 1, function(x) {
                 rl <- rle(x==1)
            any(rl$lengths[rl$values]>=2)})]
#[1] "B" "C" "D" "F"

---

更快的方法可能是粘贴每行中的元素，然后使用正则表达式环视查找 1 是否后跟 1

df1$Name[grepl("(?<=1)1", do.call(paste0, df1[-1]), perl = TRUE)]
#[1] "B" "C" "D" "F"

数据

df1 <- structure(list(Name = c("A", "B", "C", "D", "E", "F"), `2000` = c(1L, 
0L, 1L, 1L, 0L, 0L), `2001` = c(0L, 0L, 1L, 1L, 1L, 1L), `2002` = c(0L, 
1L, 0L, 1L, 0L, 0L), `2003` = c(1L, 1L, 0L, 1L, 1L, 1L), `2004` = c(0L, 
0L, 1L, 1L, 0L, 1L), `2005` = c(1L, 1L, 1L, 0L, 1L, 1L)), .Names = c("Name", 
"2000", "2001", "2002", "2003", "2004", "2005"), class = "data.frame", 
 row.names = c(NA, -6L))