Ordre des barres dans le graphique à barres de ggplot2

Question

J'essaie de créer un graphique à barres où la barre la plus grande serait la plus proche de l'axe des y et la barre la plus courte la plus éloignée. C'est un peu comme le tableau que je possède

    Name   Position
1   James  Goalkeeper
2   Frank  Goalkeeper
3   Jean   Defense
4   Steve  Defense
5   John   Defense
6   Tim    Striker

J'essaie donc de construire un graphique à barres qui montrerait le nombre de joueurs en fonction de leur position.

p <- ggplot(theTable, aes(x = Position)) + geom_bar(binwidth = 1)

mais le graphique montre d'abord la barre du gardien, puis celle de la défense, et enfin celle de l'attaquant. Je voudrais que le graphique soit ordonné de manière à ce que la barre de la défense soit la plus proche de l'axe des y, puis celle du gardien de but et enfin celle de l'attaquant. Merci

Answer 1

@GavinSimpson : reorder est une solution puissante et efficace pour cela :

ggplot(theTable,
       aes(x=reorder(Position,Position,
                     function(x)-length(x)))) +
       geom_bar()

Answer 2

La clé de la commande est de définir les niveaux du facteur dans l'ordre que vous souhaitez. Un facteur ordonné n'est pas nécessaire ; les informations supplémentaires dans un facteur ordonné ne sont pas nécessaires et si ces données sont utilisées dans un modèle statistique, une mauvaise paramétrisation pourrait en résulter - les contrastes polynomiaux ne sont pas appropriés pour des données nominales comme celles-ci.

## set the levels in order we want
theTable <- within(theTable, 
                   Position <- factor(Position, 
                                      levels=names(sort(table(Position), 
                                                        decreasing=TRUE))))
## plot
ggplot(theTable,aes(x=Position))+geom_bar(binwidth=1)

Dans le sens le plus général, il suffit de régler les niveaux de facteurs pour qu'ils soient dans l'ordre souhaité. Si rien n'est spécifié, les niveaux d'un facteur seront triés par ordre alphabétique. Vous pouvez également spécifier l'ordre des niveaux dans l'appel au facteur comme ci-dessus, et d'autres façons sont également possibles.

theTable$Position <- factor(theTable$Position, levels = c(...))

Answer 3

Utilisation de scale_x_discrete (limits = ...) pour spécifier l'ordre des barres.

positions <- c("Goalkeeper", "Defense", "Striker")
p <- ggplot(theTable, aes(x = Position)) + scale_x_discrete(limits = positions)

Answer 4

Je pense que les solutions déjà fournies sont trop verbeuses. Une façon plus concise de faire un graphique en barres trié par fréquence avec ggplot est la suivante

ggplot(theTable, aes(x=reorder(Position, -table(Position)[Position]))) + geom_bar()

Elle est similaire à celle proposée par Alex Brown, mais un peu plus courte et fonctionne sans définition de fonction quelconque.

Mise à jour

Je pense que mon ancienne solution était bonne à l'époque, mais aujourd'hui je préfère utiliser forcats::fct_infreq qui consiste à trier les niveaux de facteurs par fréquence :

require(forcats)

ggplot(theTable, aes(fct_infreq(Position))) + geom_bar()

Answer 5

Comme reorder() dans la réponse d'Alex Brown, on pourrait aussi utiliser forcats::fct_reorder() . Il va essentiellement trier les facteurs spécifiés dans le 1er arg, selon les valeurs dans le 2ème arg après avoir appliqué une fonction spécifiée (par défaut = médiane, qui est ce que nous utilisons ici car nous avons juste une valeur par niveau de facteur).

Il est dommage que dans la question de l'OP, l'ordre requis soit également alphabétique, car c'est l'ordre de tri par défaut lorsque vous créez des facteurs, ce qui masque ce que cette fonction fait réellement. Pour que ce soit plus clair, je vais remplacer "Goalkeeper" par "Zoalkeeper".

library(tidyverse)
library(forcats)

theTable <- data.frame(
                Name = c('James', 'Frank', 'Jean', 'Steve', 'John', 'Tim'),
                Position = c('Zoalkeeper', 'Zoalkeeper', 'Defense',
                             'Defense', 'Defense', 'Striker'))

theTable %>%
    count(Position) %>%
    mutate(Position = fct_reorder(Position, n, .desc = TRUE)) %>%
    ggplot(aes(x = Position, y = n)) + geom_bar(stat = 'identity')