ggplotで軸の数値の書式を変更するにはどうすればよいですか？

私はRとggplotを使用していくつかのデータの散布図を描画していますが、y軸の数値がコンピュータースタイルの指数形式、つまり4e + 05、5e + 05などで出力されることを除いて、すべて問題ありません。これは明らかに許容できないので、50万、40万などとして表示するようにします。適切な指数表記を取得することも可能です。

プロットのコードは次のとおりです。

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

どんな助けも大歓迎です。

別のオプションは、コンマを使用して軸目盛りラベルをフォーマットすることで、パッケージを使用してscales追加します

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

あなたのggplotステートメントに。

パッケージをロードしたくない場合は、次を使用します。

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

また、軸に適切な 'x10（superscript）5'表記を与える別の方法を見つけました。一部のユーザーに役立つことを期待して、ここに投稿しています。私はここからコードを取得したので、それに対する信用はないと主張します。

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

その後、次のように使用できます

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)

私はここでゲームに遅れましたが、他の人が簡単な解決策を望んでいる場合、私は次のように呼び出すことができる関数のセットを作成しました：

 ggplot + scale_x_continuous(labels = human_gbp)

これにより、x軸またはy軸の人間が読める数値（または実際には任意の数値）が得られます。

関数はここにあります：Github Repo 関数をスクリプトにコピーして、呼び出すことができます。

ジャック・エイドリーの提案された答えは役に立つものだと思います。

別の選択肢を捨てたかった。多数の小さな数値のシリーズがあり、軸ラベルが完全な小数点（たとえば、5e-05-> 0.0005）を書き出すことを保証したい場合は、次のようにします。

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)