我有以下问题:
set.seed(1234)
dis = seq(1, 800, 10)
yvar = rnorm(length (dis), 50, 10)
myd <- data.frame (xvar = dis, yvar = yvar, yvarL =
yvar - rnorm (length (yvar),5, 1), yvarU = yvar + rnorm (length (yvar), 5, 1))
plot(myd$xvar,myd$yvar,pch=19,cex=.75,col="blue")
points(myd$xvar,myd$yvarL,col="gray", pch=19,cex=.5)
points(myd$xvar,myd$yvarU,col="gray", pch=19,cex=.5)
Y 具有三个值 - Y、上置信度和下置信度。我想在轴上的两个间隔之间着色。图表的其余部分仅是点。假设的产品图应该是相似的(不完全是)。
如何在 myd$xvar 中在 650 到 690 和 210 到 280 之间的两个区间之间着色和生成线图。我尝试根据这篇文章进行一些多边形拟合(在 R 中的 xy 曲线图中着色),但没有成功。
polygon(c(myd$xvar[1:200], myd$xvar[200:1]), c(myd$xvar[1:200],
myd$yvar[200:1]), col="gray")