# get spatial units classification
data_belgium <- DoU_load_grid_data_belgium()
grid_classification <- DoU_classify_grid(data_belgium)
data1 <- DoU_preprocess_units(
units = flexurba::units_belgium,
classification = grid_classification,
pop = data_belgium$pop
)
units_classification <- DoU_classify_units(data1)
# plot using the standard color palette
DoU_plot_units(data1$units, units_classification)
# plot using custom palette and labels
DoU_plot_units(data1$units, units_classification,
palette = c("3" = "#e16c72", "2" = "#fac66c", "1" = "#97c197"),
labels = c("C", "T", "R")
)
Run the code above in your browser using DataLab