Làm thế nào để sắp xếp lại các cột trong khung dữ liệu?

Làm thế nào một người sẽ thay đổi đầu vào này (với trình tự: thời gian, vào, ra, các tệp):

Time   In    Out  Files
1      2     3    4
2      3     4    5

Để đầu ra này (với trình tự: time, out, in, files)?

Time   Out   In  Files
1      3     2    4
2      4     3    5

Đây là dữ liệu R giả:

table <- data.frame(Time=c(1,2), In=c(2,3), Out=c(3,4), Files=c(4,5))
table
##  Time In Out Files
##1    1  2   3     4
##2    2  3   4     5

Khung dữ liệu của bạn có bốn cột như vậy df[,c(1,2,3,4)]. Lưu ý dấu phẩy đầu tiên có nghĩa là giữ tất cả các hàng và 1,2,3,4 đề cập đến các cột.

Để thay đổi thứ tự như trong câu hỏi trên, hãy làm df2[,c(1,3,2,4)]

Nếu bạn muốn xuất tệp này dưới dạng csv, hãy làm write.csv(df2, file="somedf.csv")

# reorder by column name
data <- data[c("A", "B", "C")]

#reorder by column index
data <- data[c(1,3,2)]

Bạn cũng có thể sử dụng chức năng tập hợp con:

data <- subset(data, select=c(3,2,1))

Bạn nên sử dụng toán tử [] như trong các câu trả lời khác, nhưng có thể hữu ích khi biết rằng bạn có thể thực hiện một tập hợp con và một cột sắp xếp lại hoạt động trong một lệnh.

Cập nhật:

Bạn cũng có thể sử dụng chức năng chọn từ gói dplyr:

data = data %>% select(Time, out, In, Files)

Tôi không chắc về hiệu quả, nhưng nhờ cú pháp của dplyr, giải pháp này sẽ linh hoạt hơn, đặc biệt nếu bạn có nhiều cột. Ví dụ: phần sau đây sẽ sắp xếp lại các cột của bộ dữ liệu mtcars theo thứ tự ngược lại:

mtcars %>% select(carb:mpg)

Và sau đây sẽ chỉ sắp xếp lại một số cột và loại bỏ các cột khác:

mtcars %>% select(mpg:disp, hp, wt, gear:qsec, starts_with('carb'))

Đọc thêm về cú pháp chọn của dplyr .

Như đã đề cập trong bình luận này , các đề xuất tiêu chuẩn cho việc sắp xếp lại các cột trong một data.framethường rất cồng kềnh và dễ bị lỗi, đặc biệt là nếu bạn có nhiều cột.

Hàm này cho phép sắp xếp lại các cột theo vị trí: chỉ định tên biến và vị trí mong muốn và không lo lắng về các cột khác.

##arrange df vars by position
##'vars' must be a named vector, e.g. c("var.name"=1)
arrange.vars <- function(data, vars){
    ##stop if not a data.frame (but should work for matrices as well)
    stopifnot(is.data.frame(data))

    ##sort out inputs
    data.nms <- names(data)
    var.nr <- length(data.nms)
    var.nms <- names(vars)
    var.pos <- vars
    ##sanity checks
    stopifnot( !any(duplicated(var.nms)), 
               !any(duplicated(var.pos)) )
    stopifnot( is.character(var.nms), 
               is.numeric(var.pos) )
    stopifnot( all(var.nms %in% data.nms) )
    stopifnot( all(var.pos > 0), 
               all(var.pos <= var.nr) )

    ##prepare output
    out.vec <- character(var.nr)
    out.vec[var.pos] <- var.nms
    out.vec[-var.pos] <- data.nms[ !(data.nms %in% var.nms) ]
    stopifnot( length(out.vec)==var.nr )

    ##re-arrange vars by position
    data <- data[ , out.vec]
    return(data)
}

Bây giờ yêu cầu của OP trở nên đơn giản như thế này:

table <- data.frame(Time=c(1,2), In=c(2,3), Out=c(3,4), Files=c(4,5))
table
##  Time In Out Files
##1    1  2   3     4
##2    2  3   4     5

arrange.vars(table, c("Out"=2))
##  Time Out In Files
##1    1   3  2     4
##2    2   4  3     5

