19

プロット内のさまざまなファセットにパネルラベルを追加しようとしています。1:7にしたいのですが、次のコード

d <- ggplot(diamonds, aes(carat, price, fill = ..density..)) +
     xlim(0, 2) + stat_binhex(na.rm = TRUE) + opts(aspect.ratio = 1)

d1<-d + facet_wrap(~ color)

d1+annotate("text", x=0.25, y=1.5e+04, label=1:7)

収量

Error: When _setting_ aesthetics, they may only take one value. Problems: label

これで、単一の値を指定して、それをすべてのファセットに複製できます。しかし、annotate()を使用して、さまざまなファセットにさまざまなラベルを付けるにはどうすればよいですか?

4

1 に答える 1

26

ではannotate、できません。しかし、 をセットアップし、data.frameそれを のデータ ソースとして使用することで、geom_text簡単に実行できます (簿記の側面がいくつかあります)。

d1 + geom_text(data=data.frame(x=0.25, y=1.5e+04, label=1:7, 
                               color=c("D","E","F","G","H","I","J")), 
               aes(x,y,label=label), inherit.aes=FALSE)

ここに画像の説明を入力

于 2012-06-13T21:05:21.020 に答える