r - グラフにバーの値を追加するには?

Question

週ごとのアラート数のグラフを生成する次の R コードがあります。グラフは見栄えがしますが、バーの正確な値を追加したいと思います。geom_text を使用してこれを実行しようとしましたが、うまくいきません。変数..count..についてはわかりません。それ以外の場合、バーの値を参照する方法もわかりません。

a = c(0, 0, 0, 1, 2, 3, 3, 3)
b = c(1, 1, 0, 0, 1, 1, 1, 1)
sa2 = data.frame(WeekOfYear = a, UrgentState = b, IsUrgent = b)

p <- qplot(factor(WeekOfYear), data=sa2, geom="bar", fill=factor(UrgentState), order=-as.numeric(IsUrgent))
p <- p + geom_bar()
# p <- p + geom_text(aes(label = factor(WeekOfYear), y = ..count..)) THIS DOESN'T WORK
p <- p + ggtitle("Number of alerts per week")
p <- p + scale_x_discrete(name="Week")
p <- p + scale_y_continuous(name="Number of alerts")

バー (塗りつぶし) 内のすべての値の値を追加する方法はありますか?