[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))