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

1 vote112 views1 answer
Transition all 0.3s ease-in-out
CSS
0 vote178 views1 answer
Print zend db select query to string
CSS
7 votes120 views3 answers
Border width css
CSS
3 votes134 views1 answer
Not disabled css
CSS
152 votes184 views6 answers
How to add bold in css
CSS
102 votes163 views6 answers
@media query css
CSS
-1 vote162 views1 answer
Html css image slider
CSS
2 votes149 views2 answers
Border not showing css
CSS
3 votes137 views2 answers
Css element with id and class
CSS
0 vote117 views1 answer
Css no wrap
CSS