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

3 votes199 views1 answer
Terraform rds module
CSS
6 votes244 views2 answers
Space between flexbox
CSS
0 vote229 views1 answer
How to give rgba in tailwind
CSS
0 vote242 views1 answer
Css user select none
CSS
0 vote272 views1 answer
Dropcap - :first-letter pseudo class not working as expected in firefox
CSS
0 vote230 views1 answer
How to make all buttons same size css
CSS
1 vote268 views1 answer
How to scale a bg image acc to size of div
CSS
15 votes239 views2 answers
Get rid of arrows number input
CSS
1 vote231 views1 answer
Ms css
CSS
6 votes224 views1 answer
Div scrollable content
CSS