R 晶格图例文本外部打印-代码问题

我试图使用lattice将文本置于图形图例之外，但事实证明这很痛苦。这是一个散点图，由另一个变量按彩色比例排序。图例看起来不错，但不幸的是它没有文本标签（最简单的部分）。我尝试了title（图例）、text、Mtext、panel.text，它只将文本放在面板中。此外，无论我在哪里尝试在图例代码中添加标签或文本，似乎都不起作用

xyplot(calcona$Mid.depth ~ calcona$bits, 
    data=calcona, groups = color, col="black", 
    panel = function (x, y, groups, ..., subscripts) 
    { 
      fill<-groups[subscripts] 
      panel.grid(h=-1, v=-1) 
      panel.xyplot(x, y, pch=21, fill=fill, ...) 
    }, 
    legend= 
      list(right= #I believe the code needs to go here somewhere. 
             list(title="text here doesn't work", fun=draw.colorkey, 
                  args=list(key=list(col=heat.colors, 
                                     at = caex.breaks), 
                            draw=FALSE))), 
    ylim=(rev(range(0:100))), 
    xlim = range(0:7), ylab = "Depth (cm)", 
    xlab = "SEM (%)", 
    main = list( label = 
                   "SEM", cex=1)) 

xyplot（calcona$Mid.depth~calcona$bits，
data=calcona，groups=color，col=“black”，
面板=功能（x，y，组，…，下标）
{ 
请提供一个可复制的示例。可能重复的