สั่งซื้อแท่งกราฟแท่ง ggplot2

ฉันกำลังพยายามสร้างกราฟแท่งที่แถบที่ใหญ่ที่สุดใกล้กับแกน y และแถบที่สั้นที่สุดจะไกลที่สุด นี่คือตารางที่ฉันมี

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

ดังนั้นฉันจึงพยายามสร้างกราฟแท่งที่จะแสดงจำนวนผู้เล่นตามตำแหน่ง

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

แต่กราฟจะแสดงแถบผู้รักษาประตูก่อนจากนั้นจะเป็นการป้องกันและในที่สุดก็เป็นกองหน้า ฉันต้องการให้กราฟสั่งให้แถบป้องกันอยู่ใกล้กับแกน y, ผู้รักษาประตูคนหนึ่งและในที่สุดก็เป็นกองหน้า ขอบคุณ

กุญแจสำคัญในการสั่งซื้อคือการกำหนดระดับของปัจจัยตามลำดับที่คุณต้องการ ไม่จำเป็นต้องใช้ปัจจัยสั่ง ข้อมูลเพิ่มเติมในปัจจัยที่จัดเรียงนั้นไม่จำเป็นและหากมีการใช้ข้อมูลเหล่านี้ในแบบจำลองทางสถิติใด ๆ การ parametrisation ที่ไม่ถูกต้องอาจส่งผลให้ - ความแตกต่างของพหุนามไม่เหมาะสมสำหรับข้อมูลที่ระบุเช่นนี้

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

โดยทั่วไปแล้วเราเพียงแค่กำหนดระดับปัจจัยให้อยู่ในลำดับที่ต้องการ หากไม่ระบุรายละเอียดระดับของปัจจัยจะถูกจัดเรียงตามตัวอักษร นอกจากนี้คุณยังสามารถระบุลำดับระดับภายในการเรียกเพื่อแยกปัจจัยตามข้างบนและวิธีอื่น ๆ ก็เป็นไปได้เช่นกัน

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

@GavinSimpson: reorderเป็นโซลูชั่นที่ทรงพลังและมีประสิทธิภาพสำหรับสิ่งนี้:

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

ใช้scale_x_discrete (limits = ...)เพื่อระบุลำดับของแถบ

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

ฉันคิดว่าวิธีแก้ปัญหาที่ให้ไว้นั้นมีความละเอียดมากเกินไป วิธีรัดกุมมากขึ้นในการทำ barplot ที่เรียงลำดับความถี่ด้วย ggplot คือ

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

มันคล้ายกับสิ่งที่ Alex Brown แนะนำ แต่สั้นกว่าเล็กน้อยและทำงานได้โดยไม่ต้องมีคำจำกัดความฟังก์ชันใด ๆ

ปรับปรุง

ฉันคิดว่าวิธีแก้ปัญหาแบบเก่าของฉันทำได้ดีในเวลานั้น แต่ทุกวันนี้ฉันควรใช้forcats::fct_infreqซึ่งเป็นการเรียงลำดับปัจจัยตามความถี่:

require(forcats)

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

เช่นเดียวกับในคำตอบของอเล็กซ์บราวน์เรายังสามารถใช้reorder() forcats::fct_reorder()โดยพื้นฐานแล้วมันจะเรียงลำดับปัจจัยที่ระบุใน ARG 1 ตามค่าใน ARG 2 หลังจากใช้ฟังก์ชั่นที่ระบุ (ค่าเริ่มต้น = ค่ามัธยฐานซึ่งเป็นสิ่งที่เราใช้ที่นี่เพียงแค่มีหนึ่งค่าต่อระดับปัจจัย)

เป็นที่น่าเสียดายที่ในคำถามของ OP ลำดับที่ต้องการนั้นยังเรียงตามตัวอักษรเนื่องจากเป็นลำดับการจัดเรียงเริ่มต้นเมื่อคุณสร้างปัจจัยดังนั้นจะซ่อนสิ่งที่ฟังก์ชันนี้กำลังทำอยู่ เพื่อให้ชัดเจนยิ่งขึ้นฉันจะแทนที่ "ผู้รักษาประตู" ด้วย "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')

การเรียงลำดับตามปัจจัยแบบง่าย ๆ สามารถแก้ไขปัญหานี้ได้:

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

คุณเพียงแค่ต้องระบุPositionคอลัมน์ให้เป็นปัจจัยจัดเรียงที่ระดับจะถูกเรียงลำดับตามการนับ:

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

(โปรดทราบว่าการtable(Position)สร้างความถี่นับของPositionคอลัมน์)

