bwplotに平均値をテキストとして追加しますか？

Question

私は、次のデータフレーム

df <- data.frame(y = c(1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000), 
       x = c('1', '1', '2', '2', '1', '1', '2', '2'), 
       panel = c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'B')) 

を持っている私は、次のパネルチャート

に

bwplot(df$y ~ df$x | df$panel, 
     ylab = "bla bla", xlab = "bla bla bla", 
     main = "example", 
     layout = (c(1, 2)), 
) 

をしました。しかし、平均で、テキストとして平均値を追加します。どのように私はこれを解決するのですか？

Answer 1

通常、私はggplot2パッケージを使用すると思いますが、この質問は、格子をタグ付けされているので、ここでは（hereから適応）可能な解決策があります：

library(lattice) 

bwplot(y ~ x | panel, 
     groups = paste(panel, x), # treat each combination of panel 
           # & x values as a distinct group 
     data = df, 
     fill = "white", 
     # col = "white",   # uncomment if you want to hide the dot for mean 
     ylab = "bla bla", 
     xlab = "bla bla bla", 
     layout = c(1, 2), 
     panel = panel.superpose, 
     panel.groups = function(x, y, ...){ 
     panel.bwplot(x, y, ...) 
     xt <- x     # label's x-axis position 
     yt <- mean(y)   # label's x-axis position 
     panel.text(xt, yt, labels = yt) 
     } 
     )