L'ajout de pourcentage des étiquettes à un graphique à barres de ggplot2

Comment puis-je utiliser geom_text pour ajouter pourcentage des étiquettes sur le dessus de chaque barre ggplot2? Je sais qu'il y a plusieurs questions similaires qui sont déjà répondu. Mais ils utilisent seulement 1 variable catégorielle ou de calculer les pourcentages avant de traçage.
J'ai la suite de l'intrigue:

ggplot(data = mtcars)+
  geom_bar(aes(x = factor(cyl), 
               y = (..count..)/sum(..count..)*100,
               fill = factor(gear)),
           position = "dodge")

Maintenant, je veux ajouter le pourcentage des étiquettes sur le dessus. Si j'utilise y = (..count..)/sum(..count..)*100 dans geom_text, il dit Error in eval(expr, envir, enclos) : object 'count' not found.

OriginalL'auteur umair durrani | 2016-10-25

  1. 20

    Il est plus facile de calculer les quantités dont vous avez besoin à l'avance, en dehors de ggplot, comme il est difficile de suivre ce qu'ggplot calcule et où ces quantités sont stockées et disponibles.

    Tout d'abord, la synthèse des données:

    library(dplyr)

mtcars %>% count(cyl = factor(cyl), gear = factor(gear)) %>% 
    ungroup() %>%    # drop if you want percentages per cylinder
    mutate(pct = prop.table(n) * 100)

## # A tibble: 8 × 4
##      cyl   gear     n    pct
##   <fctr> <fctr> <int>  <dbl>
## 1      4      3     1  3.125
## 2      4      4     8 25.000
## 3      4      5     2  6.250
## 4      6      3     2  6.250
## 5      6      4     4 12.500
## 6      6      5     1  3.125
## 7      8      3    12 37.500
## 8      8      5     2  6.250

    Sauf si vous le souhaitez, ou un tuyau directement dans ggplot:

    mtcars %>% count(cyl = factor(cyl), gear = factor(gear)) %>% 
    ungroup() %>%
    mutate(pct = prop.table(n) * 100) %>% 
    ggplot(aes(x = cyl, y = pct, fill = gear)) + 
    geom_bar(stat = 'identity', position = 'dodge') + 
    geom_text(aes(y = pct + .5,    # nudge above top of bar
                  label = paste0(pct, '%')),    # prettify
              position = position_dodge(width = .9), 
              size = 3)

    L'ajout de pourcentage des étiquettes à un graphique à barres de ggplot2

    Si vous voulez vraiment garder tous les internes de ggplot, vous pouvez utiliser geom_text avec stat = 'count' (ou stat_count avec geom = "text", si vous préférez):

    ggplot(data = mtcars, aes(x = factor(cyl), fill = factor(gear))) +
    geom_bar(aes(y = prop.table(..count..) * 100),
             position = "dodge") + 
    geom_text(aes(y = prop.table(..count..) * 100 + 0.5, 
                  label = paste0(prop.table(..count..) * 100, '%')), 
              stat = 'count', 
              position = position_dodge(.9), 
              size = 3) + 
    labs(x = 'cyl', y = 'pct', fill = 'gear')

    qui retrace exactement la même chose.

    OriginalL'auteur alistaire