Pesan Bar dalam grafik batang ggplot2

Saya mencoba membuat grafik batang di mana batang terbesar akan terdekat dengan sumbu y dan batang terpendek akan menjadi yang terjauh. Jadi ini seperti Tabel yang saya miliki

    Name   Position
1   James  Goalkeeper
2   Frank  Goalkeeper
3   Jean   Defense
4   Steve  Defense
5   John   Defense
6   Tim    Striker

Jadi saya mencoba membuat grafik batang yang akan menunjukkan jumlah pemain sesuai dengan posisi

p <- ggplot(theTable, aes(x = Position)) + geom_bar(binwidth = 1)

tetapi grafik menunjukkan bar kiper pertama kemudian pertahanan, dan akhirnya striker. Saya ingin grafik dipesan sehingga bar pertahanan paling dekat dengan sumbu y, kiper, dan akhirnya striker. Terima kasih

Kuncinya dengan pemesanan adalah mengatur level faktor dalam urutan yang Anda inginkan. Faktor yang dipesan tidak diperlukan; informasi tambahan dalam faktor yang dipesan tidak diperlukan dan jika data ini digunakan dalam model statistik apa pun, parametrisasi yang salah dapat terjadi - perbedaan polinomial tidak sesuai untuk data nominal seperti ini.

## set the levels in order we want
theTable <- within(theTable, 
                   Position <- factor(Position, 
                                      levels=names(sort(table(Position), 
                                                        decreasing=TRUE))))
## plot
ggplot(theTable,aes(x=Position))+geom_bar(binwidth=1)

Dalam pengertian yang paling umum, kita hanya perlu mengatur level faktor sesuai urutan yang diinginkan. Jika dibiarkan tidak ditentukan, level faktor akan diurutkan berdasarkan abjad. Anda juga dapat menentukan urutan level dalam panggilan ke faktor seperti di atas, dan cara lain juga dimungkinkan.

theTable$Position <- factor(theTable$Position, levels = c(...))

@GavinSimpson: reorderadalah solusi yang kuat dan efektif untuk ini:

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

Menggunakan scale_x_discrete (limits = ...)untuk menentukan urutan bilah.

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

Saya pikir solusi yang sudah disediakan terlalu bertele-tele. Cara yang lebih ringkas untuk melakukan barplot frekuensi diurutkan dengan ggplot adalah

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

Ini mirip dengan apa yang disarankan Alex Brown, tetapi sedikit lebih pendek dan berfungsi tanpa definisi fungsi apa pun.

Memperbarui

Saya pikir solusi lama saya bagus pada saat itu, tetapi saat ini saya lebih suka menggunakan forcats::fct_infreqyang menyortir tingkat faktor berdasarkan frekuensi:

require(forcats)

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

Seperti reorder()pada jawaban Alex Brown, kita juga bisa menggunakan forcats::fct_reorder(). Ini pada dasarnya akan mengurutkan faktor-faktor yang ditentukan dalam argumen 1, sesuai dengan nilai-nilai dalam argumen 2 setelah menerapkan fungsi yang ditentukan (default = median, yang kita gunakan di sini hanya memiliki satu nilai per tingkat faktor).

Sangat memalukan bahwa dalam pertanyaan OP, pesanan yang diperlukan juga alfabet karena itu adalah urutan penyortiran default saat Anda membuat faktor, sehingga akan menyembunyikan apa yang sebenarnya dilakukan fungsi ini. Untuk membuatnya lebih jelas, saya akan mengganti "Kiper" dengan "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')

Penataan ulang faktor berdasarkan dplyr sederhana dapat memecahkan masalah ini:

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

Anda hanya perlu menentukan Positionkolom untuk menjadi faktor yang dipesan di mana level dipesan berdasarkan jumlah mereka:

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

(Perhatikan bahwa table(Position)menghasilkan penghitungan frekuensi Positionkolom.)

Maka ggplotfungsi Anda akan menampilkan bar dalam mengurangi urutan hitungan. Saya tidak tahu apakah ada opsi geom_baruntuk melakukan ini tanpa harus secara eksplisit membuat faktor yang dipesan.

