Barres d'ordres dans le graphe à barres ggplot2

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

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

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

je pense que les solutions déjà fournies sont trop verbeuses. Une façon plus concise de faire un barplot de fréquence trié avec ggplot est

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

c'est similaire à ce Qu'Alex Brown a suggéré, mais un peu plus court et fonctionne sans une définition de fonction quelconque.

mise à Jour

je pense que mon ancienne solution était bonne à l'époque, mais de nos jours je préfère utiliser forcats::fct_infreq qui est facteur de tri niveaux par fréquence:

require(forcats)

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

vous avez juste besoin de préciser que la colonne Position est un facteur ordonné où les niveaux sont ordonnés par leurs comptes:

theTable <- transform( theTable,
       Position = ordered(Position, levels = names( sort(-table(Position)))))

(notez que le table(Position) produit un comptage de fréquence de la colonne Position .)

alors votre fonction ggplot affichera les barres dans l'ordre décroissant du nombre. Je ne sais pas s'il y a une option dans geom_bar pour le faire sans avoir à créer explicitement un commandé facteur.

comme reorder() dans la réponse D'Alex Brown, nous pourrions aussi utiliser forcats::fct_reorder() . Il va essentiellement trier les facteurs spécifiés dans le 1er arg, en fonction des valeurs dans le 2e arg après l'application d'une fonction spécifiée (par défaut = médiane, qui est ce que nous utilisons ici que juste une valeur par niveau de facteur).

c'est une honte que dans la question de L'OP, l'ordre requis est aussi alphabétique car c'est l'ordre de tri par défaut quand vous créez des facteurs, alors va cacher ce que cette fonction est en train de faire. Pour être plus clair, je vais remplacer "gardien de but" 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')

une simple réorganisation des facteurs basée sur dplyr peut résoudre ce problème:

library(dplyr)

#reorder the table and reset the factor to that ordering
theTable %>%
  group_by(Position) %>%                              # calculate the counts
  summarize(counts = n()) %>%
  arrange(-counts) %>%                                # sort by counts
  mutate(Position = factor(Position, Position)) %>%   # reset factor
  ggplot(aes(x=Position, y=counts)) +                 # plot 
    geom_bar(stat="identity")                         # plot histogram

je suis d'accord avec zach que Compter dans dplyr est la meilleure solution. J'ai trouvé que c'était la version la plus courte:

dplyr::count(theTable, Position) %>%
          arrange(-n) %>%
          mutate(Position = factor(Position, Position)) %>%
          ggplot(aes(x=Position, y=n)) + geom_bar(stat="identity")

ce sera également beaucoup plus rapide que la réorganisation des niveaux de facteur à l'avance puisque le compte est fait en dplyr pas en ggplot ou en utilisant table .

en plus des forcats:: fct_infreq, mentionné par @Holgebrandl, il y a forcats::fct_rev, qui inverse l'ordre des facteurs.

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

p1 <- ggplot(theTable, aes(x = Position)) + geom_bar()
p2 <- ggplot(theTable, aes(x = fct_infreq(Position))) + geom_bar()
p3 <- ggplot(theTable, aes(x = fct_rev(fct_infreq(Position)))) + geom_bar()

gridExtra::grid.arrange(p1, p2, p3, nrow=3)             

si les colonnes du diagramme proviennent d'une variable numérique comme dans le cadre de données ci-dessous, vous pouvez utiliser une solution plus simple:

ggplot(df, aes(x = reorder(Colors, -Qty, sum), y = Qty)) 
+ geom_bar(stat = "identity")  

le signe moins avant la variable de tri (- Qty) contrôle le sens de Tri (ascendant / descendant)

voici quelques données pour les tests:

df <- data.frame(Colors = c("Green","Yellow","Blue","Red","Yellow","Blue"),  
                 Qty = c(7,4,5,1,3,6)
                )

**Sample data:**
  Colors Qty
1  Green   7
2 Yellow   4
3   Blue   5
4    Red   1
5 Yellow   3
6   Blue   6

Quand j'ai trouvé ce fil, c'était la réponse que je cherchais. J'espère que c'est utile pour les autres.