data(Ballinderry)
riverlayout <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance, direction = -1)
RiverDraw(riverlayout)
RiverBar(B.bio$Site, B.bio$River, B.bio$Distance, B.bio[4:5], riverlayout,
bar.col = c("#5381FFFF", "#7BE859FF"), lbl.shw = TRUE)
RiverDraw(riverlayout)
RiverBar(B.bio$Site, B.bio$River, B.bio$Distance, B.bio[4:5], riverlayout,
bar.col = c("#5381FFFF", "#7BE859FF"), range = c(4,7))
Run the code above in your browser using DataLab