r - 如何在 xyplot(格子包)中向颜色条图例添加标题？

Question

我在 Deepayan Sarkar 的 Lattice 书中复制了图 5.6，尽管使用了一个面板。目前，我正在努力在颜色条顶部获得标题...

这是一些可重现的代码。

x <- seq(1,20,.1)
y <- rnorm(length(x))
z <- seq(1,200,length.out=length(x))

cols <- rainbow(100)[cut(z,100,label=F)]

xyplot(y~x, aspect="iso", type=c("p","g"), col=1, pch=21,fill=cols,
   legend=list(right=
       list(fun = draw.colorkey,
            args=list(key=list(col = rainbow,at = do.breaks(range(z),100))))),
panel=function(x,y,...){
panel.xyplot(x,y,...)
}
)

有什么线索吗？谢谢，

一种

Answer 1

好像draw.colorkey不尊重title= key= 的属性(property)出于某种原因列出。但是您可以指定自己的 grob。这里我们使用 packGrob (来自 grid )修改标准 colorkey格罗布。尝试这个

library(grid)
my.legend <- packGrob(
    draw.colorkey(key=list(col = rainbow, at = do.breaks(range(z),100))), 
    textGrob("My title", x = 0, y = 0.5, just = c("left", "centre")), 
    height=unit(2, "lines"),side="top", dynamic=T)

xyplot(y~x, aspect="iso", type=c("p","g"), col=1, pch=21,fill=cols,
    legend=list(right=list(fun=my.legend)))