nathancday

# https://stackoverflow.com/questions/49880268/ggplot-how-to-remove-the-outliers-from-multiple-boxplots?noredirect=1#49880268
library(tidyverse)

data(iris)

iris_long <- gather(iris, "key", "val", -Species)
    
# with the outliers
ggplot(iris_long, aes(Species, val)) +
    geom_boxplot() +

nathancday

library(rlang)
library(tidyverse)

split_ <- function(data, ..., .drop = TRUE) {
    vars <- ensyms(...)
    vars <- map(vars, function(x) eval(x, data))
    split(data, vars, drop = .drop)
}

mtcars %>% split_(cyl)