6

ggplot次のコマンドを使用して、いくつかのテストデータ（この投稿の最後に表示）をプロットしようとしています。

options(scipen=20)    
ggplot(testData,aes(x=Group.1, y=x), format(scientific=FALSE)) + 
scale_x_discrete(name="Test", formatter=comma) + geom_bar()

プロットは十分に生成されますが、x軸は（テストデータのように）科学的記数法です。代わりに10進数で表示するにはどうすればよいですか？（コマンドに示されているように、私はすでにscipenオプションとさまざまなフォーマッターオプションを試しました-このサイトの他の投稿で提案されているように）

私のテストデータ： 

> str(testData)
'data.frame':   5 obs. of  2 variables:
$ Group.1: Factor w/ 5 levels "(1.3e+03,1.5e+03]",..: 1 2 3 4 5
$ x      : num  80000 94000 86000 112000 98000

> testData
            Group.1      x
1 (1.3e+03,1.5e+03]  80000
2 (1.5e+03,1.7e+03]  94000
3 (1.7e+03,1.9e+03]  86000
4 (1.9e+03,2.1e+03] 112000
5 (2.1e+03,2.3e+03]  98000

> dput(testData)
structure(list(Group.1 = structure(1:5, .Label = c("(1.3e+03,1.5e+03]", 
"(1.5e+03,1.7e+03]", "(1.7e+03,1.9e+03]", "(1.9e+03,2.1e+03]", 
"(2.1e+03,2.3e+03]"), class = "factor"), x = c(80000, 94000, 
86000, 112000, 98000)), .Names = c("Group.1", "x"), row.names = c(NA, 
-5L), class = "data.frame")

testDataの生成：

testData <- aggregate(as.numeric(as.character(housing7$PRICE)),
                      by=list(cut(as.numeric(as.character(housing7$SIZE)), 
                      breaks=5)), FUN=mean)
4

1 に答える 1

6

因子のラベルが科学的記数法で保存されると、通常の記数法に戻るのは簡単ではありません。

以前はこの係数を作成していたので、引数cutを使用してラベルで使用される桁数を変更できます。dig.lab例えば：

testData <- aggregate(as.numeric(as.character(housing7$PRICE)),
by=list(cut(as.numeric(as.character(housing7$SIZE)), breaks=5,dig.lab=6)), FUN=mean)
于 2012-06-29T22:59:56.943 に答える