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) 
      } 
)