R点阵直方图将平均值作为文本添加到每个直方图

Question

根据前面回答的问题，我认为以下脚本应该有效。

require(lattice)

histogram(cyl~mpg|gear*am,
        data=mtcars,
        nint=5,
        panel=function(y,...){
            panel.histogram(...)
            m<-mean(y)
            panel.txt(x=30,y=60,labels=m)
        }
)

直方图情节，但我得到“数据包1参数”y“缺少，没有默认值”

帮助赞赏，因为我在这个难题上浪费了一小时的生命......

Answer 1

panel.histogram需要一个x参数（不是y参数），这是histogram传递给面板的线索。

此外，您需要将x参数传递给panel.histogram，方法是将其包含在参数列表中。

最后，它是panel.text而不是panel.txt。

histogram(cyl~mpg|gear*am,
          data=mtcars,
          nint=5,
          panel=function(x, ...){
              panel.histogram(x=x,...)
              m<-mean(x)
              panel.text(x=30,y=60,labels=m)
          }
)