我可以在summarise_all中应用过滤器吗？

Question

我正在为我的数据框做总结。 我的数据框如下所示：

A   B   C   D   E   F

1   1   1   1   4   2
2   2   5   6   9   9
3   1   7   1   2   4
4   9   6   5   6   6
5   4   7   9   1   5
6   9   9   7   5   7
7   6   1   6   7   8
8   8   3   4   3   6
9   9   4   6   1   1

我很想总结基于链接类型的每一列。 我可以使用代码：

df>-datafram%>%
summaries_all(sum,na.rm=TRUE)

输出是：

A   B   C   D   E   F

45  49  43  45  38  48

但是当我申请过滤器时：

summaries_all(sum(B<9),na.rm=TRUE),

R说：

Error in is_fun_list(.funs) : object 'B' not found

我很乐意将过滤器应用于我的summaries_all，以便只将b <9的所有数字相加

请你们给我一些提示

非常感谢

Answer 1

我们可以创建一个带有'B'的逻辑表达式来对每列的值进行子集化，然后进行sum

library(dplyr)
datafram %>% 
   summarise_at(vars(-B), ~ sum(.[B < 9], na.rm = TRUE))
#   A  C  D  E  F
#1 26 24 27 26 34