penguin-report

# load packages

library(tidyverse)
library(palmerpenguins)

# set ggplot theme

theme_set(theme_classic())

# load penguin data
penguins <- penguins

# filter for just parameter

species <- penguins %>% 
  filter(species == params$my_species)

Body mass by flipper length in Adelie penguins

species %>%
  na.omit() %>%
  ggplot(aes(x = body_mass_g, y = flipper_length_mm, colour = sex)) +
  geom_point() +
  labs(title = "Relation between penguin body mass and flipper length", subtitle = params$my_species)