带有ggplot的饼图中的百分比标签

Question

我现在在一个统计项目中工作，最近开始使用 R。我在可视化方面遇到了一些问题。我发现了很多关于如何在饼图中添加百分比标签的不同教程，但经过一小时的尝试，我仍然不明白。也许我的数据框有些不同，所以这不起作用？

这是一个收集了调查答案的数据框，因此我不允许在此处发布它们。有问题的列 (geschäftliche_lage) 是一个具有三个级别（“Gut”、“Bfriedigend”、“Schlecht”）的因子。我想为每个级别添加百分比标签。

我使用以下代码来创建饼图：

dataset %>%
  ggplot(aes(x= "", fill = geschäftliche_lage)) +
  geom_bar(stat= "count", width = 1, color = "white") +
  coord_polar("y", start = 0, direction = -1) +
  scale_fill_manual(values = c("#00BA38", "#619CFF", "#F8766D")) +
  theme_void()

此代码为我提供了所需的饼图，但没有百分比标签。一旦我尝试添加百分比标签，一切都搞砸了。你知道添加百分比标签的简洁代码吗？

如果您需要更多信息或数据，请告诉我！

问候

Answer 1

使用mtcars 作为示例数据。也许这就是您正在寻找的：

library(ggplot2)

ggplot(mtcars, aes(x = "", fill = factor(cyl))) +
  geom_bar(stat= "count", width = 1, color = "white") +
  geom_text(aes(label = scales::percent(..count.. / sum(..count..))), stat = "count", position = position_stack(vjust = .5)) +
  coord_polar("y", start = 0, direction = -1) +
  scale_fill_manual(values = c("#00BA38", "#619CFF", "#F8766D")) +
  theme_void()

^{由reprex package (v0.3.0) 于 2020-05-25 创建}