[R-br] Preencher área entre duas linhas

[Delcio Rudinei Bortolanza]

A quem possa interessar, encontrei a solução desejada:


x<-1:5

set.seed(4)
y0<-sample(x)

set.seed(2)
y1<-sample(x)+5

matplot(x,data.frame(y0,y1),pch = NA,col = c(1,1),las=1)

xy0<-xspline(x,y0,-0.5,draw = F)
xy1<-xspline(x,y1,-0.5,draw = F)

polygon(c(xy0$x,rev(xy1$x)),c(xy0$y,rev(xy1$y)),col = "gray",border = "transparent")

xspline(x,y0,-0.5)
xspline(x,y1,-0.5)

points(x,y0,pch=0)
points(x,y1,pch=1)



Obrigado!


________________________________
De: R-br <r-br-bounces em listas.c3sl.ufpr.br> em nome de Cesar Rabak via R-br <r-br em listas.c3sl.ufpr.br>
Enviado: terça-feira, 17 de outubro de 2017 22:23
Para: a lista Brasileira oficial de discussão do programa R.
Assunto: Re: [R-br] Preencher área entre duas linhas

Mesmo que você defina a linha de polygon() como de cor nula (transparente)?


On Mon, Oct 16, 2017 at 5:26 PM, Delcio Rudinei Bortolanza via R-br <r-br em listas.c3sl.ufpr.br<mailto:r-br em listas.c3sl.ufpr.br>> wrote:

Olá!
Segue um exemplo hipotético:

#===========================================
x<-1:5

set.seed(4)
y0<-sample(x)

set.seed(2)
y1<-sample(x)+5

matplot(x,data.frame(y0,y1),pch = c(0,1),col = c(1,1),las=1)

xspline(x,y0,-0.5)
xspline(x,y1,-0.5)
#===============================================

Como preencher com cor entre as linhas suavizadas?
Obs: a função polygon() não gera o resultado pretendido, pois une os pontos com linhas retas.

Att., Delcio Bortolanza.

_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br<mailto:R-br em listas.c3sl.ufpr.br>
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<https://eur03.safelinks.protection.outlook.com/?url=https%3A%2F%2Flistas.inf.ufpr.br%2Fcgi-bin%2Fmailman%2Flistinfo%2Fr-br&data=02%7C01%7Cab_souza%40outlook.com%7C6ce61a28596c4cb615b808d515be6fa6%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636438830028959685&sdata=6GGbyZ8IpmFaGf1b5fjGm7XGAbveXdiqMLit3rLFibE%3D&reserved=0>
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia<https://eur03.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.leg.ufpr.br%2Fr-br-guia&data=02%7C01%7Cab_souza%40outlook.com%7C6ce61a28596c4cb615b808d515be6fa6%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636438830028959685&sdata=jMTg%2Fe3qOqaxHCCI53P%2BkAnQU65U3vj0qn6rE3DXefo%3D&reserved=0>) e forneça código mínimo reproduzível.

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20171019/8fbd605b/attachment.html>