¿Existe una función base R para ordenar dinámicamente columnas data.frame similares a dplyr everything()?

syntax

Question

Supongamos que tiene un data.frame y desea reordenar dinámicamente las columnas utilizando la base R. Los datos de entrada siempre se verán así. Siempre contendrá las variables id, mes y año, así como un número variable de variables de datos (denotadas como v1, v2, v3, etc.)

df1 <- data.frame(
id = 1:5,
v1 = LETTERS[1:5],
v2 = rep(2,5),
v3 = rep(10,5),
month = c("jan", "jan", "mar", "oct", "dec"),
year = c(1999, 2001, 1984, 1979, 2019),
stringsAsFactors = F)

Me gustaría reordenar las columnas de modo que id, mes y año sean siempre las primeras tres columnas, y luego coloque las variables de datos que comienzan en la columna 4.

df2 <- data.frame(
id = 1:5,
month = c("jan", "jan", "mar", "oct", "dec"),
year = c(1999, 2001, 1984, 1979, 2019),
v1 = LETTERS[1:5],
v2 = rep(2,5),
v3 = rep(10,5),
stringsAsFactors = F)

Soy consciente de que esto se puede hacer con dplyr :: select junto con dplyr :: everything.

library(dplyr)
df2 <- df1 %>% select(id, month, year, everything())

Pero me gustaría lograr el mismo resultado utilizando la base R.

Lo mejor que se me ocurrió es,

keep1 <- c("id", "month", "year")
keep2 <- names(df1)[!names(df1) %in% keep1]
keep3 <- c(keep1, keep2)
df2 <- df1[, keep3]

¿Podría haber una solución más elegante? ¿Podría haber una función en la base R similar a dplyr :: everything?

Answer 1

Otra opción

df1[, unique(c(which(names(df1) %in% keep1), seq_along(df1)))]

o

df1[, unique(c("id", "month", "year", names(df1)))]

Answer 2

Puedes usar setdiff :

df1[, c(keep1, setdiff(names(df1), keep1))]

Answer 3

df1[order(match(names(df1), keep1, nomatch = NCOL(df1) + 1))]
# id month year v1 v2 v3
#1 1 jan 1999 A 2 10
#2 2 jan 2001 B 2 10
#3 3 mar 1984 C 2 10
#4 4 oct 1979 D 2 10
#5 5 dec 2019 E 2 10