avoid-tidyeval.R

avoid-tidyeval.R

library(tidyverse)
library(palmerpenguins)

make_penguin_scatter_avoid_tidyeval <- function(facet_variable){
  
  penguins_tidy <- penguins %>% 
    select(bill_length_mm, bill_depth_mm, all_of(facet_variable)) %>% 
    rename_with(.cols = 3, ~"thing_to_facet_by")
  
  penguins_tidy %>% 
    ggplot(aes(x = bill_length_mm,
               y = bill_depth_mm)) +
    geom_point() +
    facet_grid(~ thing_to_facet_by)
  
}

make_penguin_scatter_avoid_tidyeval("island")