साजिश के संबंध में सामान्य मुद्दे

Question

R का उपयोग करके, मैंने this के समान एक hatched plot तैयार किया है। मैं R

1. लिंक में दिखाए गए अनुसार पौराणिक कथाओं को जोड़ना चाहता हूं।
2. डेल्टा
3. के ग्रीक प्रतीक द्वारा एक्स-अक्ष नाम बदलें साजिश पर चौराहे के विभिन्न बिंदुओं का उल्लेख करने के लिए। उदाहरण के लिए, x = 0.75 पर कुछ वक्र एक्स-अक्ष से मिलते हैं, मैं उस बिंदु के पास मान 0.75 डालना चाहता हूं।
4. यदि आप वक्र देखते हैं, तो वे चिकनी नहीं हैं। उन्हें चिकनी बनाने के लिए कैसे? यहां तक ​​कि एक्सेल प्लॉट्स कहीं अधिक चिकनी वक्र हैं।

इसे कैसे प्राप्त करें?

यहां साजिश है।

के बाद कोड साजिश आकर्षित करने के लिए प्रयोग किया जाता है।

plot(NA,xlim=c(0,1),ylim=c(0,1),xlab="delta",ylab="K", xaxs="i",yaxs="i") # Empty plot 
a1 <- curve((x+x^7-x^2-x^4)/(1+x-x^3-x^4), from=0, n=450000, add = TRUE) # First curve 
a2 <- curve((x^2+x^3-x-x^5)/(x+x^2), to=0.9, n=45000, add = TRUE) 
a3 <- curve((x+x^7-x^2-x^4)/(1+x-x^2-x^3-x^4+x^7),from=0, n=45000, add = TRUE) 
a4 <- curve((x+x^8-x^3-x^5)/(x+x^8-x^3-x^5+1-x^4),from=0, to=0.9, n=45000, add = TRUE) 
a5 <- curve((x+x^8-x^3-x^5)/(1+x-x^5-x^4),from=0, n=45000, add = TRUE) 
a6 <- curve((x+x^2-x^4-1)/(x-x^4), to=0.84, n=45000, add = TRUE) 
a7 <- curve((x+x^6-x^3-x^4)/(1+x-x^3-x^4), from=0.83 ,to=1, n=45000, add = TRUE) 
a8 <- curve((1+x^7-x^2-x^4)/(1+x^3-x-x^4), from=0.819, n=45000, add = TRUE) 
a9 <- curve((x)/(1+x), n=45000,from=0.819, to =1, add = TRUE) 


names(a1) <- c('xA1','yA1') 
names(a2) <- c('xA2','yA2') 
names(a3) <- c('xA3','yA3') 
names(a4) <- c('xA4','yA4') 
names(a5) <- c('xA5','yA5') 
names(a6) <- c('xA6','yA6') 
names(a7) <- c('xA7','yA7') 
names(a8) <- c('xA8','yA8') 
names(a9) <- c('xA9','yA9') 


with(as.list(c(a1,a2,a3,a4,a5,a6,a7,a8,a9)),{ 

idA <- yA3 >=0 
idB <- yA2 >=0 & yA2 <= yA4 
idC <- yA4 >= yA2 

idD <- yA5 >=0 

idE <- yA6 >=0 & yA6 <= yA7 
idF <- yA7 <= yA6 

idG <- yA8 >=0 & yA8 <= yA9 
idH <- xA9 >= xA8 & xA9 >0.8 

idI <- xA1 >=0 & xA1 <= 0.755 
idJ <- xA3 >=0 & xA3 <= 0.755 



polygon(x = c(xA3[idA],xA2[idB],rev(xA4[idC])), 
     y = c(yA3[idA],yA2[idB],rev(yA4[idC])), 
     density=20, angle=90, border=NULL) 

polygon(x = c(xA5[idD],1,1,0), 
     y = c(yA5[idD],0,1,1), 
     density=20, angle=0, border=NULL) 

polygon(x = c(xA6,xA7), 
     y = c(yA6,yA7), 
     density=20, angle=45, border=NULL) 

polygon(x = c(rev(xA8[idG]),xA9[idH],1), 
     y = c(rev(yA8[idG]),yA9[idH],0), 
     density=20, angle=135, border=NULL) 

polygon(x = c(xA1[idI],rev(xA3[idJ])), 
     y = c(yA1[idI],rev(yA3[idJ])), 
     col="black", border=NULL) 


}) 

Answer 1

layout(matrix(c(1,2),nrow=1), 
     width=c(4,1)) #Divide your plotting region in two inequal part 
par(mar=c(5,4,4,0)) #Get rid of the margin on the right side 
plot(NA,xlim=c(0,1),ylim=c(0,1), 
    xlab=expression(delta),ylab="K", xaxs="i",yaxs="i") # Here's your delta 
a1 <- curve((x+x^7-x^2-x^4)/(1+x-x^3-x^4), from=0, n=450000, add = TRUE) 

... 

par(mar=c(5,0,4,2)) #No margin on the left side 
plot(c(0,1),type="n", axes=F, xlab="", ylab="") #Empty plot 
legend("top",legend=c("1","2","3","4","5"), 
     density=c(20,20,20,20,NA), angle=c(90,0,45,135,NA), 
     col=c(NA,NA,NA,NA,"black"), bty="n", cex=1.5) 

बिंदु आप लेबल करना चाहते का सवाल है, उपयोग समारोह या तो text (या mtext) यह "programmaticaly" करने के लिए या locator यह सहभागी क्या करना है।

संपादित: वैकल्पिक रूप से (के रूप में मैं टिप्पणी में कहा), इस रूप में अच्छी तरह साजिश क्षेत्र के बाहर अपने कथा डाल करने के लिए काम करते हैं और शायद होगा आसान:

par(mar=c(5,4,4,8)) 
plot(NA,xlim=c(0,1),ylim=c(0,1), 
    xlab=expression(delta),ylab="K", xaxs="i",yaxs="i") # Here's your delta 
    a1 <- curve((x+x^7-x^2-x^4)/(1+x-x^3-x^4), from=0, n=450000, add = TRUE) 

... 

legend(1,1,legend=c("1","2","3","4","5"), 
    density=c(20,20,20,20,NA), angle=c(90,0,45,135,NA), 
    col=c(NA,NA,NA,NA,"black"), bty="n", cex=1.5, xpd=TRUE) 

Answer 2

पारंपरिक ग्राफिक्स प्रणाली एक साजिश करने के लिए एक कथा या कुंजी जोड़ने के लिए कथा() फ़ंक्शन प्रदान करता है। किंवदंती आमतौर पर साजिश क्षेत्र, के भीतर खींची जाती है और यह उपयोगकर्ता निर्देशांक के सापेक्ष स्थित होती है।

समारोह में कई तर्क हैं, तो यहाँ हम कोण तर्क का उपयोग करने के और घनत्व टुकड़ों में बंटी क्षेत्रों अंतर करने के लिए की जरूरत है।

legend(0.5, 0.8, paste("region", 1:5), 
     density=c(20,20,20,20,0), 
     angle=c(90,0,45,135,0))