基于函数的R tidyverse到sumif

我有这样一个df：

df1

var1 var2 text
1    0    A 
1    1    A
0    1    B

因此，我想基于这样的sumif函数生成两个新函数：

df2

text var1   var2
A    2      1
B    0      1
tot  2      4

而且

df3

text var1   var2
A    100    50
B    0      50

所以第一个基于计数，第二个基于列%

---

Thx.

要获取

df2

：

library(dplyr)

df1 %>% group_by(text) %>% summarise_all(sum) %>% janitor::adorn_totals('row')

#  text var1 var2
#     A    2    1
#     B    0    1
# Total    2    2

df3

df1 %>% group_by(text) %>% summarise_all(sum) %>% mutate_at(-1, ~./sum(.) * 100)

#  text   var1  var2
#  <fct> <dbl> <dbl>
#1 A       100    50
#2 B         0    50

df1%>%group\u by（text）%>%summary\u all（sum）%>%mutate\u at（-1，~。/sum（.）*100）
#文本var1 var2
#    
#1 A 100 50
#2B050

获取

df2

：

library(dplyr)

df1 %>% group_by(text) %>% summarise_all(sum) %>% janitor::adorn_totals('row')

#  text var1 var2
#     A    2    1
#     B    0    1
# Total    2    2

df3

df1 %>% group_by(text) %>% summarise_all(sum) %>% mutate_at(-1, ~./sum(.) * 100)

#  text   var1  var2
#  <fct> <dbl> <dbl>
#1 A       100    50
#2 B         0    50

df1%>%group\u by（text）%>%summary\u all（sum）%>%mutate\u at（-1，~。/sum（.）*100）
#文本var1 var2
#    
#1 A 100 50
#2B050