112

私はこれを見つけました、How to put labels over geom_bar in R with ggplot2、ただし、ラベル(数字)を1つのバーにのみ配置するだけです。

ここでは、x 軸ごとに 2 つのバーがあるとします。同じことを行うにはどうすればよいでしょうか。

私のデータとコードは次のようになります。

dat <- read.table(text = "sample Types Number
sample1 A   3641
sample2 A   3119
sample1 B   15815
sample2 B   12334
sample1 C   2706
sample2 C   3147", header=TRUE)

library(ggplot2)
bar <- ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
  geom_bar(position = 'dodge') + geom_text(aes(label=Number))

次に、次のようになります。 ここに画像の説明を入力

数字のテキストも「かわす」パターンで配置されているようです。geom_text マニュアルを検索して情報を見つけましたが、機能しません。

提案？

4

2 に答える 2

169

これを試して：

ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
     geom_bar(position = 'dodge', stat='identity') +
     geom_text(aes(label=Number), position=position_dodge(width=0.9), vjust=-0.25)

ggplot出力

于 2012-08-18T15:02:01.197 に答える