In mountainMath/cityDensities:

knitr::opts_chunk$set(
    message = TRUE,
    warning = TRUE,
    collapse = TRUE,
    comment = "#>"
)
library(cityDensities)
library(dplyr)

Hong Kong

get_city_locations() %>% 
  filter(name=="Hong Kong") %>% 
  top_n(1,pop) %>%
  plot_facet(.,radius_km=30,ncol=1,
             bks=c(1,4,50.00, 100.00,250,500,750,1000,1500),
             smoothing=250)

s <- get_GHS_30_built_data()
make_city_map("Hong Kong",s,30,2,show_shares = TRUE)

get_city_locations() %>% 
  filter(name=="Hong Kong") %>% 
  top_n(1,pop) %>%
  plot_density_facet(.,radius_km=30)

mountainMath/cityDensities documentation built on Jan. 27, 2024, 3:28 a.m.