A function to facilitate ggplot2 graphs using a survey object.
It will initiate a ggplot and map survey weights to the
corresponding aesthetic.
ggsurvey(design = NULL, mapping = NULL, ...)Arguments
- design
A survey design object, usually created with
survey::svydesign()- mapping
Default list of aesthetic mappings to use for plot, to be created with
ggplot2::aes().- ...
Other arguments passed on to methods. Not currently used.
Details
Graphs will be correct as long as only weights are required
to compute the graph. However, statistic or geometry requiring
correct variance computation (like
ggplot2::geom_smooth()) will
be statistically incorrect.
Examples
if (require(survey) & require(ggplot2)) {
data(api)
dstrat <- svydesign(
id = ~1, strata = ~stype,
weights = ~pw, data = apistrat,
fpc = ~fpc
)
ggsurvey(dstrat) +
aes(x = cnum, y = dnum) +
geom_count()
d <- as.data.frame(Titanic)
dw <- svydesign(ids = ~1, weights = ~Freq, data = d)
ggsurvey(dw) +
aes(x = Class, fill = Survived) +
geom_bar(position = "fill")
}
#> Loading required package: survey
#> Loading required package: grid
#> Loading required package: Matrix
#> Loading required package: survival
#>
#> Attaching package: ‘survey’
#> The following object is masked from ‘package:graphics’:
#>
#> dotchart
#> Loading required package: ggplot2
