Ich versuche, Panel-Beschriftungen zu verschiedenen Facetten in einem Plot hinzuzufügen. Ich möchte, dass sie 1: 7 sind, aber der folgende Code

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)

Ausbeuten

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

Jetzt kann ich einen einzelnen Wert angeben und diesen über alle Facetten hinweg replizieren. Aber wie kann ich mit annotate () verschiedene Bezeichnungen in verschiedenen Facetten haben?