Color used for lines, i.e. lines itself, borders of polygons and circle borders (points). Color might be given as name, number [0-8] or hexadecimal code. If fill is not specified, col is used for border and circle area. If col is NA, the border is omitted.
lwd
Line width in number of pixels – default is 2.
alpha
Opacity of a line or border, as numeric value between 0 (fully transparent) and 1 (opaque).
fill
Fill color used for polygons and circles (points). Color might be given as name, number [0-8] or hexadecimal code. If fill is NA, the circle area is left blank.
fill.alpha
Opacity of a polygon or circle area, as numeric value between 0 (fully transparent) and 1 (opaque).
rad
Radius of circles (points), in number of pixels – default is 10.
marker
Color (given like col), or a vector of label (see https://www.mapbox.com/maki/ for available labels), color (given like col) and size (s=small, m=medium, l=large). Points are displayed as markers (all other arguments are ignored).
Value
A single symbol style object.
Note
There is a known issue with Safari browser: maps with four or more marker layers may cause problems with popups.
Author(s)
Christian Graul
See Also
styleGrad, styleCat, leaflet
Examples
## Not run:
## point data ##
# prepare data
data(quakes)
dat <- toGeoJSON(data=quakes, dest=tempdir())
# change circle borders
# note: if fill color is not specified, col is also used as fill color
sty <- styleSingle(col=2, lwd=1, alpha=1)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# change fill color, alpha and radius
sty <- styleSingle(fill="red", fill.alpha=1, rad=2)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# no border
sty <- styleSingle(col=NA)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# blank circle area
sty <- styleSingle(fill=NA)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# simple colored markers
sty <- styleSingle(marker="red") # only color
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# markers with label, color and size
sty <- styleSingle(marker=c("triangle", "#E41A1C", "s"))
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# change all arguments
sty <- styleSingle(col="#d4d4d4", lwd=1, alpha=0.8,
fill="darkred", fill.alpha=0.4, rad=4)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
## line data ##
# prepare data
# (httr package required)
dat <- toGeoJSON(data=system.file(package="leafletR", "files",
"lynx.zip"), name="Lynx telemetry", dest=tempdir())
# style
sty <- styleSingle(col="#bb650b", lwd=3, alpha=0.8)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
## polygon data ##
# prepare data
dat <- system.file(package="leafletR", "files", "park_sk.geojson")
# change borders
# note: if fill color is not specified, col is also used as fill color
sty <- styleSingle(col=3, lwd=2, alpha=1)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# change fill color and alpha
sty <- styleSingle(fill="darkgreen", fill.alpha=0.8)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# no border
sty <- styleSingle(col=NA)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# blank polygon area
sty <- styleSingle(fill=NA)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
# change all arguments
sty <- styleSingle(col="#006400", lwd=5, alpha=0.8,
fill="darkgreen", fill.alpha=0.4)
map <- leaflet(data=dat, dest=tempdir(), style=sty)
## End(Not run)