qp.colors: qPharmetra Colors

In qPharmetra/qpToolkit: qPharmetra R Tools

qPharmetra Colors

Description

A set of qPharmetra colors to be used for plotting

Usage

qp.colors

Format

An object of class character of length 22.

See Also

Other qpcolors: PI.ci.down.arcol, PI.ci.med.arcol, PI.ci.up.arcol, PI.real.down.col, PI.real.med.col, PI.real.up.col, abline.color.box, abline.color, amber, apple, blue, box.plot.color, brown, cobalt, crimson, cyan, emerald, gray, green, histogram.color, indigo, ipred.color, ketchup, lime, lin.fit.col, loi.color, magenta, mauve, obs.color, olive, orange, pink, pred.color, purple, qp.blue, qp.green, red, smooth.ci.color, smooth.color, steel, taupe, teal, violet, yellow

Examples

## the greens and the blues
par(mfrow = c(1,1), pty = 's')
nc = length(blue)
cols = c(8,8,8,8,8,4,2,1,1,1)
plot(1:nc, seq(-0.45,0.3,length = nc), type = 'n', axes = FALSE, xlab = "", ylab = "",
 xlim = c(0.5, nc + 0.5))
for(i in 1:nc)
{
  polygon(c(i-0.45, i+0.45, i+0.45, i-0.45), c(0.16, 0.16, 0.29, 0.29),
          col = green[i], angle = -1, density = -1, border = 0)
  text(i,0.225,paste("green[",i,"]", sep = ""), cex = 0.6, col = green[cols][i])
  polygon(c(i-0.45, i+0.45, i+0.45, i-0.45), c(0.01, 0.01, 0.14, 0.14),
          col = blue[i], angle = -1, density = -1, border = 0)
  text(i,0.075,paste("blue[",i,"]", sep = ""), cex = 0.6, col = blue[cols][i])
  polygon(c(i-0.45, i+0.45, i+0.45, i-0.45), c(-0.01, -0.01, -0.14, -0.14),
          col = red[i], angle = -1, density = -1, border = 0)
  text(i,-0.075,paste("red[",i,"]", sep = ""), cex = 0.6, col = red[cols][i])
  polygon(c(i-0.45, i+0.45, i+0.45, i-0.45), c(-0.16, -0.16, -0.29, -0.29),
          col = purple[i], angle = -1, density = -1, border = 0)
  text(i,-0.225,paste("purple[",i,"]", sep = ""), cex = 0.6, col = purple[cols][i])
  polygon(c(i-0.45, i+0.45, i+0.45, i-0.45), c(-0.31, -0.31, -0.44, -0.44),
          col = gray[i], angle = -1, density = -1, border = 0)
  text(i,-0.375,paste("gray[",i,"]", sep = ""), cex = 0.6, col = gray[cols][i])
}

library(lattice)
lapply(list(qp.colors,qp.colors.sorted), function(my.colors)
xyplot(yval ~ xval | color
      , data = expand.grid(xval = 1, yval = 1, color = names(my.colors))
      , xlim = c(0,1)
      , ylim = c(0,1)
      , as.table = TRUE
      , panel = function(x,y,...)
      {
        panel.rect(xleft = 0, ybottom = 0
                   , xright = 1, ytop = 1
                   , col = my.colors[panel.number()]
        )
        ltext(x = 0.5, y = 0.5
              , my.colors[panel.number()], col = rgb(0.99,0.99,0.99)
              , cex = 0.75
        )
      }
      , aspect = 1
      , par.strip.text = list(cex = 1)
      , scales = list(y = list(at = NULL), x = list(at = NULL))
      , ylab = ""
      , xlab = ""
   )
)

par(pty = "m")
plot(0:1,0:1, type = 'n',axes = FALSE, xlab = "", ylab = "")
polygon(x = c(0,1,1,0),y = c(0.5,0.5,0,0), col = qp.blue, border = FALSE)
polygon(x = c(0,1,1,0),y = c(1,1,0.5,0.5), col = qp.green, border = FALSE)
text(0.5,0.75, "qPharmetra", col = "white", cex = 5)
text(0.5,0.25, "qPharmetra", col = "white", cex = 5)

qPharmetra/qpToolkit documentation built on May 24, 2023, 8:52 a.m.