दिलचस्प पोस्ट
सिस्टम टाइमज़ोन सेटिंग कैसे प्राप्त करें और इसे pytz.timezone पास करें? क्रॉन्टाब नौकरियां बनाने, संपादित करने और हटाने के लिए PHP का उपयोग करें? JQuery के साथ एक ड्रॉप-डाउन सूची के चयनित मान को बदलें मैं कैसे गिट फ़ाइल मोड (chmod) परिवर्तनों को अनदेखा कर सकता हूं? सी को सी ++ कन्वर्ट करने के लिए कैसे करें जावा में डाउनकास्टिंग क्यों MySQL पूर्ण आउटर पर एक सिंटैक्स त्रुटि की रिपोर्ट करता है? \ K में regex का समर्थन क्या #pragma एक बार संरक्षित गार्ड में शामिल है? मैं इस खेल के आंकड़ों की क्वेरी को सरल कैसे कर सकता हूं? स्वयं ट्रैकिंग इकाइयां बनाम पीओसीओ संस्थाएं मैं HTML स्रोत को सी # में कैसे डाउनलोड कर सकता हूं Sass के साथ अंत में अभिभावक चयनकर्ता को जोड़ना मैं किस प्रकार के बदलावों को दिखाता हूं? सूची .__ iadd__ और सूची .__ add__ के लिए अलग व्यवहार

Ggplot2 में व्यक्तिगत पहलू पर पाठ की व्याख्या

मैं निम्नलिखित पाठ के साथ साजिश के अंतिम पहलू पर कुछ पाठ टिप्पणी करना चाहता हूं:

library(ggplot2) p <- ggplot(mtcars, aes(mpg, wt)) + geom_point() p <- p + facet_grid(. ~ cyl) p <- p + annotate("text", label = "Test", size = 4, x = 15, y = 5) print(p) 

यहां छवि विवरण दर्ज करें

लेकिन यह कोड हर पहलू पर पाठ का विवरण देता है। मैं अत्यधिक सराहना करता हूं अगर आप मुझे निर्देशित करते हैं कि केवल एक पहलू पर एनोटेट टेक्स्ट कैसे प्राप्त किया जाए अग्रिम में धन्यवाद।

वेब के समाधान से एकत्रित समाधान "Ggplot2 में व्यक्तिगत पहलू पर पाठ की व्याख्या"

आमतौर पर आप ऐसा कुछ करते हैं:

 ann_text <- data.frame(mpg = 15,wt = 5,lab = "Text", cyl = factor(8,levels = c("4","6","8"))) p + geom_text(data = ann_text,label = "Text") 

यह कारक चर पूरी तरह निर्दिष्ट किए बिना काम करना चाहिए, लेकिन संभवतः कुछ चेतावनियां फेंकेंगी:

यहां छवि विवरण दर्ज करें

मुझे लगता है कि लैब के ऊपर दिए गए उत्तर के लिए "टेक्स्ट" बेकार है, नीचे दिए गए कोड भी ठीक हैं।

 ann_text <- data.frame(mpg = 15,wt = 5, cyl = factor(8,levels = c("4","6","8"))) p + geom_text(data = ann_text,label = "Text" ) 

हालांकि यदि आप विभिन्न उप-रेखांकन में अलग तरीके से लेबल करना चाहते हैं, तो इस तरह से ठीक रहेगा:

 ann_text <- data.frame(mpg = c(14,15),wt = c(4,5),lab=c("text1","text2"), cyl = factor(c(6,8),levels = c("4","6","8"))) p + geom_text(data = ann_text,aes(label =lab) )