R help es - Aug 2011 - Colores geom_polygon ggplot2

Cordial saludo.
 
estoy tratando de realizar el siguiente grafico
 
library("ggplot2")
graf<-function()
{
polys <- data.frame(  
  id =
rep(factor(c("1","2","3","4")),each=4),
  x = c(70,85,85,70,85,100,100,85,85,100,100,85,70,85,85,70), 
  y = c( 0, 0,50,50, 0,  0, 50,50,50,50,100,100,50,50,100,100), 
  value = rep(c(40, 15, 10,15), each=4) )  
 
p <- ggplot(polys, aes(x=x, y=y)) + geom_polygon(aes(fill=value,group=id))
return(p)}
graf()
 
He tenido problemas porque no encuentro la forma de cambiar los colores a los
que yo deseo, yo quiero que cada cuadro tenga un color especifico.
 
De antemano gracias por la intención prestada y espero me puedan ayudar

ANDRÉS FELIPE FLÓREZ RIVERA 
UNIVERSIDAD NACIONAL DE COLOMBIA
ESTADISTICA 2010 		 	   		  
	[[alternative HTML version deleted]]

No estoy seguro de que esto es los que buscas, pero prueba a pasar a 
factor (en lugar de númerico), el contenido de $value:

polys$value<- as.factor(polys$value)

antes de representar el gráfico.

Salud.

El 18/08/2011 23:55, ANDRÉS FELIPE FLÓREZ RIVERA
escribió:
> Cordial saludo.
>
> estoy tratando de realizar el siguiente grafico
>
> library("ggplot2")
> graf<-function()
> {
> polys<- data.frame(
>    id =
rep(factor(c("1","2","3","4")),each=4),
>    x = c(70,85,85,70,85,100,100,85,85,100,100,85,70,85,85,70),
>    y = c( 0, 0,50,50, 0,  0, 50,50,50,50,100,100,50,50,100,100),
>    value = rep(c(40, 15, 10,15), each=4) )
>
> p<- ggplot(polys, aes(x=x, y=y)) +
geom_polygon(aes(fill=value,group=id))
> return(p)}
> graf()
>
> He tenido problemas porque no encuentro la forma de cambiar los colores a
los que yo deseo, yo quiero que cada cuadro tenga un color especifico.
>
> De antemano gracias por la intención prestada y espero me puedan ayudar
>
> ANDRÉS FELIPE FLÓREZ RIVERA
> UNIVERSIDAD NACIONAL DE COLOMBIA
> ESTADISTICA 2010 		 	   		
> 	[[alternative HTML version deleted]]
>
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es

-- 
+--------------------------------------------------------------
| Francisco J. Viciana Fernández
| Coordinador del Registro de Población
| Servicio de Estadísticas Demográficas y Sociales
| Instituto de Estadística y Cartografía de Andalucía
| Leonardo Da Vinci, nº 21. Isla de La Cartuja.
| 41071 SEVILLA.
| franciscoj.viciana@juntadeandalucia.es
| Tlf.: +(34) 95 503 38 21
+--------------------------------------------------------------


	[[alternative HTML version deleted]]