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

8 votes268 views3 answers
Css change font awesome icon color
CSS
-1 vote233 views1 answer
Html sticky
CSS
1 vote249 views2 answers
Show hidden message html
CSS
2 votes237 views1 answer
Website css not loading
CSS
0 vote319 views1 answer
How to set the scroll in bootstrap4 table body
CSS Bootstrap
0 vote245 views3 answers
Bootstrap grid only css npm install
CSS
0 vote248 views2 answers
Ssh: connect to host 165.22.132.219 port 22: Connection refused
CSS
0 vote241 views1 answer
How to use css on a react icon
CSS
39 votes278 views3 answers
How to do a background blur in css
CSS
0 vote260 views1 answer
Which of the following css property is used to specify the space between every letter inside an element?
CSS