r - 如何将列表翻过来？

Question

我有以下 list :

> list(c(3, 4, 5, 8), c(2, 6, 9, 10), c(1, 7))
[[1]]
[1] 3 4 5 8

[[2]]
[1]  2  6  9 10

[[3]]
[1] 1 7

所以我们可以说3属于第1组，6属于第2组，7属于第3组，依此类推。我需要一个反向映射，即到每个我想要它所属的组 id 的数字(参见预期输出):

> list(3, 2, 1, 1, 1, 2, 3, 1, 2, 2)
[[1]]
[1] 3

[[2]]
[1] 2

[[3]]
[1] 1

[[4]]
[1] 1

[[5]]
[1] 1

[[6]]
[1] 2

[[7]]
[1] 3

[[8]]
[1] 1

[[9]]
[1] 2

[[10]]
[1] 2

我以为 purrr::transpose应该做这项工作，但它并不完全符合我的意图，是吗？怎么做到呢？

附注。最终，我只需要一个形式的向量: 3 2 1 1 1 2 3 1 2 2 ，但有以上我认为 unlist()足以转换。

Answer 1

这是一个基本的解决方案......

list <- list(c(3, 4, 5, 8), c(2, 6, 9, 10), c(1, 7))

rep(1:length(list), sapply(list, length))[order(unlist(list))]