将键值数据帧转换为列表

Question

这是我所拥有的结构类型。数据框中有几千行，其结构与以下内容类似：

vct_names <- c("apples", "apples", "grapes", "apples", "grapes")
vct_codes <- c(23, 35, 123, 43, 156)
df_values <- data.frame(names = vct_names, codes = vct_codes)

我想将上面的数据框转换为命名列表。我想迭代上面数据帧的每一行，并将此数据帧转换为列表。该列表具有以下结构：

lst_values <- list()
lst_values$apples <- c(23, 35, 43)
lst_values$grapes <- c(123, 156)

有关解决此问题的优雅方法的任何想法。

Answer 1

split - 功能正是为此而设计的。作为第一个文章，它适用于数据框和矢量。它通过作为通用函数来实现这种多态行为。

> methods(split)
[1] split.data.frame  split.data.table* split.Date        split.default    
[5] split.IDate*      split.POSIXct     split.zoo*       
see '?methods' for accessing help and source code

所以这会更经济：

> lst_values <- split(vct_codes, vct_names)
> lst_values
$apples
[1] 23 35 43

$grapes
[1] 123 156

在这种情况下，我们使用split.default。有时打印出代码会提供信息，但在这种情况下，我们只会在数据和参数传递给.Internal(split(seq_along(x), f))之前看到对边缘情况的一些初步操作。

Answer 2

lapply(split(df_values, df_values$names), function(z) z[,2])

$apples
[1] 23 35 43

$grapes
[1] 123 156