ฉันจะเปลี่ยนการจัดรูปแบบของตัวเลขบนแกนด้วย ggplot ได้อย่างไร

ฉันใช้ R และ ggplot เพื่อวาดรูปกระจายของข้อมูลบางอย่างทั้งหมดใช้ได้ยกเว้นว่าตัวเลขบนแกน y จะออกมาพร้อมกับการจัดรูปแบบเลขชี้กำลังของคอมพิวเตอร์เช่น 4e + 05, 5e + 05 เป็นต้นซึ่งเห็นได้ชัดว่า ยอมรับไม่ได้ดังนั้นฉันต้องการให้แสดงเป็น 500,000, 400,000 และอื่น ๆ การรับสัญกรณ์เลขชี้กำลังที่เหมาะสมก็เป็นที่ยอมรับเช่นกัน

รหัสสำหรับพล็อตมีดังนี้:

p <- ggplot(valids, aes(x=Test, y=Values)) +
  geom_point(position="jitter") +
  facet_grid(. ~ Facet) +
  scale_y_continuous(name="Fluorescent intensity/arbitrary units") +
  scale_x_discrete(name="Test repeat") +
  stat_summary(fun.ymin=median, fun.ymax=median, fun.y=median, geom="crossbar")

ความช่วยเหลือใด ๆ ที่ชื่นชมมาก

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

 scale_y_continuous(name="Fluorescent intensity/arbitrary units", labels = comma)

ไปยังคำสั่ง ggplot ของคุณ

หากคุณไม่ต้องการโหลดแพ็กเกจให้ใช้:

scale_y_continuous(name="Fluorescent intensity/arbitrary units", labels = scales::comma)

ฉันยังพบวิธีอื่นในการทำเช่นนี้ที่ให้สัญลักษณ์ 'x10 (ตัวยก) 5' ที่เหมาะสมบนแกน ฉันโพสต์ไว้ที่นี่ด้วยความหวังว่ามันจะมีประโยชน์กับบางคน ฉันได้รับรหัสจากที่นี่ดังนั้นฉันจึงอ้างว่าไม่มีเครดิตสำหรับมันซึ่งถูกต้องไปที่ Brian Diggs

fancy_scientific <- function(l) {
     # turn in to character string in scientific notation
     l <- format(l, scientific = TRUE)
     # quote the part before the exponent to keep all the digits
     l <- gsub("^(.*)e", "'\\1'e", l)
     # turn the 'e+' into plotmath format
     l <- gsub("e", "%*%10^", l)
     # return this as an expression
     parse(text=l)
}

ซึ่งคุณสามารถใช้เป็น

ggplot(data=df, aes(x=x, y=y)) +
   geom_point() +
   scale_y_continuous(labels=fancy_scientific) 

x <- rnorm(10) * 100000
y <- seq(0, 1, length = 10)
p <- qplot(x, y)
library(scales)
p + scale_x_continuous(labels = comma)

ฉันมาเล่นเกมช้าที่นี่ แต่ในกรณีที่คนอื่นต้องการวิธีแก้ปัญหาที่ง่ายฉันได้สร้างชุดฟังก์ชันที่สามารถเรียกได้ว่า:

 ggplot + scale_x_continuous(labels = human_gbp)

ซึ่งให้ตัวเลขที่มนุษย์อ่านได้สำหรับแกน x หรือ y (หรือตัวเลขใด ๆ โดยทั่วไปจริงๆ)

คุณสามารถค้นหาฟังก์ชันได้ที่นี่: Github Repo เพียงแค่คัดลอกฟังก์ชันในสคริปต์ของคุณเพื่อให้คุณสามารถเรียกใช้งานได้

ฉันพบว่าคำตอบที่แนะนำของ Jack Aidley เป็นคำตอบที่มีประโยชน์

ฉันต้องการที่จะโยนตัวเลือกอื่นออกไป สมมติว่าคุณมีชุดข้อมูลที่มีตัวเลขขนาดเล็กจำนวนมากและคุณต้องการแน่ใจว่าป้ายชื่อแกนเขียนจุดทศนิยมแบบเต็ม (เช่น 5e-05 -> 0.0005) จากนั้น:

NotFancy <- function(l) {
 l <- format(l, scientific = FALSE)
 parse(text=l)
}

ggplot(data = data.frame(x = 1:100, 
                         y = seq(from=0.00005,to = 0.0000000000001,length.out=100) + runif(n=100,-0.0000005,0.0000005)), 
       aes(x=x, y=y)) +
     geom_point() +
     scale_y_continuous(labels=NotFancy)