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@listas.c3sl.ufpr.br> em nome de Cesar Rabak via R-br <r-br@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@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@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.