data(Ballinderry)
RiverBlockChart(B.hm$Site, B.hm$River, B.hm$Distance, B.hm[4:8],
c(1,1,1,2), mar = 0.15,
block.col = c("#5381FFFF", "#7BE859FF", "#FFC944FF", "#E87539FF", "#FF3931FF"))
RiverBlockChart(B.hm$Site, B.hm$River, B.hm$Distance, B.hm[4:8],
rvr.order = c("Rock", "KillymoonClaggan",
"Ballinderry", "Ballymully", "Kildress",
"Kingsmill", "Lissan", "Tulnacross"),
site.order = "R", mar = 0.15, c(1,1,1,2),
block.col = c("#5381FFFF", "#7BE859FF",
"#FFC944FF", "#E87539FF", "#FF3931FF"))
RiverBlockChart(B.hm$Site, B.hm$River, B.hm$Distance, B.hm[4:8],
rvr.order = c("Rock", "KillymoonClaggan",
"Ballinderry", "Ballymully", "Kildress",
"Kingsmill", "Lissan", "Tulnacross"),
site.order = "L", mar = 0.15, c(1,1,1,2),
block.col = c("#5381FFFF", "#7BE859FF",
"#FFC944FF", "#E87539FF", "#FF3931FF"))
Run the code above in your browser using DataLab