在geom_bar中标记分组的条

Question

我想使用geom_bar

向一组分组的条形中的各个条形添加标签

sit3 is the data.frame
sit4.long <- melt (sit3)
ggplot(sit4.long, aes(Type, value, fill=variable)) + geom_bar(stat="identity", position = "dodge")