如何计算每行的具体观察数并添加到R中的最后一列？

假设我有这样一个数据帧：

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      

    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

---

有人知道怎么做吗？

你可以试试

colSums

，即

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

行和（df2[-1]<1）
#P1 P2 P3 P4
# 2  3  4  2 

谢谢你的提示，我通过

df$number解决了这个问题