Bagaimana cara mengubah format angka pada sumbu dengan ggplot?

Saya menggunakan R dan ggplot untuk menggambar sebar data, semua baik-baik saja kecuali bahwa angka pada sumbu y keluar dengan format eksponen gaya komputer, yaitu 4e + 05, 5e + 05, dll. Ini jelas tidak dapat diterima, jadi saya ingin menampilkannya sebagai 500.000, 400.000, dan sebagainya. Mendapatkan notasi eksponen yang tepat juga dapat diterima.

Kode untuk plot adalah sebagai berikut:

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

Setiap bantuan sangat dihargai.

Pilihan lain adalah memformat label centang sumbu Anda dengan koma adalah dengan menggunakan paket scales, dan tambahkan

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

untuk pernyataan ggplot Anda.

Jika Anda tidak ingin memuat paket, gunakan:

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

Saya juga menemukan cara lain untuk melakukan ini yang memberikan notasi 'x10 (superscript) 5' yang tepat pada sumbu. Saya mempostingnya di sini dengan harapan mungkin bermanfaat bagi sebagian orang. Saya mendapat kode dari sini jadi saya mengklaim tidak ada kredit untuk itu, yang benar berlaku untuk 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)
}

Yang kemudian dapat Anda gunakan sebagai

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)

Saya terlambat ke permainan di sini, tetapi kalau-kalau ada yang ingin solusi mudah, saya membuat satu set fungsi yang bisa disebut seperti:

 ggplot + scale_x_continuous(labels = human_gbp)

yang memberi Anda angka yang dapat dibaca manusia untuk sumbu x atau y (atau angka apa pun secara umum sebenarnya).

Anda dapat menemukan fungsinya di sini: Github Repo Cukup salin fungsi ke skrip Anda sehingga Anda dapat memanggilnya.

Saya menemukan jawaban yang disarankan Jack Aidley adalah yang bermanfaat.

Saya ingin membuang opsi lain. Misalkan Anda memiliki seri dengan banyak angka kecil, dan Anda ingin memastikan label sumbu menuliskan titik desimal penuh (mis. 5e-05 -> 0,0005), maka:

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)