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

1 vote241 views1 answer
Css hover lighten background color
CSS
0 vote298 views1 answer
Css textarea set max characters
CSS
8 votes368 views5 answers
Css hover change other element
CSS
1 vote301 views2 answers
Apple font css
CSS
1 vote296 views1 answer
I used overflow-y : scroll but the scroll bar keep on showing
CSS
15 votes312 views5 answers
Remove horizontal scrollbar css
CSS
4 votes247 views1 answer
Grid mdn
CSS
0 vote300 views1 answer
Sticky header not working chrome
CSS
0 vote306 views1 answer
Curve bottom of square css
CSS
0 vote337 views2 answers
Html select image background arrow
CSS