निकालें आसपास रिक्ति r में क्षेत्र की साजिश रचने

Question

जब मैं निम्नलिखित साजिश बनाने मैं अंकन क्षेत्र और (अक्ष नीले बॉक्स और एक्स अक्ष के बीच यानी सफेद स्थान के बीच अवांछित स्थान मिलता है। मैं इस स्थान निकाल कर बना सकते हैं साजिश के साथ साजिश रचने क्षेत्र फ्लश अक्ष? धन्यवाद।

xleft<-c(1,2,2.5) 
xright<-c(2,2.5,2.75) 
ybottom<-c(1,2,2.5) 
ytop<-c(2,2.5,2.75) 

par(mar = c(15,15,2.75,2.75) + 0.1) 
plot(c(1,2.75),c(1,2.75),type="n",main="title",xlab="site.x",ylab="ylab") 
rect(xleft,ybottom,xright,ytop,col=c("blue","red","green")) 

#Label position along axes 
x.label.position<-(xleft+xright)/2 
y.label.position<-(ybottom+ytop)/2 

#Labels 
x.label<-c("Long species Name1","Long species Name2","Long species Name3") 
y.label<-c("Long species Name4","Long species Name5","Long species Name5") 

text(par()$usr[1]-0.5,y.label.position,y.label,xpd=TRUE,adj=1) 
text(y=par()$usr[3]-0.5,x=x.label.position,x.label,xpd=TRUE,adj=1,srt=90) 

par(xpd=TRUE) 
legend(-0.1,0,legend=c("Species A","Species B","Species C"),fill=c("blue", "red", "green")) 

अद्यतन मैं अपने वास्तविक डेटा के साथ plannapus से सुझाव की कोशिश की लेकिन केवल व्यवहार करने के लिए y- अक्ष प्राप्त कर सकते हैं इस में कुछ और है कोड है कि साजिश रचने क्षेत्र के पक्षों के लिए अंतरिक्ष जोड़ने का हिस्सा?

quartz("colour.plot") 
par(mar=c(15,15,4,2)+0.1)#sets margins of plotting area 

#create the data plot 
    plot(c(0,100), c(0,100), type = "n", main = paste(x,"vs",y," -",depth),xlab=paste("Species composition in remainder ",x),ylab=paste("Species composition in remainder ",y),asp=1,xaxs="i",yaxs="i") 

#Add the rectangles 
rect(mdf$xleft,mdf$ybottom,mdf$xright,mdf$ytop,col=mdf$colour) 

पैदा करता

Answer 1

फ़ंक्शन plot में एक तर्क है जो वाई-अक्ष के लिए xaxs (और yaxs) को संभालता है। के रूप में लागू हो यह जिसका अर्थ है कि धुरी मूल्य का 4% प्रत्येक पक्ष पर छोड़ दिया है xaxs="r" को तैयार है। इसे 0: xaxs="i" पर सेट करने के लिए। अधिक जानकारी के लिए ?par में xaxs अनुभाग देखें।

plot(c(1,2.75),c(1,2.75),type="n",main="title",xlab="site.x",ylab="ylab", xaxs="i", yaxs="i") 
rect(xleft,ybottom,xright,ytop,col=c("blue","red","green")) 

Answer 2

plot(c(1,2.75),c(1,2.75),type="n",main="title",xlab="site.x",ylab="ylab",axes=F) # ann 
axis(1,pos=1) 
axis(2,pos=1) 

सभी कुल्हाड़ियों निकाल तो आप pos आप चाहते हैं करने के लिए नए कुल्हाड़ियों जोड़ सकते हैं।