Pretty-print R 中的嵌套数据框 purrr::map

Question

我想漂亮地打印嵌套数据框 (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 或一些类似的函数，但我没能做到。

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

^{由 reprex package (v2.0.1)}

创建于 2022-01-21

Pretty-print R 中的嵌套数据框 purrr::map

Pretty-print a nested dataframe in R with purrr::map

nested

r

purrr