RiverScale(length, label, riverlayout, loc = NA, scl.col = "black", scl.lwd = 1, lbl.cex = 0.5, lbl.pos = 4, lbl.ofs = 0.5)
RiverLayout
or RiverMap
.loc = NA
, use mouse to locate
the arrow. ESC to confirm.1
for below, 2
for left,
3
for above, and 4
for right. See par
for details.RiverLayout
, RiverDraw
,
RiverMap
, par
, locator
.
data(Ballinderry)
riverlayout <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance, direction = -1)
RiverDraw(riverlayout)
RiverScale(2, "2 km", riverlayout, loc = c(0.8, 0.10),lbl.cex = 0.8)
# Use mouse to allocate the river scale
## RiverScale(2, "2 km", riverlayout, lbl.cex = 0.8)
Run the code above in your browser using DataLab