Ordonner les lignes de trame de données en fonction du vecteur avec un ordre spécifique

Existe-t-il un moyen plus simple de s'assurer que les lignes d'un bloc de données sont ordonnées selon un vecteur «cible» comme celui que j'ai implémenté dans le court exemple ci-dessous?

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

Cela semble en quelque sorte un peu trop "compliqué" pour faire le travail:

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

Essayez 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

Cela fonctionnera tant que votre targetcontient exactement les mêmes éléments que df$name, et qu'aucun des deux ne contient de valeurs en double.

De ?match:

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

Par conséquent, matchtrouve les numéros de ligne qui correspondent targetaux éléments de, puis nous retournons dfdans cet ordre.

Je préfère utiliser ***_join dans dplyrchaque fois que je dois faire correspondre les données. Un essai possible pour cela

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

Notez que l'entrée pour ***_joinrequire tbls ou data.frame

Cette méthode est un peu différente, elle m'a fourni un peu plus de flexibilité que la réponse précédente. En le transformant en un facteur ordonné, vous pouvez l'utiliser à bon escient arrangeet ainsi de suite. J'ai utilisé reorder.factor du gdatapackage.

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)

Ensuite, utilisez le fait qu'il est maintenant commandé:

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

Si vous souhaitez revenir à l'ordre d'origine (alphabétique), utilisez simplement as.character()pour le remettre à l'état d'origine.

Nous pouvons ajuster les niveaux de facteur en fonction targetet l'utiliser dansarrange

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

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

Ou orderet utilisez-le dansslice

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

Si vous ne souhaitez utiliser aucune bibliothèque et que vos données se reproduisent, vous pouvez également utiliser whichavec sapply.

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