Urutkan skala x diskrit berdasarkan frekuensi / nilai

Saya membuat diagram batang dodged menggunakan ggplot dengan skala x diskrit, sumbu x sekarang disusun dalam urutan abjad, tetapi saya perlu mengatur ulang sehingga diurutkan berdasarkan nilai sumbu y (yaitu, batang tertinggi akan diposisikan di sebelah kiri).

Saya mencoba memesan atau mengurutkan, tetapi menghasilkan mengurutkan sumbu x, tetapi tidak pada batang masing-masing.

Apa yang telah saya lakukan salah?

Coba atur secara manual tingkat faktor pada sumbu x. Sebagai contoh:

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

Seperti yang ditunjukkan James dalam jawabannya, reorderadalah cara idiomatik untuk menyusun ulang tingkat faktor.

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

Cara terbaik bagi saya adalah menggunakan vektor dengan kategori yang saya butuhkan sebagai limitsparameter scale_x_discrete. Saya pikir ini adalah solusi yang cukup sederhana dan mudah.

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

Anda dapat menggunakan reorder:

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

Edit:

Untuk memiliki palang tertinggi di kiri, Anda harus menggunakan sedikit lumpur:

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

Saya berharap ini juga memiliki ketinggian negatif, tetapi ternyata tidak, jadi berhasil!

Hadley telah mengembangkan sebuah paket bernama forcats. Paket ini membuat tugas jadi lebih mudah. Anda dapat memanfaatkan fct_infreq()saat Anda ingin mengubah urutan sumbu x dengan frekuensi faktor. Dalam kasus mtcarscontoh di posting ini, Anda ingin menyusun ulang tingkat cylberdasarkan frekuensi setiap tingkat. Level yang paling sering muncul tetap di sisi kiri. Yang Anda butuhkan hanyalah fct_infreq().

library(ggplot2)
library(forcats)

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

Jika Anda ingin sebaliknya, Anda dapat menggunakan fct_rev()bersama fct_infreq().

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

Saya menyadari ini sudah lama, tetapi mungkin fungsi yang saya buat ini berguna untuk seseorang di luar sana:

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

Sekarang, dengan fungsi ini Anda dapat membuat plot secara interaktif dengan ggplot2, seperti ini:

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

Seperti yang bisa dilihat, order_axisfungsi membuat kerangka data lain dengan kolom baru bernama sama tetapi dengan a _odi akhir. Kolom baru ini memiliki level dalam urutan menaik, jadi ggplot2 secara otomatis memplot dalam urutan itu.

Ini agak terbatas (hanya berfungsi untuk karakter atau faktor dan kombinasi numerik kolom dan dalam urutan menaik) tetapi saya masih merasa sangat berguna untuk membuat plot saat bepergian.