Ordenar barras en el gráfico de barras ggplot2

@ GavinSimpson: reorder es una solución poderosa y efectiva para esto:

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

Usando scale_x_discrete (limits = ...) para especificar el orden de las barras.

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

Creo que las soluciones ya proporcionadas son demasiado detalladas. Una forma más concisa de hacer una gráfica de barras ordenada por frecuencia con ggplot es

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

Es similar a lo que sugirió Alex Brown, pero un poco más corto y funciona sin una definición de función anynymous.

Update

Creo que mi antigua solución era buena en ese momento, pero hoy en día prefiero usar forcats::fct_infreq que es ordenar los niveles de factor por frecuencia:

require(forcats)

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

Solo necesita especificar la columna Position para ser un factor ordenado donde los niveles están ordenados por sus recuentos:

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

(Tenga en cuenta que el table(Position) produce un recuento de frecuencias de la columna Position.)

Entonces su función ggplot mostrará las barras en orden decreciente de conteo. No se si hay una opción en geom_bar para hacer esto sin tener que crear explícitamente un factor ordenado.

Como reorder() en la respuesta de Alex Brown, también podríamos usar forcats::fct_reorder(). Básicamente ordenará los factores especificados en el 1er arg, de acuerdo con los valores en el 2do arg después de aplicar una función especificada (default = median, que es lo que usamos aquí ya que solo tenemos un valor por nivel de factor).

Es una pena que en la pregunta del OP, el orden requerido también sea alfabético, ya que es el orden de clasificación predeterminado cuando crea factores, por lo que ocultará lo que esta función está haciendo realmente. A que quede más claro, voy a reemplazar "Portero"con " 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')

Un simple reordenamiento de factores basado en dplyr puede resolver este problema:

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

Estoy de acuerdo con zach en que contar dentro de dplyr es la mejor solución. He encontrado que esta es la versión más corta:

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

Esto también será significativamente más rápido que reordenar los niveles de factor de antemano, ya que el recuento se realiza en dplyr no en ggplot o utilizando table.

Además De forcats::fct_infreq, mencionado por @HolgerBrandl, está forcats:: fct_rev, que invierte el orden de los factores.

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 las columnas del gráfico provienen de una variable numérica como en el dataframe a continuación, puede usar una solución más simple:

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

El signo menos antes de la variable de ordenación (- Qty) controla la dirección de ordenación (ascendente/descendente)

Aquí hay algunos datos para probar:

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

Cuando encontré este hilo, esa era la respuesta que estaba buscando. Espero que sea útil para otros.