[R] lattice histogram

[steve]

Hi,

When I tried this the groups had sizes 36 30 34 as expected, but
the annotations "n = " were 68 72 60 - twice as large. I don't 
understand why.

Steve

Renaud Lancelot wrote:
> Here is an example using the grid package to annotate the graphs:
> 
> library(lattice)
> library(grid)
> resp  <- rnorm(200)
> group <- sample(c("G1", "G2", "G3"), replace = TRUE, size = 100)
> histogram(~ resp | group,
>   panel = function(x, ...){
>     std <- round(sd(x), 2)
>     n <- length(x)
>     m <- round(mean(x), 2)
>     panel.histogram(x, ...)
>     x1 <- unit(1, "npc") - unit(2, "mm")
>     y1 <- unit(1, "npc") - unit(2, "mm")
>     grid.text(label = bquote(n == .(n)), x = x1, y = y1, just = "right")
>     grid.text(label = bquote(hat(m) == .(m)), x = x1, y = y1 - unit(1,
> "lines"), just = "right")
>     grid.text(label = bquote(hat(s) == .(std)), x = x1, y = y1 -
> unit(2, "lines"), just = "right")
>     })