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 vote267 views1 answer
Background effect css
CSS
10 votes348 views4 answers
Bootstrap badges Links
CSS Bootstrap
0 vote312 views2 answers
Chmod: changing permissions of '/opt/lampp': Operation not permitted
CSS
9 votes291 views4 answers
Css animation shorthand
CSS
1 vote271 views1 answer
How to make border blur css
CSS
1 vote276 views1 answer
Html css landing page
CSS
3 votes315 views2 answers
Ui gradient
CSS
-1 vote268 views2 answers
How to use before pseudo class in css
CSS
1 vote298 views1 answer
How to prevent text from breaking css
CSS
2 votes311 views1 answer
Flexbox go to next row
CSS