Selain forcats :: fct_infreq, disebutkan oleh @HolgerBrandl, ada forcats :: fct_rev, yang membalik urutan faktor.

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)             

Saya setuju dengan zach bahwa menghitung dalam dplyr adalah solusi terbaik. Saya menemukan ini sebagai versi terpendek:

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

Ini juga akan secara signifikan lebih cepat daripada menata ulang tingkat faktor sebelumnya karena penghitungan dilakukan dalam dplyr bukan di ggplot atau menggunakan table.

Jika kolom bagan berasal dari variabel numerik seperti dalam kerangka data di bawah, Anda dapat menggunakan solusi yang lebih sederhana:

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

Tanda minus sebelum variabel sortir (-Qty) mengontrol arah sortir (naik / turun)

Berikut beberapa data untuk pengujian:

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

Ketika saya menemukan utas ini, itulah jawaban yang saya cari. Semoga bermanfaat bagi orang lain.

Alternatif lain menggunakan pemesanan ulang untuk memesan tingkat faktor. Dalam urutan naik (n) atau menurun (-n) berdasarkan hitungan. Sangat mirip dengan yang menggunakan fct_reorderdari forcatspaket:

Urutan menurun

df %>%
  count(Position) %>%
  ggplot(aes(x = reorder(Position, -n), y = n)) +
  geom_bar(stat = 'identity') +
  xlab("Position")

Urutan naik

df %>%
  count(Position) %>%
  ggplot(aes(x = reorder(Position, n), y = n)) +
  geom_bar(stat = 'identity') +
  xlab("Position")

Bingkai data:

df <- structure(list(Position = structure(c(3L, 3L, 1L, 1L, 1L, 2L), .Label = c("Defense", 
"Striker", "Zoalkeeper"), class = "factor"), Name = structure(c(2L, 
1L, 3L, 5L, 4L, 6L), .Label = c("Frank", "James", "Jean", "John", 
"Steve", "Tim"), class = "factor")), class = "data.frame", row.names = c(NA, 
-6L))

Karena kita hanya melihat distribusi variabel tunggal ("Posisi") yang bertentangan dengan melihat hubungan antara dua variabel , maka mungkin histogram akan menjadi grafik yang lebih tepat. ggplot memiliki geom_histogram () yang memudahkan:

ggplot(theTable, aes(x = Position)) + geom_histogram(stat="count")

Menggunakan geom_histogram ():

Saya pikir geom_histogram ( ) sedikit aneh karena memperlakukan data kontinu dan berbeda.

Untuk data kontinu , Anda bisa menggunakan geom_histogram () tanpa parameter. Misalnya, jika kita menambahkan vektor "Skor" numerik ...

    Name   Position   Score  
1   James  Goalkeeper 10
2   Frank  Goalkeeper 20
3   Jean   Defense    10
4   Steve  Defense    10
5   John   Defense    20
6   Tim    Striker    50

dan gunakan geom_histogram () pada variabel "Skor" ...

ggplot(theTable, aes(x = Score)) + geom_histogram()

Untuk data diskrit seperti "Posisi", kita harus menentukan statistik terhitung yang dihitung oleh estetika untuk memberikan nilai y untuk ketinggian batang menggunakan stat = "count":

 ggplot(theTable, aes(x = Position)) + geom_histogram(stat = "count")

Catatan: Aneh dan membingungkan Anda juga dapat menggunakan stat = "count"untuk data kontinu dan saya pikir ini memberikan grafik yang lebih estetis.

ggplot(theTable, aes(x = Score)) + geom_histogram(stat = "count")

Suntingan : Jawaban yang diperluas untuk menanggapi saran DebanjanB yang bermanfaat.

Saya merasa sangat menjengkelkan yang ggplot2tidak menawarkan solusi 'otomatis' untuk ini. Itu sebabnya saya membuat bar_chart()fungsi di ggcharts.

ggcharts::bar_chart(theTable, Position)

Secara default bar_chart()menyortir bilah dan menampilkan plot horizontal. Untuk mengubah set itu horizontal = FALSE. Selain itu, bar_chart()menghilangkan 'celah' yang tidak sedap dipandang antara batang dan sumbu.