格子直方图的图例答案

【问题标题】：Legend for lattice histogram格子直方图的图例
【发布时间】：2013-07-18 15:50:33
【问题描述】：

我正在以下图的顶部寻找一个图例，它描述了框架中的多边形和蓝点。

    require(lattice)
    grid<-data.frame(F=rnorm(1000),T=rep(c("A","B"),each=500))
    histogram(~F|T, data=grid, params=c(1,2)
            ,layout=c(2,1), xlab = "",ylab="",as.table=TRUE
            #,par.settings = list(superpose.polygons = list(col=c(4)))
            #,key = list(polygons = list(col=c(4)),space="top",columns=1
            #           ,text = list("text")
            #            )
            #, auto.key = list(polygons = TRUE,title = "Survived", columns = 1)
            ,type="density",breaks=40
            ,panel=function(x,params,...){
               panel.grid()
               panel.histogram(x,...,col=8)     
               lab<-format(params[panel.number()], digits=2, nsmall=2)
               panel.points(params[panel.number()],0,pch=16,col=4)
               panel.text(1, 0.05, labels = lab) 
              })

【问题讨论】：

标签： r histogram lattice

【解决方案1】：

注意，迟到的答案。

这样做的诀窍是您有 2 个文本标签（一个用于条形图，另一个用于点），但图例中只有一个矩形（条形图）和一个点。您可以通过将两个 text= 参数添加到您的 key= 参数来完成这项工作。 Lattice 将按照您在代码中列出元素的顺序将元素添加到键中。

require(lattice)
grid<-data.frame(F=rnorm(1000),T=rep(c("A","B"),each=500))
histogram(~F|T, data=grid, params=c(1,2)
      ,layout=c(2,1), xlab = "",ylab="",as.table=TRUE


      ,key=list(space="top",          #puts key on top of panels
            rectangles=list(col=8),   #draws gray box
            text=list("gray bars"),   #label box
            points=list(col=4,pch=16), #draw blue point
            text=list("blue dots")    #label point
      )


      ,type="density",breaks=40
      ,panel=function(x,params,...){
        panel.grid()
        panel.histogram(x,...,col=8)     
        lab<-format(params[panel.number()], digits=2, nsmall=2)
        panel.points(params[panel.number()],0,pch=16,col=4)
        panel.text(1, 0.05, labels = lab) 
      })

【讨论】：