library(tidyverse)
library(palmerpenguins)
penguins |>
filter(sex == "female",
species == "Gentoo") |>
slice_max(body_mass_g, n = 5) |>
select(contains("bill"))
# A tibble: 5 × 2
bill_length_mm bill_depth_mm
<dbl> <dbl>
1 46.5 14.8
2 45.2 14.8
3 49.1 14.8
4 44.9 13.3
5 45.1 14.5