r - 使用 panel.text 向每个晶格直方图添加文本，但出现错误“缺少对象 x”答案

【问题标题】：r - Add text to each lattice histogram with panel.text but has error "object x is missing"r - 使用 panel.text 向每个晶格直方图添加文本，但出现错误“缺少对象 x”
【发布时间】：2013-07-09 22:01:25
【问题描述】：

在下面的 R 代码中，我尝试通过因子 zip_cpt（有 30 个级别）为变量 allowed.clean 创建 30 个直方图。

对于这些直方图中的每一个，我还想添加均值和样本量——需要为因子zip_cpt 的每个级别计算它们。所以我使用panel.text 来做到这一点。

运行此代码后，我在每个直方图中都有错误消息显示“使用数据包 21 时出错...”x“丢失，带有...”（我无法阅读整个错误消息，因为它们不要全部显示）。我猜对象 x 有问题。是因为 mean(x) 和 length(x) 实际上并不适用于因子 zip_cpt 的每个级别的数据吗？

感谢您的帮助！

histogram(~allowed.clean|zip_cpt,data=cpt.IC_CAB1,  
      type='density',
      nint=100,
      breaks=NULL,
      layout=c(10,3),  
      scales= list(y=list(relation="free"),
                   x=list(relation="free")),
      panel=function(x,...) {
                             mean.values <-mean(x)
                             sample.n <- length(x)
                             panel.text(lab=paste("Sample size = ",sample.n))
                             panel.text(lab=paste("Mean = ",mean.values))
                             panel.histogram(x,col="pink", ...) 
                             panel.mathdensity(dmath=dnorm, col="black",args=list(mean=mean(x, na.rm = TRUE),sd=sd(x, na.rm = TRUE)), ...)})

【问题讨论】：

难道panel.text 不需要一个“x”（和一个“y”参数）来告诉解释器将标签放在哪里？
@DWin 谢谢！我会努力的。

标签： r histogram lattice

【解决方案1】：

我在网上找到的一个讨论有助于在每个直方图上添加自定义文本（例如基本统计数据）：

https://stat.ethz.ch/pipermail/r-help/2007-March/126842.html

【讨论】：