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

Question

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

这是一个收集了调查答案的数据框，因此不允许在此处发布。有问题的列（geschäftliche_lage）是一个具有三个级别的因子（“ Gut”，“ Befriedigend”，“ 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()

<< img src =“ https://image.soinside.com/eyJ1cmwiOiAiaHR0cHM6Ly9pLmltZ3VyLmNvbS9WbWNCUWdvLnBuZyJ9” alt =“”>

^{由reprex package（v0.3.0）在2020-05-25创建}