r - 从 R 中的 tibble 创建列表列表(tidyverse)

Question

我正在尝试做一些看起来很简单的事情，但我无法弄清楚。我有一个像这样的小玩意:

> df <- tibble::tribble(
  ~col_a, ~col_b,
  1,      "A",   
  2,      "B",   
  3,      "C",   
)
> df
# # A tibble: 3 x 2
# col_a col_b
# <dbl> <chr>
#   1     A    
#   2     B    
#   3     C 

我想把它变成一个看起来像这样的列表

> str(res_list)
# List of 3
# $ :List of 2
# ..$ col_a: num 1
# ..$ col_b: chr "A"
# $ :List of 2
# ..$ col_a: num 2
# ..$ col_b: chr "B"
# $ :List of 2
# ..$ col_a: num 3
# ..$ col_b: chr "C"

我使用 base apply 尝试了很多方法和 dplyr::rowwise但没有什么工作完全正确。在 purrr::pmap 的文档中我以为我找到了答案:

f.   A function, formula, or vector (not necessarily atomic)...

If character vector, numeric vector, or list, it is converted to an extractor function. Character vectors index by name...

所以我想，这应该有效: pmap(df, c("col_a", "col_b"))并且应该为每个元素(行)提取这些列并返回提取列表的列表。但是当我运行时，我得到:

 Error in pluck(x, "col_a", "col_b", .default = NULL) : 
  argument "x" is missing, with no default 

我不太了解这个错误，但我想我正在关注文档中的用法。也许这只是 purrr 中的一个错误？
无论如何，欢迎对潜在的 purrr 错误进行评论，但实际上我只是想创建这个列表。非常感谢任何帮助。

Answer 1

您可以使用 group_split() (或基础 split()，如果您愿意):

library(dplyr)
library(purrr)

df %>%
  group_split(row_number(), .keep = FALSE) %>%
  map(as.list)

哪里 str()给出:

List of 3
 $ :List of 2
  ..$ col_a: num 1
  ..$ col_b: chr "A"
 $ :List of 2
  ..$ col_a: num 2
  ..$ col_b: chr "B"
 $ :List of 2
  ..$ col_a: num 3
  ..$ col_b: chr "C"

或者:

lapply(split(df, 1:nrow(df)),
       as.list)