R: Add Connection Lines to a Barplot

ConnLines {DescTools} | R Documentation

## Add Connection Lines to a Barplot

### Description

Add connection lines to a stacked barplot (beside = `TRUE` is not supported). The function expects exactly the same arguments, that were used to create the barplot.

### Usage

    ConnLines(..., col = 1, lwd = 1, lty = "solid", xalign = c("mar","mid"))

### Arguments

`...` | the arguments used to create the barplot. (The dots are sent directly to barplot).
`col` | the line color of the connection lines. Defaults to black.
`lwd` | the line width for the connection lines. Default is 1.
`lty` | the line type for the connection lines. Line types can either be specified as an integer (0=blank, 1=solid (default), 2=dashed, 3=dotted, 4=dotdash, 5=longdash, 6=twodash) or as one of the character strings `"blank"`, `"solid"`, `"dashed"`, `"dotted"`, `"dotdash"`, `"longdash"`, or `"twodash"`. Default is `"solid"`.
`xalign` | defines where the lines should be aligned to on the x-axis. Can be set either to the margins of the bars ("mar" which is the default) or to "mid". The latter will lead the connecting lines to the middle of the bars.

### Author(s)

Andri Signorell <andri@signorell.net>

### See Also

`barplot`

### Examples

    tab <- with(
      subset(d.pizza, driver %in% c("Carpenter","Miller","Farmer","Butcher")),
      table(factor(driver), Weekday(date, "dd", stringsAsFactor=TRUE))
    )
    tab

    barplot(tab, beside=FALSE, space=1.2)
    ConnLines(tab, beside=FALSE, space=1.2, lcol="grey50", lwd=1, lty=2)

    barplot(tab, beside=FALSE, space=1.2, horiz=TRUE)
    ConnLines(tab, beside=FALSE, space=1.2, horiz=TRUE, lcol="grey50", lwd=1, lty=2)

    cols <- Pal("Helsana")[1:4]
    b <- barplot(tab, beside=FALSE, horiz=FALSE, col=cols)
    ConnLines(tab, beside=FALSE, horiz=FALSE, lcol="grey50", lwd=1, lty=2)

    # set some labels
    txt <- tab
    txt[] <- gsub(pattern="^0", "", t(tab))       # do not print 0s
    text(x=b, y=t(apply(apply(rbind(0,tab), 2, Midx), 2, cumsum)), labels=txt,
         col=(matrix(rep(TextContrastColor(cols), each=ncol(tab)),
              nrow=nrow(tab), byrow=FALSE )))

    # align to the middle of the bars
    barplot(tab, beside=FALSE, space=1.2)
    ConnLines(tab, beside=FALSE, space=1.2, lcol="grey50", lwd=1, lty=2, method="mid")

[Package DescTools version 0.99.35 Index]