tentidy2.R

penguins <- penguins %>% 
  dplyr::relocate(contains("_"), .after = year)

penguins

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