如何使用ggplot geom_bar在堆积列中显示百分比？ [复制]

Question

这个问题在这里已经有了答案：

将百分比标签添加到 ggplot2 中的条形图(1 answer)

如何在 ggplot2 中绘制堆叠条，显示基于组的百分比？ (1 个回答)

1 年前关闭。

我正在尝试在堆积条形图中添加百分比标签。 我可以添加什么到我的 geom_bar 以显示堆叠条内的百分比标签？

这是我的数据：

myresults=data.frame(
    manipulation=rep(c(-20,-10,0,10,20,-20,-10,0,10,20,-20,-10,0,10,20)),
    variable=rep(c("a","a","a","a","a","f","f","f","f","f","l","l","l","l","l")),
    value=c(73,83,76,75,78,261,301,344,451,599,866,816,780,674,523))

这是我的条形图，没有百分比标签。

我对此知之甚少。 我搜索了“gglot 堆积条百分比标签”，发现可以使用“+ geom_text(stat="count")”添加百分比标签。

但是当我将 + geom_text(stat="count") 添加到我的 ggplot geom_bar 时，R 说“错误：stat_count() 不能与任何美学一起使用。” 我试图弄清楚什么是审美，但它并不是很成功。

这就是我所做的：

mydata <- ggplot(myresults, aes(x=manipulation, y=value, fill=variable))

mydata + geom_bar(stat="identity", position="fill", colour="black") + scale_fill_grey() + scale_y_continuous(labels=scales::percent) + theme_bw(base_family="Cambria") + labs(x="Manipulation", y=NULL, fill="Result") + theme(legend.direction="vertical", legend.position="right")

Answer 1

您可以执行类似于接受的答案的操作： 在 ggplot2 中向条形图添加百分比标签。 主要区别在于您的值是堆积的（“堆叠”），而在该示例中它是并排的（“躲避”）

制作一列百分比：

myresults_pct <- myresults %>% 
group_by(manipulation) %>% 
mutate(pct=prop.table(value))

现在我们 plot 这个：

    ggplot(myresults_pct, 
aes(x=manipulation, y=pct,fill=variable)) + 
geom_col()+
scale_fill_grey()+
geom_text(aes(label = scales::percent(pct)),
position="stack",vjust=+2.1,col="firebrick",size=3)+
scale_y_continuous(label = scales::percent)

geom_text 中的重要参数是 position="stacked"，并使用 vjust 来上下移动 label。 （我提前为糟糕的文字颜色道歉..）。

Answer 2

您可以尝试创建几何文本的 position 并将其放在条上：

mydata[, label_ypos := cumsum(value), by = manipulation]

ggplot(myresults, aes(x=manipulation, y=value, fill=variable)) + 
geom_bar(stat="identity", position="fill", colour="black") +
geom_text(aes(y=label_ypos, label= paste(round(rent, 2), '%')), vjust=2, 
        color="white", size=3.5) +
scale_y_continuous(labels = scales::percent) +
labs(x = "Manipulation", y=NULL, fill="Result") +
theme_bw(base_family = "Cambria") +
theme(legend.direction = "vertical", legend.position = "right") +
scale_fill_grey()