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 vote273 views1 answer
Google script css link
CSS
6 votes297 views2 answers
Space between flexbox
CSS
3 votes300 views2 answers
Css select all elements except last css
CSS
14 votes347 views6 answers
Bootstrap image size
CSS Bootstrap
0 vote302 views1 answer
Circular div css
CSS
13 votes292 views1 answer
Remove style from link
CSS
0 vote299 views1 answer
Allvarliga symtom på järnbrist
CSS
1 vote335 views1 answer
Animated website
CSS
0 vote306 views1 answer
How to set box into another box using html and css
CSS
0 vote372 views1 answer
How to style navbar-toggler-icon bootstrap 5
CSS Bootstrap