Как рассчитать количество указанных c наблюдений каждой строки и добавить к последнему столбцу в 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