Week 1: First Quarto Report

penguins |> 
  count(species)

# A tibble: 3 × 2
  species       n
  <fct>     <int>
1 Adelie      152
2 Chinstrap    68
3 Gentoo      124

penguins |>
  filter(!is.na(bill_length_mm)) |>
  ggplot(aes(x = bill_length_mm)) +
  geom_histogram(binwidth = 2) +
  labs(
    title = "Distribution of Bill Length",
    x = "Bill length (mm)",
    y = "Count"
  )