R: Generare istogramma dai conti di dati

Question

Supponiamo che io abbia vettore a:

c(1, 6, 2, 4.1, 1, 2) 

E un vettore conteggio b:

c(2,3,2,1,1,0) 

mi piacerebbe per generare vettore c:

c(1, 1, 6, 6, 6, 2, 2, 4.1, 1) 

Per chiamare:

hist(c) 

Come posso costruire c, o c'è un modo per generare l'istogramma direttamente da a e b? Notare i duplicati in a e la spaziatura non uguale.

Richiedi una soluzione vettoriale. a e b sono troppo grandi per lapply e gli amici.

Answer 1

?rep

> rep(a, b) 
[1] 1.0 1.0 6.0 6.0 6.0 2.0 2.0 4.1 1.0 
> 

---

Edit da quando ero curioso!

a <- sample(1:10, 1e6, replace=TRUE) 
b <- sample(1:10, 1e6, replace=TRUE) 

> system.time(rep(a, b)) 
    user system elapsed 
    0.140 0.016 0.156 
> system.time(inverse.rle(list(lengths=b, values=a))) 
    user system elapsed 
    0.024 0.004 0.028 

Answer 2

solo per qualcosa di diverso rispetto rep:

> inverse.rle(list(lengths=b,values=a)) 
[1] 1.0 1.0 6.0 6.0 6.0 2.0 2.0 4.1 1.0 

Answer 3

Alcuni benchmarking e una soluzione più veloce. rep.int è una più rapida attuazione del rep nel caso d'uso standard (da ?rep)

rep.int(a, b) 

non mi ha convinto su un'analisi comparativa sopra

inverse.rle è solo un wrapper per rep.int. rep.int dovrebbe essere più veloce di rep. Vorrei pensare che la componente wrapper di inverse.rle dovrebbe essere più lento rispetto l'interpretazione di rep() in funzione primitiva

Alcuni microbenchmarking

library(microbenchmark) 

microbenchmark(rep(a,b), rep.int(a,b), 
     inverse.rle(list(values = a, lengths =b))) 
Unit: milliseconds 
             expr  min  lq median  uq 
1 inverse.rle(list(values = a, lengths = b)) 29.06968 29.26267 29.36191 29.67501 
2         rep(a, b) 25.65125 25.76246 25.84869 26.52348 
3        rep.int(a, b) 20.38604 23.31840 23.38940 23.69600 
     max 
1 72.80645 
2 69.00169 
3 66.40759 

Non c'è molto in essa, ma rep.int appare il vincitore - cui dovrebbero.