DivvyStyle_Map.R

map<-ggplot(data=na.df)+geom_polygon(aes(long,lat, group=group),color="black", alpha=.25)+
  scale_x_continuous(limits = c(-87.725, -87.575))+ scale_y_continuous(limits = c(41.825, 41.95))
  
map<-map+geom_segment(data = theages,aes(x=longitude, y=latitude, xend=lon1, yend=lat1, colour=range), alpha=.25)+
  scale_colour_brewer(palette="Blues")+
  guides(colour = guide_legend(title="Age Range",override.aes = list(alpha = 1)))+
  theme(panel.grid.minor=element_blank(), panel.grid.major=element_blank(), panel.background = element_rect(fill="#2FCAFC"), axis.ticks=element_blank(), axis.text=element_blank(), axis.title= element_blank(), legend.position="none")

map+geom_point(data=stationsa,aes(x=longitude, y=latitude), color="white" ,alpha=.55, size=I(5))