如何将R中DataFrame的treeID列转换为指定格式的列表？

问题背景 #

我的DataFrame结构如下：

treeID  Z   npoints     cnvhll_          inter
3   4.0     24.877  904     206.006         3
4   5.0     24.322  1105    92.189          4
9   10.0    22.085  488     107.718         6
18  19.0    20.195  799     137.346         12
19  20.0    20.028  1597    133.829         13

我用以下代码尝试把treeID列转换为列表：

cliploy <- read.csv(file = 'dataframe.csv')
polylist <- cliploy["treeID"]
treepolylist <- as.list(polylist)

得到的结果是整列作为单个列表元素：

$treeID
 [1]   4   5  10  19  20  21  22  26  28  33  34  36  41  42  43  44  47  49  50  53  55  57  59  60  62  67  68  74  76  82  83  84  85  86  87  88  90  91  92  94  97  99
[43] 100 105 106 108 110 111 112 125 129 133 138 139 140 145 150 153 161 169 172 176 180 190 191 197 202 210 218 219 222 224 233 237 240 246 257 269 324 325 326 327 328 331
[85] 334

但我需要的是每个元素单独成为子列表的格式：

[[1]]
[1] 4

[[2]]
[1] 5

[[3]]
[1] 10

[[4]]
[1] 19

[[5]]
[1] 20

解决方案 #

问题出在cliploy["treeID"]返回的是数据框对象，转成列表后会把整列作为单个元素。只需调整提取方式，先拿到列对应的向量再转列表即可，以下是几种可行方法：

方法1：用$提取向量后转列表 #

cliploy <- read.csv(file = 'dataframe.csv')
treepolylist <- as.list(cliploy$treeID)

方法2：用split()拆分向量 #

cliploy <- read.csv(file = 'dataframe.csv')
treepolylist <- split(cliploy$treeID, seq_along(cliploy$treeID))

方法3：用lapply()遍历向量元素 #

cliploy <- read.csv(file = 'dataframe.csv')
treepolylist <- lapply(cliploy$treeID, function(x) x)

以上三种方法都能生成你需要的每个元素单独作为子列表的格式。

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