<div dir="ltr">Lo siento, se me pasó al leer tu función.<div><br></div><div>deberías eliminar también de esa línea la parte dentro de aes de colour="Agencia", no está haciendo nada, o cambiarla por colour = categoria que es el nombre de la variable que has creado para contener "Agencia". En este ultimo caso, te sobraría el color = "blue" fuera de aes, ya que ya se lo indicas en aes. Algo así:</div><div><br></div><div>geom_point(data = base_puntos, aes(x = long.agencia.utm, y =lat.agencia.utm, colour=categoria), size = 3.05, pch = 20) +<br></div><div>scale_colour_manual(values = c('blue'))</div><div><br></div><div>Espero que te sirva.</div></div><br><div class="gmail_quote"><div dir="ltr">El sáb., 14 nov. 2015 a las 13:54, Víctor Granda García (<<a href="mailto:victorgrandagarcia@gmail.com">victorgrandagarcia@gmail.com</a>>) escribió:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Hola Alejandro.<div><br></div><div>en la siguiente línea de ti función:</div></div><div dir="ltr"><div><br></div><div> <span style="line-height:18.2812px">geom_point(data = base_puntos, aes(x = long.agencia.utm, y =lat.agencia.utm, colour="Agencia"), size = 3.05, pch = 20, fill = "Blue")</span></div><div><span style="line-height:18.2812px"><br></span></div></div><div dir="ltr"><div><span style="line-height:18.2812px">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)</span></div><div><span style="line-height:18.2812px"><br></span></div><div><span style="line-height:18.2812px">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.</span></div><div><span style="line-height:18.2812px"><br></span></div><div><span style="line-height:18.2812px">Un saludo y espero que te sirva.</span></div></div><br><div class="gmail_quote"><div dir="ltr">El sáb., 14 nov. 2015 a las 9:09, Juan Diego Alcaraz-Hernández (<<a href="mailto:jdalcaraz@gmail.com" target="_blank">jdalcaraz@gmail.com</a>>) escribió:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Has problado con los paquetes de color?<br><br>library(RColorBrewer) # Paleta de colores<br> display.brewer.all()<br>library(wesanderson) # Paleta de colores<br><br></div>Bucea por internet para ver sus paletas predefinidas<br><br><br></div><div class="gmail_extra"></div><div class="gmail_extra"><br><div class="gmail_quote">El 14 de noviembre de 2015, 0:16, Alejandro Ayala <span dir="ltr"><<a href="mailto:alejo.ayalab@gmail.com" target="_blank">alejo.ayalab@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">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.<div><br></div><div>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.</div><div><br></div><div>Los parámetros de la función son:</div><div><br></div><div>base_shape: representa al archivo shape sobre el cual se requiere graficar las variables</div><div>base_puntos: contiene las coordenadas de los puntos a graficar</div><div>base_titulos: base de los titulos que tiene cada uno de los gráficos a realizarse</div><div><br></div><div><div>mapa_temp<-function(base_shape,base_puntos,base_titulos){</div><div> ##Se requiere crear un factor para ubicar los puntos dentro del mapa</div><div> base_puntos<-cbind(base_puntos,categoria="Agencia")</div><div> base_puntos$categoria <- factor(base_puntos$categoria,levels = c("Agencia"))</div><div> </div><div> grafico<-ggplot() + </div><div> geom_polygon(data = base_shape, aes(x = long, y = lat, group = group, fill = valor), color = "black", size = 0.25) +</div><div> scale_fill_distiller(palette = "Reds", guide="colourbar") + </div><div> theme_nothing(legend = TRUE) + </div><div> geom_point(data = base_puntos, aes(x = long.agencia.utm, y =lat.agencia.utm, colour="Agencia"), size = 3.05, pch = 20, fill = "Blue")+</div><div> labs(title=paste(base_titulos,"\n(por provincias)"),fill="Temperatura",colour=NULL)+</div><div> theme(title = element_text(colour="black", size = 16, face = "bold"))+</div><div> theme(legend.title = element_text(colour="black", size=13, face="bold"))+</div><div> theme(legend.text = element_text(colour="black", size = 10)) </div><div> return(grafico)</div><div>}</div></div><div><br></div><div>El resultado es el siguiente: un mapa de temperatura cuyos puntos representa los sitios donde se desarrollan las actividad del titulo del mapa.</div><div><br></div><div><img src="cid:ii_151031cd3621d68e" alt="Imágenes integradas 1" height="432" width="474"><br></div><div><br></div><div>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.</div><div><br></div><div>Alguna idea quizá?</div><div><br></div><div>De antemano muchas gracias por su apoyo.</div><div><br></div><div>Saludos cordiales,</div><div>Alejandro Ayala</div><div><br></div></div>
<br>_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br></blockquote></div><br><br clear="all"><br></div><div class="gmail_extra">-- <br><div><div dir="ltr"><i><font color="#333333"><b><span style="background-color:rgb(243,243,243)"><span></span></span>Juan Diego Alcaraz Hernández <br></b></font></i><div style="text-align:left"><i><font color="#333333"><b></b></font></i></div><div style="text-align:left"><br><i><font style="font-family:times new roman,serif" color="#666666" size="2"><a href="http://juandiegoalcaraz.wordpress.com/" target="_blank">http://juandiegoalcaraz.wordpress.com/</a></font></i></div><div style="text-align:left"><i><font style="font-family:times new roman,serif" color="#666666" size="2"><div>Institut d'Investigació per a la Gestió Integrada de Zones Costaneres (IGIC)<br>
Universitat Politècnica de València<br></div>C/ Paranimf, 1<br>46730 Grau de Gandia (València)<br>Tlf: (+34) 963.877.007 (ext: 43040)<br><a href="http://juandiegoalcaraz.wordpress.com/" target="_blank"><span style="color:rgb(111,168,220)"></span></a></font></i><span style="background-color:rgb(0,255,255)"><span style="background-color:rgb(255,255,255)"><i><font style="font-family:times new roman,serif" color="#666666" size="2"></font></i></span><span style="color:rgb(11,83,148)"><span style="background-color:rgb(255,255,255)"><span style="font-size:11px"><span><span><span style="color:rgb(255,0,0)"><span style="color:rgb(224,102,102)"></span></span></span></span></span></span></span></span><span style="background-color:rgb(0,255,255)"><span style="color:rgb(11,83,148)"><span style="background-color:rgb(255,255,255)"><span style="font-size:11px"><span><span><span style="color:rgb(255,0,0)"><span style="color:rgb(224,102,102)"><span style="background-color:rgb(0,255,255)"><span style="color:rgb(11,83,148)"><span style="background-color:rgb(255,255,255)"><span style="font-size:11px"><span><span> </span></span></span><span style="font-size:11px"><span><span><span style="color:rgb(191,144,0)"></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span><font size="1"><br>
<span style="color:rgb(111,168,220)">·</span><span style="color:rgb(153,153,153)"><span style="color:rgb(111,168,220)">´¯`·.¸¸..</span><span style="color:rgb(241,194,50)">><((((º></span><span style="color:rgb(111,168,220)">.·´¯`·.¸¸.·´¯`·.¸</span><span style="color:rgb(241,194,50)">><((((º></span><span style="color:rgb(111,168,220)">`·.¸¸.·´¯`·.¸</span><br></span></font><div><span style="color:rgb(153,153,153)"><font size="1">
<span style="color:rgb(230,145,56)"><º))))><</span><span style="color:rgb(111,168,220)">`·.¸¸.·´¯`·.¸.</span><span style="color:rgb(230,145,56)"><º))))><</span></font></span><span style="color:rgb(153,153,153)"><font size="1">.<span style="color:rgb(111,168,220)">¸. , . .·´¯`·..<span style="color:rgb(230,145,56)"> </span></span><span style="color:rgb(230,145,56)"><º))))><</span><span style="color:rgb(111,168,220)">¸.·</span></font></span>
</div><span style="background-color:rgb(0,255,255)"><span style="color:rgb(11,83,148)"><span style="font-size:11px"><span><span></span></span></span></span><span style="font-size:11px"><span></span></span></span><br></div></div></div>
</div>
_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a></blockquote></div></blockquote></div>