以分组方式将 data.frame/tibble 转换为列表

Question

我想转换具有特定格式的列表中的数据框（前面的最小示例）。对于下面的数据框，我希望得到一个包含 5 个元素的列表，每个元素都有一个包含 5 个元素的列表。

parameters = tidyr::expand(tibble(id=1:5, value = 1:5 * 2),id,value)

# A tibble: 6 x 2
     id value
  <int> <dbl>
1     1     2
2     1     4
3     1     6
4     1     8
5     1    10
6     2     2

result = base::split(parameters, list(parameters$id))
result = lapply(result, function(x) { x["id"] <- NULL; x })

到目前为止，它的 id 是正确的（5 个元素），但不是其中的子元素。它给出了第一个元素

> a[1]
$`1`
# A tibble: 5 x 1
  value
  <dbl>
1     2
2     4
3     6
4     8
5    10

而我想拥有它

> as.list(a$`1`$value)
[[1]]
[1] 2

[[2]]
[1] 4

[[3]]
[1] 6

[[4]]
[1] 8

[[5]]
[1] 10

结果看起来像这样

[1]
  [[1]]
  [1] 2

   [[2]]
   [1] 4

   [[3]]
   [1] 6

   [[4]]
   [1] 8

   [[5]]
   [1] 10
[2]
  [[1]]
  [1] 2

   [[2]]
   [1] 4

   [[3]]
   [1] 6

   [[4]]
   [1] 8

   [[5]]
   [1] 10

有没有什么优雅的方法来实现这一目标？

Answer 1

裹as.list在lapply应该做你想要什么：

lapply(with(parameters, split(value, id)), as.list)

$`1`
$`1`[[1]]
[1] 2

$`1`[[2]]
[1] 4

$`1`[[3]]
[1] 6

$`1`[[4]]
[1] 8

$`1`[[5]]
[1] 10


$`2`
$`2`[[1]]
[1] 2

$`2`[[2]]
[1] 4

$`2`[[3]]
[1] 6

$`2`[[4]]
[1] 8

$`2`[[5]]
[1] 10