RiverSite(site, river, distance, group, riverlayout, pt.pch = 21, pt.col = NA, pt.bg = "red", pt.cex = 1, lbl.cex = 0.5, lbl.srt = 0, lbl.adj = c(0.5, 2), lbl.col = "black", lbl.pos = 1, lbl.ofs = 0.5, lbl.shw = TRUE)
RiverLayout
or RiverMap
.pt.pch=21:25
.1
for below, 2
for left,
3
for above, and 4
for right. See par
for details.TRUE
) or not (FALSE
).RiverLayout
, RiverDraw
,
RiverMap
, par
.
data(Ballinderry)
riverlayout <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance, direction = -1)
RiverDraw(riverlayout)
RiverSite(B.soi$SOI, B.soi$River, B.soi$Distance, B.soi$Group, riverlayout,
pt.bg = c("red","green","yellow"), lbl.shw = FALSE)
RiverDraw(riverlayout)
RiverSite(B.town$Town, B.town$River, B.town$Distance, B.town$Group,
riverlayout, pt.pch = 22, lbl.shw = FALSE,
pt.bg = "orange", pt.col = "black")
RiverSite(B.soi$SOI, B.soi$River, B.soi$Distance, B.soi$Group,
riverlayout, pt.pch = c(25, 24, NA),
lbl.shw = FALSE, pt.bg = NA, pt.col = "black")
Run the code above in your browser using DataLab