En Septiembre caminé 90 km a lo largo de la West Highland Way, fueron 6 días de carpa y midges :D

whw <- sf::st_read("datos/West-Highland-Way.kml")
## Reading layer `West Highland Way' from data source 
##   `/home/pao/RStuff/30DayMapChallenge2023/datos/West-Highland-Way.kml' 
##   using driver `LIBKML'
## Simple feature collection with 5 features and 11 fields
## Geometry type: LINESTRING
## Dimension:     XYZ
## Bounding box:  xmin: -5.114034 ymin: 56.33057 xmax: -4.632661 ymax: 56.82181
## z_range:       zmin: 0 zmax: 0
## Geodetic CRS:  WGS 84
towns <- sf::st_read("datos/towns-whw.kml") %>% 
  mutate(as_tibble(sf::st_coordinates(geometry)))
## Reading layer `Towns & villages' from data source 
##   `/home/pao/RStuff/30DayMapChallenge2023/datos/towns-whw.kml' 
##   using driver `LIBKML'
## Simple feature collection with 6 features and 11 fields
## Geometry type: POINT
## Dimension:     XYZ
## Bounding box:  xmin: -5.114034 ymin: 56.33057 xmax: -4.713544 ymax: 56.81638
## z_range:       zmin: 0 zmax: 0
## Geodetic CRS:  WGS 84
topo <- metR::GetTopography(354.5, 356, 57, 56.2, resolution = 0.02) %>% 
  .[, lon := ConvertLongitude(lon)]
ggplot(whw) +
  geom_contour_fill(data = topo, 
                    aes(x = lon, y = lat, z = h, fill = after_stat(level)),
                    breaks = seq(-10, 1100, 75)) +
  scale_fill_grey(start = 1, end = 0, guide = guide_colorsteps(barwidth = 0.5,
                                                     barheight = 15)) +
  geom_sf(color = "purple") +
  geom_point(data = towns, aes(X, Y), fill = "purple", shape = 21) +
  ggrepel::geom_label_repel(data = towns, aes(label = Name, x = X, y = Y), nudge_x = 0.5) +
  coord_sf(expand = FALSE) +
    labs(x = NULL, y = NULL, fill = NULL,
       title = "West Highland Way",
       subtitle = "(Solo los 90 km que caminé)") +
  theme_minimal(base_size = 10,
                base_family = "Roboto Condensed Light") +
  theme(plot.title = element_text(face = "bold"))

# ggsave("day20.png", device = png, type = "cairo", bg = "white", width = 12, height = 11, units = "cm", dpi = 150)