Mas o que está acontecendo? Aparece um plot de mapa, sem pontos, ou você simplesmente não ve os pontos? Você tem alguma mensagem de erro?
Tente dar um plot(dados_1) pra ver se está tudo certinho. Se os dois funcionam, confira no summary se os pontos estão dentro da área do mapa.
Veja no exemplo abaixo que o que você faz era para funcionar, eu acho.
library(maptools)
xx <- readShapeSpatial(system.file("shapes/sids.shp", package="maptools")[1],IDvar="FIPSNO", proj4string=CRS("+proj=longlat +ellps=clrk66"))
summary(xx)
pontos<-data.frame(x=runif(10,-84.32385,-75.45698),y=runif(10,33.88199,36.58965))
summary(pontos)
plot(xx)
points(pontos,pch=19,col="red")