与多个性别特有年龄段的人口数据旋转

Question

我有以下人口结构：

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_longer？

Answer 1

尝试使用Pivot_longer：（

可以使用％＆gt;％而不是|＆gt;;后者在基本R的最新版本中。

library(tidyverse)

df <- 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
)

df |> 
  pivot_longer(!contains("_"), names_to = "sex", values_to = "age") |> 
  mutate(population = case_when(
    sex == "female" ~ female_population,
    sex == "male"   ~ male_population,
    sex == "total"  ~ total_population
  )) |> 
  select(-contains("_")) |> 
  arrange(sex)

#> # A tibble: 6 × 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

​>