在R中的数据帧中动态地重新排序列

Question

我试图重新排序R中的列。这是情况：

我现在有9列：A-NP F-WR K-WR H-ER Q-ER B-NP C-NP Z-WR X-ER

规则是NP> WR> ER。因此，名称中包含NP的列应该是第一列。在同一组的列中，它是按字母顺序排列的。

所以期望的输出将是：

A-NP B-NP C-NP F-WR K-WR Z-WR H-ER Q-ER X-ER

列是这种格式（某些东西 - NP / WR / ER），但它每次都不同，所以我想创建一些可以动态排序这些列的东西。

有任何想法吗？

谢谢，

Answer 1

# create an example data frame
df <- data.frame(matrix(ncol = 9, nrow = 0))
names(df) <- c("A-NP", "F-WR", "K-WR", "H-ER", "Q-ER", "B-NP", "C-NP", "Z-WR", "X-ER")

library(dplyr)

df %>%
  # sort in alphabetical order
  select(sort(names(.))) %>%
  # sort based on the rule
  select(contains("NP"), contains("WR"), contains("ER"))
# [1] A-NP B-NP C-NP F-WR K-WR Z-WR H-ER Q-ER X-ER
# <0 rows> (or 0-length row.names)

Answer 2

这是使用?grep()的基础R解决方案 -

df <- data.frame(matrix(ncol = 9, nrow = 0))
names(df) <- c("F-WR", "K-WR", "H-ER", "Q-ER", "B-NP", "C-NP", "Z-WR", "X-ER", "A-NP")

df[, c(sort(grep("NP", names(df), value = T)), 
       sort(grep("WR", names(df), value = T)), 
       sort(grep("ER", names(df), value = T))
      )
  ]


[1] A-NP B-NP C-NP F-WR K-WR Z-WR H-ER Q-ER X-ER
<0 rows> (or 0-length row.names)