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 vote327 views1 answer
Remove Title spacing
CSS
1 vote321 views1 answer
Pseudo class css nth child
CSS
0 vote324 views1 answer
Cd cover dimensions
CSS
0 vote329 views1 answer
Ie11 image stretching
CSS
0 vote328 views1 answer
Container transparent text opaque
CSS
0 vote336 views1 answer
Fluorescent blue hex code
CSS
0 vote336 views1 answer
Paper.css
CSS
37 votes315 views6 answers
Add gradient to text css
CSS
0 vote331 views1 answer
Dad
CSS
92 votes318 views5 answers
Bootstrap primary color code
CSS