r - ggplot - 指数形式からスケールを再フォーマットし、定数で割って変換する

Question

ggplot2 軸ラベルの指数表記を変換し、変換を適用したい。labels=commma は通常の非指数の数値を与えますが、y 軸の目盛りが数百万ではなく数千になるように変換を追加したいと思います。

library(ggplot2)
library(scales)
fy <- c("FY09 Q4", "FY09 Q3", "FY09 Q2", "FY09 Q1")
views <- c(15881100,  8888000, 24168000, 17611000)
df <- data.frame(FY=fy, views=views)
g <- ggplot(df, aes(x=FY, y=views))
g <- g + geom_bar(stat="identity")
g <- g + scale_y_continuous(labels = comma)
print(g)