Packages

library(DBI)
library(rgdal)
library(dplyr)
library(dbplyr)
library(odbc)
library(RODBC)
library(rnaturalearth)
library(rnaturalearthdata)
library(sf)
library(ggplot2)
library(tidyverse)
library(osmdata)
library(sf)
library(ggmap)
library(tmap)
library(tmaptools)
library(OpenStreetMap)
library(osmar)

Generate variables with bbox for each metropolitan area

Asia

Japan

tokyo_bbox <- corner_bbox(130.957,33.073,   145.459,40.489)

China

shenzhen_bbox <- corner_bbox(113.7518, 22.6261, 114.6581, 22.0901)
chongqing_bbox <- corner_bbox(105.6184, 30.0560, 107.4312, 29.0478)

Americas

Canada

calgary_bbox <- corner_bbox(-114.61200, 50.71000,   -113.47800, 51.36750)
halifax_bbox <- corner_bbox(-64.05920,  44.53710,   -63.15280,  44.94880)
montreal_bbox <- corner_bbox(-75.4486, 46.4662, -71.8231, 44.8461)
toronto_bbox <- corner_bbox(-82.683, 45.629, -75.432, 42.294)
vancouver_bbox <- corner_bbox(-123.5522, 49.4271, -121.7395, 48.6674)
winnipeg_bbox <- corner_bbox(-98.9648, 50.5553, -95.3394, 49.0595)

Brazil

belo_horizonte_bbox <- corner_bbox(-44.8380, -20.5106, -43.0252, -19.05897)

Colombia

bogota_bbox <- corner_bbox(-74.27,4.424,-73.928,4.891)
cali_bbox <- corner_bbox(-76.717,3.215,-76.259,3.65)

United States of America

