#r #list #merge
Вопрос:
У меня есть один список с большим количеством элементов (в конце должен быть обратный индекс).
- Все элементы являются числовыми векторами разной длины.
- Имя элемента встречается несколько раз
> par.list
$NAMEA
[1] 1 2 3 4 5 7 8 9 10
$NAMEB
[1] 6
$NAMEB
[1] 11 12 13 16 17
$NAMEA
[1] 14 15 18 19 20
То, что я ищу, является эффективным, было таким, что я получаю
> merged.list
$NAMEA
[1] 1 2 3 4 5 7 8 9 10 14 15 18 19 20
$NAMEB
[1] 6 11 12 13 16 17
Я уверен, что есть простой способ сделать это, но мне просто не удалось найти здесь нужную нить, поэтому я был бы признателен за любую помощь!
Ответ №1:
Мы можем stack
поименовать list
данные в двух столбцах.фрейм и split
with(stack(par.list), split(values, ind))
-выход
$NAMEA
[1] 1 2 3 4 5 7 8 9 10 14 15 18 19 20
$NAMEB
[1] 6 11 12 13 16 17
данные
par.list <- list(NAMEA = c(1, 2, 3, 4, 5, 7, 8, 9, 10), NAMEB = 6, NAMEB = c(11L,
12L, 13L, 16L, 17L), NAMEA = c(14L, 15L, 18L, 19L, 20L))
Ответ №2:
Другой вариант с lapply
—
uq_names <- unique(names(par.list))
setNames(lapply(uq_names, function(x)
unlist(par.list[names(par.list) == x], use.names = FALSE)), uq_names)
#$NAMEA
# [1] 1 2 3 4 5 7 8 9 10 14 15 18 19 20
#$NAMEB
#[1] 6 11 12 13 16 17