R + объединить список векторов в один вектор

У меня есть один список числового вектора, и я хочу объединить их в один вектор. Но я не могу этого сделать. Этот список может иметь один элемент, общий для элемента списка. Конечный вектор не должен добавлять их дважды. Вот пример:R + объединить список векторов в один вектор

>lst 
`1` 
[1] 1 2 
`2` 
[2] 2 4 5 
`3` 
[3] 5 9 1

Я хочу, чтобы конечный результат, как это

>result 
[1] 1 2 4 5 9 1

Я пытался делать следующие вещи, не заботясь о repition:

>vec<-vector() 
>sapply(lst, append,vec)

>vec<-vector() 
>sapply(lst, c, vec)

Ни один из них рунец. Может ли кто-нибудь помочь мне в этом?

Спасибо.

источник

2013-03-20 Rachit Agrawal

Спасибо @ JoshO'Brien. Но это не удаляет повторяющиеся значения. –

@joran Я сомневаюсь, что «уникальный» будет достаточно мелким; 'unique' может легко удалить больше, чем 1 общий элемент между * смежными * компонентами списка. Примечание 'unique (unlist (lst))' не даст то, что хочет OP. –

Вы только говорите, что не хотите, чтобы повторяющиеся значения были рядом друг с другом? Или вы говорите, что просто не хотите повторять элемент, если конец одного вектора соответствует началу следующего? Предоставление большего количества примеров могло бы помочь ... – Dason

Решения, которое происходит быстрее, чем предложенные выше:

vec<-unlist(lst) 
vec[which(c(1,diff(vec)) != 0)]

Это быстрее, чем предложенные выше.

источник

2013-03-21 05:01:22

Что такое 'vec [which (c (1, diff (vec))! = 0)]' for? – Galaxy

, но это быстрее, чем предлагалось выше? – hedgedandlevered

Вы хотите RLE:

rle(unlist(lst))$values 

> lst <- list(`1`=1:2, `2`=c(2,4,5), `3`=c(5,9,1)) 
> rle(unlist(lst))$values 
## 11 21 22 31 32 33 
## 1 2 4 5 9 1

источник

2013-03-20 04:46:21

Я тоже думал об этом. Единственная проблема, с которой я сталкиваюсь, заключается в том, что я не знаю, хотят ли они удалять повторяющиеся значения в элементе списка ... – Dason

Это достигается тем, что я пытаюсь сделать.Я мог бы также сделать это со следующей опцией: 'vec <-unlist (lst); vec [which (c (1, diff (vec))! = 0)] ' Теперь мне интересно, что лучше? –

Это, вероятно, быстрее, так как он делает меньше работы (и быстрее на вашем тривиальном примере, на моей машине). Посмотрите на код для 'rle'. Вы можете добавить это как еще один ответ. –

стек будет делать это красиво тоже, и выглядит более кратким:

stack(lst)$values

источник

2014-03-19 00:36:28 0mn1

Другой ответ, используя Reduce().

Создать список векторов:

lst <- list(c(1,2),c(2,4,5),c(5,9,1))

Объединить их в один вектор

vec <- Reduce(c,lst) 
vec 
# [1] 1 2 2 4 5 5 9 1

Держите повторяющиеся из них только один раз:

unique(Reduce(c,lst)) 
#[1] 1 2 4 5 9

Если вы хотите сохранить, что повторное один в конце, вы можете использовать vec[which(c(1,diff(vec)) != 0)], как в ответе @ Rachid

источник

2015-12-29 15:30:28

Фактически 'unlist (lst)' проще, чем 'Reduce (c, lst)'. –

R + объединить список векторов в один вектор

ответ

Смежные вопросы