#' @title plot mapregions
#'
#' @description mapping regions given geojson file
#' @param geofile geojon file with coordinates
#' @param territory regions
#' @param labels column values to be set in labels
#' @param measure column value to measure
#' @param fill type of label: 1-abrev, 2-full, 3- None
#' @param label.size size of labels
#' @param main main title
#' @param mapcol colores
#' @param xlimit x limit
#' @param ylimit y limit
#' @export
#' @return NULL
regmap<-function(
geofile,
territory,
labels,
measure,
fill,
label.size,
main,
mapcol,
xlimit,
ylimit
){
sp.label <- function(geofile, label) {
list("sp.text", coordinates(geofile), cex=label.size,label)
}
numb.sp.label <- function(geofile) {
sp.label(geofile,list(
abrev=paste(substr(territory,1,3), labels, sep="-"),
full=territory,
none=rep("",length(territory))
)
)
}
make.numb.sp.label <- function(geofile,fill) {
do.call("list", c(numb.sp.label(geofile)[1:3],list(numb.sp.label(geofile)[[4]][[fill]])))
}
spplot(
geofile,
zcol=measure,
main=main,
col.regions =colorRampPalette(mapcol)(length(territory)+16),
sp.layout = make.numb.sp.label(geofile,fill),
scales=list(draw=F),
par.settings=list(axis.line=list(col=NA)),
col="grey",
edge.col="grey",
colorkey=TRUE,
xlim = apply(coordinates(geofile),2,range)[,1]+xlimit,
ylim = apply(coordinates(geofile),2,range)[,2]+ylimit
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.