R + combina un elenco di vettori in un singolo vettore

Ho una singola lista di vettore numerico e voglio combinarli in un vettore. Ma non sono in grado di farlo. Questo elenco può avere un elemento comune attraverso l'elemento dell'elenco. Il vettore finale non dovrebbe aggiungerli due volte. Ecco un esempio:R + combina un elenco di vettori in un singolo vettore

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

Voglio risultato finale in quanto questo

>result 
[1] 1 2 4 5 9 1

Ho provato a fare seguenti cose, senza preoccuparsi della repition:

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

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

Nessuno di loro è preoccupato ked. Qualcuno può aiutarmi su questo?

Grazie.

fonte

2013-03-20 Rachit Agrawal

Grazie @ JoshO'Brien. Ma ciò non rimuove i valori duplicati. –

@joran Dubito che 'unique' sarà abbastanza fine; 'unique' potrebbe facilmente rimuovere più di 1 elemento comune tra componenti * adiacenti * dell'elenco. Nota 'unique (unlist (lst))' non darebbe quello che l'OP vuole. –

Stai solo dicendo che non vuoi valori ripetuti l'uno accanto all'altro? O stai dicendo che non vuoi ripetere un elemento se la fine di un vettore corrisponde all'inizio del prossimo? Fornire più esempi potrebbe aiutare ... – Dason

Una soluzione che è più veloce di quella proposta di cui sopra:

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

Questo è più veloce di quella proposta di cui sopra.

fonte

2013-03-21 05:01:22

Cos'è 'vec [quale (c (1, diff (vec))! = 0)]' per? – Galaxy

ma è più veloce di quello sopra proposto? – hedgedandlevered

Volete 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

fonte

2013-03-20 04:46:21

Stavo pensando anche a questo. L'unico problema che ho è che non so se vorrebbero rimuovere i valori ripetuti all'interno di un elemento della lista ... – Dason

Raggiungere ciò che sto cercando di fare.Potrei anche farlo con la seguente opzione: 'vec <-unlist (lst); vec [quale (c (1, diff (vec))! = 0)] ' Ora mi chiedo quale sia il migliore? –

Probabilmente è più veloce perché fa meno lavoro (ed è più veloce nel tuo esempio banale, sulla mia macchina). Guarda il codice per 'rle'. Potresti aggiungerlo come un'altra risposta. –

pila farà questo bene troppo, e sembra più concisa:

stack(lst)$values

fonte

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

Un'altra risposta utilizzando Reduce().

creare l'elenco di vettori:

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

combinarle in un vettore

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

mantenere quelli ripetuto una sola volta:

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

Se si desidera mantenere che ripete uno alla fine, potresti voler usare vec[which(c(1,diff(vec)) != 0)] come nella risposta di @ Rachid

fonte

2015-12-29 15:30:28

In effetti 'unlist (lst)' è più facile di 'Reduce (c, lst)'. –

R + combina un elenco di vettori in un singolo vettore

risposta

Problemi correlati