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

6 votes372 views5 answers
Flutter print
CSS
0 vote338 views1 answer
Morphism box shadow
CSS
3 votes387 views3 answers
Responsive text css
CSS
0 vote347 views2 answers
How to change jumbotron size
CSS
-1 vote404 views1 answer
How to make white image black in css
CSS
3 votes354 views2 answers
Css element with id and class
CSS
0 vote408 views1 answer
Css checkbox'':checked change color
CSS
0 vote393 views1 answer
Can we block onclick of button using css
CSS
0 vote353 views2 answers
Materialize css
CSS
1 vote303 views1 answer
Css image background center horizontally in div
CSS