kidwellj/mapping_environmental_action
1
0
Fork 0
mirror of https://github.com/kidwellj/mapping_environmental_action.git synced 2025-01-09 15:22:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

fixed table

Browse source
This commit is contained in:
Jeremy Kidwell 2022-03-04 15:13:35 +00:00
parent 0747180e54
commit 6149e7212f
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mapping_draft-hpc_optimised.Rmd
View file

@ -635,7 +635,8 @@ So why provide this kind of data (i.e. at the level of individual churches) when
```{r 06_ecs_denomination_table} ```{r 06_ecs_denomination_table}
# TODO: fix to work with new sf() object # TODO: fix to work with new sf() object
knitr::kable(summary(ecs@data[["denomination"]]), caption = 'ECS by denomination') ecs_dt <- (st_set_geometry(ecs, NULL))
knitr::kable(table(ecs_dt$denomination), caption = 'ECS by denomination')
# TODO: Add dataframe with overall church numbers for the UK from "ScottishChurches" dataset by JK # TODO: Add dataframe with overall church numbers for the UK from "ScottishChurches" dataset by JK
``` ```
@ -828,7 +829,7 @@ simd$permaculture_count <- lengths(st_covers(simd, permaculture))
simd$pow_count <- lengths(st_covers(simd, pow_pointX)) simd$pow_count <- lengths(st_covers(simd, pow_pointX))
# Generate simplified dataframes with counts for each group # Generate simplified dataframes with counts for each group
ecs_simd <- data.frame(ecs[c(1,16,25,30:36)]) # ecs_simd <- data.frame(ecs[c(1,16,25,30:36)])
# TODO: adapt code below to include equivalent rows from above now that we are using tidyverse # TODO: adapt code below to include equivalent rows from above now that we are using tidyverse
ecs_simd <- data.frame(select(ecs, row.id, col.id)) ecs_simd <- data.frame(select(ecs, row.id, col.id))