สั่งสเกล x แบบไม่ต่อเนื่องตามความถี่ / ค่า

ฉันกำลังสร้างแผนภูมิแท่งแบบหลบโดยใช้ ggplot ที่มีมาตราส่วน x แบบไม่ต่อเนื่องตอนนี้แกน x ถูกจัดเรียงตามลำดับตัวอักษร แต่ฉันต้องจัดเรียงใหม่เพื่อให้เรียงลำดับตามค่าของแกน y (เช่นแถบที่สูงที่สุดจะ อยู่ทางซ้าย)

ฉันลองเรียงลำดับหรือเรียงลำดับ แต่ผลลัพธ์ในการจัดเรียงแกน x แต่ไม่ใช่แถบตามลำดับ

ฉันทำอะไรผิด?

ลองตั้งค่าระดับของปัจจัยบนแกน x ด้วยตนเอง ตัวอย่างเช่น:

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

ดังที่เจมส์ชี้ให้เห็นในคำตอบของเขาreorderเป็นวิธีการเรียงลำดับระดับปัจจัยใหม่อย่างเป็นสำนวน

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

วิธีที่ดีที่สุดสำหรับผมใช้เวกเตอร์ที่มีหมวดหมู่เพื่อที่ฉันจะต้องเป็นพารามิเตอร์limits scale_x_discreteฉันคิดว่ามันเป็นวิธีแก้ปัญหาที่ค่อนข้างง่ายและตรงไปตรงมา

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

คุณสามารถใช้reorder:

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

แก้ไข:

หากต้องการให้แถบที่สูงที่สุดทางด้านซ้ายคุณต้องใช้กากตะกอนเล็กน้อย:

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

ฉันคาดหวังว่าสิ่งนี้จะมีความสูงติดลบ แต่ก็ไม่ได้ผล!

Hadley ได้พัฒนาแพ็คเกจที่เรียกว่าforcats. แพ็คเกจนี้ทำให้งานง่ายขึ้นมาก คุณสามารถใช้ประโยชน์ได้fct_infreq()เมื่อคุณต้องการเปลี่ยนลำดับของแกน x ตามความถี่ของปัจจัย ในกรณีของmtcarsตัวอย่างในโพสต์นี้คุณต้องการจัดลำดับระดับใหม่cylตามความถี่ของแต่ละระดับ ระดับที่ปรากฏบ่อยที่สุดจะอยู่ทางด้านซ้าย สิ่งที่คุณต้องมีคือfct_infreq().

library(ggplot2)
library(forcats)

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

ถ้าคุณอยากจะไปทางรอบอื่น ๆ ที่คุณสามารถใช้พร้อมกับfct_rev()fct_infreq()

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

ฉันรู้ว่ามันเก่า แต่ฟังก์ชั่นนี้ที่ฉันสร้างขึ้นอาจมีประโยชน์กับใครบางคน:

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

ตอนนี้ด้วยฟังก์ชั่นนี้คุณสามารถพล็อตเชิงโต้ตอบกับ ggplot2 ได้ดังนี้:

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

ดังที่เห็นได้order_axisฟังก์ชั่นจะสร้างดาต้าเฟรมขึ้นมาใหม่โดยมีคอลัมน์ใหม่ที่ชื่อเหมือนกัน แต่_oอยู่ท้าย คอลัมน์ใหม่นี้มีระดับจากน้อยไปมากดังนั้น ggplot2 จะลงจุดโดยอัตโนมัติตามลำดับนั้น

สิ่งนี้ค่อนข้าง จำกัด (ใช้ได้เฉพาะกับอักขระหรือตัวประกอบและการผสมตัวเลขของคอลัมน์และเรียงลำดับจากน้อยไปหามาก) แต่ฉันยังพบว่ามีประโยชน์มากสำหรับการวางแผนระหว่างเดินทาง