# Load data
library(sf)
com <- st_read(system.file("metroparis.gpkg", package = "MTA"), layer = "com", quiet = TRUE)
# Prerequisite - Compute 2 deviations
com$gdev <- gdev(x = com, var1 = "INC", var2 = "TH")
com$tdev <- tdev(x = com, var1 = "INC", var2 = "TH", key = "EPT")
# EX1 standard breaks with four labels
plot_bidev(x = com,
dev1 = "gdev",
dev2 = "tdev",
dev1.lab = "General deviation (MGP Area)",
dev2.lab = "Territorial deviation (EPT of belonging)",
lib.var = "LIBCOM",
lib.val = c("Marolles-en-Brie", "Suresnes",
"Clichy-sous-Bois", "Les Lilas"))
# EX2, change breaks, enlarge breaks
plot_bidev(x = com,
breaks = c(75, 150, 300),
dev1 = "gdev",
dev2 = "tdev",
dev1.lab = "General deviation (MGP Area)",
dev2.lab = "Territorial deviation (EPT of belonging)")
Run the code above in your browser using DataLab