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

9 votes264 views1 answer
Perfect full page background image
CSS
0 vote254 views1 answer
Storing and receiving FB
CSS
47 votes290 views6 answers
Css blur
CSS
0 vote276 views1 answer
Check browser on css
CSS
1 vote257 views1 answer
Svg tailwind
CSS
0 vote270 views2 answers
Unable to load authentication plugin 'caching_sha2_password'
CSS
0 vote267 views1 answer
Remove border radius select css
CSS
0 vote293 views1 answer
Gh: stop using --force !!!
CSS
32 votes276 views6 answers
@font-face in css
CSS
0 vote556 views1 answer
Fgg
CSS