将标签添加到格子条形图

Question

我想将每个条形的值放在每个条形图顶部的条形图(晶格)中.但是,我找不到任何可以实现此目的的选项.我只能找到轴的选项.

Answer 1

创建自定义面板功能,例如

library("lattice")
p <- barchart((1:10)^2~1:10, horiz=FALSE, ylim=c(0,120),
              panel=function(...) { 
                args <- list(...)
                panel.text(args$x, args$y, args$y, pos=3, offset=1)
                panel.barchart(...)
              })
print(p)