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]]

