Làm cách nào để thay đổi định dạng số trên một trục bằng ggplot?

Tôi đang sử dụng R và ggplot để vẽ một biểu đồ phân tán một số dữ liệu, tất cả đều ổn ngoại trừ các số trên trục y xuất hiện với định dạng số mũ kiểu máy tính, ví dụ 4e + 05, 5e + 05, v.v. không thể chấp nhận được, vì vậy tôi muốn lấy nó để hiển thị chúng là 500.000, 400.000, v.v. Có được một ký hiệu số mũ thích hợp cũng sẽ được chấp nhận.

Mã cho cốt truyện như sau:

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

Bất kỳ trợ giúp nhiều đánh giá cao.

Một tùy chọn khác là định dạng nhãn đánh dấu trục của bạn bằng dấu phẩy là bằng cách sử dụng gói scalesvà thêm

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

để tuyên bố ggplot của bạn.

Nếu bạn không muốn tải gói, sử dụng:

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

Tôi cũng tìm thấy một cách khác để làm điều này mang lại ký hiệu 'x10 (siêu ký tự) 5' thích hợp trên các trục. Tôi đang đăng nó ở đây với hy vọng nó có thể hữu ích cho một số người. Tôi đã nhận được mã từ đây vì vậy tôi khẳng định không có tín dụng cho nó, điều đó đúng với 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)
}

Mà sau đó bạn có thể sử dụng như

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)

Tôi đến trễ trò chơi ở đây nhưng trong trường hợp những người khác muốn có một giải pháp dễ dàng, tôi đã tạo ra một tập hợp các hàm có thể được gọi là:

 ggplot + scale_x_continuous(labels = human_gbp)

cung cấp cho bạn số người có thể đọc được cho trục x hoặc y (hoặc bất kỳ số nào nói chung thực sự).

Bạn có thể tìm thấy các chức năng ở đây: Github Repo Chỉ cần sao chép các chức năng vào tập lệnh của bạn để bạn có thể gọi chúng.

Tôi thấy câu trả lời gợi ý của Jack Aidley là một câu trả lời hữu ích.

Tôi muốn ném ra một lựa chọn khác. Giả sử bạn có một chuỗi có nhiều số nhỏ và bạn muốn đảm bảo các nhãn trục ghi ra dấu thập phân đầy đủ (ví dụ 5e-05 -> 0,0005), sau đó:

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)