In cyipt/acton: Active Transport Options for New Developments
knitr::opts_chunk$set(echo = FALSE)
library(tidyverse)
library(tmap)
library(acton)
tmap_mode("plot")
Getting planning data
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76416974-ec0f7600-6393-11ea-9631-81616cee9f27.png")
applications_leeds = get_planit_data(
limit = 500,
auth = "Leeds",
app_size = "large",
app_state = "permitted"
)
tm_shape(applications_leeds) + tm_dots(col = "app_type") +
tm_basemap(server = "CartoDB.Positron")
Large Leeds planning consents
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76353318-6abed180-6308-11ea-9fd7-f976347600c7.png")
Case study sites
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76352731-6f36ba80-6307-11ea-8444-c775f09818d2.PNG")
What makes a good place for walking and cycling?
--
.pull-left[
-
safe streets?
-
easy to reach shops, schools, work?
-
segregated cycle routes?
-
vibrant communities?
-
feels like a real town?
-
car-free?
]
--
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76454603-dcf8ea00-63cc-11ea-8ae0-42ae08df6744.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76454759-0a459800-63cd-11ea-9e61-1140b296b1b8.jpg")
]
Allerton Bywater Millennium Community
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76417991-c4211200-6395-11ea-9b0b-88ac37cb950a.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418042-dac76900-6395-11ea-8d1b-2b07074cd9b3.jpg")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418103-f2065680-6395-11ea-8f84-2d82e23b7f2a.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418010-cdaa7a00-6395-11ea-9f46-15b4a58561d5.jpg")
]
Leeds Climate Innovation District
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418964-786f6800-6397-11ea-82fd-e513edb475bf.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418978-80c7a300-6397-11ea-9db5-3ed82d75d0c1.jpg")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418931-6988b580-6397-11ea-8d53-43ffb42371fb.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418947-70afc380-6397-11ea-8e4e-4aa2ecbcb43c.jpg")
]
Journey Time Statistics
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76434729-f6d70480-63ad-11ea-9351-5a4beb7d5a92.png")
Statistics for time taken to reach the nearest:
- centres of employment
- town centres
- food stores
- primary schools
- secondary schools
- GP surgeries
by walking / public transport, cycling, and car.
Access to employment
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76424159-c7b99680-639f-11ea-95c5-1198d977be1f.png")
- this is the weighted mean of metrics for the time taken to reach centres with 100-499 jobs, 500-4999 jobs, and 5000+ jobs.
Access to food stores
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76458967-4a0f7e00-63d3-11ea-9583-b82698a961da.png")
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76515726-03149d80-6452-11ea-8e0b-d7a1928ed22e.jpg")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76516013-95b53c80-6452-11ea-9bf3-ec000acd9b8e.JPG")
]
Access to GP surgeries
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76458951-424fd980-63d3-11ea-8be9-f8ba91873669.png")
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76516637-b03be580-6453-11ea-9a8e-ceeb8a5f9e48.jpg")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76516655-b92cb700-6453-11ea-8c5f-4e25815abe2f.jpg")
]
Overall accessibility index
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76458014-bdb08b80-63d1-11ea-88dd-a5da8020ea5d.png")
Journey to work from new housing developments
- how long does it take to reach work?
- how busy are the roads?
- are direct walking and cycling routes available?
- are potential routes severed by barriers such as major roads?
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76460607-36194b80-63d6-11ea-9920-90988064493e.JPG")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76460581-269a0280-63d6-11ea-8255-e597c0e536c7.JPG")
]
Allerton Bywater routes to work - All
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76435138-8977a380-63ae-11ea-8569-7bb3ec4441c9.png")
Allerton Bywater routes to work - Go Dutch
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/75472896-24728580-598c-11ea-8ab5-94809a8bb404.png")
Route Busyness (fast routes)
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76446573-2e9a7800-63bf-11ea-8145-476e32b863f7.png")
Barriers and severance
knitr:::include_graphics("https://user-images.githubusercontent.com/52210872/76439171-e75aba00-63b3-11ea-835c-0f2791ce4f50.png")
Barriers and severance
knitr:::include_graphics("https://user-images.githubusercontent.com/52210872/76440260-7d431480-63b5-11ea-856b-74d26330cd6d.png")
Overcoming the barriers
.pull-left[
knitr:::include_graphics("https://user-images.githubusercontent.com/52210872/76441583-8fbe4d80-63b7-11ea-9a6f-ba791206991f.png")
]
.pull-right[
knitr:::include_graphics("https://user-images.githubusercontent.com/52210872/76441606-977df200-63b7-11ea-823d-ccddd564f195.png")
]
Route Busyness (quiet routes)
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76462073-f7d15b80-63d8-11ea-8aff-6bc19a135496.png")
Why not use the quiet routes?
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/78130265-e34d1580-7410-11ea-8d0a-9a46b7e019ea.png")
Cycle speed on the quiet routes
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/78130885-04623600-7412-11ea-881c-b36292fd718a.png")
What next?
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76517652-94d1da00-6455-11ea-8019-bd067d934d1d.JPG")
cyipt/acton documentation built on Jan. 29, 2021, 7:30 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
knitr::opts_chunk$set(echo = FALSE) library(tidyverse) library(tmap) library(acton) tmap_mode("plot")
Getting planning data
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76416974-ec0f7600-6393-11ea-9631-81616cee9f27.png")
applications_leeds = get_planit_data( limit = 500, auth = "Leeds", app_size = "large", app_state = "permitted" ) tm_shape(applications_leeds) + tm_dots(col = "app_type") + tm_basemap(server = "CartoDB.Positron")
Large Leeds planning consents
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76353318-6abed180-6308-11ea-9fd7-f976347600c7.png")
Case study sites
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76352731-6f36ba80-6307-11ea-8444-c775f09818d2.PNG")
What makes a good place for walking and cycling?
--
.pull-left[
-
safe streets?
-
easy to reach shops, schools, work?
-
segregated cycle routes?
-
vibrant communities?
-
feels like a real town?
-
car-free?
]
--
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76454603-dcf8ea00-63cc-11ea-8ae0-42ae08df6744.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76454759-0a459800-63cd-11ea-9e61-1140b296b1b8.jpg")
]
Allerton Bywater Millennium Community
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76417991-c4211200-6395-11ea-9b0b-88ac37cb950a.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418042-dac76900-6395-11ea-8d1b-2b07074cd9b3.jpg")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418103-f2065680-6395-11ea-8f84-2d82e23b7f2a.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418010-cdaa7a00-6395-11ea-9f46-15b4a58561d5.jpg")
]
Leeds Climate Innovation District
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418964-786f6800-6397-11ea-82fd-e513edb475bf.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418978-80c7a300-6397-11ea-9db5-3ed82d75d0c1.jpg")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418931-6988b580-6397-11ea-8d53-43ffb42371fb.jpg")
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76418947-70afc380-6397-11ea-8e4e-4aa2ecbcb43c.jpg")
]
Journey Time Statistics
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76434729-f6d70480-63ad-11ea-9351-5a4beb7d5a92.png")
Statistics for time taken to reach the nearest: - centres of employment - town centres - food stores - primary schools - secondary schools - GP surgeries
by walking / public transport, cycling, and car.
Access to employment
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76424159-c7b99680-639f-11ea-95c5-1198d977be1f.png")
- this is the weighted mean of metrics for the time taken to reach centres with 100-499 jobs, 500-4999 jobs, and 5000+ jobs.
Access to food stores
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76458967-4a0f7e00-63d3-11ea-9583-b82698a961da.png")
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76515726-03149d80-6452-11ea-8e0b-d7a1928ed22e.jpg")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76516013-95b53c80-6452-11ea-9bf3-ec000acd9b8e.JPG")
]
Access to GP surgeries
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76458951-424fd980-63d3-11ea-8be9-f8ba91873669.png")
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76516637-b03be580-6453-11ea-9a8e-ceeb8a5f9e48.jpg")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76516655-b92cb700-6453-11ea-8c5f-4e25815abe2f.jpg")
]
Overall accessibility index
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76458014-bdb08b80-63d1-11ea-88dd-a5da8020ea5d.png")
Journey to work from new housing developments
- how long does it take to reach work?
- how busy are the roads?
- are direct walking and cycling routes available?
- are potential routes severed by barriers such as major roads?
.pull-left[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76460607-36194b80-63d6-11ea-9920-90988064493e.JPG")
]
.pull-right[
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76460581-269a0280-63d6-11ea-8255-e597c0e536c7.JPG")
]
Allerton Bywater routes to work - All
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76435138-8977a380-63ae-11ea-8569-7bb3ec4441c9.png")
Allerton Bywater routes to work - Go Dutch
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/75472896-24728580-598c-11ea-8ab5-94809a8bb404.png")
Route Busyness (fast routes)
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76446573-2e9a7800-63bf-11ea-8145-476e32b863f7.png")
Barriers and severance
knitr:::include_graphics("https://user-images.githubusercontent.com/52210872/76439171-e75aba00-63b3-11ea-835c-0f2791ce4f50.png")
Barriers and severance
knitr:::include_graphics("https://user-images.githubusercontent.com/52210872/76440260-7d431480-63b5-11ea-856b-74d26330cd6d.png")
Overcoming the barriers
.pull-left[
knitr:::include_graphics("https://user-images.githubusercontent.com/52210872/76441583-8fbe4d80-63b7-11ea-9a6f-ba791206991f.png")
]
.pull-right[
knitr:::include_graphics("https://user-images.githubusercontent.com/52210872/76441606-977df200-63b7-11ea-823d-ccddd564f195.png")
]
Route Busyness (quiet routes)
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76462073-f7d15b80-63d8-11ea-8aff-6bc19a135496.png")
Why not use the quiet routes?
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/78130265-e34d1580-7410-11ea-8d0a-9a46b7e019ea.png")
Cycle speed on the quiet routes
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/78130885-04623600-7412-11ea-881c-b36292fd718a.png")
What next?
knitr::include_graphics("https://user-images.githubusercontent.com/52210872/76517652-94d1da00-6455-11ea-8019-bd067d934d1d.JPG")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.