Untitled
unknown
plain_text
a year ago
2.6 kB
5
Indexable
```{r} Stations = read.csv(file = "Stations/Combined.csv") LSOA01 = st_read("Shapefiles/01LSOA/LSOA_(Dec_2001)_EW_BFC.shp") LSOA11 = st_read("Shapefiles/11LSOA/Lower_Layer_Super_Output_Areas_(Dec_2011)_Boundaries_Full_Clipped_(BFC)_EW_V3.shp") LSOA21 = st_read("Shapefiles/21LSOA/LSOA_(Dec_2021)_Boundaries_Full_Clipped_EW_(BFC).shp") LSOA0121 = st_read("Shapefiles/0121/0121.shp") ETH01 = read.csv(file = "Ethnicity/Manchester/2001ETH.csv") ETH11 = read.csv(file = "Ethnicity/Manchester/2011ETH.csv") ETH21 = read.csv(file = "Ethnicity/Manchester/2021ETH.csv") OSGB36 = "+init=epsg:27700 +towgs84=375,-111,431,0,0,0,0" ``` ```{r} MANLSNM21 = read.csv(file = "Shapefiles/MANLSNM/MANLSNM21..shp") ``` ```{r} LSOA21MAN = filter(LSOA21, LSOA21NM == c("Bury", "Bolton", "Tameside", "Trafford", "Manchester", "Oldham", "Rochdale", "Salford")) ``` ```{r} LSOA21NM = LSOA21MAN = gather(LSOA21NM) %>% separate(LSOA21NM, into = c("Area", "Short.Code")) ``` %>% group_by(key) %>% mutate(i1 = row_number()) %>% ungroup() %>% select(-key) %>% spread(header, value) %>% select(-i1) ``` LSOA21MAN = filter(LSOA21MAN, Area == c("Bury", "Bolton", "Tameside", "Trafford", "Manchester", "Oldham", "Rochdale", "Salford")) ``` # # # separate(value, into = c("Area", "Short.Code")) %>% # group_by(key) %>% # mutate(i1 = row_number()) %>% # ungroup() %>% # select(-key) %>% # spread(header, value) %>% # select(-i1) # A tibble: 3 × 3 # Auto Engine Trans #* <chr> <chr> <chr> #1 Chevy V6 Auto #2 Chevy V8 Manual #3 Chevy V10 Manual ``` ```{r} LSOA21MAN= separate(LSOA21, LSOA21NM, into = c("Area", "Short.Code")) ``` LSOA21MAN = filter(LSOA21MAN, Area == c("Bury", "Bolton", "Tameside", "Trafford", "Manchester", "Oldham", "Rochdale", "Salford")) ``` LSOA11MAN= separate(LSOA11, LSOA11NM, into = c("Area", "Short.Code")) LSOA11MAN = filter(LSOA11MAN, Area == c("Bury", "Bolton", "Tameside", "Trafford", "Manchester", "Oldham", "Rochdale", "Salford")) LSOA01MAN= separate(LSOA01, LSOA01NM, into = c("Area", "Short.Code")) LSOA01MAN = filter(LSOA01MAN, Area == c("Bury", "Bolton", "Tameside", "Trafford", "Manchester", "Oldham", "Rochdale", "Salford")) ``` 21Code 21Code = read.csv(file = "LSOACode/21Code.csv") separate(LSOA21NM, into = c("Area", "Short.Code")) ETH21 LSOA21 LSOA21CD Code flights2 |> left_join(airlines) #> Joining with `by = join_by(carrier)` DETHNames = DETHNames |> left_join(LSOA21NM,join_by("Code")) facet_wrap(~variety)
Editor is loading...
Leave a Comment