tidyverse10.R

library(patchwork)

scatter_plot <- function(df, xvar, yvar) {
  ggplot(df) +
  geom_point(aes(x = {{xvar}}, y = {{yvar}}))
}

box_plot <- function(df, xvar, yvar, groupvar) {
  ggplot(df) + 
  geom_boxplot(aes(x = {{xvar}}, y = {{yvar}}, group = {{groupvar}}))
}

plots <- mtcars %>%
  dplyr::nest_by(cyl) %>% 
  dplyr::mutate(
    plotcol = list(scatter = scatter_plot(data, wt, mpg) + labs(title = paste("cyl:", cyl))),
    boxcol =  list(box = box_plot(data, gear, disp, gear))
  )

plots

#> # A tibble: 3 x 4
#> # Rowwise:  cyl
#>     cyl                data plotcol      boxcol      
#>   <dbl> <list<tbl_df[,10]>> <named list> <named list>
#> 1     4           [11 × 10] <gg>         <gg>        
#> 2     6            [7 × 10] <gg>         <gg>        
#> 3     8           [14 × 10] <gg>         <gg>