Datos

Lo más dfícil de 30 días de gráficos hasta ahora es conseguir datos copados. Bueno, trabajar con formatos raros también. Pero justo para la consigna de hoy estaba entre crear un mapa con “pinta” retro o buscar “datos retro”. Me fui por lo segundo y estuve horas intentando encontrar shapefiles o algo parecido de los paises o regiones en algún momento entre 1400 y 1700. Complicadísimo.

Finalmente me curcé con el proyecto HGIS de las Indias (no les voy a discutir el nombre pero…) que tienen un montón de información geoespacial histórica. Y tienen tanto detalle que me resultó imposible graficar, acá está por si alguien quiere aprovecharlo.

Opté entonces por graficar las oficinas postales entre 1765 y 1808, que para mi son cosa del pasado porque acá en Argentina el correo es un desastre y todo el mundo evita usarlo a toda costa.

mapa <- read_sf("datos/correos_estafetas/correos_estafetas.shp") 
  

mapa_sa <- rnaturalearth::ne_countries(continent = c("South America", 
                                                    "North America", 
                                                    "Central America"), 
                                      returnclass = "sf", 
                                      scale = 10)

Y de paso, esto me dió la oportunidad de probar el paquete ggpointdensity que tenía en la mira hace rato pero al que no le había encontrado oportunidad de usar.

mapa |> 
  ggplot(aes(GZ_Lon, GZ_Lat)) +
  geom_sf(data = mapa_sa, inherit.aes = FALSE, fill = "grey98") +
  ggpointdensity::geom_pointdensity(size = 1) +
  scale_color_viridis_c(option = "B", guide = guide_colorbar(barwidth = 0.5,
                                                 barheight = 15)) +
  coord_sf(expand = FALSE, xlim = c(-120, -40), ylim = c(-60, 40)) +
  labs(x = NULL, y = NULL, color = NULL,
       title = "Oficinas de correo postal en la América española",
       subtitle = "Entre 1765 y 1808",
       caption = "Fuente: Datos de HGIS de las Indias, www.hgis-indias.net") +
  theme_minimal(base_size = 10,
                base_family = "Roboto Condensed") +
  theme(plot.title.position = "plot",
        plot.title = element_text(face = "bold"))

# ggsave("day11.png", device = png, type = "cairo", bg = "white", width = 14, height = 16, units = "cm", dpi = 150)