PlotMapDot | R Documentation |
Prepares the layout to plot a map and a dotplot side by side.
PlotMapDot(mar = c(5.1,4.1,0,1), oma = c(0,0,5,0), widths = c(2,0.8))
mar |
defines the plot margins. |
oma |
defines the outer margins. We use that for displaying a title. |
widths |
a vector of values for the widths of two columns, the first for the map, the second for dotplot. Relative widths are specified with numeric values. Absolute widths (in centimetres) are specified with the lcm() function. Default is |
None
Andri Signorell <andri@signorell.net>
layout
require(DescTools)
try( {
yes_p <- c(ZH=0.465, BE=0.417, LU=0.376, UR=0.308, SZ=0.276,
OW=0.273, NW=0.277, GL=0.324, ZG=0.344, FR=0.469, SO=0.352,
BS=0.602, BL=0.414, SH=0.457, AR=0.325, AI=0.24, SG=0.365,
GR=0.325, AG=0.347, TG=0.321, TI=0.446, VD=0.532, VS=0.329,
NE=0.562, GE=0.601, JU=0.532)
PlotMapDot()
cols <- colorRampPalette( colors=c("red","white","green"), space ="rgb")(10)
PlotKant(id=names(yes_p),
col=FindColor(yes_p, cols=cols, min.x=0, max.x=1 ), main="",
labels=TRUE)
ColorLegend(x="left", width=10000,
labels=paste(seq(0, 100, 10), "%", sep=""),
cols=cols, cex=0.8, adj=c(1,0.5), frame="grey")
x <- Sort(yes_p, decreasing=TRUE)
opt <- DescToolsOptions(stamp=NULL)
PlotDot(x, labels=gettextf("%s (%s)", names(x), Format(x, fmt="%", digits=1)),
cex=0.9, xlim=c(0,1))
abline(v=0.5, col="grey")
title(main="Volksinitiative 'Mehr bezahlbare Wohnungen'
Abstimmung vom 09.02.2020", outer=TRUE)
DescToolsOptions(opt)
# reset the layout
layout(1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.