Укажіть рядки кадрів даних відповідно до вектора з конкретним порядком

Чи є більш простий спосіб забезпечити впорядкування рядків кадру даних відповідно до "цільового" вектора, як той, який я реалізував у короткому прикладі нижче?

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

Це якось здається трохи надто "складним", щоб виконати роботу:

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

Спробуйте 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

Він буде працювати до тих пір, поки ваш targetмістить точно такі самі елементи, як df$nameі не містить дублюючих значень.

Від ?match:

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

Тому matchзнаходимо номери рядків, що відповідають targetелементам, і повертаємося dfв тому порядку.

Я вважаю за краще використовувати ***_join в dplyrвипадках , коли мені потрібно , щоб відповідати даним. Одне можливе спробу цього

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

Зауважте, що для введення ***_joinпотрібні tbls або data.frame

Цей метод дещо інший, він надав мені трохи більшої гнучкості, ніж попередня відповідь. Перетворивши його в упорядкований фактор, ви зможете красиво використовувати його у arrangeподібному. Я використовував reorder.factor з 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)

Далі, використовуйте той факт, що зараз замовлено:

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

Якщо ви хочете повернутися до початкового (алфавітного) замовлення, просто використовуйте as.character()для повернення його до початкового стану.

Ми можемо коригувати рівні факторів на основі targetта використовувати їхarrange

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

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

Або orderце і використовувати його вslice

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

Якщо ви не хочете користуватися жодною бібліотекою, а у ваших даних повторне виникнення, ви можете також використовувати whichїх sapply.

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