# NOT RUN {
df_stats( ~ hp, data = mtcars)
df_stats( ~ hp, data = mtcars, mean, median)
df_stats( hp ~ cyl, data = mtcars, mean, median, range)
# magrittr style piping is also supported
mtcars %>% df_stats(hp ~ cyl)
gf_violin(hp ~ cyl, data = mtcars, group = ~ cyl) %>%
gf_point(mean_hp ~ cyl, data = df_stats(hp ~ cyl, data = mtcars, mean))
# }
Run the code above in your browser using DataLab