दिलचस्प पोस्ट
प्रवेश IE पर jQuery के स्क्रिप्ट पर खारिज कर दिया क्या कोई "पिछला भाई" सीएसएस चयनकर्ता है? IOS7 में स्थिति बार और नेविगेशन बार समस्या कॉल और कॉलविर्ट आर में अनन्य रंग के साथ प्रत्येक पंक्ति को एकाधिक पंक्तियां (डेटा श्रृंखला) बनाएं सी # का उपयोग करके पूरी प्रक्रिया सूची पुनर्प्राप्त करें मूल वाक्य रचना के लिए वैकल्पिक हल को पार्स नहीं किया जा रहा है विस्तार विधि का नकली करने के लिए मैं कैसे मुकाब का उपयोग कर सकता हूं? क्या मुफ्त (पीटीआर) है जहां पीटीआर नाल भ्रष्ट स्मृति है? क्या वीबी वास्तव में असंवेदनशील है? मेरे जावास्क्रिप्ट ऑब्जेक्ट गुणों को अन्य उदाहरणों से अधिलेखित क्यों किया जा रहा है? घातक त्रुटि एलएनके 1112: मॉड्यूल मशीन प्रकार 'x64' लक्ष्य मशीन प्रकार 'एक्स 86' के साथ संघर्ष संपादन आइटम टेम्पलेट में नियंत्रण कैसे खोजें? ggplot2 का उपयोग कर एक कैनवास में एकाधिक ग्राफ़ कैसे WPF टैब नियंत्रण में trapezoid टैब बनाने के लिए

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

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

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

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

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

Solutions Collecting From Web of "एक जटिल साजिश के लिए मैनुअल लीजेंड का निर्माण"

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

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

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