Solicitar linhas do quadro de dados de acordo com o vetor com pedido específico

Existe uma maneira mais fácil de garantir que as linhas de um quadro de dados sejam ordenadas de acordo com um vetor "alvo" como o que eu implementei no pequeno exemplo abaixo?

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

De alguma forma, isso parece um pouco "complicado" demais para fazer o trabalho:

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

Tente 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

Funcionará desde que você targetcontenha exatamente os mesmos elementos que df$namee nem contenha valores duplicados.

De ?match:

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

Portanto, matchencontra os números de linha que correspondem targetaos elementos de e, em seguida, retornamos dfnessa ordem.

Eu prefiro usar ***_join em dplyrsempre que eu preciso para combinar dados. Uma tentativa possível para isso

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

Observe que a entrada para ***_joinrequer tbls ou data.frame

Esse método é um pouco diferente, me proporcionou um pouco mais de flexibilidade do que a resposta anterior. Ao transformá-lo em um fator ordenado, você pode usá-lo perfeitamentearrange . Eu usei reorder.factor do gdatapacote.

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)

Em seguida, use o fato de que agora está ordenado:

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

Se você quiser voltar à ordem original (alfabética), use-a as.character()para voltar ao estado original.

Podemos ajustar os níveis dos fatores com base targete usá-los emarrange

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

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

Ou orderuse-o emslice

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

Se você não quiser usar qualquer bibliotecas e você tem reoccurrences em seus dados, você pode usar whichcom o sapplybem.

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