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

2 votes392 views1 answer
Sass class with another class
CSS
43 votes298 views6 answers
Css font color
CSS
1 vote321 views1 answer
Ionchips scroll x
CSS
0 vote353 views1 answer
Translate argument animation css'
CSS
1 vote327 views1 answer
Blur edges css
CSS
2 votes323 views1 answer
Css text black outline
CSS
11 votes321 views2 answers
How to change image position in css
CSS
0 vote306 views1 answer
Css hot to center image in bootsrtap container
CSS
0 vote338 views1 answer
What is a trailling widget in flutter
CSS
1 vote328 views1 answer
Force element to bottom of page
CSS