我在 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,...)
}
)
有什么线索吗？谢谢，
一种
最佳答案
好像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)))
关于r - 如何在 xyplot(格子包)中向颜色条图例添加标题？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/26149482/