AddWaters: Add Waters to Switzerland Map

Description

Add lakes and rivers to an already existing Switzerland map. The lakes are defined in 2 categories 1 and 2, whereas category 1 contains the bigger ones, category 2 the smaller ones.
The rivers are defined in 5 categories 1:5, wheras category 1 contains the largest rivers, category 5 the smallest ones.

Usage

AddWaters(lakes = 1, rivers = 1:5, col = NULL,
          border = "lightskyblue3", lwd = 1, ...)
AddLakes(categ = 1:2, col = "lightskyblue1", border = "lightskyblue3",
         lwd = 1, ...)
AddRivers(categ = 1:5, col = "lightskyblue3", ...)

Value

None

Arguments

categ: category of the lakes (1, 2) and rivers (1:5) . 1 are the bigest waters, 2, resp. 5 the smallest ones.
lakes: the category for the lakes
rivers: the category for the rivers
col: color of the lakes, defaults to "lightskyblue1"
border: bordercolor of the lakes, defaults to "lightskyblue3"
lwd: linewidth of border
...: the dots are passed to the plot command

Author

Andri Signorell <andri@signorell.net

Details

AddWaters() is a wrapper with sensible defaults. If the color is not provided it will be set to a less intense tint of the border.

Lakes are defined in the original files:

00_TOPO/K4_seenyyyymmdd/c_shp/k4seenyyyymmdd11_ch2007Poly.shp
00_TOPO/K4_seenyyyymmdd/c_shp/k4seenyyyymmdd22_ch2007Poly.shp

Rivers are defined in the files:

00_TOPO/K4_flusyyyymmdd/c_shp/k4flusyyyymmdd11_ch2007.shp
00_TOPO/K4_flusyyyymmdd/c_shp/k4flusyyyymmdd22_ch2007.shp
00_TOPO/K4_flusyyyymmdd/c_shp/k4flusyyyymmdd33_ch2007.shp
00_TOPO/K4_flusyyyymmdd/c_shp/k4flusyyyymmdd44_ch2007.shp
00_TOPO/K4_flusyyyymmdd/c_shp/k4flusyyyymmdd55_ch2007.shp

For accessing the meta data, we can simply use

  RequireMap("see1.map")
  head(tkart$see1.map@data)

Examples

Run this code

try({
  PlotKant()
  AddWaters(lakes=1, rivers=1, border="grey")
})

try({
  PlotKant()
  AddLakes(categ=1)      # adds the lakes of category 1 to the map
  AddRivers(categ=1:3)   # adds the rivers of category 1:3 to the map
})

Run the code above in your browser using DataLab