tidyverse2.R

storms_sum %>% 
  tidyr::pivot_wider(names_from = "year", values_from = c("mean", "median"))
  
#> # A tibble: 3 x 7
#>   status       mean_1975 mean_1976 mean_1977 median_1975 median_1976 median_1977
#>   <chr>            <dbl>     <dbl>     <dbl>       <dbl>       <dbl>       <dbl>
#> 1 hurricane         977.      975.      978.        984         975          987
#> 2 tropical de…     1011.     1007.     1011.       1012.       1006.        1010
#> 3 tropical st…      992.      995.     1002.        993         994.        1001