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

2 votes144 views1 answer
Website css not loading
CSS
0 vote143 views1 answer
Css variables css tricks
CSS
2 votes148 views2 answers
Css text to fit container
CSS
0 vote139 views1 answer
Understanding '+' sign in css selector
CSS
0 vote162 views2 answers
Ihr seid alle dumabtu
CSS
-2 votes157 views1 answer
How to add after psuedo class in html
CSS
0 vote100 views1 answer
Wordpress force https
CSS
1 vote254 views1 answer
Sticky mat-toolbar
CSS
1 vote158 views1 answer
Css code examples
CSS
0 vote159 views2 answers
Woocommerce cart css description
CSS