如何绘制区域绿色？

请参阅附件，我要画覆盖R1是粉红色的区域，我怎么能与polygon画画呢？如何绘制区域绿色？

x = seq(-0.25, 2, by=0.01) 
y1=x 
y2=x^2 
plot(x, y1,type="l",frame.plot=FALSE,axes=FALSE,xlab="",ylab="") 
lines(x,y2,type="l",col="red") 
xx1<-c(0,x[x<1 & x>0 ],1) 
yy1<-c(0,x[x<1 & x>0 ],0) 
polygon(xx1,yy1,col="yellow") 
xx1<-c(0,x[x<1 & x>0 ],1) 
yy2<-c(0,(x[x<1 & x>0 ])^2,0) 
polygon(xx1,yy2,col="blue") 
## write some text 
text(1.1,1,labels="y=x",col="black") 
text(0.8,1,labels="y=x^2",col="red") 
text(0.7,0.2,labels="R3",col="black") 
text(0.4,0.35,labels="R2",col="black") 
text(0.2,0.5,labels="R1",col="black") 
## draw axes lines with arrows 
arrows(min(x), 0, max(x), 0) 
arrows(0, min(x), 0, max(x)) 
## add axes ticks 
axis(1,at=c(0,0.5,1,1.5),pos=0) 
axis(2,at=c(0,0.5,1,1.5),pos=0)

i want to draw it

enter image description here

来源

2013-04-08 it_is_a_literature

R1停止在'Y = 1'，是吗？你不会只是多边形的三角形'（0，0） - （0，1） - （1,0）'？与你在'R3'中着色的方式大致相同？ – 2013-04-08 07:07:49

不知道这是对上述问题的一个副本 - 他们肯定是两条曲线之间摸索出遮荫面积（即知道如何使用'polygon'，它只是剩下的三角形似乎是他们不能够得到（虽然我还以为是R2困难的部分） – 2013-04-08 07:11:45

我还的事实，遮蔽区域R2应该是比较困难的部分（也许这个代码是别人写的？）不解，其关键成分仍然是用'polygon（）'来遮蔽一个区域。 – baptiste 2013-04-08 08:06:14

在三角形(0, 0) -- (0, 1) -- (1, 1)只是颜色？

polygon(c(0, 0, 1), c(0, 1, 1), col='pink')

来源

2013-04-08 07:09:56

如何绘制区域绿色？

回答

相关问题