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 votes279 views2 answers
Css color when clicked
CSS
0 vote293 views1 answer
Css psedou content data
CSS
13 votes340 views6 answers
Tailwind center vertically
CSS
7 votes286 views2 answers
Disable bullets in ul
CSS
0 vote329 views1 answer
Prevent enter key submitting a form jquery
CSS
0 vote293 views1 answer
Reference images from css in django
CSS
0 vote304 views1 answer
How to display a header in the center of the column in css
CSS
3 votes292 views3 answers
Svg animation css
CSS
0 vote368 views1 answer
React bootstrap carousel not working
CSS Bootstrap
0 vote299 views1 answer
Move text in a padding css
CSS