จัดเรียงคอลัมน์ของดาต้าเฟรมตามชื่อคอลัมน์

นี่อาจเป็นคำถามง่ายๆ แต่ฉันไม่รู้วิธีเรียงลำดับคอลัมน์ตามตัวอักษร

test = data.frame(C = c(0, 2, 4, 7, 8), A = c(4, 2, 4, 7, 8), B = c(1, 3, 8, 3, 2))

#   C A B
# 1 0 4 1
# 2 2 2 3
# 3 4 4 8
# 4 7 7 3
# 5 8 8 2

ฉันต้องการเรียงลำดับคอลัมน์ตามชื่อคอลัมน์ตามตัวอักษรเพื่อให้บรรลุ

#   A B C
# 1 4 1 0
# 2 2 3 2
# 3 4 8 4
# 4 7 3 7
# 5 8 2 8

สำหรับคนอื่นฉันต้องการคำสั่งที่กำหนดเอง:

#   B A C
# 1 4 1 0
# 2 2 3 2
# 3 4 8 4
# 4 7 3 7
# 5 8 2 8

โปรดทราบว่าชุดข้อมูลของฉันมีขนาดใหญ่โดยมีตัวแปร 10,000 รายการ ดังนั้นกระบวนการจะต้องเป็นแบบอัตโนมัติมากขึ้น

คุณสามารถใช้orderบนnamesและใช้เพื่อเรียงลำดับคอลัมน์เมื่อทำการย่อย:

test[ , order(names(test))]
  A B C
1 4 1 0
2 2 3 2
3 4 8 4
4 7 3 7
5 8 2 8

สำหรับคำสั่งซื้อที่คุณกำหนดเองคุณจะต้องกำหนดการแมปชื่อของคุณเองกับลำดับ สิ่งนี้จะขึ้นอยู่กับว่าคุณต้องการทำสิ่งนี้อย่างไร แต่การสลับฟังก์ชันที่ต้องการกับorderด้านบนควรให้ผลลัพธ์ที่ต้องการ

ตัวอย่างเช่นคุณอาจดูลำดับแถวของเฟรมข้อมูลตามเวกเตอร์เป้าหมายที่ระบุลำดับที่ต้องการกล่าวคือคุณสามารถmatchเฟรมข้อมูลของคุณnamesเทียบกับเวกเตอร์เป้าหมายที่มีลำดับคอลัมน์ที่ต้องการ

นี่คือdplyrคำตอบที่จำเป็นในกรณีที่มีคนต้องการทำเช่นนี้กับท่อ

test %>% 
    select(sort(names(.)))

test = data.frame(C=c(0,2,4, 7, 8), A=c(4,2,4, 7, 8), B=c(1, 3, 8,3,2))

การใช้การแทนที่ฟังก์ชันง่ายๆต่อไปนี้สามารถทำได้ (แต่เฉพาะในกรณีที่ data frame ไม่มีหลายคอลัมน์):

test <- test[, c("A", "B", "C")]

สำหรับคนอื่น ๆ :

test <- test[, c("B", "A", "C")]

  test[,sort(names(test))]

การจัดเรียงชื่อคอลัมน์สามารถทำงานได้อย่างง่ายดาย

หากคุณต้องการเพียงคอลัมน์เดียวหรือหลายคอลัมน์ที่อยู่ด้านหน้าและไม่สนใจลำดับของส่วนที่เหลือ:

require(dplyr)
test %>%
  select(B, everything())

ดังนั้นเพื่อให้คอลัมน์เฉพาะมาก่อนจากนั้นส่วนที่เหลือตามตัวอักษรฉันขอเสนอวิธีแก้ปัญหานี้:

test[, c("myFirstColumn", sort(setdiff(names(test), "myFirstColumn")))]

ตัวเลือกทางเลือกคือการใช้str_sort()จากห้องสมุดstringrnumeric = TRUEมีการโต้แย้ง นี้ได้อย่างถูกต้องจะสั่งคอลัมน์ที่มีตัวเลขที่ไม่ได้เป็นเพียงตัวอักษร :

str_sort(c("V3", "V1", "V10"), numeric = TRUE)

# [1] V1 V3 V11

คล้ายกับไวยากรณ์อื่น ๆ ด้านบน แต่เพื่อการเรียนรู้คุณสามารถจัดเรียงตามชื่อคอลัมน์ได้หรือไม่?

sort(colnames(test[1:ncol(test)] ))

นี่คือสิ่งที่ฉันค้นพบเพื่อให้เกิดปัญหาที่คล้ายกันกับชุดข้อมูลของฉัน

ก่อนอื่นให้ทำในสิ่งที่ยากอบกล่าวไว้ข้างต้นนั่นคือ

test[ , order(names(test))]

ประการที่สองใช้ฟังก์ชัน everything () ใน dplyr เพื่อย้ายคอลัมน์เฉพาะที่สนใจ (เช่น "D", "G", "K") ที่จุดเริ่มต้นของ data frame โดยวางคอลัมน์ที่เรียงตามลำดับตัวอักษรไว้หลังคอลัมน์เหล่านั้น

select(test, D, G, K, everything())

­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­