| mapEstimates | R Documentation | 
Mapping estimates for svysae object
mapEstimates(x, geo.data, variable, viridis.option = "viridis")
x | 
 syvsae object  | 
geo.data | 
 sf object containing polygon data for the small areas. One of the columns should be named domain and contain the domain labels.  | 
variable | 
 The posterior summary variable to plot. May be one of "median", "mean", or "var".  | 
viridis.option | 
 viridis color scheme  | 
ggplot containing map of small area posterior summary statistics
## Not run: 
data(DemoData2)
data(DemoMap2)
library(survey)
des0 <- svydesign(ids = ~clustid+id, strata = ~strata,
                  weights = ~weights, data = DemoData2, nest = TRUE)
Xmat <- aggregate(age~region, data = DemoData2, FUN = mean)
geo.data <- sf::st_as_sf(DemoMap2$geo)
geo.data$domain <- geo.data$REGNAME
cts.res <- smoothArea(tobacco.use ~ 1,
                      domain = ~region,
                      design = des0,
                      adj.mat = DemoMap2$Amat, 
                      pc.u = 1,
                      pc.alpha = 0.01,
                      pc.u.phi = 0.5,
                      pc.alpha.phi = 2/3,
                      return.samples = TRUE)
mapEstimates(cts.res, geo.data = geo.data, variable = "median")
mapEstimates(cts.res, geo.data = geo.data, variable = "var")
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.