middle-earth.R

library(tidyverse)
library(sf)

# https://github.com/jvangeld/ME-GIS
coastline <- read_sf("ME-GIS-master/Coastline2.shp")
contours <- read_sf("ME-GIS-master/Contours_18.shp")
rivers <- read_sf("ME-GIS-master/Rivers.shp")
lakes <- read_sf("ME-GIS-master/Lakes.shp")
forests <- read_sf("ME-GIS-master/Forests.shp")
mountains <- read_sf("ME-GIS-master/Mountains_Anno.shp")
placenames <- read_sf("ME-GIS-master/Combined_Placenames.shp")

places <- placenames %>% 
  filter(NAME %in% c("Hobbiton", "Rivendell", "Edoras", "Minas Tirith"))

ggplot() +
  geom_sf(data = contours, size = 0.15, color = "grey90") +
  geom_sf(data = coastline, size = 0.25, color = "grey50") +
  geom_sf(data = rivers, size = 0.2, color = "#0776e0", alpha = 0.5) +
  geom_sf(data = lakes, size = 0.2, color = "#0776e0", fill = "#0776e0") +
  geom_sf(data = forests, size = 0, fill = "#035711", alpha = 0.5) +
  geom_sf(data = mountains, size = 0.25) +
  geom_sf(data = places) +
  geom_sf_label(data = places, aes(label = NAME), nudge_y = 80000) +
  theme_void() +
  theme(plot.background = element_rect(fill = "#fffce3"))