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 vote201 views2 answers
Centrer verticalement css
CSS
3 votes221 views3 answers
Css overflow elipsis
CSS
0 vote209 views1 answer
Html print page break
CSS
13 votes234 views6 answers
Line css
CSS
0 vote176 views1 answer
Cursor color change
CSS
0 vote234 views1 answer
Bind 'fill' inside ':svg:path' with scss variables
CSS
2 votes234 views1 answer
Css tricks transition
CSS
6 votes239 views4 answers
Disable scroll css
CSS
0 vote232 views1 answer
Éviter que l'on découvre l'identifiant d'un auteur
CSS
0 vote216 views1 answer
Css rich text editor tailwind
CSS