如何将R语言DataFrame列转换为命名列表

问题背景 #

给定如下R语言DataFrame：

data <- data.frame(name = LETTERS[1:4],
                  value = 1:4)

输出结果：

name value
1    A     1
2    B     2
3    C     3
4    D     4

该DataFrame可能带有自定义行名：

rownames(data) <- LETTERS[1:4]

此时DataFrame输出为：

name value
A    A     1
B    B     2
C    C     3
D    D     4

需求目标 #

需要将其中的value列转换为命名列表，最终效果如下：

mylist <- list(A = 1, B = 2, C = 3, D = 4)

输出展示：

$A
[1] 1

$B
[1] 2

$C
[1] 3

$D
[1] 4

已尝试的无效方法 #

• 直接将列转为列表：结果为无命名的索引式列表

> data$value |> as.list()
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

[[4]]
[1] 4

• 先选中列再转列表：结果将整个列作为单个列表元素

> data |> select(value) |> as.list()
$value
[1] 1 2 3 4

有效解决方法 #

方法1：利用name列指定命名（通用场景） #

无论DataFrame是否带有行名，都可以直接用name列的值作为列表名称，给转换后的列表赋值：

# 基础写法
mylist <- as.list(data$value)
names(mylist) <- data$name

# 管道链式写法
mylist <- data$value |> as.list() |> `names<-`(data$name)

方法2：利用行名指定命名（适用于行名符合需求的场景） #

如果DataFrame的行名正好是你需要的列表命名，可以直接用行名赋值：

# 基础写法
mylist <- as.list(data$value)
names(mylist) <- rownames(data)

# 管道链式写法
mylist <- data$value |> as.list() |> `names<-`(rownames(data))

方法3：tidyverse生态便捷写法 #

如果你习惯使用dplyr和purrr，可以用pull函数一步提取带命名的向量，再转为列表：

library(dplyr)
library(purrr)

mylist <- data |> pull(value, name = name) |> as.list()

以上方法均可生成符合需求的命名列表，可根据自己的代码风格和场景选择使用。

内容的提问来源于stack exchange，提问作者user1