Lamento postar codigo sem teste... Este agora foi testado e funciona.
### coordenadas dos pontos
x <- c(-43.565,-43.564,-43.563,-43.565,-43.564)
y <- c(-10.518,-10.466,-10.412,-10.516,-10.474)
### monta SpatialPointsDataFrame, como nao ha
### dados, criado um data.frame com a coluna ID
require(sp)
Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),
data=data.frame(ID=1:length(x)))
### assumindo uma particular projecao, e'
### necessario verificar se e' mesmo
esta
proj4string(Pontos) <- CRS('+proj=longlat +datum=WGS84')
### sobrepoe ao google Maps e visualiza
require(plotGoogleMaps)
plotGoogleMaps(xyd)
### melhores informacoes ver
vignette("plotGoogleMaps-intro")