graph - Select space between marks in R plot -


मेरे पास निम्न तालिका है

agrup1

  loaddate recup recup_gente 1 2014-04-16 0.4213183 0.7294452 2 2014-05-16 0.4539847 0.7587836 3 2014-06-16 0.4506581 0.7597915 4 2014-07-16 0.4500220 0.7682811 5 2014-08-16 0.4402933 0.4488161 6 2014- 09-01 0.5365479 0.6765825 7 2014-10-01 0.5069230 0.6782983 8 2014-11-01 0.7598421 0.8134287 9 2014-12-03 0.7477045 0.8073076 10 2015-01-05 0.5060155 0.5814931  

मुझे ज़रूरत है 2 धुरी के साथ एक ग्राफ करना मेरा कोड है:

  बराबर (mar = c (4,5,4,4)) प्लॉट (agrup1 $ loaddate [agrup1 $ loaddate & lt; '2015-01-01'], agrup1 $ रीक्यूप [एग्रूप 1 $ लोडडेट & lt; '2015-01-01'], yaxt = 'n', ylab = '', type = 'o', xlab = 'fecha de carga', मुख्य = 'रिकप्पर अलकाज़ोडो पोर्स मेस', सीएक्स (नई = टी) साजिश (agrup1 $ loaddate [agrup1 $ loaddate & lt; '$ 1]) (अधिकतम (agrup1 $ recup) +0.1))। 2015-01-01 '], agrup1 $ recup_gente [agrup1 $ loaddate & lt;' 2015-01-01 '], yaxt =' n ', ylab =' ', xlab =' ', प्रकार =' ओ ', col =' लाल ',, cex.main = .9, ylim = c ((min (agrup1 $ recup_gente) -0.1), (max (agrup1 $ recup_gente) +0.1))) अक्ष (2, = सुंदर (agrup1 $ recup [ Agrup1 $ loaddate & lt; '2015-01-01']), लैब = पेस्ट (गोल (सुंदर (agrup1 $ recup [agrup1 $ loaddate & lt; '2015-01-01']) * 100,2), '%'), लास = 1) अक्ष (4, = सुंदर (agrup1 $ recup_gente [agrup1 $ loaddate & lt; '2015-01-01']), लैब = पेस्ट (गोल (सुंदर (agrup1 $ recup_gente [agrup1 $ loaddate & lt; '2015-01 -01 ']) * 100,2),'% '), लास = 1, col =' red ', col.axis =' red ') mtext (पक्ष = 2, ली Ne = 2.8, "recupero $") mtext (पक्ष = 4, पंक्ति = 2.8, "रिकुपोरो क्लाइंट्स", col = 'red')  

और मुझे निम्न ग्राफ मिलता है:

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

मुझे भी यही करना है दोनों अक्षों में अंतरिक्ष ... अक्ष का एक अंक 10% होना चाहिए, हर बार 5% अधिक नहीं गिना जाएगा मैं यह कैसे कर सकता हूं?

मैं इस भूखंड के लिए 1 अक्ष सुझाता हूं।

  agrup1 = संरचना (सूची (लोडडेट = संरचना (सी (16176, 16206, 16237, 16267, 16298, 16314, 16344, 16375, 16407, 16440), वर्ग = "दिनांक"), रिकुप = सी (0.4213183, 0.4539847 , 0.4506581, 0.450022, 0.4402933, 0.5365479, 0.506923, 0.7598421, 0.7477045, 0.5060155), रिकुप_गेंटे = सी (0.7294452, 0.7587836, 0.7597915, 0.7682811, 0.4488161, 0.6765825, 0.6782983, 0.8134287, 0.8073076, 0.5814 9 31))। नाम = सी (" प्लॉट (agrup1) (mar = c (4,5,4,4)) par (agrup1), "recup_gente", "recup", "recup_gente"), पंक्ति.नाम = सी (एनए, -10 L), class = "data.frame") $ Loaddate [agrup1 $ loaddate & lt; '2015-01-01'], agrup1 $ recup [agrup1 $ loaddate & lt; '2015-01-01'], yaxt = 'n', ylab = '', प्रकार = 'ओ', एक्सएलएबी = 'फीका डे कारगा', मुख्य = 'रिकुपोरो अल्केन्जाडो मेस', सीएक्स.माइन =। 9, यिलि = सी ((मिग (एग्रिप 1 डॉलर रीकुप) -0.1), (मैक्स (एग्रिप 1 डॉलर रिकुप +0.1)) ) लाइनें (agrup1 $ loaddate [agrup1 $ loaddate & lt; '2015-01-01'], agrup1 $ recup_gente [ Agrup1 $ loaddate & lt; '2015-01-01'], प्रकार = 'ओ', col = 'red', cex.main = .9) अक्ष (2, पर = सुंदर (seq (0.4.0.8,0.1)), Lab = paste0 (seq (40,80,10), '%'), लास = 1) अक्ष (4, पर = सुंदर (सीईसी (0.4,0.8,0.1)), प्रयोगशाला = पेस्ट0 (सीईसी (40,80, 10), '%', las = 1, col = 'red', col.axis = 'red') mtext (पक्ष = 2, रेखा = 2.8, "रिकुपारो $") mtext (पक्ष = 4, पंक्ति = 2.8 , "रिकुपरो क्लाइंट्स", कोले = 'लाल')  

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


Comments

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

html - CSS autoheight, but fit content to height of div -

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -