tentidy5.R

penguins_wide <- penguins_long %>% 
  tidyr::pivot_wider(names_from = c("part", "measure", "unit"), # pivot these columns
                     values_from = "value", # take the values from here
                     names_sep = "_") # combine col names using an underscore

penguins_wide

# 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>             <dbl>       <dbl>
 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