R help es - Jul 2011 - Dibujo con función polygon

Hola,

Estoy intentando dibujar una curva, pero que esté divivida por la mitad en
dos colores:

 plot( seq(0, 100,by=1), seq(0,1,by=0.01), bty = "n",col =
"white")
 x <- c(50: 100)
 y <- 20*x^-1
 polygon( c(50,50, c(52:100),100 ) , c(1,y[1:50],1), col =
"steelblue2",
border = NA)

 x <- c( 0: 50 )
 y <- 20*x^-1
 polygon( c(c(21:50), 50 ) , c(y[21:50],1), col = "black", border =
NA)

El problema es que hay un pequeño punto que se sale de la curva esperada,
justo en la intersección de los dos poligonos, alguien tiene alguna
sugerencia para arreglarlo?

Gracias
Un saludo

-- 
Patricia García González

	[[alternative HTML version deleted]]

El Mon, 11 Jul 2011 18:24:31 +0200
Usuario R <r.user.spain en gmail.com> escribió:
> Hola,
> 
> Estoy intentando dibujar una curva, pero que esté divivida por la
> mitad en dos colores:
> 
>  plot( seq(0, 100,by=1), seq(0,1,by=0.01), bty = "n",col =
"white")
>  x <- c(50: 100)
>  y <- 20*x^-1
>  polygon( c(50,50, c(52:100),100 ) , c(1,y[1:50],1), col >
"steelblue2", border = NA)
> 
>  x <- c( 0: 50 )
>  y <- 20*x^-1
>  polygon( c(c(21:50), 50 ) , c(y[21:50],1), col = "black", border
> NA)
> 
> El problema es que hay un pequeño punto que se sale de la curva
> esperada, justo en la intersección de los dos poligonos, alguien
> tiene alguna sugerencia para arreglarlo?
> 
> Gracias
> Un saludo
> 
Hola,

Así funciona:

plot( seq(0, 100,by=1), seq(0,1,by=0.01), bty = "n", type='n')
 y <- 20*x^-1
 polygon( c(50, x, 100) , c(1, y, 1), col = "steelblue2", border = NA)

 x <- c( 20: 50 )
 y <- 20*x^-1
 polygon( c(x, 50) , c(y,1), col = "black", border = NA)

Saludos.

Oscar.

-------------
Oscar Perpiñán Lamigueiro
Dpto. de Ingeniería Eléctrica
EUITI-UPM

http://procomun.wordpress.com