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 vote284 views1 answer
Css media two conditions
CSS
11 votes234 views1 answer
Html no cursor when link
CSS
-1 vote266 views1 answer
How to use a blank space with grid template areas css
CSS
0 vote266 views1 answer
Css change scroll anchor point under navbar
CSS
222 votes426 views6 answers
Bootstrap CSS CDN
CSS
0 vote273 views1 answer
Why programmers are single
CSS
0 vote296 views1 answer
Index.css code not working in 000webhost
CSS
5 votes285 views4 answers
Css flex gap between items
CSS
0 vote291 views1 answer
Css footer always at bottom but visible
CSS
2 votes250 views1 answer
XAMPP: Another web server daemon is already running
CSS