[R-es] Superponer mapas en ggplot

Buenos días. Tengo dos mapas que hago con ggplot (abajo) y necesito
superponer el 2º al 1º. En el 1º se representa la variable PA, binomial (0,
1), en gris, y en el 2º la variable ExtTG7085, que es numérica y va de 0 a
200. La 2ª es un gradiente en rojo. Lo ideal sería que donde coinciden el
rojo de la 2ª se viera más oscuro, pero supongo que eso no es fácil. Podría
también ser en otro color, pero manteniendo el gradiente. He pensado,
también, en crear una nueva variable, combinación de las dos, que me
permitiera hacer eso mismo, pero no encuentro la forma.

Gracias por vuestra ayuda, una vez más,
Manuel

ggplot(legend=FALSE)+
  geom_point(data=NCDS,aes(x=lon,y=lat,color= PA),shape=15,size=1) +
  scale_color_manual(values=c("white","grey70"))+
  geom_path(data=map_data('world'), aes(x=long, y=lat,group=group))

ggplot(legend=FALSE)+
  geom_point(data=NCDS,aes(x=lon,y=lat,color= ExtTG7085),shape=15,size=1) +
# PTP o FTP
  scale_colour_gradient2(low =
"white",high="RED",midpoint=0,guide="colourbar",limits=c(0,200))+
  geom_path(data=map_data('world'), aes(x=long, y=lat,group=group))

        [[alternative HTML version deleted]]

Quizás lo tienes solucionado con el argumento alfa (para fijar un nivel de
transparencia en el gráfico).

Te mando un ejemplo:

https://rpubs.com/daniballari/ggplot





El mar., 28 jul. 2020 a las 8:26, Manuel Mendoza (<
mmendoza en fulbrightmail.org>) escribió:

Buenos días. Tengo dos mapas que hago con ggplot (abajo) y necesito
superponer el 2º al 1º. En el 1º se representa la variable PA, binomial
(0,
1), en gris, y en el 2º la variable ExtTG7085, que es numérica y va de 0 a
200. La 2ª es un gradiente en rojo. Lo ideal sería que donde coinciden el
rojo de la 2ª se viera más oscuro, pero supongo que eso no es fácil.
Podría
también ser en otro color, pero manteniendo el gradiente. He pensado,
también, en crear una nueva variable, combinación de las dos, que me
permitiera hacer eso mismo, pero no encuentro la forma.

Gracias por vuestra ayuda, una vez más,
Manuel

ggplot(legend=FALSE)+
  geom_point(data=NCDS,aes(x=lon,y=lat,color= PA),shape=15,size=1) +
  scale_color_manual(values=c("white","grey70"))+
  geom_path(data=map_data('world'), aes(x=long, y=lat,group=group))

ggplot(legend=FALSE)+
  geom_point(data=NCDS,aes(x=lon,y=lat,color= ExtTG7085),shape=15,size=1)
+
# PTP o FTP
  scale_colour_gradient2(low =
"white",high="RED",midpoint=0,guide="colourbar",limits=c(0,200))+
  geom_path(data=map_data('world'), aes(x=long, y=lat,group=group))

        [[alternative HTML version deleted]]

--
Juan Diego Alcaraz Hernández

http://juandiegoalcaraz.wordpress.com/
Research Group on Ecology of Inland Waters (GRECO)
Research Group on Aquatic Ecology (EcoAqua)
Institute of Aquatic Ecology
University of Girona

·´¯`·.¸¸..><((((º>.·´¯`·.¸¸.·´¯`·.¸><((((º>`·.¸¸.·´¯`·.¸
<º))))><`·.¸¸.·´¯`·.¸.<º))))><.¸. , . .·´¯`·.. <º))))><¸.·