r - 棒グラフの下部にラベルを追加する

Question

私はラティスにまったく慣れていないので、ここで試行錯誤を繰り返しています。

ラティス グラフィックスのカスタマイズは、典型的な r の理解ではできないようです。

count(percentage)完了すると次のようになるはずの各バーの下に、次のようなものを追加したいと思います。

ご覧のとおり、私のコードはバーに正しいラベルを付けていません。それらのすべてではなく、間違っています。最初は 20(0.1%) のはずです。

ここに私のコード：

grp1<-rep("grp1",20)
grp2<-rep("grp2",40)
grp3<-rep("grp3",60)
grp4<-rep("grp4",80)
grp <- c(grp1,grp2,grp3,grp4)

barchart(grp,horizontal=F, 
    par.settings = list(
    plot.polygon = list(col = c("#1E4150","#28556E","#32698C","#3C7DAA")) ),
        panel = function(x, y, subscripts, ...){  
            X <- table(x)
            panel.barchart(x,y,...) 
            percentages <- paste(round(table(X)/length(X),2),"%",sep="")
            lab1 <- paste( "(",percentages, sep="")
            lab1 <- paste( lab1,")", sep="")
            abs <- table(X)
            panel.text(1,-3, label = paste(abs,lab1), cex=0.8)
        } 
)