R 如何将该区域漆成绿色？

请看附件，我想把覆盖

R1

的区域涂成粉红色， 如何使用

多边形绘制它

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)

x=seq（-0.25,2，by=0.01）
y1=x
y2=x^2
绘图（x，y1，type=“l”，frame.plot=FALSE，axes=FALSE，xlab=”“，ylab=”“）
行（x，y2，type=“l”，col=“red”）
xx1只需在三角形中添加颜色
（0，0）-（0，1）-（1，1）

R1在y=1时停止，对吗？难道你不把三角形多边形化吗？
（0，0）-（0，1）-（1，0）
？与您在
R3
中着色的方式大致相同？不确定这是上述问题的重复-他们肯定已经解决了对两条曲线之间区域的着色问题（即，知道如何使用
polygon
，这只是他们似乎无法获得的剩余三角形（尽管我认为R2是困难的部分）我还感到困惑的是，对区域R2进行着色应该是比较困难的部分（也许这段代码是别人写的？）。关键的因素仍然是使用
多边形（）对区域进行着色。
polygon(c(0, 0, 1), c(0, 1, 1), col='pink')