विभिन्न पहलुओं को विभिन्न एनोटेशन जोड़ने के लिए एनोटेट का उपयोग

Question

मैं एक साजिश में विभिन्न पहलुओं में पैनल लेबल जोड़ने की कोशिश कर रहा हूं। मैं उन्हें 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 

अब, मैं एक एकल मूल्य की आपूर्ति और सभी पहलुओं भर में दोहराया कि मिल सकता है। लेकिन एनोटेट() का उपयोग करके विभिन्न पहलुओं में अलग-अलग लेबल कैसे हो सकते हैं?

Answer 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)