दिलचस्प पोस्ट
हेरूका पुश को खारिज कर दिया, कोई सिडर समर्थित ऐप नहीं मिला आप एक अंतरफलक के सभी कार्यान्वयन कैसे प्राप्त करते हैं? क्या सी ++ में मुख्य हस्ताक्षर के तर्कों में अनग्रेड और कॉन्स्ट क्वालिफायर हैं? क्या मुझे वाकई संस्करण नियंत्रण की आवश्यकता है? अनुसूची आर स्क्रिप्ट का इस्तेमाल क्रोन से करें क्यों कोशिश करो / कैच ब्लॉक नई चर गुंजाइश पैदा करते हैं? घातक त्रुटि: अपरिभाषित फ़ंक्शन mysqli_result () को कॉल करें सीएसएस – क्यों प्रतिशत ऊंचाई काम नहीं करता है? इंटेंट का उपयोग करते हुए एंड्रॉइड कई ईमेल अटैचमेंट शून्य लेआउट के साथ JPanel में JTable को कैसे जोड़ें? जावा में बाइट सरणी के लिए InputStream कन्वर्ट करें एक निश्चित उपसमुच्चय आकार के साथ योग-सबसेट PHP सत्र डिफ़ॉल्ट समयबाह्य कैसे zlib, gzip और ज़िप संबंधित हैं? क्या वे आम में है और वे कैसे अलग हैं? मैं उपवर्तन में हमारे कोड के पुराने संस्करण पर कैसे लौटूं?

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