各位好：
有以下程序
names1<-c("1","2","3","4")
jihua<-c(10,50,20,50)
shiji<-c(40,90,100,110)
shuju<-rbind(jihua,shiji)
colnames(shuju)<-names1
barplot((shuju),beside=TRUE)

生成图形如下：


想在1对应的条形图黑色的正上方标注为10,灰色的正上方标注为40，
2对应的条形图黑色的正上方标注为50,灰色的正上方标注为90，
后面两个依次类推，怎么处理？
谢谢！