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 vote196 views1 answer
Css not full width
CSS
0 vote226 views1 answer
Color around the text
CSS
0 vote203 views1 answer
Make changes to api fetch onclick in react
CSS
0 vote264 views1 answer
Make td match display flex
CSS
0 vote209 views1 answer
Change the bullet point color css
CSS
0 vote206 views1 answer
Css ovel
CSS
-4 votes235 views2 answers
Full width page css
CSS
0 vote187 views1 answer
Build a responsive real world website from scratch html css
CSS
0 vote201 views1 answer
3 line after dot in css
CSS
0 vote192 views1 answer
How to change the size of a style="text-align: center;"
CSS