(x=long,y=lat,group=group),colour="grey",fill="white")+
geom_point(data=mynewdata,aes(x=long,y=lat,size...='Hawaii') %>%ggplot()+
geom_polygon(aes(x=long,y=lat,group=group),colour="grey",fill="white",size=.2...%ggplot()+ geom_polygon(aes(x=long,y=lat,group=group),colour="grey...%ggplot()+
geom_polygon(aes(x=long,y=lat,group=group),colour="grey...(data=mapdata,aes(x=long,y=lat,group=group),colour="grey",fill="white")+
geom_point(data=mynewdata,aes