[R-es] Dibujo con función polygon

[Oscar Perpiñan Lamigueiro]

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