Como altero a formatação de números em um eixo com ggplot?

Estou usando R e ggplot para desenhar um gráfico de dispersão de alguns dados, tudo está bem, exceto que os números no eixo y estão saindo com formatação de expoente no estilo de computador, ou seja, 4e + 05, 5e + 05, etc. Isso é obviamente inaceitável, por isso, quero exibi-los como 500.000, 400.000 e assim por diante. Obter uma notação de expoente adequada também seria aceitável.

O código para o gráfico é o seguinte:

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

Qualquer ajuda muito apreciada.

Outra opção é formatar os rótulos dos marcadores do eixo com vírgulas, usando o pacote scalese adicione

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

à sua instrução ggplot.

Se você não deseja carregar o pacote, use:

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

Eu também encontrei outra maneira de fazer isso que fornece a notação 'x10 (sobrescrita) 5' adequada nos eixos. Estou postando aqui na esperança de que possa ser útil para alguns. Eu peguei o código aqui e, portanto, não reivindico crédito por isso, que é o 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)
}

Que você pode usar como

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)

Estou atrasado para o jogo aqui, mas, caso outros desejem uma solução fácil, criei um conjunto de funções que podem ser chamadas como:

 ggplot + scale_x_continuous(labels = human_gbp)

que fornece números legíveis para humanos para os eixos x ou y (ou qualquer outro número em geral).

Você pode encontrar as funções aqui: Github Repo Basta copiar as funções no seu script para poder chamá-las.

Acho a resposta sugerida por Jack Aidley útil.

Eu queria jogar fora outra opção. Suponha que você tenha uma série com muitos números pequenos e deseje garantir que os rótulos dos eixos escrevam o ponto decimal completo (por exemplo, 5e-05 -> 0,0005) e, em seguida:

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)