Вы можете использовать комбинацию значений rbind и rowSums не-NA. См. ниже.
Также для дальнейшего использования, если вы предоставляете данные в более легко воспроизводимом формате, это более полезно. Например, как у меня ниже или для более сложных данных вы можете запустить dput(X)
и опубликовать вывод, который возвращается
X <- data.frame(A = c(1,3,6), B = c(2,NA,NA), C = c(3,4,NA))
rbind(X, rowSums(!is.na(X)))
#> A B C
#> 1 1 2 3
#> 2 3 NA 4
#> 3 6 NA NA
#> 4 3 2 1
Создано в 2020-03-24 с помощью пакета Представить (v0.3.0)