Метки процентов на диаграмме p ie с графиком ggplot

Question

Сейчас я работаю над статистическим проектом и недавно начал с R. У меня проблемы с визуализацией. Я нашел много разных руководств о том, как добавлять процентные метки в диаграммы p ie, но после одного часа попыток я все еще не понял. Может быть, что-то изменилось с моим фреймом данных, и это не сработает?

Это фрейм данных с собранными ответами на опрос, поэтому мне не разрешено публиковать sh их здесь. Рассматриваемый столбец (geschäftliche_lage) представляет собой фактор с тремя уровнями («Кишечник», «Бефридигенд», «Шлехт»). Я хочу добавить процентные метки для каждого уровня.

Я использовал следующий код для создания диаграммы p ie:

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()

Этот код дает мне желаемое p ie диаграмма, но без процентных меток. Как только пытаюсь добавить процентные метки, все лажается. Знаете ли вы чистый код для добавления процентных меток?

Если вам нужна дополнительная информация или данные, просто дайте мне знать!

Приветствую

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()

^{Создано 25.05.2020 с помощью пакета REPEX (v0.3.0 )}