Browse Source

urban

master
boB Rudis 4 years ago
parent
commit
c0a99f02b2
No known key found for this signature in database GPG Key ID: 1D7529BE14E2BBA9
  1. 64
      2019-11-19-urban.R
  2. 1
      data/.gitignore
  3. BIN
      data/bm-spdf.rds

64
2019-11-19-urban.R

@ -0,0 +1,64 @@
library(raster)
library(sf)
library(tigris)
library(hrbrthemes)
library(rnaturalearth)
library(tidyverse)
ne_states("United States of America", returnclass = "sf") %>%
filter(
name %in% c(
"Maine", "New Hampshire", "Massachusetts", "Vermont", "New Jersey",
"Connecticut", "New York", "Rhode Island", "Pennsylvania"
)) -> neng
urban <- urban_areas(cb = TRUE, class = "sf") %>% st_transform(st_crs(neng))
border <- st_union(neng)
neng_urban <- st_intersection(urban, border)
if (!all(file.exists(here::here("data", c("BlackMarble_2016_3km_geo.tif", "bm-spdf.rds"))))) {
download.file(
url = "https://eoimages.gsfc.nasa.gov/images/imagerecords/144000/144898/BlackMarble_2016_3km_geo.tif",
destfile = here::here("data/BlackMarble_2016_3km_geo.tif")
)
if (!file.exists(here::here("bm-spdf.rds"))) {
bm <- raster(here::here("data/BlackMarble_2016_3km_geo.tif"))
bm <- mask(bm, as(border, "Spatial"))
bm <- projectRaster(bm, crs = crs(albersusa::us_laea_proj))
bm <- mask(bm, as(st_transform(border, crs(albersusa::us_laea_proj)), "Spatial"))
bm_spdf <- as.data.frame(as(bm, "SpatialPixelsDataFrame"))
colnames(bm_spdf) <- c("value", "x", "y")
saveRDS(bm_spdf, here::here("data/bm-spdf.rds"))
}
}
bm_spdf <- readRDS(here::here("data/bm-spdf.rds"))
ggplot() +
geom_sf(data = neng, fill = "black", color = "#2b2b2b", size = 0.125) +
geom_tile(data = bm_spdf, aes(x, y, fill = value)) +
geom_sf(data = neng_urban, fill = "#54278f55", color = "#54278f", size = 0.15) +
geom_sf(data = neng, fill = NA, color = "#b2b2b2", size = 0.125) +
geom_sf(data = border, fill = NA, color = "white", size = 1/4) +
scale_fill_distiller(name = "Brightness", palette = "Greys") +
coord_sf(crs = albersusa::us_laea_proj, datum = NA) +
guides(fill = guide_colourbar(title.position = "top")) +
labs(
x = NULL, y = NULL,
title = "In Blackest Night : How New England Urban Areas\nContribute To Light Pollution",
subtitle = "Urban areas in purple with 33% alpha overlaid on top of\nNASA Earth Observatory 'Black Marble' Light Raster",
caption = "Data: NASA <earthobservatory.nasa.gov/features/NightLights/page3.php>; {tigris}\nhttps://git.rud.is/hrbrmstr/y2019-30daymapchallenge • #30DayMapChallenge"
) +
theme_ft_rc(grid="") +
theme(legend.position = c(0.3, 0.85)) +
theme(legend.direction = "horizontal") +
theme(legend.key.width = unit(1.5, "lines")) +
theme(panel.background = element_rect(color = "#252a32", fill = "#252a32"))

1
data/.gitignore

@ -1,3 +1,4 @@
Maine_Boundaries_Town_Polygon
Shape
lake-data
BlackMarble_2016_3km_geo.tif

BIN
data/bm-spdf.rds

Binary file not shown.
Loading…
Cancel
Save