Skip to content
Prev 315902 / 398506 Next

Adding a line to barchart

PIKAL Petr 
Hi
This function adds line to each panel

addLine <- function (a = NULL, b = NULL, v = NULL, h = NULL, ..., once = F) 
{
    tcL <- trellis.currentLayout()
    k <- 0
    for (i in 1:nrow(tcL)) for (j in 1:ncol(tcL)) if (tcL[i, 
        j] > 0) {
        k <- k + 1
        trellis.focus("panel", j, i, highlight = FALSE)
        if (once) 
            panel.abline(a = a[k], b = b[k], v = v[k], h = h[k], 
                ...)
        else panel.abline(a = a, b = b, v = v, h = h, ...)
        trellis.unfocus()
    }
  }


addLine(v=2, col=2, lty=3)

Petr

Thread (6 messages)

Jonathan Greenberg Adding a line to barchart Jan 22 arun Adding a line to barchart Jan 22 PIKAL Petr Adding a line to barchart Jan 22 Jonathan Greenberg Adding a line to barchart Jan 23 S Ellison Adding a line to barchart Jan 23 PIKAL Petr Adding a line to barchart Jan 23