使用 purrr::map 在 R 中漂亮地打印嵌套的 dataframe

Question

我想漂亮地打印一个嵌套的 dataframe (tibble)。

这是一个最小的例子

df <- tribble(~name,~data,
"first",tibble(type=c("a","b","c"),value=c(2,4,5)),
"second",tibble(type=c("a","b"),value=c(3,1)))

以便：

  name   data            
  <chr>  <list>          
1 first  <tibble [3 × 2]>
2 second <tibble [2 × 2]>

我想按如下方式打印数据（即使用变量name作为每个data项的标题）：

 first
   type  value
 1 a         2
 2 b         4
 3 c         5

 second
   type  value
 1 a         3
 2 b         1

我确信使用purrr::map或一些类似的 function 一定可以做到这一点，但我无法做到。

Answer 1

library(tidyverse)
df <- tribble(~name,~data,
              "first",tibble(type=c("a","b","c"),value=c(2,4,5)),
              "second",tibble(type=c("a","b"),value=c(3,1)))

deframe(x = df)
#> $first
#> # A tibble: 3 x 2
#>   type  value
#>   <chr> <dbl>
#> 1 a         2
#> 2 b         4
#> 3 c         5
#> 
#> $second
#> # A tibble: 2 x 2
#>   type  value
#>   <chr> <dbl>
#> 1 a         3
#> 2 b         1

^{由代表 package (v2.0.1) 于 2022 年 1 月 21 日创建}