基于不完整向量对数据框中的列进行排序

Question

我有一个基于 col 名称的向量，看起来像

x <- c("C", "A", "T")

我的数据框看起来像定义了行名和列名。

names    A    B    C    D    T
 Dan     1    0    1    0    1
 Joe     0    1    0    1    0

我想对数据框进行排序，以便向量中的列首先出现，然后是不在向量中的列

names    C    A    T   B    D
Dan      1    1    1   0    0
Joe      0    0    0   1    1

谢谢

Answer 1

以下将重新排列您的数据，以将向量 x 中指定的列设置为开头，其余列在其后按原始顺序设置。

x <- c("C", "A", "T")

mydata <- mydata[, c(x, setdiff(names(mydata), x))]

如果names 列应保留在第一个位置并且未在x 中指定，请使用（感谢@StevenBeaupré 指出并提供代码）：

mydata <- mydata[, c(names(mydata)[1], x, setdiff(names(mydata)[-1], x))]

小数据示例：

mydata <- data.frame(names = c("Dan", "Joe"), A = c(1, 0), B = c(0,1), 
                     C = c(1, 0), D = c(0,1), T = c(1, 0))

> mydata
  names A B C D T
1   Dan 1 0 1 0 1
2   Joe 0 1 0 1 0

mydata <- mydata[, c(names(mydata)[1], x, setdiff(names(mydata)[-1], x))]

> mydata
  names C A T B D
1   Dan 1 1 1 0 0
2   Joe 0 0 0 1 1