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

36 votes279 views6 answers
Css gradient
CSS
68 votes237 views6 answers
Add css file in html
CSS
0 vote265 views1 answer
Alternate color on two consecutive rows
CSS
0 vote300 views1 answer
Transparent circle in a div
CSS
4 votes278 views3 answers
Zoom in and out iconhtml css
CSS
13 votes249 views5 answers
How to add text stroke in css
CSS
57 votes269 views2 answers
Hegith specific css in media query
CSS
9 votes264 views3 answers
Fix textarea size
CSS
0 vote271 views1 answer
Css tricks macos spaces in dock
CSS
1 vote264 views1 answer
Which css property is used to change font
CSS