如何计算和绘制堆叠条形图的百分比标签以及条形图的总数？

Question

我正在R中尝试绘制堆叠条形图中每个条形的百分比标签，如果您看到第一个条形，则百分比之和为28％，而不是我正在寻找的100％。第一栏应为72％，14％，14％，第二栏为11％，67％，22％，第三栏为56％，11％，33％。

堆叠的条形结果图像：

这是我正在使用的带有伪数据的代码

df1 <- data.frame(ID = c(1, 2, 3, 4, 5),var1 = c('a', 'b', 'c', 'b', 'a','a', 'b', 'c', 'a', 'b','a', 'c', 'a', 'a', 'c','a', 'b', 'c', 'a', 'b','a', 'a', 'c', 'b', 'b'),var2 = c('l', 'm', 's', 'm', 's','l', 'm', 's', 's', 's','l', 'm', 's', 's', 'l','l', 'm', 's', 's', 'm','l', 'm', 'm', 'm', 'l'))

rs <- factor(df1$var1,levels = c("a","b","c"))

cs <- factor(df1$var2, levels = c("l","m","s"))

ggplot(df1, aes(cs, fill = rs)) + geom_bar() + 
    labs( x="", y="", title="", fill ="x") + ####LABELS
    theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),panel.background = element_blank(), axis.line = element_line(colour = "black")) + ####BACKGROUND
    geom_text(aes(label=..count.., group = cs),stat = "count", position = position_stack(1.05))+
    geom_text(aes(label=scales::percent(..count../sum(..count..))), stat='count',position=position_stack(0.5)) 

我尝试添加以下行，因为..count ..给了我堆栈的值，例如var1：a，var2：l = 5和..count ..，group = cs给了我堆叠的条的总数，在这种情况下，条l = 7，但这不起作用。

+geom_text(aes(label=scales::percent(..count../..count..,group = cs)), stat='count',position=position_stack(0.5))

感谢您的帮助。

Answer 1

如果您可以预先计算要显示的内容，则可能会更简单。一种方法可能是

library(dplyr)
library(ggplot2)

df1 %>%
  count(var2, var1) %>%
  group_by(var2) %>%
  mutate(n1 = paste0(round(n/sum(n) * 100), "%")) %>%
  ggplot() + aes(var2, n, fill = var1) + 
  geom_col(width = .7) + 
  geom_text(aes(label = n1), position = position_stack(vjust = 0.5), size = 5)