Question

我正在尝试使用格子将文本放在图形图例之外，但这证明是一种痛苦。它是一个散点图，按照另一个变量的彩色比例排序。图例似乎很好，但不幸的是它没有文本标签（最简单的部分）。我已经尝试过标题（对于图例），文本，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))

格子图例外文字 - 代码问题

0 个答案: