Find the Midpoints of a Numeric Vector
Calculate the midpoints of a sequence of numbers. This is e.g. useful for labelling stacked barplots.
Midx(x, incl.zero = FALSE, cumulate = FALSE)
x |
the numeric vector |
incl.zero |
should zero be appended to x before proceeding? If |
cumulate |
should the result be calculated as cumulative sum? Default is FALSE. |
numeric vector with the calculated midpoins
Andri Signorell <andri@signorell.net>
x <- c(1, 3, 6, 7) Midx(x) Midx(x, incl.zero = TRUE) Midx(x, incl.zero = TRUE, cumulate = TRUE) # an alternative to head(MoveAvg(c(0, x), order = 2, align = "l"), n = -1) tab <- matrix(c(401,216,221,254,259,169), nrow=2, byrow=TRUE) b <- barplot(tab, beside = FALSE, horiz=TRUE) x <- t(apply(tab, 2, Midx, incl.zero=TRUE, cumulate=TRUE)) text(tab, x=x, y=b, col="red")
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.