условного расчета: длина определенной строки, когда ниже строка не значение NA

Question

У меня есть следующий ДФ:

  X7 X8 X9 X10 X11 X12 X13 X14 
1   1 1 <NA> 1 1 1 1 <NA>  
2   1 1 1 1 1 1 <NA> <NA> 
3   1 1 1 1 1 <NA> <NA> <NA> 

Редактировать: Используя это:

df <- data.frame(X7=c(1L,1L,1L),X8=c(1L,1L,1L),X9=factor(c(NA,'1','1')),X10=c(1L,1L,1L),X11=c(1L,1L,1L),X12=factor(c('1','1',NA)),X13=factor(c('1',NA,NA)),X14=factor(c(NA,NA,NA))); 

Я хочу, чтобы вычислить длину строки 1, за исключением NA, когда значения в строке 2 не являются значениями NA. И затем сделайте то же самое для строки 1 и 3.

Таким образом, результат для строк 1-2 должен быть 5 и строки 1-3 должны быть 4.

Я понятия не имею, как идти об этом, кроме зная, как вычислить длину каждой строки:

(apply(df, MARGIN = 1, FUN = function(x) length(x[!is.na(x)]))) 

Любая помощь будет принята с благодарностью!

Answer 1

Я бы прекомпилировал логическую матрицу, представляющую, какие ячейки не NA, а затем перебираем все индексы строк за пределами первого номера с помощью вызова sapply(). Внутри лямбды вы можете сделать логическое И между текущей строкой и первой строкой, чтобы получить общие не-NA, а затем использовать sum(), чтобы подсчитать, сколько их есть.

df <- data.frame(X7=c(1L,1L,1L),X8=c(1L,1L,1L),X9=factor(c(NA,'1','1')),X10=c(1L,1L,1L),X11=c(1L,1L,1L),X12=factor(c('1','1',NA)),X13=factor(c('1',NA,NA)),X14=factor(c(NA,NA,NA))); 
nons <- !is.na(df); 
sapply(seq(2L,len=nrow(df)-1L),function(ri) sum(nons[1L,]&nons[ri,])); 
## [1] 5 4 

---

В качестве альтернативы, вы можете предвычисление индексов столбцов в первой строке, которые имеют не-NA, а затем внутри лямбда-вызов intersect() против индексов в текущей строке, которые имеют не-NA.

nons <- !is.na(df); 
nons1 <- unname(which(nons[1L,])); 
sapply(seq(2L,len=nrow(df)-1L),function(ri) length(intersect(nons1,which(nons[ri,])))); 
## [1] 5 4