दिलचस्प पोस्ट
अवलोकन के समय को सूचित करें जब आइटम में परिवर्तन होता है त्रुटि: (23, 17) हल करने में असफल: जनीट: जनीट: 4.12 UIWebView का उपयोग करके HTML कोड से उद्देश्य सी कोड में विधि डालें मैं जटिल बहुभुजों को कैसे जोड़ूं? अल्पविराम के बाहर उद्धरण चिह्नों पर विभाजन एंड्रॉइड 6.0 में डोज मोड में अलार्म मैनेजर कैसे काम करता है? केन के बाद गेटलाइन का उपयोग करना (cin, s) ओवरलैप के साथ स्ट्रिंग समाकलन के लिए कुशल एल्गोरिथ्म Printf में चर टेक्स्ट कॉलम चौड़ाई सेट करें एंड्रॉइड प्रोग्राममैटिकली से SQLite डेटाबेस को कैसे हटाएं हास्केल में कॉमोनैड प्रकार वर्ग क्या है? सी ++ में एक कोड स्निपेट के निष्पादन समय की गणना कैसे करें फैक्ट्री, सार फैक्टरी और फैक्टरी विधि SQL सर्वर रैंडम क्रमबद्ध करें आप फ़ोल्डर के लिए सबवर्सन नियंत्रण कैसे निकाल सकते हैं?

एक जटिल साजिश के लिए मैनुअल लीजेंड का निर्माण

मैं यह पता नहीं लगा सकता कि इस प्लॉट के लिए मैन्युअल रूप से एक किंवदंती कैसे स्थापित किया जाए। मैं वास्तव में चाहता हूं कि सभी अधिकारों के लिए एक सरल कथा है जो तीन रंगों का उपयोग करता है और प्रत्येक के पास एक नाम है

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

वर्तमान कोड इस तरह दिखता है:

a <-c("S1","S2","S3","S4","S5","S6","S7","S8","S9") #names b <-c(0.23,0.26,0.55,0.56,0.36,0.23,0.18,0.06,0.04) #mean t0 c <-c(0.64,0.6,0.81,1.4,0.89,0.55,0.48,0.22,0.09) #mean t1 d <-c(0.20,0.23,0.52,0.53,0.33,0.20,0.15,0.04,0.03) #SD low t0 e <-c(0.26,0.29,0.58,.59,0.39,0.26,0.21,0.08,0.05) #SD high t0 f <-c(0.67,0.63,0.86,1.44,0.93,0.59,0.51,0.25,0.10) #SD high t1 g <-c(0.61,0.57,0.78,1.36,0.85,0.53,0.45,0.19,0.08) #SD low t1 h <-c(0.41,0.34,0.26,0.84,0.53,0.32,0.30,0.16,0.05) #absolute change data <- data.frame(a,b,c,d,e,f,g,h) ggplot(data=data,aes(a)) + geom_bar(stat="identity", aes(y=h),fill="#62c76b",colour="#333333")+ #green geom_line(aes(y=b,group=1),size=1.0,colour="#f04546") + #red geom_point(aes(y=b),size=3, colour="#f04546") + #red geom_errorbar(aes(ymin=d, ymax=e), colour="#f04546", width=0.1, size=.8) + geom_line(aes(y=c,group=1),size=1.0,colour="#3591d1") + #blue geom_point(aes(y=c),size=3, colour="#3591d1") + #blue geom_errorbar(aes(ymin=f, ymax=g), colour="#3591d1", width=0.1, size=.8) + ylab("Symptom severity") + xlab("PHQ-9 symptoms") + ylim(0,1.6) + theme_bw() + theme(axis.title.x = element_text(size = 15, vjust=-.2)) + theme(axis.title.y = element_text(size = 15, vjust=0.3)) 

वेब के समाधान से एकत्रित समाधान "एक जटिल साजिश के लिए मैनुअल लीजेंड का निर्माण"

एक किंवदंती का निर्माण करने के लिए आपको सौंदर्यशास्त्र (एईएस स्टेटमेंट के भीतर रंग) के गुणों को मैप करने की आवश्यकता है।

 cols <- c("LINE1"="#f04546","LINE2"="#3591d1","BAR"="#62c76b") ggplot(data=data,aes(x=a)) + geom_bar(stat="identity", aes(y=h, fill = "BAR"),colour="#333333")+ #green geom_line(aes(y=b,group=1, colour="LINE1"),size=1.0) + #red geom_point(aes(y=b, colour="LINE1"),size=3) + #red geom_errorbar(aes(ymin=d, ymax=e, colour="LINE1"), width=0.1, size=.8) + geom_line(aes(y=c,group=1,colour="LINE2"),size=1.0) + #blue geom_point(aes(y=c,colour="LINE2"),size=3) + #blue geom_errorbar(aes(ymin=f, ymax=g,colour="LINE2"), width=0.1, size=.8) + scale_colour_manual(name="Error Bars",values=cols) + scale_fill_manual(name="Bar",values=cols) + ylab("Symptom severity") + xlab("PHQ-9 symptoms") + ylim(0,1.6) + theme_bw() + theme(axis.title.x = element_text(size = 15, vjust=-.2)) + theme(axis.title.y = element_text(size = 15, vjust=0.3)) 

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

