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...

  En este post vamos a comprobar los embarques y desembarques de ácido sulfúrico en el Puerto de Avilés. AZSA dispone dispone de varios tanques para cargar los barcos que entran en el Puerto de Avilés a embarcar este producto destinado principalmente para la fabricación de fertilizantes. Embarques/Desembarques de Ácido Sulfúrico en el Puerto de Avilés (2024)

 

  En este post intento visualizar el destino de las bobinas de acero que se embarcan en el puerto de Avilés.

  A que países se envió mercancía desde el puerto de Avilés. En este vínculo encontraras el Blog de Quarto en el que voy a generar el código que uso para hacer los post. Es una buena forma de empezar un tutorial para hacer estadística con hojas Excel: Blog Quarto para estadísticas de tráfico marítimo en el puerto de Avilés el primer post es el de preparación de datos

Una de las preguntas que nos podemos hacer, es ¿Cuál fue el tonelaje total exportado para cada mercancía en el puerto de Avilés en 2024?. puerto_aviles_17 %>% filter(`Fecha Entrada` >= "2024-01-01" & `Fecha Entrada` <= "2024-12-31") %>% filter(Operación == "Embarque") %>% group_by(Mercancia) %>% summarise(Tonelaje = sum(Tonelaje)) %>% ggplot(aes(x = fct_reorder(Mercancia, Tonelaje), y = Tonelaje, fill = Mercancia)) + geom_col(show.legend = FALSE) + geom_text(aes(label = scales::comma(Tonelaje)), size = 3, color = "black", vjust = 0.4, position = position_stack(vjust = 1)) + coord_flip() + labs(x = "Mercancia embarcada (2024)", y = "Tonelaje", title = "Tonelaje total embarcado en 2024") + theme_minimal() Podéis hacer click en el gráfico para verlo en grande, pero claramente el mayor tonelaje es el de bobinas de acero, seguido del abono, arcilla y ácido sulfúrico.