QA Performed: 2025-07-16

QA by: loganap

A1 (2000)

ggplot() + 
  geom_sf(data = spz, color = 'red') +
  geom_sf(data = agency, aes(color = m_to_a1, size = of_interest)) + 
  geom_sf(data = roads00_s, color = 'blue') +
  geom_sf(data = roads00, alpha = .5) +
  scale_color_distiller(palette = 'Spectral', direction = 1)

S1100 (2010)

ggplot() + 
  geom_sf(data = spz, color = 'red') +
  geom_sf(data = agency, aes(color = m_to_s1100_2010, size = of_interest)) + 
  geom_sf(data = roads10, alpha = .5) +
  scale_color_distiller(palette = 'Spectral', direction = 1)

S1100 (2020)

ggplot() + 
  geom_sf(data = spz, color = 'red') +
  geom_sf(data = agency, aes(color = m_to_s1100_2020, size = of_interest)) + 
  geom_sf(data = roads20, alpha = .5) +
  scale_color_distiller(palette = 'Spectral', direction = 1)