Detailed, Zoomable Consultation Catchment Maps

Author

Adam Dennett

Current Catchments

Proposed Catchments

Both overlaid

Code

library(tmap)

tmap_mode("view")  # Ensure you're in plotting mode

ℹ tmap mode set to "view".

Code

tm_shape(optionZ) +
  tm_polygons(border.col = "red", border.alpha = 0.5, border.lwd = 2, alpha = 0) +
tm_shape(current) +
  tm_polygons(border.col = "black", border.alpha = 0.5, border.lwd = 2, alpha = 0) +
tm_shape(bh_sec_sch) +
  tm_dots(
    col = "black",
    border.lwd = 0,
    labels = "establishment_name"
  )


── tmap v3 code detected ───────────────────────────────────────────────────────
[v3->v4] `tm_polygons()`: use `fill_alpha` instead of `alpha`.[v3->v4] `tm_polygons()`: use `col_alpha` instead of `border.alpha`.[tm_polygons()] Argument `border.lwd` unknown.[v3->v4] `tm_polygons()`: use `fill_alpha` instead of `alpha`.[v3->v4] `tm_polygons()`: use `col_alpha` instead of `border.alpha`.[tm_polygons()] Argument `border.lwd` unknown.

---
title: "Detailed, Zoomable Consultation Catchment Maps"
author: "Adam Dennett"
---

## Current Catchments

```{r echo=F, message=F, warning=FALSE, include=F}
library(tidyverse)
library(sf)
library(tmap)
library(here)
library(janitor)

optionZ <- st_read("data/optionZ_Mar25.geojson")
current <- st_read("data/current_catchments_fix.geojson")

brighton_sec_schools <- read_csv("https://www.dropbox.com/scl/fi/fhzafgt27v30lmmuo084y/edubasealldata20241003.csv?rlkey=uorw43s44hnw5k9js3z0ksuuq&raw=1") %>% 
  clean_names() %>% 
  filter(la_name == "Brighton and Hove") %>% 
  filter(phase_of_education_name == "Secondary") %>% 
  filter(establishment_status_name == "Open") %>%
  st_as_sf(., coords = c("easting", "northing")) %>% 
  st_set_crs(27700) %>% 
  st_transform(4326) %>% 
  st_set_crs(4326)

bh_sec_sch <- brighton_sec_schools %>% 
  select(urn, establishment_name, geometry) %>%
  rename(id = urn)
```

```{r echo=F, message=F, warning=FALSE}


tmap_mode("view")

tm_shape(current) +
  tm_polygons(border.col = "black", alpha = 0) +
tm_shape(bh_sec_sch) +
  tm_dots(col = "black", 
          border.lwd = 0,
          labels = "establishment_name") 



```

## Proposed Catchments

```{r echo=F, message=F, warning=FALSE}

tm_shape(optionZ) +
  tm_polygons(border.col = "red", alpha = 0) +
tm_shape(bh_sec_sch) +
  tm_dots(col = "black", 
          border.lwd = 0,
          labels = "establishment_name") 
```

## Both overlaid

```{r}
library(tmap)

tmap_mode("view")  # Ensure you're in plotting mode

tm_shape(optionZ) +
  tm_polygons(border.col = "red", border.alpha = 0.5, border.lwd = 2, alpha = 0) +
tm_shape(current) +
  tm_polygons(border.col = "black", border.alpha = 0.5, border.lwd = 2, alpha = 0) +
tm_shape(bh_sec_sch) +
  tm_dots(
    col = "black",
    border.lwd = 0,
    labels = "establishment_name"
  )

```