計算總和並處理 NA

Question

我遇到了 rowSum function 的問題。 發生的事情是任何帶有 NA 的行都被計為 0，我不希望這樣。 這是我的數據：

V1 V2 V3   V4
1  0  0    1
0  1  NA   1
NA  NA NA  NA

這是正在發生的事情：

V1 V2 V3   V4  SUM
1  0  0    1    2
0  1  NA   1    2
NA  NA NA  NA   0

我要這個：

V1 V2 V3   V4  SUM
1  0  0    1    2
0  1  NA   1    2
NA  NA NA  NA   NA 

我查看了幾個網站，嘗試了很多不同的代碼迭代，但我一直得到同樣的結果。 這是我使用過的最基本的代碼，雖然我嘗試使用 dplyr。 有人可以幫幫我嗎？

df$sum <- rowSums(df, na.rm = T)

Answer 1

我們可以利用以下事實

NA ^ 0
#[1] 1
NA ^ 1
#[1] NA

在rowSums中使用它，我們可以：

rowSums(df, na.rm = TRUE) * NA^(rowSums(!is.na(df)) == 0)
#[1]  2  2 NA