以下代码提供了精美的堆积条形图
cls.grp <- gl(n=4,k=20,labels=c("group a","group b","group c", "group d"))
ser <- sample(x=c("neg","pos"),size=80,replace=TRUE, prob=c(30,70))
syrclia <- data.frame(cls.grp,ser)
ggplot(syrclia, aes(cls.grp, fill=ser))+ geom_bar()
我期待使用geom_text或stat_summary,我可以在每个组中标记为负数的百分比,并将其放在相应的栏上.我尝试了许多排列,无法让它发挥作用.我甚至尝试手动输入百分比并强制标签在我想要的地方,但它不起作用.它需要80个标签,而我只想给出4个负数或者8个(如果一个包含百分比标签为正数).
我真的必须制作我的syrclia的聚合数据框并绘制该图吗？