DescTools (version 0.99.11)

Midx: Find the Midpoints of a Numeric Vector

Description

Calculate the midpoints of a sequence of numbers. This is e.g. useful for labelling stacked barplots.

Usage

Midx(x, incl.zero = FALSE, cumulate = FALSE)

Arguments

x
the numeric vector
incl.zero
should zero be appended to x before proceeding? If TRUE the first value will be one half of the first value of x. Default is FALSE.
cumulate
should the result be calculated as cumulative sum? Default is FALSE.

Value

  • numeric vector with the calculated midpoins

Examples

Run this code
x <- c(1, 3, 6, 7)

Midx(x)
Midx(x, incl.zero = TRUE)
Midx(x, incl.zero = TRUE, cumulate = TRUE)


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")

Run the code above in your browser using DataCamp Workspace