# NOT RUN {
data("popUK")
uk <- UK(data = popUK, unit = "county", matchWith = "code", check.unit.names = FALSE)
###############
# Statics #
###############
mappingUK(data = uk, var = "population")
# }
# NOT RUN {
mappingUK(data = uk, var = "population", subset = ~I(country == "england"))
mappingUK(data = uk, var = "population", facets = "country")
mappingUK(data = uk, var = "population",
aggregation_unit = "country",
aggregation_fun = function(x) sum(x, na.rm = TRUE))
# }
# NOT RUN {
###############
# Interactive #
###############
mappingUK(data = uk, var = "population", type = "interactive")
# }
# NOT RUN {
mappingUK(data = uk, var = "population", subset = ~I(country == "england"), type = "interactive")
mappingUK(data = uk, var = "population",
aggregation_unit = "country",
aggregation_fun = function(x) sum(x, na.rm = TRUE), type = "interactive")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab