tentidy3.R

penguins_id <- penguins %>% 
  dplyr::group_by(species, island, sex, year) %>% 
  dplyr::mutate(penguinid = row_number(), .before = contains("_"))

penguins_id

# A tibble: 344 x 9
# Groups:   species, island, sex, year [35]
   species island    sex     year penguinid bill_length_mm bill_depth_mm flipper_length_mm body_mass_g
   <fct>   <fct>     <fct>  <int>     <int>          <dbl>         <dbl>             <int>       <int>
 1 Adelie  Torgersen male    2007         1           39.1          18.7               181        3750
 2 Adelie  Torgersen female  2007         1           39.5          17.4               186        3800
 3 Adelie  Torgersen female  2007         2           40.3          18                 195        3250
 4 Adelie  Torgersen NA      2007         1           NA            NA                  NA          NA
 5 Adelie  Torgersen female  2007         3           36.7          19.3               193        3450
 6 Adelie  Torgersen male    2007         2           39.3          20.6               190        3650
 7 Adelie  Torgersen female  2007         4           38.9          17.8               181        3625
 8 Adelie  Torgersen male    2007         3           39.2          19.6               195        4675
 9 Adelie  Torgersen NA      2007         2           34.1          18.1               193        3475
10 Adelie  Torgersen NA      2007         3           42            20.2               190        4250
# … with 334 more rows