Untitled

mail@pastecode.io avatar
unknown
plain_text
a month ago
2.6 kB
2
Indexable
Never



```{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)






























































































Leave a Comment