以反向顺序在data.frame中的列连续计数NA

Question

我需要在调查数据集中标识离开者。为此，我想在我的数据中添加另一列，这些列以连续的NA为单位，从一个特定列开始，然后向后计数。

我已经计入总NA作为解释here，并且虽然NA高数是一个相当不错的指标，我想确保人们不只是通过调查问卷，而不是彻底离开的部分跳过。

下面是一些示例数据：

df <- structure(list(f1 = c(3, 3, 1, 2, 3, 2, 2, NA, 2, 3), f2num = c(170, 
NA, 182, 173, 169, NA, NA, NA, 153, 178), f3num = c(105, NA, 
77, 80, 58, NA, NA, NA, 45, 81), f4num = c(2, NA, 0, NA, NA, 
NA, 1, NA, 0, 0), f5num = c(9, NA, 1, NA, NA, NA, 2, NA, 0, 2 
), f6num = c(NA, NA, NA, NA, NA, NA, 0, NA, NA, NA), f7 = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_), f7num = c(NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_ 
), f8num = c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), f9 = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_)), .Names = c("f1", "f2num", "f3num", "f4num", 
"f5num", "f6num", "f7", "f7num", "f8num", "f9"), row.names = c(NA, 
10L), class = "data.frame") 

> df 
    f1 f2num f3num f4num f5num f6num f7 f7num f8num f9 
1 3 170 105  2  9 NA NA NA NA NA 
2 3 NA NA NA NA NA NA NA NA NA 
3 1 182 77  0  1 NA NA NA NA NA 
4 2 173 80 NA NA NA NA NA NA NA 
5 3 169 58 NA NA NA NA NA NA NA 
6 2 NA NA NA NA NA NA NA NA NA 
7 2 NA NA  1  2  0 NA NA NA NA 
8 NA NA NA NA NA NA NA NA NA NA 
9 2 153 45  0  0 NA NA NA NA NA 
10 3 178 81  0  2 NA NA NA NA NA 

我的预期输出应该是这样的：

> df 
    f1 f2num f3num f4num f5num f6num f7 f7num f8num f9 consNA 
1 3 170 105  2  9 NA NA NA NA NA  5 
2 3 NA NA NA NA NA NA NA NA NA  9 
3 1 182 77  0  1 NA NA NA NA NA  5 
4 2 173 80 NA NA NA NA NA NA NA  7 
5 3 169 58 NA NA NA NA NA NA NA  7 
6 2 NA NA NA NA NA NA NA NA NA  9 
7 2 NA NA  1  2  0 NA NA NA NA  4 
8 NA NA NA NA NA NA NA NA NA NA  10 
9 2 153 45  0  0 NA NA NA NA NA  5 
10 3 178 81  0  2 NA NA NA NA NA  5 

Jthorpe的回答this question让我尽可能

t(apply(df,1,function(x)which.min(rev(is.na(x)))-1)) 

    1 2 3 4 5 6 7 8 9 10 
[1,] 5 9 5 7 7 9 4 0 5 5 

这显然是几乎是我所需要的，但如果一切都是，则不起作用0（见第8行）。

Answer 1

这是一个有点笨拙，但它的工作原理：

df$consNA <- apply(df, 1, function(x) sum(cumsum(!is.na(rev(x))) == 0)) 

df$consNA 
#[1] 5 9 5 7 7 9 4 10 5 5 

的每一行，我们扭转其顺序和数量的第一套NA s，至遇到任何非NA。