Niemeyer Rainbow
1_Preparando los datos
Preparando los datos Primer post del blog donde cargamos los datos para poder hacer estadística con R del tráfico en el Puerto de Avilés. Cargamos los paquetes que vamos a usar en nuestro documento: library (readxl) library (tidyverse) library (lubridate) Leemos la hoja Excel que contiene los datos de los barcos que han pasado por el puerto de Avilés en el año 2024. url <- "https://github.com/jrcuesta/Puerto-de-Aviles/raw/refs/heads/main/puerto_aviles_16.xls" temp_file <- tempfile ( fileext = ".xls" ) download.file (url, temp_file, mode = "wb" ) df <- read_excel (temp_file) puerto_aviles <- df %>% mutate ( across ( c ( ` Tipo Buque ` , Bandera, Mercancia, Estibador, Consignatario, Muelle, Destino, Origen, Operación, IMO, Pais_dest, Pais_orig), as.factor)) %>% mutate ( ` Fecha Entrada ` = ymd ( ` Fecha Entrada ` ), ` Fecha Salida ` = ymd ( ` Fecha Salida ` )) Al ir trab...
Comments
Post a Comment