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

0 vote171 views1 answer
How to link css file nodjes
CSS
3 votes151 views3 answers
Blinking animation css
CSS
1 vote180 views2 answers
Css syntax examples
CSS
17 votes177 views1 answer
AppData\Roaming\npm\react-native.ps1 cannot be loaded because running scripts is disabled on this system. For more information, see about_Execution_Policies at https:/go.microsoft.com/fwlink/?LinkID=135170.
CSS
0 vote183 views1 answer
Css position element in the middle of a header
CSS
1 vote180 views2 answers
Css change the button text value
CSS
19 votes181 views2 answers
Center div in middle of page
CSS
0 vote206 views1 answer
Html display text in alternating coloured panels
CSS
64 votes241 views4 answers
Bootstrap buttons
CSS Bootstrap
0 vote176 views1 answer
Tf.reduce_mean(y_true,y_predicted)
CSS