Bir eksendeki sayıların biçimlendirmesini ggplot ile nasıl değiştiririm?

Bazı verilerin dağılım grafiğini çizmek için R ve ggplot kullanıyorum, y eksenindeki sayıların bilgisayar tarzı üs biçimlendirmesiyle çıkması dışında her şey yolunda, yani 4e + 05, 5e + 05, vb. Bu açıkça. kabul edilemez, bu yüzden onları 500.000, 400.000 vb. olarak göstermesini istiyorum. Uygun bir üs gösterimi elde etmek de kabul edilebilir.

Arsa kodu aşağıdaki gibidir:

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

Herhangi bir yardım çok takdir edilir.

Diğer bir seçenek de, eksen onay etiketlerinizi virgülle biçimlendirmek, paketi kullanmak scalesve

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

ggplot ifadenize.

Paketi yüklemek istemiyorsanız, şunu kullanın:

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

Eksenler üzerinde uygun 'x10 (üst simge) 5' gösterimi veren başka bir yöntem de buldum. Bazıları için yararlı olabileceği umuduyla buraya gönderiyorum. Kodu buradan aldım, bu yüzden haklı olarak Brian Diggs'e ait.

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

Daha sonra hangisini kullanabilirsiniz

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)

Burada oyuna geç kaldım, ancak başkalarının kolay bir çözüm istemesi durumunda, şöyle adlandırılabilecek bir dizi işlev oluşturdum:

 ggplot + scale_x_continuous(labels = human_gbp)

size x veya y eksenleri için insan tarafından okunabilir sayılar (veya genel olarak herhangi bir sayı) verir.

Fonksiyonları burada bulabilirsiniz: Github Repo Fonksiyonları betiğinize kopyalayın, böylece onları çağırabilirsiniz.

Jack Aidley'in önerdiği cevabı faydalı buluyorum.

Başka bir seçenek atmak istedim. Çok sayıda küçük sayı içeren bir seriniz olduğunu ve eksen etiketlerinin tam ondalık noktayı yazdığından emin olmak istediğinizi varsayalım (örneğin 5e-05 -> 0.0005), sonra:

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)