Encomende escala x discreta por frequência / valor

Estou fazendo um gráfico de barras esquivado usando ggplot com escala x discreta, o eixo x agora está organizado em ordem alfabética, mas preciso reorganizá-lo para que seja ordenado pelo valor do eixo y (ou seja, a barra mais alta será posicionado à esquerda).

Eu tentei ordenar ou classificar, mas resultar na classificação do eixo x, mas não nas barras, respectivamente.

O que eu fiz errado?

Tente definir manualmente os níveis do fator no eixo x. Por exemplo:

library(ggplot2)
# Automatic levels
ggplot(mtcars, aes(factor(cyl))) + geom_bar()    

# Manual levels
cyl_table <- table(mtcars$cyl)
cyl_levels <- names(cyl_table)[order(cyl_table)]
mtcars$cyl2 <- factor(mtcars$cyl, levels = cyl_levels)
# Just to be clear, the above line is no different than:
# mtcars$cyl2 <- factor(mtcars$cyl, levels = c("6","4","8"))
# You can manually set the levels in whatever order you please. 
ggplot(mtcars, aes(cyl2)) + geom_bar()

Como James apontou em sua resposta, reorderé a maneira idiomática de reordenar os níveis dos fatores.

mtcars$cyl3 <- with(mtcars, reorder(cyl, cyl, function(x) -length(x)))
ggplot(mtcars, aes(cyl3)) + geom_bar()

A melhor maneira para mim foi usar vetor com categorias para que eu precise como limitsparâmetro scale_x_discrete. Eu acho que é uma solução bastante simples e direta.

ggplot(mtcars, aes(factor(cyl))) + 
  geom_bar() + 
  scale_x_discrete(limits=c(8,4,6))

Você pode usar reorder:

qplot(reorder(factor(cyl),factor(cyl),length),data=mtcars,geom="bar")

Editar:

Para ter a barra mais alta à esquerda, você deve usar um pouco de clareza:

qplot(reorder(factor(cyl),factor(cyl),function(x) length(x)*-1),
   data=mtcars,geom="bar")

Eu esperaria que isso também tivesse alturas negativas, mas não tem, então funciona!

Hadley está desenvolvendo um pacote chamado forcats. Este pacote facilita muito a tarefa. Você pode explorar fct_infreq()quando quiser alterar a ordem do eixo x pela frequência de um fator. No caso do mtcarsexemplo nesta postagem, você deseja reordenar os níveis cylpela frequência de cada nível. O nível que aparece com mais frequência fica no lado esquerdo. Tudo que você precisa é o fct_infreq().

library(ggplot2)
library(forcats)

ggplot(mtcars, aes(fct_infreq(factor(cyl)))) +
geom_bar() +
labs(x = "cyl")

Se você quiser fazer o contrário, pode usar fct_rev()junto fct_infreq().

ggplot(mtcars, aes(fct_rev(fct_infreq(factor(cyl))))) +
geom_bar() +
labs(x = "cyl") 

Sei que isso é antigo, mas talvez essa função que criei seja útil para alguém por aí:

order_axis<-function(data, axis, column)
{
  # for interactivity with ggplot2
  arguments <- as.list(match.call())
  col <- eval(arguments$column, data)
  ax <- eval(arguments$axis, data)

  # evaluated factors
  a<-reorder(with(data, ax), 
             with(data, col))

  #new_data
  df<-cbind.data.frame(data)
  # define new var
  within(df, 
         do.call("<-",list(paste0(as.character(arguments$axis),"_o"), a)))
}

Agora, com esta função, você pode plotar interativamente com o ggplot2, assim:

ggplot(order_axis(df, AXIS_X, COLUMN_Y), 
       aes(x = AXIS_X_o, y = COLUMN_Y)) +
        geom_bar(stat = "identity")

Como pode ser visto, a order_axisfunção cria outro quadro de dados com uma nova coluna denominada igual, mas com a _ono final. Esta nova coluna possui níveis em ordem crescente, portanto o ggplot2 é automaticamente plotado nessa ordem.

Isso é um pouco limitado (funciona apenas para combinações de caracteres ou fatores e numéricos de colunas e em ordem crescente), mas ainda acho muito útil para plotagem em movimento.