<div><span style="font-size: medium; color: #0000ff;">Seu código não é reproduzível!</span></div>
<div> </div>
<div> </div>
<div dir="ltr">Pessoal, gostaria de fazer um gráfico conforme o anexo, cujo o intervalo de confiança fique com formato de sombra dentro do gráfico. Conforme figura anexada:
<div> </div>
<div>
<div><img src="../content_id?msg_id=MTY3OQ&cid=ii_k0602ms00&folder=JUNK" alt="image.png" width="307" height="292" /></div>
<div> </div>
<div>Como tentativa usei o  <strong>polygon</strong>, mas não sei se existe um outro recurso melhor. Se alguém souber e puder contribuir, a lista do R agradece. Segue o código:<br />
<div> </div>
<div> x <- seq(1:30)</div>
Y <- x + rnorm(30, 0,3)<br />model <-  lm(Y ~ x)<br />pred <- data.frame(x1 = x)<br />pred$y1 <- predict(model, newdata = pred, interval = "confidence")<br />plot(consumo, type = "n",<br />     main = "Consumo médio, kg", <br />     xlab = "Consumo estimado, kg ",<br />     ylab = "Consumo observado, kg" )<br />icfit = pred$y1<br />yy = c(as.numeric(as.vector(icfit[,2])), rev(as.numeric(as.vector(icfit[,3]))))<br />xx = c(x, rev(x))<br />polygon(xx, yy, col = "lightsteelblue2", border = NA) <br />points(consumo)<br />abline(model, col="blue", lwd= 2)<br />points(seq(2:15), seq(2:15), type = "l", col = "green", lwd = 2)<br />legend("topright", legend = c("modelo linear base y = x",<br />                              "modelo ajustado", "Bandas de confiança, 95%" ),<br />       lty = c(1,1,1), col = c("green", "blue", "lightsteelblue2"), <br />       lwd = c(2,2,NA), bty = "n", pch = c(NA,NA, 15))<br /><br /></div>
</div>
</div>
<div>_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<br /><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br /><br /></div>