将列表列表转换为小标题

Question

我已阅读 this question，但在我的情况下我无法理解它，我的 tibble 中有 ggplots。

说我有：

library(tidyverse)
f <- function(n) {
  p <- tibble(x = rnorm(30, n)) %>%
    ggplot(aes(x = x)) + geom_density()
  return(list(n = n, p = p))
}
m <- map(seq(10), f)

我想将m 变成tibble，有十行两列，分别命名为n 和p。 如果可能的话，我还希望我的代码可以处理任意数量的列、任何类型的列。

as_tibble(transpose(m)) 给我

# A tibble: 10 x 2
   n         p     
   <list>    <list>
 1 <int [1]> <gg>  
 2 <int [1]> <gg>  
 3 <int [1]> <gg>  
 ...

即每个单元格都是一个列表，只有一个元素。 我想将每个列表转换为标量。

我尝试过的：

• n 列我使用了map_int，但是p 列怎么办？
• unnest 也适用于列 n，但不适用于 p。
• 与p 列上的unlist 相同（即使是recursive = FALSE）。

Answer 1

这是一种可能性。 您修改该函数，使其仅返回绘图。然后，您只使用 n 列创建小标题，并使用 map 创建列 p。

f2 <- function(n) {
  tibble(x = rnorm(30, n)) %>%
    ggplot(aes(x = x)) + geom_density()
}

tibble(n = 1:10,
       p = map(n, f2))

那么n 列是一个整数。 p 是一个列表，但这是你能得到的最好的，因为小标题的列不能包含 gg 或 ggplot 类型的对象，而只能包含这些对象的列表。

据我所知，唯一可能的列类型是：int、dbl、date、dttm、factor、logical、character 和 list。