Helder e demais colegas, boa noite!
Boa parte dos problemas são decorrentes da atualização das APIs do Google, havendo mudança nos links e parâmetros a utilizar.
No primeiro caso é só usar o pacote sugerido, com a ressalva de avaliar as coordenadas retornadas. Algumas podem não corresponder ao que se pretendia obter. Segue exemplo
### <code r>
### instala pacote se ainda não instalado...
if (!"ggmap" %in% installed.packages()) {install.packages("ggmap", dep=T)}
require(ggmap)
locais <- c("Avenida Marcelino Pires, 3600, Dourados, MS",
"Av. Marcelino Pires, 5488, Dourados, MS",
"Avenida Marcelino Pires, NA, Dourados, MS",
"Av. Marcelinho Ozires, 3000, Dourados, MS",
"Rua Reinaldo Bianchi, 1650, Dourados, MS",
"Rua Nononon Nonon, 2340, Dourados, MS")
geocode(locais)
### observar as coordenadas retornadas para locais!
### somente as duas primeira linhas correspondem à posição 'real' dos logradouros
### para obter informação sobre a coordenada use output="more"
geocode(locais, output="more")
geocode(locais, output="more")[c(1:4,10)] ### principais informações (ver type e loctype)
### </code>
No segundo caso, parece que o pacote não foi instalado (usar install.packages() antes de require()).
### <code r>
### instala pacote se ainda não instalado...
if (!"plotGoogleMaps" %in% installed.packages()) {install.packages("plotGoogleMaps", dep=T)}
require(plotGoogleMaps)
ll <- geocode(locais)
{
dat <- data.frame(ll, locais)
coordinates(dat)=~lon+lat
proj4string(dat) <- CRS("+proj=longlat +datum=WGS84")
}
plotGoogleMaps(dat) ### abrirá 'dat.htm' no browser padrão!!!
### </code>
No terceiro caso, parece haver erros na linha de comando (cooimg).
cooimg <- GetMap(center=c(9lon9=ll[2,4], 9lat9=ll[2,3]), zoom=16,maptype="roadmap", destfile="marimg.png", format="png32")
Segue um exemplo reproduzível desdobrado dos exemplos anteriores...
### <code r>
### instala pacote se ainda não instalado...
if (!"RgoogleMaps" %in% installed.packages()) {install.packages("RgoogleMaps", dep=T)}
require(RgoogleMaps)
map <- GetMap(center=c(-22.22258, -54.76349), zoom=6, maptype="roadmap", destfile="tmp.png", format="png32")
getwd(); dir(getwd(), pattern=".png$") ### lista arquivos .png salvos!
PlotOnStaticMap(map) ### plota figura
### </code>