Jak scalić i zachować kolejność rzędów jednego wejścia?

Question

Mam ramkę danych, która odnosi numery butelek do ich objętości (key w poniższym przykładzie). Chcę napisać funkcję, która zajmie się dowolną listą numerów butelek (samp) i zwróci listę pojemności butelek , zachowując kolejność numerów butelek w samp.

Poniższa funkcja poprawnie dopasowuje numery butelek i objętości, ale sortuje dane wyjściowe według rosnącego numeru butelki.

Jak zachować kolejność samp z merge? Ustawienie sort=FALSE powoduje "nieokreśloną kolejność".

Przykład

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

Można to zrobić z match i podzbiorów key przez wynik:

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 w pakiecie plyr doskonale nadaje się do tego ...

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")