¿Cómo configuro los nombres de las columnas en minúsculas para múltiples dataframes?

Question

Tengo un conjunto de marcos de datos con los mismos encabezados de columna, excepto que algunos de los nombres de columna están en mayúscula y algunos están en minúscula. Quiero convertir todos los nombres de columna en minúsculas para poder crear un gran marco de datos de todo.

Parece que no puedo obtener colnames() para trabajar en ningún bucle o aplicar para escribir. Con :

#create dfs 
df1<-data.frame("A" = 1:10, "B" = 2:11) 
df2<-data.frame("a" = 3:12, "b" = 4:13) 
df3<-data.frame("a" = 5:14, "b" = 6:15) 
#I have many more dfs in my actual data 

#make list of dfs, define lowercasing function, apply across df list 
dfs<-ls(pattern = "df") 
lowercols<-function(df){colnames(get(df))<-tolower(colnames(get(df)))} 
lapply(dfs, lowercols) 

me sale el siguiente error:

Error in colnames(get(df)) <- tolower(colnames(get(df))) : 
    could not find function "get<-" 

¿Cómo cambio todos mis tramas de datos que tienen nombres de columna minúsculas?

Answer 1

El siguiente debería funcionar:

dfList <- lapply(lapply(dfs,get),function(x) {colnames(x) <- tolower(colnames(x));x}) 

Problemas como éste generalmente se derivan del hecho de que no ha colocado todas sus tramas de datos en una única estructura de datos, y luego se ven obligados a usar algo torpe, como get.

No es que en mi código, yo uso lapply y get para realmente crear una lista única de tramas de datos primeros, y luego alterar sus COLNAMES.

También debe tener en cuenta que su función de lowcols es bastante diferente a R-like. Por lo general, las funciones R no se llaman de tal forma que no devuelvan nada, sino que tengan efectos secundarios. Si intenta escribir funciones de esa manera (lo cual es posible), probablemente le dificultará la vida y tendrá problemas de alcance. Tenga en cuenta que en mi segundo lapply devuelvo explícitamente el marco de datos modificado.

Answer 2

@ La respuesta de joran se superpone fuertemente a la mía, tanto en el estilo como en el mensaje "probablemente quieras hacerlo de otra manera". Sin embargo, en el espíritu de "dale a un hombre un pez y lo alimentas por un día; dale un palo afilado, y él puede meterse en el ojo" ...

Aquí hay una función que hace lo que quieres en la forma en que (se cree) que desee hacerlo:

dfnames <- ls(pattern = "df[0-9]+") ## avoid 'dfnames' itself 
lowercolnames <- function(df) { 
    x <- get(df) 
    colnames(x) <- tolower(colnames(x)) 
    ## normally I would use parent.frame(), but here we 
    ## have to go back TWO frames if this is used within lapply() 
    assign(df,x,sys.frame(-2)) 
    ## OR (maybe simpler) 
    ## assign(df,x,envir=.GlobalEnv) 

    NULL 
} 

Éstos son dos funciones alternativas que los nombres de columna en minúsculas y devolver el resultado:

lowerCN2 <- function(x) { 
    colnames(x) <- tolower(colnames(x)) 
    x 
} 

incluyo plyr::rename aquí para completar, aunque en este caso, en realidad es más problemas de lo que vale.

lowerCN3 <- function(x) { 
    plyr::rename(x,structure(tolower(colnames(x)), 
          names=colnames(x))) 
} 

dflist <- lapply(dfnames,get) 
dflist <- lapply(dflist,lowerCN2) 
dflist <- lapply(dflist,lowerCN3) 

Answer 3

Esto no responde directamente a su pregunta, pero puede resolver el problema que está tratando de resolver; Puede combinar data.frames por diferentes nombres a través de algo como:

df1 <- data.frame("A" = 1:10, "B" = 2:11, x=letters[1:10]) 
df2 <- data.frame("a" = 3:12, "b" = 4:13, y=LETTERS[1:10]) 
merge(df1, df2, by.x=c("A","B"), by.y=c("a","b"), all=TRUE)