如何計算每行特定觀察的數量並添加到R中的最后一列？

Question

假設我有一個這樣的數據框：

ID <- c('A','B','C','D')
P1 <- c(1,1,0.1,0.2)
P2 <- c(0.7,1,0.6,0.4)
P3 <- c(0.9,0.9,0.9,0.9)
P4 <- c(1,1,0.9,0.5)
df <- data.frame(ID,P1,P2,P3,P4)


  ID  P1  P2  P3  P4 
1  A 1.0 0.7 0.9 1.0      
2  B 1.0 1.0 0.9 1.0      
3  C 0.1 0.6 0.9 0.9      
4  D 0.2 0.4 0.9 0.5      

現在我想計算 A 中有多少項小於 1，並將數字添加到最后一個新列，B、C、D 也是如此

以便最終結果如下所示：

    ID  P1  P2  P3  P4 number
  1  A 1.0 0.7 0.9 1.0      2
  2  B 1.0 1.0 0.9 1.0      1
  3  C 0.1 0.6 0.9 0.9      4
  4  D 0.2 0.4 0.9 0.5      4

有誰知道如何做到這一點？

Answer 1

你可以試試colSums ，即

rowSums(df2[-1] < 1)
#P1 P2 P3 P4 
# 2  3  4  2