r - 将命名向量转换为 R 中的列表

Question

假设我有以下命名的数字向量:

a <- 1:8
names(a) <- rep(c('I', 'II'), each = 4)

如何将此向量转换为长度为 2 的列表(如下所示)？

a.list
# $I
# [1] 1 2 3 4
# $II
# [1] 5 6 7 8

请注意 as.list(a)不是我要找的。
我非常不满意(对于大向量来说很慢)的解决方案是:

names.uniq <- unique(names(a))
a.list <- setNames(vector('list', length(names.uniq)), names.uniq)
for(i in 1:length(names.uniq)) {
  names.i <- names.uniq[i]
  a.i <- a[names(a)==names.i]
  a.list[[names.i]] <- unname(a.i)
}

预先感谢您的帮助，
德文

Answer 1

就像我在评论中所说的那样，您可以使用 split创建一个列表。

a.list <- split(a, names(a))
a.list <- lapply(a.list, unname)

单线将是

a.list <- lapply(split(a, names(a)), unname)
#$I
#[1] 1 2 3 4
#
#$II
#[1] 5 6 7 8

编辑。
然后，thelatemail 在他的评论中发布了对此的简化。我已经使用 Devin King 的方式对它计时，它不仅更简单，而且速度提高了 25%。

a.list <- split(unname(a),names(a))