如何向pairs()图中添加颜色键？

Goal:我有一个调整过的pairs情节在R我想为其添加一个颜色键。面板背景位于pairs绘图显示由数字矩阵确定的某些颜色。我想要在右侧有一个颜色键pairs显示这些颜色和一些指示数字的标签的图。

我找到了一些添加颜色键的方法image()绘图（例如，image.plot in the fields包裹;colorbar in the matlab包裹;color.legend in the plotrix包裹）。所以，原则上，我想为我的调整后做类似的事情pairs阴谋。然而，我已经遇到了为要绘制的颜色键保留一些空间的问题（可以[或者甚至should？]这可以完成grid?).

这是一个最小的例子pairs有彩色背景的情节。我还尝试改编示例color.legend in plotrix但目前这或多或少是无稽之谈。关于如何以优雅/灵活的方式做到这一点有什么想法吗？

count <- 0
color <- c("yellow", "orange", "red", "lightgreen", "darkgreen", "cyan", "lightblue",
           "darkblue", "brown", "gray", "transparent", "transparent")
mypanel <- function(x, y, ...){
   count <<- count+1
   bg <- color[count]
   ll <- par("usr")
   rect(ll[1], ll[3], ll[2], ll[4], col=bg)
   points(x, y, cex=0.5)
}

U <- matrix(runif(4*500), ncol=4)

## require(plotrix)
## par(mar=c(7,4,4,14)) # (bottom, left, top, right)
pairs(U, panel=mypanel, gap=0)
## color.legend(xl=10.2, yb=2, xr=11, yt=5,
##              legend=c("bright","normal","dark"), rect.col=color, align="rb",
##              gradient="y")

Info:上面选择的颜色是根据数字（相同长度的向量）确定的。这些数字都在 0 和 1 之间，0 (1) 对应于最暗（最亮）的颜色。然后，这些数字应该确定在颜色键上打印的刻度和数字（我不需要实际的文本标签 - 我只是尝试过，因为示例color.legend用过）。所以一个数字向量colors上面可能是c(0.95, 0.9, 0.8, 0.7, 0.6, 0.5, 0.4, 0.3, 0.2, 0.1, 1, 1)（数字越大，柱越亮）。更准确地说：这些值是通过每对拟合优度检验确定的 p 值，深色应指出较小的 p 值。事实上，颜色间隔并不是那么均匀，我只使用一些高于显着性水平（例如）0.05 的颜色，而大多数颜色低于 0.05，因此可以直接看到哪些测试导致拒绝。