Ggplot2 çubuk grafikteki çubukları sipariş et

En büyük çubuğun y eksenine en yakın ve en kısa çubuğun en uzak olacağı bir çubuk grafik yapmaya çalışıyorum. Yani bu benim tablom gibi

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

Bu yüzden pozisyona göre oyuncu sayısını gösteren bir çubuk grafik oluşturmaya çalışıyorum

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

ancak grafikte önce kaleci çubuğu sonra savunmayı ve son olarak forvetini gösterir. Grafiğin, savunma çubuğunun y eksenine, kaleciye ve son olarak forvete en yakın olacağı şekilde sıralanmasını istiyorum. Teşekkürler

Sıralamanın anahtarı, faktörün seviyelerini istediğiniz sıraya göre ayarlamaktır. Sıralı bir faktör gerekli değildir; sıralı bir faktördeki ekstra bilgi gerekli değildir ve bu veriler herhangi bir istatistiksel modelde kullanılıyorsa, yanlış parametreleme meydana gelebilir - polinom kontrastları böyle nominal veriler için doğru değildir.

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

En genel anlamda, faktör düzeylerini istenen sırada olacak şekilde ayarlamamız yeterlidir. Belirtilmezse, bir faktörün düzeyleri alfabetik olarak sıralanacaktır. Faktör çağrısı içinde seviye sırasını yukarıdaki gibi belirtebilirsiniz ve başka yollar da mümkündür.

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

@GavinSimpson: reorderbunun için güçlü ve etkili bir çözümdür:

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

scale_x_discrete (limits = ...)Çubukların sırasını belirtmek için kullanılır .

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

Zaten sağlanan çözümlerin aşırı ayrıntılı olduğunu düşünüyorum. Ggplot ile frekans sıralı bir barplot yapmanın daha kısa bir yolu

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

Alex Brown'un önerdiğine benzer, ancak biraz daha kısa ve anonim bir işlev tanımı olmadan çalışır.

Güncelleme

Eski çözümümün o zaman iyi olduğunu düşünüyorum, ancak günümüzde forcats::fct_infreqfaktör seviyelerini frekansa göre sıralamayı tercih ediyorum :

require(forcats)

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

Gibi reorder()Alex Brown'un yanıtında, biz de kullanabiliriz forcats::fct_reorder(). Temel olarak, belirli bir işlevi uyguladıktan sonra 2. bağımsız değişkendeki değerlere göre 1. bağımsız değişkende belirtilen faktörleri sıralar (varsayılan = medyan, burada kullandığımız faktör düzeyi başına sadece bir değer vardır).

OP sorusunda, gerekli sıranın alfabetik olduğu için faktörler oluşturduğunuzda varsayılan sıralama düzeni olduğu için bir utançtır, bu nedenle bu işlevin gerçekte ne yaptığını gizleyecektir. Daha açık bir ifade için, "Kaleci" nin yerine "Zoalkeeper" yazacağım.

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

Basit bir dplyr tabanlı faktörlerin yeniden sıralanması bu sorunu çözebilir:

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

PositionSütunu , düzeylerin sayılarına göre sıralandığı sıralı bir faktör olarak belirtmeniz gerekir :

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

( Sütunun table(Position)bir frekans sayımı ürettiğini unutmayın Position.)

Ardından ggplotişleviniz çubukları azalan sırayla gösterecektir. geom_barAçıkça sıralı bir faktör oluşturmak zorunda kalmadan bunu yapmak için bir seçenek olup olmadığını bilmiyorum .

@HolgerBrandl tarafından belirtilen forcats :: fct_infreq'e ek olarak, faktör sırasını tersine çeviren forcats :: fct_rev vardır.

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)             

Ben dplyr içinde saymanın en iyi çözüm olduğunu zach ile aynı fikirdeyim. Bunu en kısa versiyon olarak buldum:

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

Sayım ggplot'ta veya kullanımda değil dplyr'de yapıldığından, bu, faktör düzeylerini önceden yeniden sıralamaktan önemli ölçüde daha hızlı olacaktır table.

Grafik sütunları aşağıdaki veri çerçevesinde olduğu gibi sayısal bir değişkenden geliyorsa, daha basit bir çözüm kullanabilirsiniz:

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

Sıralama değişkeninden önceki eksi işareti (-Qty) sıralama yönünü kontrol eder (artan / azalan)

Test için bazı veriler:

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

Bu konuyu bulduğumda aradığım cevap buydu. Umarım başkaları için yararlıdır.

Bir faktörün seviyelerini sıralamak için yeniden sıralamayı kullanan başka bir alternatif . Sayıya göre artan (n) veya azalan sırada (-n). Kullanarak birine çok benzer fct_reordergelen forcatspaketin:

Azalan sipariş

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

Artan düzen

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

Veri çerçevesi:

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

Sadece bir dağılımına aradığımızdan tek bir değişken ilişkisine bakarak karşı ( "pozisyon") iki değişken , belki de bir histogramı daha uygun grafik olacaktır. ggplot, geom_histogram () yöntemini kolaylaştırır:

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

Geom_histogram () kullanma:

Sürekli ve ayrık verileri farklı şekilde ele aldığı için geom_histogram ( ) biraz tuhaf olduğunu düşünüyorum .

İçin sürekli veri , sadece kullanabilirsiniz geom_histogram () hiçbir parametrelerle. Örneğin, sayısal bir "Skor" vektörü eklersek ...

    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

ve "Score" değişkeninde geom_histogram () kullanın ...

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

İçin ayrı veri "pozisyon" gibi kullandığımız bar yüksekliği için y değerini vermek üzere estetik hesaplanan hesaplanan istatistik belirtmek gerekir stat = "count":

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

Not: Meraklı ve kafa karıştırıcı bir şekilde stat = "count"sürekli veriler için de kullanabilirsiniz ve bence daha estetik açıdan hoş bir grafik sağlıyor.

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

Düzenlemeler : DebanjanB'in yararlı önerilerine yanıt olarak genişletilmiş yanıt .

Bunun ggplot2için 'otomatik' bir çözüm sunmayan çok can sıkıcı buldum . Bu yüzden bar_chart()içinde fonksiyonu yarattım ggcharts.

ggcharts::bar_chart(theTable, Position)

Varsayılan bar_chart()olarak çubukları sıralar ve yatay bir grafik görüntüler. Bu seti değiştirmek için horizontal = FALSE. Ek olarak, bar_chart()çubuklar ve eksen arasındaki çirkin 'boşluğu' kaldırır.