如何在一次运行中对多个列计数使用计数

通常,当我对数据帧中的列进行计数时,我使用 count() 的函数 dplyr 包裹

library(dplyr)

mtcars %>% 
  count(cyl) 

和

mtcars %>% 
  count(am) 

和

mtcars %>% 
  count(gear) 

等 现在我想数数 cyl, am, gear 在一次运行中。

注意:我不是说

mtcars %>%
 count(cyl, am, gear)

到目前为止,我的工作方法是:

library(dplyr)
library(tidyr)

mtcars %>% 
  count(am) %>% 
bind_rows(mtcars %>% 
            count(cyl)) %>% 
  bind_rows(mtcars %>% 
              count(gear)) %>% 
pivot_longer(-n, 
             values_drop_na = TRUE) %>% 
  unite("variable", c("name", "value")) %>% 
  relocate(variable, n)

  variable     n
  <chr>    <int>
1 am_0        19
2 am_1        13
3 cyl_4       11
4 cyl_6        7
5 cyl_8       14
6 gear_3      15
7 gear_4      12
8 gear_5       5

我想知道是否有更简洁的方法来实现这一点。