library(tidyverse)
df_caso1 <- read_csv("EVA-Depurada.csv")
df_caso1 %>% head()
df_caso2 <- read_csv("Suelos-Depurada.csv")
df_caso2 %>% head()
df_caso3 <- read_csv("Agricola-Depurada.csv")
df_caso3 %>% head()
df_caso4 <- read_csv("Alimentro-Depurada.csv")
df_caso4 %>% head()
df_caso5 <- read_csv("PapaCanadá-Depurada.csv")
df_caso5 %>% head()