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

126 votes275 views5 answers
React Bootstrap css import
CSS Bootstrap
1 vote160 views1 answer
Convert string to uppercase while typing
CSS
0 vote136 views1 answer
Css prevent text wrap
CSS
1 vote159 views1 answer
Left align css mdn
CSS
0 vote137 views1 answer
Css selector data-entity-type
CSS
2 votes136 views1 answer
Css click effect
CSS
1 vote134 views1 answer
Why tr border not showing
CSS
2 votes131 views3 answers
Placeholder color default
CSS
1 vote129 views1 answer
Css selector excluding last child
CSS
0 vote141 views1 answer
Where is sendmail in lampp
CSS