จากนั้นggplotฟังก์ชั่นของคุณจะแสดงแถบในลำดับที่ลดลงของการนับ ฉันไม่ทราบว่ามีตัวเลือกในgeom_barการทำเช่นนี้โดยไม่ต้องสร้างปัจจัยสั่งอย่างชัดเจน

นอกจาก forcats :: fct_infreq ที่กล่าวถึงโดย @HolgerBrandl ยังมี forcats :: fct_rev ซึ่งกลับคำสั่งตัวคูณ

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)             

ฉันเห็นด้วยกับแซคว่าการนับภายใน dplyr เป็นทางออกที่ดีที่สุด ฉันพบสิ่งนี้ว่าเป็นรุ่นที่สั้นที่สุด:

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

นอกจากนี้ยังจะมีความหมายได้เร็วกว่าการจัดเรียงใหม่ระดับปัจจัยก่อนตั้งแต่การนับจะทำใน dplyr ไม่ได้อยู่ใน ggplot tableหรือใช้

หากคอลัมน์แผนภูมิมาจากตัวแปรที่เป็นตัวเลขเช่นเดียวกับใน dataframe ด้านล่างคุณสามารถใช้วิธีที่ง่ายกว่า:

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

เครื่องหมายลบก่อนตัวแปร sort (-Qty) ควบคุมทิศทางการเรียง (ขึ้น / ลง)

นี่คือข้อมูลสำหรับการทดสอบ:

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

เมื่อฉันพบกระทู้นี้นั่นคือคำตอบที่ฉันต้องการ หวังว่ามันจะมีประโยชน์สำหรับคนอื่น ๆ

ทางเลือกอื่นโดยใช้การจัดลำดับใหม่เพื่อสั่งซื้อระดับของปัจจัย เป็นการเรียงจากน้อยไปมาก (n) หรือจากมากไปหาน้อย (-n) ตามจำนวน คล้ายกับที่ใช้fct_reorderจากforcatsแพ็คเกจ:

เรียงลำดับจากมากไปน้อย

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

เรียงลำดับขึ้น

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

กรอบข้อมูล:

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

เนื่องจากเราดูที่การกระจายตัวของตัวแปรเดี่ยว ("ตำแหน่ง") เท่านั้นเมื่อเทียบกับการมองหาความสัมพันธ์ระหว่างสองตัวแปรดังนั้นบางทีฮิสโตแกรมจะเป็นกราฟที่เหมาะสมกว่า ggplot มีgeom_histogram ()ที่ทำให้ง่าย:

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

ใช้ geom_histogram ():

ฉันคิดว่าgeom_histogram ( ) นั้นแปลกไปหน่อยเพราะมันปฏิบัติต่อเนื่องและแยกข้อมูลต่างกัน

สำหรับข้อมูลต่อเนื่องคุณสามารถใช้geom_histogram ()โดยไม่มีพารามิเตอร์ ตัวอย่างเช่นถ้าเราเพิ่มใน "คะแนน" เวกเตอร์ตัวเลข ...

    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

และใช้ geom_histogram () กับตัวแปร "คะแนน" ...

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

สำหรับข้อมูลที่ไม่ต่อเนื่องเช่น "ตำแหน่ง" เราต้องระบุสถิติที่คำนวณโดยสุนทรียศาสตร์เพื่อให้ค่า y สำหรับความสูงของแท่งโดยใช้stat = "count":

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

หมายเหตุ:อยากรู้อยากเห็นและสับสนคุณยังสามารถใช้stat = "count"สำหรับข้อมูลต่อเนื่องได้เช่นกันและฉันคิดว่ามันให้กราฟที่น่าพอใจยิ่งขึ้น

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

การแก้ไข : ขยายคำตอบเพื่อตอบสนองคำแนะนำที่เป็นประโยชน์ของDebanjanB

ฉันพบว่ามันน่ารำคาญมากที่ggplot2ไม่มีวิธีการ 'อัตโนมัติ' สำหรับสิ่งนี้ นั่นเป็นเหตุผลที่ฉันสร้างฟังก์ชั่นในbar_chart()ggcharts

ggcharts::bar_chart(theTable, Position)

ตามค่าเริ่มต้นจะbar_chart()เรียงแท่งและแสดงพล็อตแนวนอน หากต้องการเปลี่ยนชุด horizontal = FALSEนั้น นอกจากนี้bar_chart()จะลบ 'ช่องว่าง' ที่ไม่น่าดูระหว่างแท่งกับแกน