r - 获取与行长度不均匀的条件匹配的数据帧行

Question

假设有一个行长度不均匀且列未知的数据帧 - 即每行的长度可能不同，但所有 NA 值始终位于末尾。还有三个值:start、penultimate 和 last。

问题:如何(优雅地，无需嵌套循环)查找数据框中符合该条件的所有行？

示例:对于以下数据框和值:

df <- structure(list(V1 = c("a", "a", "a", "a", "b"), V2 = c("b", "n", "t", "o", "l"), V3 = c("c", "m", "h", "j", "p"), V4 = c("d", "c", "j", "", "e"), V5 = c("", "d", "", "", "")), 
.Names = c("V1", "V2", "V3", "V4", "V5"), 
row.names = c(NA, 5L), class = "data.frame")
df[df == ""] <- NA

start <- "a"
penultimate <- "c"
last <- "d"

所需的输出将是以下子集:

  V1 V2 V3 V4   V5
1  a  b  c  d  [NA]
2  a  n  m  c   d

Answer 1

我设法通过 apply 和 MARGIN=1 解决了这个问题，但是，我怀疑它的效率。

df[apply(df, 1, function(x) {
    temp = x[!is.na(x)]
    temp[1] == start & tail(temp, 1) == last & tail(temp, 2)[1] == penultimate
}), ]

#  V1 V2 V3 V4   V5
#1  a  b  c  d <NA>
#2  a  n  m  c    d

对于每一行，我们首先删除所有 NA 元素，然后检查条件(start、last 和 penultimate)并使用 bool 索引对行进行子集化。