r - 在 R 中创建子标题

Question

我想创建一个包含标题和副标题的 df。示例如下:

我想接受以下输入:

input <- tibble::tribble(
             ~Region,  ~Day_1, ~Day_2,  ~Day_3,
           "Central",  "Boat",     NA,      NA,
           "Central",      NA, "Shoe",      NA,
           "Central",      NA,     NA, "Table",
           "Pacific",      NA, "Boat",      NA,
           "Pacific", "Table",     NA,      NA,
           "Pacific",      NA,     NA,  "Shoe",
           "Eastern",  "Boat",     NA,      NA,
           "Eastern",      NA, "Shoe",      NA,
           "Eastern",      NA,     NA, "Table",
           "Eastern", "Watch",     NA,      NA,
           "Eastern", "Chair",     NA,      NA,
           "Eastern",      NA,  "Cup",      NA
           )

并将其转换为以下输出:

  Central Central Central Pacific Pacific Pacific Eastern Eastern Eastern
  <chr>   <chr>   <chr>   <chr>   <chr>   <chr>   <chr>   <chr>   <chr>  
1 Day_1   Day_2   Day_3   Day_1   Day_2   Day_3   Day_1   Day_2   Day_3  
2 Boat    Shoe    Table   Table   Boat    Shoe    Boat    Shoe    Table  
3 NA      NA      NA      NA      NA      NA      Watch   Cup     NA     
4 NA      NA      NA      NA      NA      NA      Chair   NA      NA 

有什么想法吗？提前致谢!

Answer 1

library(tidyverse)

input %>%
  pivot_longer(-Region) %>%
  na.omit() %>%
  group_by(Region, name) %>%
  mutate(id = row_number()) %>%
  pivot_wider(names_from = id, values_from = value) %>%
  data.table::transpose(make.names = TRUE)
  
  Central Central Central Pacific Pacific Pacific Eastern Eastern Eastern
1   Day_1   Day_2   Day_3   Day_2   Day_1   Day_3   Day_1   Day_2   Day_3
2    Boat    Shoe   Table    Boat   Table    Shoe    Boat    Shoe   Table
3    <NA>    <NA>    <NA>    <NA>    <NA>    <NA>   Watch     Cup    <NA>
4    <NA>    <NA>    <NA>    <NA>    <NA>    <NA>   Chair    <NA>    <NA>