R取消嵌套多列

Question

是否有任何函数式方法可以取消嵌套不同大小的多个列？

示例：

library(tidyr)
library(dplyr)

my_list <- list(year = 2018:2020, period = 1, id = c(17,35))

expand_grid(my_list) %>%
  pivot_wider(
    names_from = my_list,
    values_from = my_list
  ) %>%
  rename_at(., names(.), ~ names(my_list))

# A tibble: 1 x 3
  year         period       id          
  <named list> <named list> <named list>
1 <int [3]>    <dbl [1]>    <dbl [2]>

expand_grid(my_list) %>%
  pivot_wider(
    names_from = my_list,
    values_from = my_list
  ) %>%
  rename_at(., names(.), ~ names(my_list)) %>%
  unnest(cols = names(my_list))

Erro: Incompatible lengths: 3, 2.

unnest 需要列名，字符串向量是否可行？

预计：

# A tibble: 1 x 3
  year  period   id          
  <int> <int>  <int>
1 2018   1    17
2 2019   1    17
3 2020   1    17
4 2018   1    35
5 2019   1    35
6 2020   1    35

Answer 1

我们可以使用 cross_df 从 purrr :

purrr::cross_df(my_list)

#   year period    id
#  <int>  <dbl> <dbl>
#1  2018      1    17
#2  2019      1    17
#3  2020      1    17
#4  2018      1    35
#5  2019      1    35
#6  2020      1    35

或者在 base R 中使用 expand.grid 和 do.call :

do.call(expand.grid, my_list)

R取消嵌套多列

R unnest multiple columns

r

tidyr

tidyverse