2

如何为 100% 堆叠的条形图（如下图）标记堆栈中的适当值？

# dummy data
dat <- data.frame(
   Banner=c(rep("Company A",5),rep("Company B",5)), 
   Response=factor(c(1:5,1:5)), 
   Proportion=c(10,20,40,20,10,10,30,40,10,10))

dat <- rbind(dat,dat,dat)
dat$Time <- c(rep("Time 1",10),rep("Time 2",10),rep("Time 3",10))

我可以让它绘制，没有标签，没问题：

ggplot(dat, aes(Banner, Proportion, fill=Response)) + 
   geom_bar(position="stack", stat="identity") + 
   facet_grid(~Time)

两个变量的 100% 堆叠条形图

但是，我需要做的是标记每个元素，最好是在元素的中心。我记得看到一个使用 ddply 的函数（我认为这是 Ramnath 的答案），但对于我的生活，我找不到它。

就像是：

dat <- ddply(dat, .(Banner, Time), function(x) {
   x$Pos <- cumsum(x$Proportion) # at top of element, want middle!
   x})
4

0 回答 0