Estimados por solicitar su ayuda, estoy intentando cambiar el color de una
etiqueta de un gráfico, he realizado múltiples intentos sin un resultado
satisfactorio.
Debido a que necesito realizar múltiples gráficos he realizado una función
que dando parámetros de entrada me grafique las variables o los valores que
deseo. Mi problema es en la representación de los colores.
Los parámetros de la función son:
base_shape: representa al archivo shape sobre el cual se requiere graficar
las variables
base_puntos: contiene las coordenadas de los puntos a graficar
base_titulos: base de los titulos que tiene cada uno de los gráficos a
realizarse
mapa_temp<-function(base_shape,base_puntos,base_titulos){
##Se requiere crear un factor para ubicar los puntos dentro del mapa
base_puntos<-cbind(base_puntos,categoria="Agencia")
base_puntos$categoria <- factor(base_puntos$categoria,levels
c("Agencia"))
grafico<-ggplot() +
geom_polygon(data = base_shape, aes(x = long, y = lat, group = group,
fill = valor), color = "black", size = 0.25) +
scale_fill_distiller(palette = "Reds",
guide="colourbar") +
theme_nothing(legend = TRUE) +
geom_point(data = base_puntos, aes(x = long.agencia.utm, y
=lat.agencia.utm, colour="Agencia"), size = 3.05, pch = 20, fill =
"Blue")+
labs(title=paste(base_titulos,"\n(por
provincias)"),fill="Temperatura",colour=NULL)+
theme(title = element_text(colour="black", size = 16, face =
"bold"))+
theme(legend.title = element_text(colour="black", size=13,
face="bold"))+
theme(legend.text = element_text(colour="black", size = 10))
return(grafico)
}
El resultado es el siguiente: un mapa de temperatura cuyos puntos
representa los sitios donde se desarrollan las actividad del titulo del
mapa.
[image: Imágenes integradas 1]
El problema que tengo es que necesito algo mas visible, es decir, que los
puntos sean de otro color por ejemplo azul, verde, etc y no rojos, pero a
su vez que se mantengan los nombres de las etiquetas.
Alguna idea quizá?
De antemano muchas gracias por su apoyo.
Saludos cordiales,
Alejandro Ayala
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20151113/a02a55db/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 31278 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20151113/a02a55db/attachment-0001.png>
Has problado con los paquetes de color? library(RColorBrewer) # Paleta de colores display.brewer.all() library(wesanderson) # Paleta de colores Bucea por internet para ver sus paletas predefinidas El 14 de noviembre de 2015, 0:16, Alejandro Ayala <alejo.ayalab en gmail.com> escribió:> Estimados por solicitar su ayuda, estoy intentando cambiar el color de una > etiqueta de un gráfico, he realizado múltiples intentos sin un resultado > satisfactorio. > > Debido a que necesito realizar múltiples gráficos he realizado una función > que dando parámetros de entrada me grafique las variables o los valores que > deseo. Mi problema es en la representación de los colores. > > Los parámetros de la función son: > > base_shape: representa al archivo shape sobre el cual se requiere graficar > las variables > base_puntos: contiene las coordenadas de los puntos a graficar > base_titulos: base de los titulos que tiene cada uno de los gráficos a > realizarse > > mapa_temp<-function(base_shape,base_puntos,base_titulos){ > ##Se requiere crear un factor para ubicar los puntos dentro del mapa > base_puntos<-cbind(base_puntos,categoria="Agencia") > base_puntos$categoria <- factor(base_puntos$categoria,levels > c("Agencia")) > > grafico<-ggplot() + > geom_polygon(data = base_shape, aes(x = long, y = lat, group = group, > fill = valor), color = "black", size = 0.25) + > scale_fill_distiller(palette = "Reds", guide="colourbar") + > theme_nothing(legend = TRUE) + > geom_point(data = base_puntos, aes(x = long.agencia.utm, y > =lat.agencia.utm, colour="Agencia"), size = 3.05, pch = 20, fill = "Blue")+ > labs(title=paste(base_titulos,"\n(por > provincias)"),fill="Temperatura",colour=NULL)+ > theme(title = element_text(colour="black", size = 16, face = "bold"))+ > theme(legend.title = element_text(colour="black", size=13, > face="bold"))+ > theme(legend.text = element_text(colour="black", size = 10)) > return(grafico) > } > > El resultado es el siguiente: un mapa de temperatura cuyos puntos > representa los sitios donde se desarrollan las actividad del titulo del > mapa. > > [image: Imágenes integradas 1] > > El problema que tengo es que necesito algo mas visible, es decir, que los > puntos sean de otro color por ejemplo azul, verde, etc y no rojos, pero a > su vez que se mantengan los nombres de las etiquetas. > > Alguna idea quizá? > > De antemano muchas gracias por su apoyo. > > Saludos cordiales, > Alejandro Ayala > > > _______________________________________________ > R-help-es mailing list > R-help-es en r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es >-- *Juan Diego Alcaraz Hernández * *http://juandiegoalcaraz.wordpress.com/ <http://juandiegoalcaraz.wordpress.com/>* *Institut d'Investigació per a la Gestió Integrada de Zones Costaneres (IGIC) Universitat Politècnica de ValènciaC/ Paranimf, 146730 Grau de Gandia (València)Tlf: (+34) 963.877.007 (ext: 43040) <http://juandiegoalcaraz.wordpress.com/>* ·´¯`·.¸¸..><((((º>.·´¯`·.¸¸.·´¯`·.¸><((((º>`·.¸¸.·´¯`·.¸ <º))))><`·.¸¸.·´¯`·.¸.<º))))><.¸. , . .·´¯`·.. <º))))><¸.· ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20151114/ce918db7/attachment-0001.html> ------------ próxima parte ------------ A non-text attachment was scrubbed... Name: image.png Type: image/png Size: 31278 bytes Desc: no disponible URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20151114/ce918db7/attachment-0001.png>
Hola Alejandro. en la siguiente línea de ti función: geom_point(data = base_puntos, aes(x = long.agencia.utm, y =lat.agencia.utm, colour="Agencia"), size = 3.05, pch = 20, fill = "Blue") al usar ggplot y geom_point deberías cambiar "pch" por "shape" y dado que estás usando la forma 20, en vez de fill debería ser color="blue" (sin la mayúscula) Con eso los puntos serán azules, lo que no se si mejorará su visibilidad, prueba con diferentes colores, quizás con esos rojos destaque más un color vivo (naranjas, amarillos), pero eso ya son especulaciones mías. Un saludo y espero que te sirva. El sáb., 14 nov. 2015 a las 9:09, Juan Diego Alcaraz-Hernández (< jdalcaraz en gmail.com>) escribió:> Has problado con los paquetes de color? > > library(RColorBrewer) # Paleta de colores > display.brewer.all() > library(wesanderson) # Paleta de colores > > Bucea por internet para ver sus paletas predefinidas > > > > El 14 de noviembre de 2015, 0:16, Alejandro Ayala <alejo.ayalab en gmail.com> > escribió: > >> Estimados por solicitar su ayuda, estoy intentando cambiar el color de >> una etiqueta de un gráfico, he realizado múltiples intentos sin un >> resultado satisfactorio. >> >> Debido a que necesito realizar múltiples gráficos he realizado una >> función que dando parámetros de entrada me grafique las variables o los >> valores que deseo. Mi problema es en la representación de los colores. >> >> Los parámetros de la función son: >> >> base_shape: representa al archivo shape sobre el cual se requiere >> graficar las variables >> base_puntos: contiene las coordenadas de los puntos a graficar >> base_titulos: base de los titulos que tiene cada uno de los gráficos a >> realizarse >> >> mapa_temp<-function(base_shape,base_puntos,base_titulos){ >> ##Se requiere crear un factor para ubicar los puntos dentro del mapa >> base_puntos<-cbind(base_puntos,categoria="Agencia") >> base_puntos$categoria <- factor(base_puntos$categoria,levels >> c("Agencia")) >> >> grafico<-ggplot() + >> geom_polygon(data = base_shape, aes(x = long, y = lat, group = group, >> fill = valor), color = "black", size = 0.25) + >> scale_fill_distiller(palette = "Reds", guide="colourbar") + >> >> theme_nothing(legend = TRUE) + >> geom_point(data = base_puntos, aes(x = long.agencia.utm, y >> =lat.agencia.utm, colour="Agencia"), size = 3.05, pch = 20, fill = "Blue")+ >> labs(title=paste(base_titulos,"\n(por >> provincias)"),fill="Temperatura",colour=NULL)+ >> theme(title = element_text(colour="black", size = 16, face = "bold"))+ >> theme(legend.title = element_text(colour="black", size=13, >> face="bold"))+ >> theme(legend.text = element_text(colour="black", size = 10)) >> return(grafico) >> } >> >> El resultado es el siguiente: un mapa de temperatura cuyos puntos >> representa los sitios donde se desarrollan las actividad del titulo del >> mapa. >> >> [image: Imágenes integradas 1] >> >> El problema que tengo es que necesito algo mas visible, es decir, que los >> puntos sean de otro color por ejemplo azul, verde, etc y no rojos, pero a >> su vez que se mantengan los nombres de las etiquetas. >> >> Alguna idea quizá? >> >> De antemano muchas gracias por su apoyo. >> >> Saludos cordiales, >> Alejandro Ayala >> >> >> _______________________________________________ >> R-help-es mailing list >> R-help-es en r-project.org >> https://stat.ethz.ch/mailman/listinfo/r-help-es >> > > > > -- > > *Juan Diego Alcaraz Hernández * > > *http://juandiegoalcaraz.wordpress.com/ > <http://juandiegoalcaraz.wordpress.com/>* > > > > > > *Institut d'Investigació per a la Gestió Integrada de Zones Costaneres > (IGIC) Universitat Politècnica de ValènciaC/ Paranimf, 146730 Grau de > Gandia (València)Tlf: (+34) 963.877.007 (ext: 43040) > <http://juandiegoalcaraz.wordpress.com/>* > ·´¯`·.¸¸..><((((º>.·´¯`·.¸¸.·´¯`·.¸><((((º>`·.¸¸.·´¯`·.¸ > <º))))><`·.¸¸.·´¯`·.¸.<º))))><.¸. , . .·´¯`·.. <º))))><¸.· > > _______________________________________________ > R-help-es mailing list > R-help-es en r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20151114/3d424865/attachment-0001.html> ------------ próxima parte ------------ A non-text attachment was scrubbed... Name: image.png Type: image/png Size: 31278 bytes Desc: no disponible URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20151114/3d424865/attachment-0001.png>