- segments(x, y - length, x, y)
- text(x, y - length * 1.1, as.character(length), adj = c(0, 0.5), srt = 270, ...)
- }
- )
- }
+ })
+
+ switch(direc,
+ "rightwards" = {
+ segments(x, y, x + length, y)
+ text(x + length * 1.1, y, as.character(length), adj = c(0, 0.5), ...)
+ },
+ "leftwards" = {
+ segments(x - length, y, x, y)
+ text(x - length * 1.1, y, as.character(length), adj = c(1, 0.5), ...)
+ },
+ "upwards" = {
+ segments(x, y, x, y + length)
+ text(x, y + length * 1.1, as.character(length), adj = c(0, 0.5), srt = 90, ...)
+ },
+ "downwards" = {
+ segments(x, y - length, x, y)
+ text(x, y - length * 1.1, as.character(length), adj = c(0, 0.5), srt = 270, ...)
+ })