通过添加(0,0)
到polygons的顶点,解决方案很简单。见下文:
x <- seq(0,50,0.01)
y <- dexp(seq(0,50,0.01),rate=0.11)
plot(x, y, type="l", col=col2rgb("yellow",0.5), xaxs="i", yaxs="i", ylim=c(0,0.15))
polygon(c(0, x), c(0, y), border=NA, col=col2rgb("yellow",0.5))
如何polygon()
工作
polygon()
将按顺序排列所有顶点。原始代码的问题在于原点(0, 0)
不是顶点之一,因此它不会成为多边形的一部分。您还可以考虑以下玩具示例:
x0 <- c(0, 0.5, 1.5)
y0 <- c(1.5, 0.5, 0)
## triangle, with three vertices
plot(x0, y0, pch = ".")
polygon(x0, y0, col = "red", border = NA)
## area under triangle, four vertices
polygon(c(0, x0), c(0, y0), col = "yellow", border = NA)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句