สั่งซื้อแถวข้อมูลเฟรมตามเวกเตอร์พร้อมคำสั่งเฉพาะ

มีวิธีที่ง่ายกว่าหรือไม่ในการตรวจสอบให้แน่ใจว่าแถวของกรอบข้อมูลได้รับการจัดเรียงตามเวกเตอร์ "เป้าหมาย" ที่ฉันดำเนินการในตัวอย่างสั้น ๆ ด้านล่างหรือไม่

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

หากคุณไม่ต้องการที่จะใช้ห้องสมุดใด ๆ และคุณมี reoccurrences ในข้อมูลของคุณคุณสามารถใช้whichด้วยsapplyเช่นกัน

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