Palmer Penguins Sample R Code

penguins-test.R

library(palmerpenguins)
library(dplyr)
library(readr)

penguins %>% 
  filter(species == "Chinstrap") %>%
  select(island, body_mass_g, year) %>%
  group_by(island, year) %>%
  summarize(avg_body_mass_g = mean(body_mass_g)) %>%
  write_csv("chinstrap_avg_weights.csv")