Veri çerçevesi satırlarını belirli bir sırayla vektöre göre sıralayın

Bir veri çerçevesinin satırlarının aşağıdaki kısa örnekte uyguladığım gibi bir "hedef" vektöre göre sıralanmasını sağlamanın daha kolay bir yolu var mı?

df <- data.frame(name = letters[1:4], value = c(rep(TRUE, 2), rep(FALSE, 2)))

df
#   name value
# 1    a  TRUE
# 2    b  TRUE
# 3    c FALSE
# 4    d FALSE

target <- c("b", "c", "a", "d")

Bu bir şekilde işi yapmak için biraz "karmaşık" gibi görünüyor:

idx <- sapply(target, function(x) {
    which(df$name == x)
})
df <- df[idx,]
rownames(df) <- NULL

df 
#   name value
# 1    b  TRUE
# 2    c FALSE
# 3    a  TRUE
# 4    d FALSE

Deneyin match:

df <- data.frame(name=letters[1:4], value=c(rep(TRUE, 2), rep(FALSE, 2)))
target <- c("b", "c", "a", "d")
df[match(target, df$name),]

  name value
2    b  TRUE
3    c FALSE
1    a  TRUE
4    d FALSE

Sizin targetöğenizle tam olarak aynı öğeleri içerdiği sürece çalışır df$nameve yinelenen değerler içermez.

Gönderen ?match:

match returns a vector of the positions of (first) matches of its first argument 
in its second.

Bu nedenle match, targetöğelerinin öğelerine uyan satır numaralarını bulur ve sonra dfbu sırayla geri döneriz.

Ben kullanımda tercih ***_join içinde dplyrben verileri eşleştirmek gerektiğinde. Bunun için olası bir deneme

left_join(data.frame(name=target),df,by="name")

İçin girişin ***_jointbls veya data.frame gerektirdiğini unutmayın

Bu yöntem biraz farklı, bana önceki yanıttan biraz daha esneklik sağladı. Düzenli bir faktör haline getirerek, bunu güzel bir şekilde kullanabilirsiniz arrange. Paketten reorder.factor kullandım gdata.

df <- data.frame(name=letters[1:4], value=c(rep(TRUE, 2), rep(FALSE, 2)))
target <- c("b", "c", "a", "d")

require(gdata)
df$name <- reorder.factor(df$name, new.order=target)

Ardından, şimdi sipariş edildiği gerçeğini kullanın:

require(dplyr)
df %>%
  arrange(name)
    name value
1    b  TRUE
2    c FALSE
3    a  TRUE
4    d FALSE

Orijinal (alfabetik) sıralamaya geri dönmek istiyorsanız as.character(), orijinal durumuna geri döndürmek için kullanın .

Biz dayalı faktör seviyelerini ayarlayabilirsiniz targetve kullanmakarrange

library(dplyr)
df %>% arrange(factor(name, levels = target))

#  name value
#1    b  TRUE
#2    c FALSE
#3    a  TRUE
#4    d FALSE

Ya orderda kullanın ve kullanınslice

df %>% slice(order(factor(name, levels = target)))

Herhangi bir kitaplık kullanmak istemiyorsanız ve verilerinizde tekrarlar varsa, whichile de kullanabilirsiniz sapply.

new_order <- sapply(target, function(x,df){which(df$name == x)}, df=df)
df        <- df[new_order,]