knitr::opts_chunk$set(
   echo = TRUE,
   out.height = "70%",
   warning = FALSE
)
library(sdcSpatial)

sdcSpatial: Privacy protected maps

knitr::include_graphics("fig/privacy.jpg")

sdcSpatial: take home message

Experiments with sdcSpatial

sdcSpatial has methods for:

Why sdcSpatial?

Sdc in sdcSpatial?

SDC = "Statistical Disclosure Control"

Collection of statistical methods to:

What is sdcSpatial good for?

Protecting

We'll focus on population density

Experiments with sdcSpatial

Using sdcSpatial for AT, FR, DE and NL to protect population density, i.e. to "grid locations" with < 10 persons [@Gussenbauer2023]

Example: unprotected

\scriptsize

population <- sdc_raster( dwellings[c("x","y")]
                        , variable = 1
                        , min_count = 10
                        , r = 500)
plot(population, value="count")

Cell removal: remove_sensitive

pop_removed <- population |> remove_sensitive()
plot(pop_removed, value = "count")

Smoothing: protect_smooth

pop_smoothed <- protect_smooth(population, bw = 500)
plot(pop_smoothed, "count")

Quad tree: protect_quadtree

pop_quad <- protect_quadtree(population, sensitive = FALSE)
plot(pop_quad, "count")

Utility measures

Hellinger Distance (HD)

Kantorovic-Wasserstein Distance (KWD)

Areas countries

knitr::include_graphics("fig/areas.png")

Results (NL)

knitr::include_graphics("fig/utility_nl.png")

Discussion

However...

Upcoming changes sdcSpatial 0.7

Thank you for your attention!

Questions?

Curious?

install.packages("sdcSpatial")

Feedback and suggestions?

https://github.com/edwindj/sdcSpatial/issues

References



edwindj/sdcSpatial documentation built on April 13, 2025, 1:57 a.m.