ggplot2：如果位置=“填充”，则在条形图上添加标签

我想在a上添加%数字filled条形图。这是标签位于错误位置的图：

这是数据框：

x0 <- expand.grid(grp    = c("G1","G2")
                 , treat = c("T1","T2")
                 , out   = c("out1","out2","out3","out4")
)
set.seed(1234)
x0$n <- round(runif(16,0,1)*100,0)
head(x0)
  grp treat  out  n
1  G1    T1 out1 11
2  G2    T1 out1 62
3  G1    T2 out1 61
4  G2    T2 out1 62
5  G1    T1 out2 86
6  G2    T1 out2 64

现在，我将组/威胁内的总和添加到数据帧中（使用 SQL，抱歉！）：

x0 <- sqldf(paste("SELECT a.*, (SELECT SUM(n)"
                  ,"            FROM x0 b"
                  ,"            WHERE a.grp = b.grp"
                  ,"                  AND a.treat = b.treat"
                  ,"           ) tot"
                  ," FROM x0 a"
                  ," ORDER BY a.grp,a.treat,a.out"
                  )
            )
x0$p <- with(x0, n/tot)
x0$p2 <- with(x0, paste(formatC(p*100, digits=2
              , format="fg"),"%",sep=""))
head(x0)
  grp treat  out  n tot          p    p2
1  G1    T1 out1 11 192 0.05729167  5.7%
2  G1    T1 out2 86 192 0.44791667   45%
3  G1    T1 out3 67 192 0.34895833   35%
4  G1    T1 out4 28 192 0.14583333   15%
5  G1    T2 out1 61 160 0.38125000   38%
6  G1    T2 out2  1 160 0.00625000 0.62%

这是我得到情节的方式：

ggplot(x0, aes(grp, weight=n)) +
         geom_bar(aes(fill = out), position = "fill") +
         facet_grid(.~treat) +
         scale_y_continuous(labels=percent) +
         geom_text(aes(label=p2, y=p))

我可以向数据框中添加一个具有累积百分比的新变量，但我想知道是否有更简单的方法来添加标签。

为了避免自己创建位置值，您可以使用position = "stack" in geom_text as in 这个问题 https://stackoverflow.com/questions/6644997/showing-data-values-on-stacked-bar-chart-in-ggplot2。正如您在评论中指出的，数据集必须按fill变量以正确的顺序获取堆栈以匹配条形堆栈。

ggplot(x0, aes(grp, weight = n)) +
    geom_bar(aes(fill = out), position = "fill") +
    facet_grid(.~treat) +
    scale_y_continuous(labels=percent) +
    geom_text(aes(label = p2, y=p), position = "stack")

您最终可能需要删除低于特定尺寸的标签，以消除上图中看到的重叠。就像是geom_text(aes(label = ifelse(p < .05, NA, p2), y = p), position = "stack")会删除非常小的值的标签。