Estadísticas de tráfico marítimo en el puerto de Avilés (I)

Para empezar nuestras estadísticas partimos de los datos que suministra en su página web el puerto de Avilés, donde podemos informarnos de los buques que están en el puerto así como de las entradas previstas en loa próximos días. En dicha página web podemos también descargarnos el histórico del trafico marítimo de el año vigente, así como el anterior, por lo que a fecha de hoy descargaríamos los datos de los meses que llevamos de 2025, así como los del 2024.

La hoja Excel que os descarguéis necesitará algunas correcciones, así como el añadir nuevas columnas con datos extra que podáis considerar como el de la latitud y longitud de los destinos. 

Una vez que ya tengáis preparada la hoja Excel, la importáis a RStudio y podéis empezar a prepararla para extraer la información estadística.

 

Con el fin de poder ver los destinos de los buques que zarpan del puerto de Avilés con mercancía embarcada, he creado nuevas variables con las coordenadas (latitud y longitud) del destino, de modo que se pueda ver de manera rápida hasta donde se exportan las mercancías que se fabrican en Avilés y comarca.

Para ello usaremos el paquete de R  ggplot2. Vamos a comprobarlo con las bobinas de acero que se embarcan del puerto de Avilés. 

Las bobinas de acero fue la mercancía más exportada desde 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") %>%
ggplot(aes(x =fct_rev(fct_infreq(Mercancia)))) +
geom_bar() +
coord_flip()+
labs(x = "Mercancia embarcada (2024)")

Los embarques se realizaron a lo largo del 2024 con varios tonelajes:

puerto_aviles_17 %>% 

      filter(`Fecha Entrada` >= "2024-01-01" & `Fecha Entrada` <= "2024-12-31") %>%

      filter(Operación == "Embarque") %>% 

      filter(Mercancia == "BOBINAS DE ACERO") %>% 

      ggplot(aes(`Fecha Salida`, Tonelaje, fill = Destino)) +

      geom_col() 

Los destinos principales fueron:

puerto_aviles_17 %>% 

      filter(Operación == "Embarque") %>% 

      filter(Mercancia == "BOBINAS DE ACERO") %>% 

      ggplot(aes(x =fct_rev(fct_infreq(Destino))))+

      geom_bar() +

      coord_flip() +

      labs(x = "Destino Bobinas de acero embarcadas en 2024", y = "nº embarques")

Con el fin de identificar mejor los destinos usamos el mapa:

puerto_aviles_17 %>% 

  filter(Operación == "Embarque") %>% 

  filter(Mercancia == "BOBINAS DE ACERO") %>% 

  ggplot(aes(dest_xlong, dest_ylat)) +

  borders( "world", fill = "lightgray", colour = "red")+

  geom_point()+ 

  coord_quickmap()+

  labs(

    title = ("Destinos Bobinas de Acero 2024"), x = " ", y = " ",

    caption = "Destinos de los embarques de bobinas de acero efectuados en 2024")+

  theme_void()