मैं समझता हूँ कि रोलाण्ड कहाँ से आ रहा है, लेकिन यह केवल 3 विशेषताओं के कारण है, और बार-बार अधिसूचित बार और त्रुटि सलाखों से उत्पन्न जटिलताएं यह विस्तृत प्रारूप में डेटा को छोड़ने के लिए उचित है जैसे कि यह है। यह geom_pointrange का उपयोग करके जटिलता में थोड़ा कम हो सकता है


मूल में त्रुटि सलाखों की कथा के लिए पृष्ठभूमि का रंग बदलने के लिए, प्लॉट विनिर्देश में + theme(legend.key = element_rect(fill = "white",colour = "white")) । विभिन्न किंवदंतियों को विलय करने के लिए, आपको आम तौर पर सभी तत्वों के लिए लगातार मैपिंग की आवश्यकता होती है, लेकिन यह वर्तमान में मेरे लिए एक काले रंग की पृष्ठभूमि के एक कलाकृतियों का निर्माण कर रहा है मैंने सोचा था कि guide = guide_legend(fill = NULL,colour = NULL) पृष्ठभूमि के लिए पौराणिक स्थिति को सेट कर देगा, लेकिन ऐसा नहीं हुआ। शायद एक और प्रश्न के लायक है

 ggplot(data=data,aes(x=a)) + geom_bar(stat="identity", aes(y=h,fill = "BAR", colour="BAR"))+ #green geom_line(aes(y=b,group=1, colour="LINE1"),size=1.0) + #red geom_point(aes(y=b, colour="LINE1", fill="LINE1"),size=3) + #red geom_errorbar(aes(ymin=d, ymax=e, colour="LINE1"), width=0.1, size=.8) + geom_line(aes(y=c,group=1,colour="LINE2"),size=1.0) + #blue geom_point(aes(y=c,colour="LINE2", fill="LINE2"),size=3) + #blue geom_errorbar(aes(ymin=f, ymax=g,colour="LINE2"), width=0.1, size=.8) + scale_colour_manual(name="Error Bars",values=cols, guide = guide_legend(fill = NULL,colour = NULL)) + scale_fill_manual(name="Bar",values=cols, guide="none") + ylab("Symptom severity") + xlab("PHQ-9 symptoms") + ylim(0,1.6) + theme_bw() + theme(axis.title.x = element_text(size = 15, vjust=-.2)) + theme(axis.title.y = element_text(size = 15, vjust=0.3)) 

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


किंवदंती में काली पृष्ठभूमि से छुटकारा पाने के लिए, आपको guide_legend पर guide_legend तर्क का उपयोग करना guide_legend । इसका उद्देश्य आपको उस पौराणिक कथा के एक विशेष पहलू को निर्दिष्ट करने की अनुमति देता है जिसे सही ढंग से असाइन नहीं किया जा सकता है।

 ggplot(data=data,aes(x=a)) + geom_bar(stat="identity", aes(y=h,fill = "BAR", colour="BAR"))+ #green geom_line(aes(y=b,group=1, colour="LINE1"),size=1.0) + #red geom_point(aes(y=b, colour="LINE1", fill="LINE1"),size=3) + #red geom_errorbar(aes(ymin=d, ymax=e, colour="LINE1"), width=0.1, size=.8) + geom_line(aes(y=c,group=1,colour="LINE2"),size=1.0) + #blue geom_point(aes(y=c,colour="LINE2", fill="LINE2"),size=3) + #blue geom_errorbar(aes(ymin=f, ymax=g,colour="LINE2"), width=0.1, size=.8) + scale_colour_manual(name="Error Bars",values=cols, guide = guide_legend(override.aes=aes(fill=NA))) + scale_fill_manual(name="Bar",values=cols, guide="none") + ylab("Symptom severity") + xlab("PHQ-9 symptoms") + ylim(0,1.6) + theme_bw() + theme(axis.title.x = element_text(size = 15, vjust=-.2)) + theme(axis.title.y = element_text(size = 15, vjust=0.3)) 

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