एक ही एक्स और वाई धुरी के साथ दो भूखंड

Question

दिखाया गया प्लॉट निम्नलिखित आर कोड द्वारा उत्पादित किया गया है।

png("test.png") 
plot(data[,4],data[,3],type='l',col="green") 
par(new=TRUE) 
plot(data[,4],data[,2],type='l',col="red") 
dev.off() 

वाई-अक्ष की सीमा दोनों भूखंडों के लिए अलग है और यह छवि में दिखाए गए अनुसार ओवरराइट की गई है। क्या कोई प्लॉट दोनों के लिए एक ही वाई-अक्ष रेंज सेट करने में मदद कर सकता है।

Answer 1

y तराजू मोटे तौर पर होते हैं, तो फिर तुम एक प्रारंभिक साजिश है कि पूरी श्रृंखला में शामिल हैं (इस पर कुछ भी की साजिश रचने के बिना कर सकते हैं) अक्ष को परिभाषित करने के लिए, फिर लाइनों को साजिश करें।

set.seed(5) 
data <- data.frame(1:60, rnorm(60, 0.6, 0.1), rnorm(60, 0.65, 0.15), 
        seq(2,120,by=2)) 

कुल्हाड़ियों अप type='n' सेट का उपयोग करना है, लेकिन कुछ भी साजिश नहीं है। सभी डेटा की सीमा का उपयोग करके यह सुनिश्चित होता है कि साजिश में सभी डेटा शामिल हैं।

plot(range(data[,4]), range(c(data[,3],data[,2])), type='n') 
lines(data[,4], data[,3], type='l', col='green') 
lines(data[,4], data[,2], type='l', col='red') 

Answer 2

आप इस विधि का उपयोग कर सकते हैं:

1. पहले साजिश
2. कॉल par(new=TRUE)
3. पहले साजिश के ऊपर दूसरा भूखंड आकर्षित आकर्षित। दूसरा भूखंड डिफ़ॉल्ट आकर्षित नहीं करता अक्ष (axes=FALSE)

दूसरा भूखंड पहले एक के विभिन्न y है, तो आप पैमाना दिखाने के दाएँ भाग में, एक माध्यमिक y- अक्ष आकर्षित करने के लिए axis() फ़ंक्शन का उपयोग कर सकते हैं।

उदाहरण के लिए आप कुछ इस तरह कर सकते हैं:

data <- matrix(rnorm(4*100),ncol=4) 
par(mar=c(5, 6, 2, 4)) 
plot(1:100,data[,3], lwd=3, col="green", ann=FALSE, las=2,type='l') 
mtext("I am at left", side=2, line=3.5) 
par(new=TRUE) 
plot(1:100,data[,2], ann=FALSE, axes=FALSE,col='red',type='l') 
mtext("I am at right)", side=4, line=2) 
title("Using par(new=TRUE) \n same X and different or not Y axis ") 
axis(4)