如何在dplyr / magrittr管道中使用base :: rowSums（）（％>％）

Question

我試圖使用管道來回答每行中少於5個字段。 它以以下形式工作（不帶管道）：

rowSums(   iris[,1:4]  < 5  ) # works!

但是，嘗試使用管道問相同的問題是行不通的：

iris[1:5,1:4] %>%  rowSums(  . <5  ) # wrong: returns the total rowsum
iris[,1:4] %>%  rowSums(   < 5  )   # does not work either.

EDIT1： 此變通辦法由用戶docendo discimus“解決了這個：

iris %>% mutate(sumVar = rowSums(.[1:4]<5))

Edit2 ：我更喜歡'docendo discimus'的解決方法，因為它避免了嵌套的括號：

iris %>%
  slice(1:5) %>%

  select(1:4) %>%

  dplyr::mutate( "New_var" = 10 ) %>% dplyr::mutate( "sumvar" = rowSums(. < 5 ) ) 

雖然以下解決方案（AFAICS）需要嵌套括號才能工作（而且我無法弄清楚如何使新列在數據幀上發生突變）

(iris %>%
   slice(1:5) %>%

   select(1:4) %>%

   dplyr::mutate( "New_var" = 10 )  < 5 )  %>% rowSums(.)

Answer 1

iris[1:5, 1:4] %>% is_less_than(5) %>% rowSums
# 1 2 3 4 5 
# 3 4 4 4 3 

將magrittr （在不需要相當於dplyr這里）

rowSums(iris[1:5, 1:4] < 5)  
# 1 2 3 4 5 
# 3 4 4 4 3