1

我有以下 R 代码，它生成每周警报数量的图表。该图看起来很棒，但我想添加条形的确切值。我一直在尝试使用 geom_text 来做到这一点，但我无法让它工作。它不知道变量 ..count.. 并且我不知道如何引用 bar 的值。

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

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

4

1 回答 1

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

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

于 2013-04-20T09:22:05.580 回答