bReeze (version 0.4-4)

map.plot: Plot map or satellite image

Description

Plots a map or satellite image of the met mast location.

Usage

map.plot(mast, type=c("satellite", "terrain", "hybrid", "roadmap"), 
  zoom, label, ...)
map(mast, type=c("satellite", "terrain", "hybrid", "roadmap"), 
  zoom, label, ...)

Arguments

mast

Met mast object created by mast.

type

Type of the map as string. One of "satellite" (satellite image), "terrain" (map with terrain information), "hybrid" (satellite image with map overlay) or "roadmap" (map).

zoom

Zoom level as integer from 1 (small scale) up to 18 (large scale) -- default is 15.

label

Label to be placed next to the location symbol as string. Set to NA to leave the label blank. If ignored, the location coordinates are used as label default.

...

Optional graphical parameters, see below for details.

Optional graphical parameters

The following graphical parameters can optionally be added to customize the plot:

• cex: Numeric value, giving the amount by which location symbol should be scaled relative to the default (which is 1.5).

• col: The colour of the symbol.

• pch: Location symbol, either as integer or as single character. See points for possible values and their interpretation -- default is 8.

• cex.lab: Numeric value, giving the amount by which the label should be scaled relative to the default (which is 1).

• col.lab: The colour of the label -- default is same as col.

• pos.lab: Position specifier for the label. One of 1 (below symbol), 2 (left of symbol), 3 (above symbol) or 4 (right of symbol) -- default is 4.

Author

Christian Graul

Details

This function is based on the RgoogleMaps package by Markus Loecher, which uses the Google Static Maps API.

See Also

mast

Examples

if (FALSE) {
# load and prepare data
data("winddata", package="bReeze")
set1 <- set(height=40, v.avg=winddata[,2])
ts <- timestamp(winddata[,1])
neubuerg <- mast(timestamp=ts, set1, loc=c(49.8909,11.4017))

# plot satellite image
map.plot(neubuerg)

# plot terrain map
map.plot(neubuerg, type="terrain")

# change zoom level
map.plot(neubuerg, zoom=1)
map.plot(neubuerg, zoom=18)

# change symbol (and label) 
map.plot(neubuerg, col="white", pch="+", cex=2)

# change label
map.plot(neubuerg, col.lab=3, cex.lab=1.5)
map.plot(neubuerg, pos.lab=1)
map.plot(neubuerg, label="Site #247 - Neubuerg")  # custom label
map.plot(neubuerg, label=NA)  # no label
}