Tengo varios ficheros y quiero ver si todos tienen la misma dimensión y mismo nombre de columna.
Para abrir todos los ficheros:
library(tidyverse)
library(readxl)
list.files(pattern = "*.*") %>% lapply(read_excel) -> lista
Supongamos que son tres:
a <- iris[1:10,]
b <- iris[1:11,]
c <- iris[1:16,1:4]
lista <- list(a,b,c)
Para ver la dimensión:
for (i in 1:length(lista)) { print(dim(lista[[i]])) }
Para ver si todos tienen el mismo nombre de columnas (y poder ver estos nombres) había pensado ponerlos en un df. Algo por el estilo a esto, en un bucle:
colnames(lista[[1]]) == colnames(lista[[2]])
data.frame( colnames(lista[[1]]), colnames(lista[[2]]) )
pero si tienen dimensiones diferentes no puedo hacerlo.
¿Alguna solución?