与R中的`bind_cols（）`相反[重复]

Question

使用data.frame()、tibble() 或bind_cols() 将向量绑定到data.frame 中很简单：

library(tidyverse)
x <- 1:5
y <- letters[1:5]
d <- tibble(x, y)

反转此操作的最有效方法是什么 - 即，获取一个数据帧并将其分解为长度等于 ncol(d) 的列表？在上面的示例中，所需的输出如下所示：

> list(x = x, y = y)

$x
[1] 1 2 3 4 5

$y
[1] "a" "b" "c" "d" "e"

完成此操作的单个函数会很有用，例如，当将数据帧传送到 pmap() 时：

d %>%
  break_into_list() %>% # missing function here
  pmap(function(x, y) paste(x, y)) # scales to dataframe with ncol > 2

Answer 1

我们可以使用unclass，它也为“row.names”提供attribute

unclass(d)

---

或者as.list

as.list(d)

如果名称应为 NULL，请使用 setNames

setNames(as.list(d), NULL)

-输出

[[1]]
[1] 1 2 3 4 5

[[2]]
[1] "a" "b" "c" "d" "e"

---

关于pmap的使用，我们不需要转换成list。假设我们需要遍历行（pmap 会这样做）

library(dplyr)
library(purrr)
d %>% 
    pmap(~ f(..1, ..2))

其中..1 和..2 是第一列和第二列，用作函数的输入，f 将应用于每一行。如果有更多列并且函数需要更多输入，请使用..3、..4 等。