プロット内の異なるファセットにパネルラベルを追加しようとしています。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() を使用して、異なるファセットに異なるラベルを設定するにはどうすればよいでしょうか?
ベストアンサー1
では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)