styleCat: Categorized styling

In chgrl/leafletR: Interactive Web-Maps Based on the Leaflet JavaScript Library

Categorized styling

Description

Creates a categorized style based on an attribute

Usage

styleCat(prop, val, style.val, leg, ...)
cats(prop, val, style.val, leg, ...)

Arguments

prop	Property (attribute) of the data to be styled, as string.
val	A vector giving the data values to be used as categories.
style.val	Styling values, a vector of colors or radii applied to the categories given by val. See details for unspecified data values.
leg	Legend title as string. The line break sequence \n may be used for line splitting.
...	Additional styling parameters, see styleSingle for details.

Details

If val does not cover all data values, the unspecified data values are colored gray. By adding an extra color for unspecified data values to style.val, an "other"-category is shown in the legend.

Value

A categorized style object.

Author(s)

Christian Graul

See Also

styleSingle, styleGrad, leaflet

Examples

## Not run: 
# prepare data
dat <- system.file(package="leafletR", "files", "park_sk.geojson")

# simple categorizing
sty <- styleCat(prop="lynx", val=c("yes", "no"), 
  style.val=c("green", "red"), leg="Lynx occurrence")
map <- leaflet(data=dat, dest=tempdir(), title="Lynx", 
  style=sty)

# just one category
sty <- styleCat(prop="wisent", val="yes", style.val="red", 
  leg="Wisent occurrence")
map <- leaflet(data=dat, dest=tempdir(), title="Wisent", 
  style=sty)

# get nice colors using ColorBrewer
require(RColorBrewer)
pal <- brewer.pal(7, "Dark2")
sty <- styleCat(prop="year", val=c("1949", "1967", "1978", "1988", 
  "1997", "1998", "2002"), style.val=pal, leg="established:\n")
map <- leaflet(data=dat, dest=tempdir(), 
  title="National parks", style=sty)

# add 'other'-category to legend
require(RColorBrewer)
pal <- brewer.pal(7, "Dark2")
sty <- styleCat(prop="year", val=c("1997", "1998", "2002"), 
  style.val=pal, leg="established:\n")
map <- leaflet(data=dat, dest=tempdir(), 
  title="National parks", style=sty)

# additional styling parameters
sty <- styleCat(prop="brown_bear", val=c("yes", "no"), 
  style.val=c("darkgreen", "red"), leg="Brown bear\noccurrence", 
  alpha=1, lwd=4, fill=NA)
map <- leaflet(data=dat, dest=tempdir(), title="Brown bear", 
  style=sty)

## End(Not run)

chgrl/leafletR documentation built on March 24, 2022, 7:53 a.m.