¿Cómo puedo fusionar y mantener el orden de fila de una entrada?

Question

Tengo un marco de datos que relaciona los números de botella con sus volúmenes (key en el ejemplo a continuación). Quiero escribir una función que tome cualquier lista de números de botella (samp) y devolver una lista de los volúmenes de botellas mientras se mantiene el orden del número de botella en samp.

La función siguiente coincide correctamente con los números y volúmenes de las botellas, pero ordena la salida por el número de botella ascendente.

¿Cómo puedo mantener el orden de samp con merge? El establecimiento de sort=FALSE da como resultado un "orden no especificado".

Ejemplo

samp <- c(9, 1, 4, 1) 
num <- 1:10 
vol <- sample(50:100, 10) 
key <- data.frame(num, vol) 
matchFun <- function(samp, key) 
    { 
    out <- merge(as.data.frame(samp), key, by.x="samp", by.y="num") 
    return(out$vol) 
    } 

Answer 1

Usted puede hacer esto con match y subconjuntos de key por el resultado:

bottles <- key[match(samp, key$num),] 
# rownames are odd because they must be unique, clean them up 
rownames(bottles) <- seq(NROW(bottles)) 

Answer 2

join en el paquete plyr es ideal para esto ...

samp <- c(9, 1, 4, 1) 
num <- 1:10 
vol <- sample(50:100, 10) 
key <- data.frame(num, vol) 
samp<-as.data.frame(samp) 
names(samp)<-"num" 
library("plyr") 
join(key,samp,type="right")