3

运行代码后,图表中有一个微小的差距。

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")

请看附件,为什么有一个细小的间隙?如何删除它,让它用黄色填充? 在此处输入图像描述

4

1 回答 1

5

如果减少点数,则更容易看出问题的原因:

x <- seq(0, 1, by=0.2)
plot(  x, x,   type="l" )
lines( x, x^2, 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, lwd=3, col="wheat")
points(xx1, yy1)

在此处输入图像描述

点是正确的,但顺序不正确。对于凸多边形,xx1应该是先增后减。

plot(  x, x,   type="l" )
lines( x, x^2, col="red" )
xx1 <- c(x, rev(x))
yy1 <- c(x, rev(x)^2)
polygon(xx1, yy1, lwd=3, col="wheat")
于 2013-04-08T13:25:16.253 回答