<div dir="ltr"><div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000">Oi Nilson, </div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000">Infelizmente seu CMR ainda não é totalmente reproduzível. Note que você chama plot(consumo...), mas não há nenhum objeto "consumo" até então. Substituindo "consumo" por "x" e "Y" o código funciona. </div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000">Sugiro que você tente fazer o que quer no ggplot e use geom_ribbon para isso. Há muitos exemplos disponíveis, creio que algum servirá para o seu propósito. </div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000"><a href="https://www.google.com/search?q=geom_ribbon&newwindow=1&rlz=1C5CHFA_enAR816AR817&sxsrf=ACYBGNRFJCCuwK4wOGpQ_UvWpF0fLQ6XWw:1567719453513&source=lnms&tbm=isch&sa=X&ved=0ahUKEwjhhomJ0rrkAhX2CrkGHQL2B9gQ_AUIEigB&biw=1432&bih=784&dpr=2" target="_blank">https://www.google.com/search?q=geom_ribbon&newwindow=1&rlz=1C5CHFA_enAR816AR817&sxsrf=ACYBGNRFJCCuwK4wOGpQ_UvWpF0fLQ6XWw:1567719453513&source=lnms&tbm=isch&sa=X&ved=0ahUKEwjhhomJ0rrkAhX2CrkGHQL2B9gQ_AUIEigB&biw=1432&bih=784&dpr=2</a><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000">Um abraço</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000">Nicolay</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000">-----------------------------------------------------------------------</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000"><span style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif">Grupo de Ecología de la Polinización</span><br style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif"><span style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif">(</span><a href="https://sites.google.com/view/ecopol/home" target="_blank" style="font-family:Arial,Helvetica,sans-serif">https://sites.google.com/view/ecopol/home</a><span style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif">)</span><br style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif"><span style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif">INIBIOMA, CONICET-Universidad Nacional del Comahue</span><br style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif"><span style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif">Quintral 1250</span><br style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif"><span style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif">8400 San Carlos de Bariloche</span><br style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif"><span style="color:rgb(34,34,34);font-family:Arial,Helvetica,sans-serif">Rio Negro, Argentina</span><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:#000000">-----------------------------------------------------------------------<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, Sep 5, 2019 at 6:12 PM Nilson Guiotoku por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr">Pessoal, gostaria de fazer um gráfico conforme o anexo, cujo o intervalo de<br>confiança fique com formato de sombra dentro do gráfico. Conforme figura<br>anexada: <br><div><br></div><div>URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190904/bfde02f0/attachment-0001.png" rel="noreferrer" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190904/bfde02f0/attachment-0001.png</a>> <br></div><div><br></div><div>Como tentativa usei o *polygon*, mas não sei se existe um outro recurso<br>melhor. Se alguém souber e puder contribuir, a lista do R agradece. Segue o<br>código:<br><br> x <- seq(1:30)<br>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])),<br>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></div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div></div>