如何在图表中添加条形值？

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")

有没有办法为条形（填充）中的所有值添加值？

Answer 1

p + stat_bin(aes(fill=NA,label=..count..),
            geom="text",vjust=-1)

如果您不想要总数的数字，请忽略fill=NA。