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 vote131 views1 answer
How to remove increment in input type number
CSS
1 vote121 views1 answer
Html how to use a background image fill not stretch
CSS
1 vote136 views5 answers
Ease in out
CSS
2 votes132 views1 answer
Beautiful navigation bar css
CSS
1 vote143 views1 answer
How to make div scrollable horizontal
CSS
0 vote117 views1 answer
Add css file through jquery
CSS
0 vote79 views1 answer
Active state css
CSS
-1 vote168 views2 answers
How to scroll fixed position
CSS
0 vote97 views1 answer
Tailwind css strikethrough
CSS
1 vote130 views1 answer
Out transition does not ease
CSS