Sắp xếp các hàng khung dữ liệu theo vector với thứ tự cụ thể

Có cách nào dễ dàng hơn để đảm bảo rằng các hàng của khung dữ liệu được sắp xếp theo vectơ "đích" như cách tôi thực hiện trong ví dụ ngắn dưới đây không?

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

Điều này bằng cách nào đó có vẻ hơi "phức tạp" để hoàn thành công việc:

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

Hãy thử 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

Nó sẽ hoạt động miễn là bạn targetchứa chính xác các yếu tố giống như df$namevà không chứa các giá trị trùng lặp.

Từ ?match:

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

Do đó, matchtìm các số hàng khớp với targetcác phần tử, và sau đó chúng tôi trả về dftheo thứ tự đó.

Tôi thích sử dụng ***_join trong dplyrbất cứ khi nào tôi cần phải phù hợp với dữ liệu. Một thử có thể cho việc này

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

Lưu ý rằng đầu vào cho ***_joinyêu cầu tbls hoặc data.frame

Phương pháp này hơi khác một chút, nó cung cấp cho tôi sự linh hoạt hơn một chút so với câu trả lời trước đó. Bằng cách biến nó thành một yếu tố có trật tự, bạn có thể sử dụng nó một cách độc đáo arrangevà như vậy. Tôi đã sử dụng reorder.factor từ gdatagói.

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)

Tiếp theo, sử dụng thực tế là nó đã được đặt hàng:

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

Nếu bạn muốn quay lại thứ tự ban đầu (bảng chữ cái), chỉ cần sử dụng as.character()để đưa nó trở lại trạng thái ban đầu.

Chúng tôi có thể điều chỉnh các mức yếu tố dựa trên targetvà sử dụng nó trongarrange

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

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

Hoặc ordernó và sử dụng nó trongslice

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

Nếu bạn không muốn sử dụng bất kỳ thư viện và bạn có reoccurrences trong dữ liệu của bạn, bạn có thể sử dụng whichvới sapplylà tốt.

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