コンマを千単位の区切り文字として表示するには、y軸のティック値とgeom_textをどのようにフォーマットするのですか？

Question

IがRで実行されている以下のコードを有する：

options(scipen=99) 

sp <- ggplot(mydata2, aes(x=FY, y=PkgRev, fill=FY, label=PkgRev)) + geom_bar(stat = "identity") + 
geom_text(aes(label=PkgRev),size=3,position=position_dodge(width=0.9),vjust=-0.50) 

sp 

sp + facet_grid(Market ~ PropertyCode) + 
theme(axis.title.x=element_blank(), 
    axis.text.x=element_blank(), 
    axis.ticks.x=element_blank(), 
    axis.title.y=element_blank()) + 
theme(legend.position="bottom") + 
theme(legend.title=element_blank()) + 
ggtitle('xxxxxxxx') + 
scale_y_continuous(breaks = seq(0, 170100000, by=50000000), limits=c(0,170100000)) 

上記コードは私に次の出力（抽出物が示されている）を与える：

をIはy軸目盛り値になりたいですカンマで区切られて数千を表し、テキストの同じ原則がバーの上にある値を示します。

どうすればよいですか？

Answer 1

あなたはスケールパッケージを使用して、あなたのscale_y_continuous（に「ラベル=コンマ」を追加） を軸 Thousand separator in label of x or y axis については、この記事を参照してください。そして、この including a comma separator for data labels in ggplot

のでgeom_text用することができます

sp <- ggplot(mydata2, aes(x=FY, y=PkgRev, fill=FY, label=PkgRev)) + 
    geom_bar(stat = "identity") + 
    geom_text(aes(label=comma(PkgRev)),size=3, 
     position=position_dodge(width=0.9),vjust=-0.50) 

sp + facet_grid(Market ~ PropertyCode) + 
    theme(axis.title.x=element_blank(), 
    axis.text.x=element_blank(), 
     axis.ticks.x=element_blank(), 
     axis.title.y=element_blank()) + 
    theme(legend.position="bottom") + 
    theme(legend.title=element_blank()) + 
    ggtitle('xxxxxxxx') + 
    scale_y_continuous(breaks = seq(0, 170100000, by=50000000), 
    limits=c(0,170100000), labels = comma) 

は正常に動作するはずです