03_simplify_r.R

library(dplyr)
library(tidyr)
library(palmerpenguins)

clean_data <- penguins

clean_data_2 <- clean_data %>%
  mutate(across(where(is.double), ~ replace_na(.x, mean(.x, na.rm = TRUE))),
         before_2008 = year < 2008) %>%
  group_by(species) %>% 
  summarise(across(ends_with("mm"), mean)) %>% 
  pivot_longer(
    names_to = "variable",
    values_to = "value"
  )