маркировка сгруппированных баров в 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")