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

0 vote174 views1 answer
Twig currency name
CSS
1 vote178 views2 answers
Import google fonts into react
CSS
2 votes174 views6 answers
Neumorphism
CSS
2 votes172 views2 answers
Why is my footer not at the bottom html
CSS
0 vote177 views1 answer
Style textarea in css
CSS
187 votes266 views6 answers
Div background image
CSS
4 votes177 views3 answers
Background with image and gradient
CSS
1 vote174 views1 answer
Ionic input line color
CSS
33 votes159 views6 answers
Linear gradient css
CSS
3 votes193 views1 answer
Bootstrap 3 offset
CSS Bootstrap