ostrando valores de dados no gráfico de barras empilhadas em ggplo

Gostaria de mostrar os valores dos dados no gráfico de barras empilhadas no ggplot2. Aqui está minha tentativa de código

Year      <- c(rep(c("2006-07", "2007-08", "2008-09", "2009-10"), each = 4))
Category  <- c(rep(c("A", "B", "C", "D"), times = 4))
Frequency <- c(168, 259, 226, 340, 216, 431, 319, 368, 423, 645, 234, 685, 166, 467, 274, 251)
Data      <- data.frame(Year, Category, Frequency)
library(ggplot2)
p <- qplot(Year, Frequency, data = Data, geom = "bar", fill = Category,     theme_set(theme_bw()))
p + geom_text(aes(label = Frequency), size = 3, hjust = 0.5, vjust = 3, position =     "stack") 

Gostaria de mostrar esses valores de dados no meio de cada parte. Qualquer ajuda a este respeito será muito apreciada. Obrigad

questionAnswers(2)

yourAnswerToTheQuestion