albany_bbox <- corner_bbox(-75.86027666855095,41.81323797470903,-72.1308500649193,43.861326658695766)
atlanta_bbox <- corner_bbox(-86.25579758192976,32.621179076698674,-82.14878923094886,34.87662427583249)
austin_bbox <- corner_bbox(-98.8988126744598,29.409548643875322,-96.63440289491069,31.18798920132942)
birmingham_bbox <- corner_bbox(-88.30377711238854,32.619105384519905,-85.0519327501192,34.40492029611098)
boston_bbox <- corner_bbox(-73.64964872278419,40.92276463384525,-68.28625929281226,43.868176453625495)
buffalo_bbox <- corner_bbox(-80.06871027179916,41.954872536954255,-77.37928735441493,43.431822542669735)
charlotte_bbox <- corner_bbox(-82.48628245040794,34.32605053147712,-79.20782206855407,36.12648215880428)
chicago_bbox <- corner_bbox(-90.33083705949593,40.53942790278039,-86.13833269583196,42.84182493518844)
cincinnati_bbox <- corner_bbox(-85.6821932454334,38.40614099399067,-83.13848277284795,39.80307011686646)
cleveland_bbox <- corner_bbox(-83.30195241811752,40.21323707360472,-80.03128168007636,42.009390863333586)
columbus_bbox <- corner_bbox(-85.90814918725526,31.88233475159571,-83.99791274493857,32.931379030262605)
dallas_bbox <- corner_bbox(-99.53177368548904,31.69699675286303,-94.62881443860056,34.38955419368301)
dayton_bbox <- corner_bbox(-85.14788632762655,39.470227798780535,-83.17352621352593,40.55448686527257)
denver_bbox <- corner_bbox(-107.13706575927294,38.60733588478176,-102.70371988351773,41.04199581655027)
detroit_bbox <- corner_bbox(-85.01632698473392,41.62734891393623,-81.79066547703277,43.3987849909624)
grand_rapids_bbox <- corner_bbox(-87.0766210376582,42.27116916882178,-84.1626831210374,43.87141604512694)
greensboro_bbox <- corner_bbox(-81.47405082230506,35.25078584201092,-78.73136995810825,36.7569835068955)
greenville_bbox <- corner_bbox(-83.71601912237536,33.880129674941436,-81.09325081689225,35.32047497680316)
houston_bbox <- corner_bbox(-98.06188553130954,28.29960971729077,-92.96121044464553,31.10074673806411)
indianapolis_bbox <- corner_bbox(-87.76235309850513,38.69516702983377,-84.48637317738114,40.49423646289037)
kansas_city_bbox <- corner_bbox(-96.69540796651624,37.82030778414456,-92.24885615368659,40.26222001852099)
las_vegas_bbox <- corner_bbox(-120.33202640511682,34.967755114741976,-111.9041036978581,39.59611624388789)
los_angeles_bbox <- corner_bbox(-120.15055284591712,32.500192815075216,-113.61401279272924,36.08986359779653)
louisville_bbox <- corner_bbox(-87.2397654399139,37.36169282421261,-84.32928741081614,38.96003963457281)
miami_bbox <- corner_bbox(-84.09947640838428,24.24186598496725,-77.229248827889,28.014787900181776)
milwaukee_bbox <- corner_bbox(-89.62983249845514,42.42418082233303,-87.13382990055287,43.794910218371314)
nashville_bbox <- corner_bbox(-88.31103684525777,34.93603997041955,-85.03270564573975,36.73640065470148)
new_orleans_bbox <- corner_bbox(-91.8747397167501,28.840519172290268,-87.67620630384613,31.14622717682246)
new_york_bbox <- corner_bbox(-76.84169289202354,39.40563836008373,-71.49074752105388,42.34421627772991)
orlando_bbox <- corner_bbox(-84.00469572984389,27.24920147594487,-79.13449161518935,29.923770785397554)
philadelphia_bbox <- corner_bbox(-77.3996006872115,38.55378451267518,-73.27025675485386,40.82149573989585)
phoenix_bbox <- corner_bbox(-113.59224471071127,32.44384333185807,-109.7539275864556,34.551731407758375)
pittsburgh_bbox <- corner_bbox(-81.40014030476367,39.55929920903919,-78.21812656226,41.30676524898373)
portland_bbox <- corner_bbox(-124.83420226649848,44.09341805705644,-120.49511370792415,46.4763147111905)
raleigh_bbox <- corner_bbox(-80.20228244507102,35.206825926998555,-77.33707428289064,36.780311890903484)
richmond_bbox <- corner_bbox(-85.9381803710338,39.24848547755873,-84.30019041047181,40.148020194087024)
rochester_bbox <- corner_bbox(-78.66876119882389,42.337167638054474,-76.30968204489875,43.63270280559957)
salt_lake_city_bbox <- corner_bbox(-114.7519316064836,39.11973641320212,-109.27295519094332,42.12862512160865)
san_antonio_bbox <- corner_bbox(-100.37156490099113,28.379137266776482,-96.91211649836424,30.2789620600454)
san_diego_bbox <- corner_bbox(-117.80183296588393,32.43461269978555,-115.62256884415214,33.6313988713624)
san_francisco_bbox <- corner_bbox(-124.42717026825159,36.081620760046505,-119.22026399796243,38.94109674500734)
seatle_bbox <- corner_bbox(-124.96293473175253,46.23260937156315,-119.66234359485775,49.14353426155645)
st._louis_bbox <- corner_bbox(-91.97978357465368,37.49661244144815,-88.00890939761513,39.677296855402915)
tampa_bbox <- corner_bbox(-83.52596251259966,27.511943219700594,-81.26155273305055,28.755488820219266)
tucson_bbox <- corner_bbox(-113.40474071326199,31.091079911500596,-110.39732365613446,32.74266271426539)
tulsa_bbox <- corner_bbox(-97.79634105069415,35.180101581830634,-94.30725842383877,37.09620059785593)
virginia_beach_bbox <- corner_bbox(-78.84460626702393,34.95082225826799,-73.95556059346218,37.63573878397878)
washington_dc_bbox <- corner_bbox(-79.8547762357266,37.69716282656848,-74.97670510684262,40.37605246312035)

Europe

Belgium

brussels_bbox <- corner_bbox(2.340725, 49.49196, 6.411619, 51.59839)

France

paris_bbox <- corner_bbox(1.2964, 49.2839, 3.4525, 48.4784)
bordeaux_bbox <- corner_bbox(-0.8418, 44.9643,-0.3028,44.7472)

Germany

berlin_bbox <- corner_bbox(12.3692, 52.8691, 14.5253, 52.1234)

Sweden

gothenburg_bbox <- corner_bbox(9.3466, 58.3628, 13.6588, 57.0542)

Netherlands

flevoland_bbox <- corner_bbox(4.4604, 52.9188, 6.6165, 52.1739)
noord_holland_bbox <- corner_bbox(3.9153, 52.7521, 6.0713, 52.0043)
the_randstad_region_bbox <- corner_bbox(3.8905, 52.7720, 6.0466, 52.0246)
utrecht_bbox <- corner_bbox(4.5717, 52.2703, 5.6497, 51.8939)
zuid_holland_bbox <- corner_bbox(6.6368, 52.3335, 7.1758, 52.1459)