Uporządkuj dyskretną skalę x według częstotliwości / wartości

Robię unikany wykres słupkowy za pomocą ggplot z dyskretną skalą x, osie x są teraz ułożone w kolejności alfabetycznej, ale muszę to zmienić tak, aby był uporządkowany według wartości osi y (tj. Najwyższy słupek będzie być umieszczone po lewej stronie).

Próbowałem uporządkować lub posortować, ale w rezultacie posortowałem oś X, ale nie odpowiednio słupki.

Co zrobiłem źle?

Spróbuj ręcznie ustawić poziomy współczynnika na osi X. Na przykład:

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

Jak zauważył James w swojej odpowiedzi, reorderjest idiomatyczny sposób zmiany kolejności poziomów czynników.

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

Najlepszym sposobem dla mnie było użycie wektora z kategoriami w kolejności, której potrzebuję jako limitsparametru scale_x_discrete. Myślę, że jest to całkiem proste i nieskomplikowane rozwiązanie.

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

Możesz użyć reorder:

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

Edytować:

Aby mieć najwyższy słupek po lewej stronie, musisz użyć trochę kludge:

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

Spodziewałbym się, że będzie to również miało ujemne wysokości, ale tak nie jest, więc działa!

Hadley rozwijał pakiet o nazwie forcats. Ten pakiet znacznie ułatwia zadanie. Możesz to wykorzystać, fct_infreq()gdy chcesz zmienić kolejność osi X o częstotliwość czynnika. W przypadku mtcarsprzykładu w tym poście chcesz zmienić kolejność poziomów cylwedług częstotliwości każdego poziomu. Poziom, który pojawia się najczęściej, pozostaje po lewej stronie. Wszystko, czego potrzebujesz, to fct_infreq().

library(ggplot2)
library(forcats)

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

Jeśli chcesz przejść na odwrót, możesz użyć fct_rev()razem z fct_infreq().

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

Zdaję sobie sprawę, że to jest stare, ale może ta funkcja, którą stworzyłem, przyda się komuś:

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

Teraz dzięki tej funkcji możesz interaktywnie kreślić za pomocą ggplot2, na przykład:

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

Jak widać, order_axisfunkcja tworzy kolejną ramkę danych z nową kolumną o tej samej nazwie, ale z _okońcówką. Ta nowa kolumna ma poziomy w kolejności rosnącej, więc ggplot2 automatycznie kreśli w tej kolejności.

Jest to nieco ograniczone (działa tylko dla kombinacji znaków lub czynników i liczb w kolejności rosnącej), ale nadal uważam, że jest bardzo przydatne do kreślenia w ruchu.