rescale population ?

@valenca13 which math should we do regarding the absolute values of sum(population) in each cell?
U-Shift · Feb 25, 2024 · 60321fd · 60321fd
1 parent 32f7a62
commit 60321fd
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/code/population.R b/code/population.R
@@ -36,7 +36,12 @@ population_grid =
           join = st_intersects) %>% 
   st_drop_geometry() %>% 
   group_by(ID) %>% 
-  summarise(population = sum(N_INDIVIDUOS))
+  summarise(population = sum(N_INDIVIDUOS)) |> 
+  mutate(population = scales::rescale(population)) #?
+
+# table(population_grid$population > 0.5)
+# FALSE  TRUE 
+# 1044    25 
 
 population_grid_geo = GRID |> left_join(population_grid)
 mapview::mapview(population_grid_geo, zcol="population") + mapview::mapview(CENSUScity)