Preencher área entre duas linhas
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.
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.
Mesmo fazendo isso. Adicionando essa linha de comando poderá observar que as bordas do polígono e as linhas que unem os pontos do gráfico não se sobrepõe: polygon(c(x,rev(x)),c(y0,rev(y1)),col = "gray",border = "transparent") Att., Delcio. ________________________________ 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<mailto: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<mailto:R-br@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.
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<mailto: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<mailto:R-br@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.
participantes (2)
-
Cesar Rabak -
Delcio Rudinei Bortolanza