用多重性别特定年龄组旋转人口数据

我的人口结构如下:

tibble(
  female = c("0-10", "10-20"),
  female_population = c(30000, 50000),
  male = c("0-10", "10-20"),
  male_population = c(33000, 45000),
  total = c("0-10", "10-20"),
  total_population = female_population + male_population
)

# A tibble: 2 x 6
  female female_population male  male_population total total_population
  <chr>              <dbl> <chr>           <dbl> <chr>            <dbl>
1 0-10               30000 0-10            33000 0-10             63000
2 10-20              50000 10-20           45000 10-20            95000

我想把它作为一个支点,这样我就可以得到一个关于年龄、性别和人口的单一分类,如下所示:

tibble(
  sex = rep(c("female", "male", "total"), each = 2),
  age = rep(c("0-10", "10-20"), 3),
  population = c(30000, 50000, 33000, 45000, 63000, 95000)
)

# A tibble: 6 x 3
  sex    age   population
  <chr>  <chr>      <dbl>
1 female 0-10       30000
2 female 10-20      50000
3 male   0-10       33000
4 male   10-20      45000
5 total  0-10       63000
6 total  10-20      95000

有没有想过如何优雅地做到这一点,也许使用pivot\u更长时间?