recomendado - mover la columna al primero en un marco de datos
tamaño imagen destacada wordpress (5)
Tengo un marco de datos que quiero exportar a csv. Para cuestiones de legibilidad me gustaría tener la última columna del marco de datos movido al inicio (como primera columna). ¿Cómo puedo hacerlo en R?
Mi data.frame tiene alrededor de mil columnas para cambiar el orden. Solo quiero elegir una columna y "moverla al comienzo".
El enfoque select () de Dplyr
Mover la última columna al comienzo:
new_df <- df %>%
select(last_column_name, everything())
Esto también es válido para cualquier columna y cualquier cantidad:
new_df <- df %>%
select(col_5, col_8, everything())
Ejemplo usando el marco de datos mtcars :
head(mtcars, n = 2)
# mpg cyl disp hp drat wt qsec vs am gear carb
# Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
# Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
# Last column is ''carb''
new_df <- mtcars %>% select(carb, everything())
head(new_df, n = 2)
# carb mpg cyl disp hp drat wt qsec vs am gear
# Mazda RX4 4 21.0 6 160 110 3.90 2.620 16.46 0 1 4
# Mazda RX4 Wag 4 21.0 6 160 110 3.90 2.875 17.02 0 1 4
Puede cambiar el orden de las columnas al direccionarlas en el nuevo orden seleccionándolas explícitamente con data[,c(ORDER YOU WANT THEM TO BE IN)] QUIERA QUE ESTÉN ENTRADAS data[,c(ORDER YOU WANT THEM TO BE IN)]
Si solo quiere que la última columna sea el primer uso: data[,c(ncol(data),1:(ncol(data)-1))]
> head(cars)
speed dist
1 4 2
2 4 10
3 7 4
4 7 22
5 8 16
6 9 10
> head(cars[,c(2,1)])
dist speed
1 2 4
2 10 4
3 4 7
4 22 7
5 16 8
6 10 9
Si desea mover cualquier columna con nombre a la primera posición, simplemente use:
df[,c(which(colnames(df)=="desired_colname"),which(colnames(df)!="desired_colname"))]
No sé si vale la pena agregar esto como respuesta o si un comentario estaría bien, pero escribí una función llamada moveme que le permite hacer lo que quiera con el idioma que describe. Puede encontrar la función en esta respuesta: https://.com/a/18540144/1270695
Funciona con los names de su data.frame y produce un vector de caracteres que puede usar para reordenar sus columnas:
mydf <- data.frame(matrix(1:12, ncol = 4))
mydf
moveme(names(mydf), "X4 first")
# [1] "X4" "X1" "X2" "X3"
moveme(names(mydf), "X4 first; X1 last")
# [1] "X4" "X2" "X3" "X1"
mydf[moveme(names(mydf), "X4 first")]
# X4 X1 X2 X3
# 1 10 1 4 7
# 2 11 2 5 8
# 3 12 3 6 9
Si está barajando las cosas de esta manera, le sugiero que convierta su data.frame a data.table y use setcolorder (con mi función moveme , si lo desea) para hacer el cambio por referencia.
En su pregunta, también mencionó "Solo quiero elegir una columna y moverla al comienzo". Si se trata de una columna arbitraria, y no específicamente la última, también podrías consultar el uso de setdiff .
Imagine que está trabajando con el conjunto de datos "mtcars" y desea mover la columna "am" al inicio.
x <- "am"
mtcars[c(x, setdiff(names(mtcars), x))]
dataframe<-dataframe[,c(1000, 1:999)]
esto moverá su última columna, es decir, la columna número 1000 a la primera columna.