运行代码后,图表中有一个微小的差距。
x = seq(0, 1, by=0.01)
y1=x
y2=x^2
plot(x, y1,type="l")
lines(x,y2,type="l",col="red")
xx1<-c(0,x[x<1 & x>0 ],1,x[x<1 & x>0 ],0)
yy1<-c(0,x[x<1 & x>0 ],1,(x[x<1 & x>0 ])^2,0)
polygon(xx1,yy1,col="yellow")
请看附件,为什么有一个细小的间隙?如何删除它,让它用黄色填充?