gist1.R

penguin_df <- palmerpenguins::penguins_raw |>
  janitor::clean_names() |>
  dplyr::filter(!is.na(culmen_length_mm))

penguin_df |>
  ggplot() +
  geom_jitter(
    aes(
      x = culmen_length_mm,
      y = species,
      fill = species,
      size = body_mass_g
    ),
    shape = 21,
    width = 0,
    height = 0.15
  ) +
  theme_minimal(base_size = 16) +
  theme(legend.position = "bottom")