Pass argument to group_by

mytable <- function( x, group ) {
  x %>% 
    group_by( .data[[group]] ) %>% 
    summarise( n = n() )
}

group_string <- 'Species'

mytable( iris, group_string )

`summarise()` ungrouping output (override with `.groups` argument)
# A tibble: 3 x 2
  Species        n
  <fct>      <int>
1 setosa        50
2 versicolor    50
3 virginica     50

Source: stackoverflow.com

Similar codes

7 votes161 views1 answer
How to use multiple custom fonts in css
CSS
0 vote174 views1 answer
Disabled attribute on button still showing click animation safari macos
CSS
0 vote151 views1 answer
Sass immediate child
CSS
0 vote151 views2 answers
Pixel css
CSS
1 vote174 views1 answer
Css %-px
CSS
0 vote247 views1 answer
Feature detect css
CSS
-1 vote153 views1 answer
Css font family for all titles
CSS
0 vote210 views1 answer
Bootstrap accordion some change
CSS Bootstrap
0 vote140 views1 answer
Git font
CSS
1 vote158 views1 answer
Slickjs height
CSS