Sous-ensemble de colonnes sur la base de la liste des noms de colonnes et d'apporter de la colonne avant de

J'ai un plus grand ensemble de données suivant le même ordre, une unique colonne de date, de données, de l'unique colonne de date, la date, etc. Je suis en train de sous-ensemble non seulement les données de la colonne par le nom, mais l'unique colonne de date également. Le code ci-dessous sélectionne les colonnes basées sur une liste de noms, qui fait partie de ce que je veux, mais toutes les idées de comment je peux récupérer la colonne immédiatement avant le incorporée dans un jeu partiel de la colonne aussi?

À la recherche à la fin avec un DF contenant Date1, le Feu, Date3, des colonnes de Terre (en utilisant la liste des passagers).

Voici mon reproductible code:

Cnames <- c("Date1","Fire","Date2","Water","Date3","Earth")
MAINDF <- data.frame(replicate(6,runif(120,-0.03,0.03)))
colnames(MAINDF) <- Cnames

NameList <- c("Fire","Earth")

NewDF <- MAINDF[,colnames(MAINDF) %in% NameList]

OriginalL'auteur Trevor Nederlof | 2014-12-18

  1. 10

    Comment sur

    NameList <- c("Fire","Earth")

idx <- match(NameList, names(MAINDF))
idx <- sort(c(idx-1, idx))

NewDF <- MAINDF[,idx]

    Ici, nous utilisons match() pour trouver l'index de la colonne désirée, et ensuite, nous pouvons utiliser l'indice de la soustraction d'attraper la colonne avant de

    OriginalL'auteur MrFlick

  2. 7

    Utilisation which pour obtenir les numéros de colonne des noms, et puis c'est tout simple arithmétique:

    col.num <- which(colnames(MAINDF) %in% NameList)
NewDF <- MAINDF[,sort(c(col.num, col.num - 1))]

    Produit

             Date1         Fire        Date3        Earth
1 -0.010908003  0.007700453 -0.022778726 -0.016413307
2  0.022300509  0.021341360  0.014204445 -0.004492150
3 -0.021544992  0.014187158 -0.015174048 -0.000495121
4 -0.010600955 -0.006960160 -0.024535954 -0.024210771
5 -0.004694499  0.007198620  0.005543146 -0.021676692
6 -0.010623787  0.015977135 -0.027741109 -0.021102651
...

    OriginalL'auteur BrodieG