zebra function

Horizontal Zebra Scale

Horizontal Zebra Scale

Plot a zebra style horizontal scale on a projected map.

zebra(x, y, Dx, dx, dy, lab = "", pos=1, col = c("black", "white"), cex = 1, textcol="black", xpd=TRUE, PMAT = NULL)

Arguments

  • x: x-coordinate of left corner
  • y: y-coordinate of left corner
  • Dx: distance in x, km
  • dx: distance for zebra stripes in x
  • dy: thickness in km
  • lab: labels
  • pos: position of text, 1=below, 3=above, as in par
  • col: 2-vector of colors, for the alternating bars
  • cex: character expansion
  • textcol: color for the text
  • xpd: logical, graphic parameter for clipping (see par)
  • PMAT: 3D projection matrix from persp

Details

Plots a zebra style kilometer scale on the current plot

Returns

Graphical Side effect

Author(s)

Jonathan M. Leesjonathan.lees@unc.edu

Examples

library(geomapdata) data(USAmap) USALL=list() USALL$lat=c(24.72853,49.62741) USALL$lon=c(229.29389,296.41803) ## set UTM projection PROJ = setPROJ(type = 2, LAT0 =mean(USALL$lat), LON0 = mean(USALL$lon) ) #### plot with UTM projection: plotGEOmapXY(USAmap, LIM= c(USALL$lon[1], USALL$lat[1], USALL$lon[2], USALL$lat[2] ) , PROJ=PROJ, add=FALSE, shiftlon=0) zeb=list() zeb$x=c(197.727896066) zeb$y=c(-1155.81158234) zebra(zeb$x[1],zeb$y[1], 1000, 100, 60, lab="Km", cex=.6)
  • Maintainer: Jonathan M. Lees
  • License: GPL (>= 2)
  • Last published: 2024-07-09

Useful links