Comment changer le formatage des nombres sur un axe avec ggplot?

J'utilise R et ggplot pour dessiner un nuage de points de certaines données, tout va bien sauf que les nombres sur l'axe y sortent avec un formatage d'exposant de style informatique, c'est-à-dire 4e + 05, 5e + 05, etc. C'est évidemment inacceptable, alors je veux que cela affiche 500 000, 400 000 et ainsi de suite. Obtenir une notation d'exposant appropriée serait également acceptable.

Le code du tracé est le suivant:

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

Toute aide très appréciée.

Une autre option consiste à mettre en forme vos étiquettes de graduation d'axe avec des virgules en utilisant le package scaleset en ajoutant

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

à votre instruction ggplot.

Si vous ne souhaitez pas charger le package, utilisez:

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

J'ai également trouvé une autre façon de faire cela qui donne une notation appropriée 'x10 (exposant) 5' sur les axes. Je le publie ici dans l'espoir qu'il pourrait être utile à certains. J'ai obtenu le code d' ici, donc je n'en revendique aucun crédit, cela revient à juste titre à 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 vous pouvez ensuite utiliser comme

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)

Je suis en retard au jeu ici mais au cas où d'autres voudraient une solution simple, j'ai créé un ensemble de fonctions qui peuvent être appelées comme:

 ggplot + scale_x_continuous(labels = human_gbp)

qui vous donnent des nombres lisibles par l'homme pour les axes x ou y (ou n'importe quel nombre en général vraiment).

Vous pouvez trouver les fonctions ici: Github Repo Copiez simplement les fonctions dans votre script pour pouvoir les appeler.

Je trouve la réponse suggérée par Jack Aidley utile.

Je voulais jeter une autre option. Supposons que vous ayez une série avec de nombreux petits nombres et que vous vouliez vous assurer que les étiquettes des axes écrivent le point décimal complet (par exemple 5e-05 -> 0,0005), puis:

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)