Để trao đổi thêm Timevà Filescác cột bạn có thể làm điều này:

arrange.vars(table, c("Out"=2, "Files"=1, "Time"=4))
##  Files Out In Time
##1     4   3  2    1
##2     5   4  3    2

Một dplyrgiải pháp (một phần của bộ tidyversegói) là sử dụng select:

select(table, "Time", "Out", "In", "Files") 

# or

select(table, Time, Out, In, Files)

Có thể đó là một sự trùng hợp ngẫu nhiên khi thứ tự cột bạn muốn có tên cột theo thứ tự bảng chữ cái giảm dần. Vì đó là trường hợp bạn có thể làm:

df<-df[,order(colnames(df),decreasing=TRUE)]

Đó là những gì tôi sử dụng khi tôi có các tệp lớn với nhiều cột.

Bạn có thể sử dụng gói data.table :

Cách sắp xếp lại các cột data.table (không cần sao chép)

require(data.table)
setcolorder(DT,myOrder)

Các ba hàng đầu đánh giá câu trả lời có một điểm yếu.

Nếu khung dữ liệu của bạn trông như thế này

df <- data.frame(Time=c(1,2), In=c(2,3), Out=c(3,4), Files=c(4,5))

> df
  Time In Out Files
1    1  2   3     4
2    2  3   4     5

Sau đó, nó là một giải pháp kém để sử dụng

> df2[,c(1,3,2,4)]

Nó thực hiện công việc, nhưng bạn vừa giới thiệu một sự phụ thuộc vào thứ tự của các cột trong đầu vào của bạn.

Phong cách lập trình dễ vỡ này là phải tránh.

Việc đặt tên rõ ràng của các cột là một giải pháp tốt hơn

data[,c("Time", "Out", "In", "Files")]

Ngoài ra, nếu bạn có ý định sử dụng lại mã của mình trong một cài đặt chung hơn, bạn có thể chỉ cần

out.column.name <- "Out"
in.column.name <- "In"
data[,c("Time", out.column.name, in.column.name, "Files")]

Điều này cũng khá hay vì nó hoàn toàn cách ly chữ. Ngược lại, nếu bạn sử dụng dplyr'sselect

data <- data %>% select(Time, out, In, Files)

sau đó bạn sẽ thiết lập những người sẽ đọc mã của bạn sau này, bao gồm cả bản thân bạn, cho một chút lừa dối. Các tên cột đang được sử dụng như chữ mà không xuất hiện trong mã như vậy.

dplyrphiên bản 1.0.0bao gồm relocate()chức năng dễ dàng sắp xếp lại các cột:

dat <- data.frame(Time=c(1,2), In=c(2,3), Out=c(3,4), Files=c(4,5))

library(dplyr) # from version 1.0.0 only

dat %>%
  relocate(Out, .before = In)

hoặc là

dat %>%
  relocate(Out, .after = Time)

data.table::setcolorder(table, c("Out", "in", "files"))

Người duy nhất tôi thấy làm việc tốt là từ đây .

 shuffle_columns <- function (invec, movecommand) {
      movecommand <- lapply(strsplit(strsplit(movecommand, ";")[[1]],
                                 ",|\\s+"), function(x) x[x != ""])
  movelist <- lapply(movecommand, function(x) {
    Where <- x[which(x %in% c("before", "after", "first",
                              "last")):length(x)]
    ToMove <- setdiff(x, Where)
    list(ToMove, Where)
  })
  myVec <- invec
  for (i in seq_along(movelist)) {
    temp <- setdiff(myVec, movelist[[i]][[1]])
    A <- movelist[[i]][[2]][1]
    if (A %in% c("before", "after")) {
      ba <- movelist[[i]][[2]][2]
      if (A == "before") {
        after <- match(ba, temp) - 1
      }
      else if (A == "after") {
        after <- match(ba, temp)
      }
    }
    else if (A == "first") {
      after <- 0
    }
    else if (A == "last") {
      after <- length(myVec)
    }
    myVec <- append(temp, values = movelist[[i]][[1]], after = after)
  }
  myVec
}

Sử dụng như thế này:

new_df <- iris[shuffle_columns(names(iris), "Sepal.Width before Sepal.Length")]

Hoạt động như một lá bùa.