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 vote146 views1 answer
Django validation error css
CSS
6 votes146 views2 answers
Remove outline of input css
CSS
14 votes217 views4 answers
Text align left bootstrap
CSS Bootstrap
9 votes152 views4 answers
Css animation shorthand
CSS
2 votes147 views1 answer
How to create space inbetween text css
CSS
13 votes159 views5 answers
Transition shorthand
CSS
0 vote167 views1 answer
Chrome close tab after print
CSS
2 votes140 views1 answer
Css tricks transition
CSS
1 vote150 views1 answer
Ionic textarea placeholder color
CSS
0 vote152 views1 answer
Html align text anchor
CSS