Добавить метки процентов к диаграмме P ie в ggplot2?

Question

Я боролся с попыткой поместить процентные метки на диаграмму ap ie в ggplot2. Я знаю, что это публиковалось много, но я не мог использовать примеры, чтобы заставить мой код работать. Я просто ищу простой и эффективный способ сложить проценты. Спасибо. Код выглядит следующим образом:

    AccidentTypes <-read.csv(file.choose(),header=TRUE,sep=',')

    dput(AccidentTypes)

Вывод:

    '''
    structure(list(X0 = 1:7, AccidType = c("MotorVeh", "Poison", 
    "Drowning", "Fires", "Falls", "Firearms", "Other"), Deaths = c(10547L, 
    942L, 679L, 350L, 258L, 205L, 1074L)), class = "data.frame", row.names = c(NA, 
    -7L))
    '''

Мой код для диаграммы p ie выглядит следующим образом:

   ggplot(AccidentTypes,aes(x="",y=Deaths,fill=AccidType)) +
      geom_bar(stat='identity',width=1,color='white') +
      coord_polar('y',start=0) +
      ggtitle('Mortality Rates from Different Accident Types') +
      theme_void()

Еще раз спасибо, что нашли время посмотреть.

Answer 1

Может быть, вы могли бы попробовать это:

ggplot(AccidentTypes,aes(x="",y=Deaths,fill=AccidType)) +
      geom_bar(stat='identity',width=1,color='white') +
      coord_polar('y',start=0) +
      geom_text(aes(label=percent(Deaths/100)), position = position_stack(vjust=0.5), size= 3.5) +
      ggtitle('Mortality Rates from Different Accident Types') +
      theme_void()

Надеюсь, это поможет вам, держите меня в курсе.