Elias e Alexandre, fiz uma adaptação das duas rotinas e o resultado foi o mapa plotado em um arquivo: dados.pgn<br><br>### INICIO<br><br>library(ggmap)<br>library(RgoogleMaps)<br>library(rgdal)<br><br>ender <- rbind(c("AVENIDA BRIGADEIRO LUIS ANTONIO, 453", "01317000",<br>
"BELA VISTA", "SÃO PAULO", "SP"),<br> c("RUA DR. COSTA JÚNIOR, 509", "05002000",<br> "AGUA BRANCA", "SÃO PAULO", "SP"),<br>
c("AV. DUQUE DE CAXIAS, 193", "01214100",<br> "SANTA IFIGENIA", "SÃO PAULO", "SP"),<br> c("RUA MADRE DE DEUS, 427", "03119000",<br>
"MOOCA", "SÃO PAULO", "SP"),<br> c("RUA CLODOMIRO AMAZONAS, 41", "04537010",<br> "ITAIM BIBI", "SÃO PAULO", "SP"),<br>
c("RUA LOEFGREEN, 2007", "04040033",<br> "VILA CLEMENTINO", "SÃO PAULO", "SP"),<br> c("AV. CELIDONIO NETO, N. 165", "17120000",<br>
"CENTRO", "AGUDOS", "SP"),<br> c("RUA CAPITÃO MIRANDA 57", "13900030",<br> "CENTRO", "AMPARO", "SP"))<br>
colnames(ender) <- c("endereco", "cep", "bairro", "municipio", "UF")<br><br>xy <- apply(ender, 1, function(x) geocode(paste0(x, collapse = ", ")))<br>coord <- do.call("rbind", xy)<br>
ender2 <- cbind(ender, coord)<br>ender2<br><br>options(OutDec=".")<br>cad <- subset(ender2,select=c("lat","lon"))<br>attach(cad,warn.conflicts=F)<br>cad<br><br>cad$size <- "tiny" <br>
cad$col <- "red" <br>cad$char <- "" <br><br>#get the bounding box: <br>bb <- qbbox(lat = cad[,"lat"], lon = cad[,"lon"]) <br>zoomx <- min(MaxZoom(latrange=bb$latR,lonrange=bb$lonR));<br>
centro = c(mean(bb$latR), mean(bb$lonR));<br><br>#download the map: <br>mapa <- GetMap.bbox(bb$lonR, bb$latR, destfile = "dados.png", GRAYSCALE =F, markers = cad,<br> center=centro, maptype = "hybrid",zoom=zoomx); <br>
<br>#determine the max zoom, so that all points fit on the plot <br><br>plot.new() <br>PlotOnStaticMap(mapa,lat = cad[,"lat"], lon = cad[,"lon"], cex=1.5,pch=20,col=c('blue', 'green', 'red'), add=F); <br>
<br>####### FIM<br><br>Mauricio<br>UFBA<br><br><br><div class="gmail_quote">Em 26 de setembro de 2012 18:34, Alexandre Santos <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div><div class="im"><div><span>Obrigado Elias,</span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<span><br></span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span> É exatamente este o local, muito didático este recurso.</span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<span><br></span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span>Redobrados agradecimentos,</span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<span><br></span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span>Alexandre</span></div><div> </div><div align="center"><br></div><div><br></div>
</div><div style="font-family:arial,helvetica,sans-serif;font-size:10pt"> <div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div dir="ltr"> <font face="Arial"><div class="im">
<hr size="1"> <b><span style="font-weight:bold">De:</span></b> Elias T. Krainski <<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>><br> <b><span style="font-weight:bold">Para:</span></b> "<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> <br>
</div><b><span style="font-weight:bold">Enviadas:</span></b> Quarta-feira, 26 de Setembro de 2012 13:15<div class="im"><br> <b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal<br> </div></font> </div>
<br><div><div><div style="font-size:12pt;font-family:'times new roman','new york',times,serif"><div><span><div class="im"><div>Vc não precisa transformar para longlat. Basta informar corretamente qual a projeção das suas coordenadas e a função plotGoogleMaps() trata a projeção internamente para colocar na mesma do googleMaps. No seu script, faltou " " (espaço) na string CRS (antes de cada "+"). Para mim não ocorreu erro e visualizei um talhão ao sul do município de Cáceres - MT, a oeste da BR-070 (confere?). Veja o script:</div>
<div><br></div><div>x <- c(426588,426593,426825,426829,426588)</div><div>y <- c(8216643,8216681,8216691,8216646,8216643)</div><div><br></div></div><div class="im"><div>### monta SpatialPointsDataFrame, como nao ha </div>
<div>### dados, criado um data.frame com a coluna
ID</div><div>require(sp)</div><div>Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),</div><div>
data=data.frame(ID=1:length(x)))</div><div><br></div><div>### assumindo uma particular projecao, e'</div><div>### necessario verificar se e' mesmo esta</div></div><div>proj4string(Pontos) <- CRS("+proj=utm +zone=21 +south +datum=WGS84 +units=m +no_defs")</div>
<div class="im"><div><br></div><div>### sobrepoe ao google Maps e visualiza</div><div>require(plotGoogleMaps) </div></div><div>plotGoogleMaps(Pontos)</div><div><br></div><div> Att.</div></span></div><div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
</div><div style="font-family:'times new roman','new york',times,serif;font-size:12pt">Elias T. Krainski<br><blockquote style="border-left:2px solid rgb(16,16,255);margin-left:5px;margin-top:5px;padding-left:5px">
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div dir="ltr">
<font face="Arial"> <hr size="1"> <b><span style="font-weight:bold">De:</span></b> Alexandre Santos <<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>><br> <b><span style="font-weight:bold">Para:</span></b> "<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>>; Elias T. Krainski <<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>> <br>
<b><span style="font-weight:bold">Enviadas:</span></b> Quarta-feira, 26 de Setembro de 2012 12:57<div class="im"><br> <b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal<br> </div></font> </div>
<br><div><div><div style="font-family:arial,helvetica,sans-serif;font-size:13px"><div class="im"><div style="font-family:arial,helvetica,sans-serif;font-size:13px">Obrigado pelo help Elias,</div><div style="font-family:arial,helvetica,sans-serif;font-size:13px">
<br></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"> Aquelas coordenadas na Bahia não eram minhas não, apenas peguei o post original e estava tentando adaptar para minhas coordenadas que são outras, atentei para a projeção, medida (m) e zona (21K) e fiz uma transformação para latlong e mesmo assim não deu certo, segue CRM abaixo:</div>
<div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><br></div></div><div style="background-color:transparent"><div style="background-color:transparent"><font>### coordenadas dos pontos</font></div>
<div style="background-color:transparent"><font>x <- c(426588,426593,426825,426829,426588)</font></div><div style="background-color:transparent"><font>y <- c(8216643,8216681,8216691,8216646,8216643)</font></div><div class="im">
<div style="background-color:transparent"><font>#</font></div><div style="background-color:transparent"><font>#</font></div><div style="background-color:transparent"><font>### monta SpatialPointsDataFrame, como nao ha</font></div>
<div style="background-color:transparent"><font>### dados, criado um data.frame com a coluna ID</font></div><div style="background-color:transparent"><font>require(sp)</font></div><div style="background-color:transparent">
<font><br></font></div><div style="background-color:transparent"><font>Pontos <-
SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),data=data.frame(ID=1:length(x)))</font></div><div style="background-color:transparent"><font><br></font></div></div><div class="im"><div style="background-color:transparent">
<font>proj4string(Pontos) <- CRS('+proj=utm +zone=21+datum=WGS84+units=m+south') #### Pontos originalmente em UTM</font></div><div style="background-color:transparent"><font><br></font></div><div style="background-color:transparent">
<font>t_latlong<- spTransform(Pontos, CRS("+proj=longlat +datum=WGS84")) ## Transformando para longlat </font></div><div style="background-color:transparent"><font><br></font></div><div style="background-color:transparent">
<font>require(plotGoogleMaps)</font></div><div style="background-color:transparent"><font>plotGoogleMaps(t_latlong)</font></div><div style="background-color:transparent"><font>#</font></div></div></div><div style="font-family:arial,helvetica,sans-serif;font-size:13px">
<br></div> <div style="font-family:arial,helvetica,sans-serif;font-size:10pt"> <div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div dir="ltr"> <font face="Arial"><div class="im">
<hr size="1"> <b><span style="font-weight:bold">De:</span></b> Elias T. Krainski <<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>><br> <b><span style="font-weight:bold">Para:</span></b> "<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> <br>
</div><b><span style="font-weight:bold">Enviadas:</span></b> Quarta-feira, 26 de Setembro de 2012 10:43<div class="im"><br> <b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal<br> </div></font> </div>
<br><div><div><div style="font-size:12pt;font-family:'times new roman','new york',times,serif"><div><span><div class="im"><div>Isso porque suas coordenadas
estão fora do range válido. Para projeção UTM, longitude varia entre 174W a 180E e latitude entre 80S a 84N. Seu primeiro ponto, por exemplo, (524227, 7978963) sugere isso e sugere também que suas coordenadas estão em alguma projeção onde a unidade de distancia é em metros, não em graus. Acho melhor você verificar qual é a projeção dos seus pontos. </div>
<div><br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">No primeiro post seu sobre este assunto você estava com coordenadas em graus e, usando "+proj=longlat +datum=WGS84" não deu esse problema, pois visualizei os cinco pontos numa região noroeste da Bahia, a uns 30km da divisa com Piaui. Veja o
script novamente:</div><div><br></div></div><div style="background-color:transparent"><div class="im"><div style="background-color:transparent">### coordenadas dos pontos </div><div style="background-color:transparent">
x <- c(-43.565,-43.564,-43.563,-43.565,-43.564) </div><div style="background-color:transparent">y <- c(-10.518,-10.466,-10.412,-10.516,-10.474) </div><div style="background-color:transparent"><br></div><div style="background-color:transparent">
### monta SpatialPointsDataFrame, como nao ha </div><div style="background-color:transparent">### dados, criado um data.frame com a coluna ID</div><div style="background-color:transparent">require(sp)</div><div style="background-color:transparent">
Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),</div><div style="background-color:transparent"> data=data.frame(ID=1:length(x)))</div><div style="background-color:transparent"><br></div><div style="background-color:transparent">
### assumindo uma particular projecao, e'</div><div style="background-color:transparent">### necessario verificar se e' mesmo esta</div><div style="background-color:transparent">proj4string(Pontos) <- CRS('+proj=longlat +datum=WGS84')</div>
<div style="background-color:transparent"><br></div><div style="background-color:transparent">### sobrepoe ao google Maps e visualiza</div><div style="background-color:transparent">require(plotGoogleMaps) </div></div><div style="background-color:transparent">
plotGoogleMaps(Pontos)</div><div class="im"><div style="background-color:transparent"><br></div><div style="background-color:transparent">### melhores informacoes ver</div><div style="background-color:transparent">vignette("plotGoogleMaps-intro")</div>
</div></div></span></div><div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> </div><div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
Elias T. Krainski<br><blockquote style="border-left:2px solid rgb(16,16,255);margin-left:5px;margin-top:5px;padding-left:5px"> <div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div dir="ltr"> <font face="Arial"> <hr size="1"><div class="im"> <b><span style="font-weight:bold">De:</span></b> Alexandre Santos <<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>><br>
<b><span style="font-weight:bold">Para:</span></b> "<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>>; Alexandre Santos <<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>> <br>
</div><b><span style="font-weight:bold">Enviadas:</span></b> Quarta-feira, 26 de Setembro de 2012 11:14<div class="im"><br> <b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal<br> </div></font> </div>
<br>
<div><div><div style="font-family:arial,helvetica,sans-serif;font-size:13px"><div class="im"><div align="center"><div>Elias,</div><div><br></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">
O único problema em trabalhar com UTM é que a função <span style="font-size:13px">plotGoogleMaps() não me permite selecionar a zona/setor, então qualquer coordenada que coloco o navegador retorna: Sentimos muito, mas não temos imagens daqui. Gostaria de encontrar um meio de não ter que transformar as coordenadas para latlong,</span></div>
<div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span style="font-size:13px"><br></span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<span style="font-size:13px">Obrigado,</span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span style="font-size:13px"><br></span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<span style="font-size:13px">Alexandre</span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span style="font-size:13px"><br></span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<span style="font-size:13px"><br></span></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span style="font-size:13px"><br></span></div></div> </div><div style="font-family:arial,helvetica,sans-serif;font-size:10pt">
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div dir="ltr"> <font face="Arial"><div class="im"> <hr size="1"> <b><span style="font-weight:bold">De:</span></b> Alexandre Santos <<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>><br>
</div><b><span style="font-weight:bold">Para:</span></b> "<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>>; Elias T. Krainski <<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>> <br>
<b><span style="font-weight:bold">Enviadas:</span></b> Quarta-feira, 26 de Setembro de 2012 9:54<br>
<b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal [RESOLVIDO]<br> </font> </div><div><div class="h5"> <br><div><div><div style="font-family:arial,helvetica,sans-serif;font-size:13px"><div style="font-family:arial,helvetica,sans-serif;font-size:13px">
Obrigado Elias, </div><div style="font-family:arial,helvetica,sans-serif;font-size:13px"><br></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">Passou despercebido, corrigido:</div>
<div style="background-color:transparent"><div style="background-color:transparent"><font>### coordenadas dos pontos</font></div><div style="background-color:transparent"><font> x <- c(524227,524268,524268,524227,524227)</font></div>
<div style="background-color:transparent"><font> y <-
c(7978963,7978963,7978846,7978846,7978963)</font></div><div style="background-color:transparent"><font> #</font></div><div style="background-color:transparent"><font> #</font></div><div style="background-color:transparent">
<font> ### monta SpatialPointsDataFrame, como nao ha</font></div><div style="background-color:transparent"><font> ### dados, criado um data.frame com a coluna ID</font></div><div style="background-color:transparent"><font> require(sp)</font></div>
<div style="background-color:transparent"><font><br></font></div><div style="background-color:transparent"><font> Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),data=data.frame(ID=1:length(x)))</font></div>
<div style="background-color:transparent"><font><br></font></div><div style="background-color:transparent"><font>### assumindo uma particular projecao,
e'</font></div><div style="background-color:transparent"><font>### necessario verificar se e' mesmo
esta</font></div><div style="background-color:transparent"><font>proj4string(Pontos) <- CRS('+proj=utm +datum=WGS84')</font></div><div style="background-color:transparent"><font>require(plotGoogleMaps)</font></div>
<div style="background-color:transparent"><font>plotGoogleMaps(Pontos)</font></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif"><font><br></font></div><div style="font-style:normal;font-size:13px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<font><br></font></div></div> <div style="font-family:arial,helvetica,sans-serif;font-size:10pt"> <div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div dir="ltr"> <font face="Arial"> <hr size="1">
<b><span style="font-weight:bold">De:</span></b> Elias T. Krainski <<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>><br> <b><span style="font-weight:bold">Para:</span></b> "<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> <br>
<b><span style="font-weight:bold">Enviadas:</span></b> Quarta-feira, 26 de Setembro de 2012 8:26<br> <b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal<br> </font> </div> <br><div><div><div style="font-size:12pt;font-family:'times new roman','new york',times,serif">
<div><span>Essas coordenadas não estão em latlong. Coordenadas em latlong são em graus e vão de -180 a 180 (longitude) e de -90 a 90 (latitude).</span></div><div> </div><div>Elias T. Krainski<br><blockquote style="border-left:2px solid rgb(16,16,255);margin-left:5px;margin-top:5px;padding-left:5px">
<div> <div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div dir="ltr"> <font face="Arial"> <hr size="1"> <b><span style="font-weight:bold">De:</span></b> ASANTOS <<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>><br>
<b><span style="font-weight:bold">Para:</span></b> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a> <br> <b><span style="font-weight:bold">Enviadas:</span></b> Terça-feira, 25 de Setembro de 2012
22:25<br> <b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal<br> </font> </div> <br><div>
<div>
Boa noite pessoal,<br>
<br>
Refazendo o exemplo do Elias em coordenadas UTM, não tive
sucesso (Erro: Geographical CRS given to non-conformant data). Olhei
o datum e estava OK e também no manual e não me parece que há nada
de errado, inclusive o exemplo clássico do meuse do pacote gstat
utilizado no exemplo do pacote plotGoogleMaps esta em UTM, alguém
poderia dar um help, segue CRM abaixo<br>
<br>
#<br>
### coordenadas dos pontos<br>
x <- c(524227,524268,524268,524227,524227)<br>
y <- c(7978963,7978963,7978846,7978846,7978963)<br>
#<br>
#<br>
### monta SpatialPointsDataFrame, como nao ha<br>
### dados, criado um data.frame com a coluna ID<br>
require(sp)<br>
Carregando pacotes exigidos: sp<br>
Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),<br>
+ data=data.frame(ID=1:length(x)))<br>
<br>
### assumindo uma particular projecao, e'<br>
### necessario verificar se e' mesmo esta<br>
proj4string(Pontos) <- CRS('+proj=longlat +datum=WGS84')<br>
Erro em `proj4string<-`(`*tmp*`, value = <S4 object of class
"CRS">) : <br>
Geographical CRS given to non-conformant data: 524268 7978963<br>
<br>
require(plotGoogleMaps)<br>
plotGoogleMaps(Pontos)<br>
Erro em spTransform(xSP, CRSobj, ...) : <br>
No transformation possible from NA reference system<br>
<br>
<br>
<br>
<br>
<div>Em 05/09/2012 07:44, Elias T. Krainski
escreveu:<br>
</div>
<blockquote type="cite">
<div style="font-size:12pt;font-family:'times new roman','new york',times,serif">
<div><span>
<div>Lamento postar codigo sem teste... Este agora foi
testado e funciona.</div>
<div><br>
</div>
<div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">###
coordenadas dos pontos </div>
<div>x <- c(-43.565,-43.564,-43.563,-43.565,-43.564) </div>
<div>y <- c(-10.518,-10.466,-10.412,-10.516,-10.474) </div>
<div><br>
</div>
<div>### monta SpatialPointsDataFrame, como nao ha </div>
<div>### dados, criado um data.frame com a coluna ID</div>
<div>require(sp)</div>
<div>Pontos <-
SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),</div>
<div> data=data.frame(ID=1:length(x)))</div>
<div><br>
</div>
<div>### assumindo uma particular projecao, e'</div>
<div>### necessario verificar se e' mesmo esta</div>
<div>proj4string(Pontos) <- CRS('+proj=longlat
+datum=WGS84')</div>
<div><br>
</div>
<div>### sobrepoe ao google Maps e visualiza</div>
<div>require(plotGoogleMaps) </div>
<div>plotGoogleMaps(xyd)</div>
<div><br>
</div>
<div>### melhores informacoes ver</div>
<div>vignette("plotGoogleMaps-intro")</div>
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt"><br>
</div>
</span></div>
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> </div>
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt">Elias T. Krainski<br>
<blockquote style="border-left:2px solid rgb(16,16,255);margin-left:5px;margin-top:5px;padding-left:5px">
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
<div dir="ltr"> <font face="Arial">
<hr size="1"> <b><span style="font-weight:bold">De:</span></b>
Mauro Sznelwar <a rel="nofollow" href="mailto:sznelwar@uol.com.br" target="_blank"><sznelwar@uol.com.br></a><br>
<b><span style="font-weight:bold">Para:</span></b>
Elias T. Krainski <a rel="nofollow" href="mailto:eliaskrainski@yahoo.com.br" target="_blank"><eliaskrainski@yahoo.com.br></a>
<br>
<b><span style="font-weight:bold">Enviadas:</span></b>
Terça-feira, 4 de Setembro de 2012 23:03<br>
<b><span style="font-weight:bold">Assunto:</span></b>
Re: [R-br] RgoogleMaps e rgdal<br>
</font> </div>
<br>
<div>
<div>
<div><font face="Arial">Continua não dando certo:</font></div>
<div><font face="Arial">Creito que tem um erro no <span style="BACKGROUND-COLOR:transparent">xy <-
SpatialPoints(cbind(xy)) que deveria ser</span></font></div>
<div><font face="Arial"><span style="BACKGROUND-COLOR:transparent">
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px"><font size="3"><span style="BACKGROUND-COLOR:transparent">xy
<- SpatialPoints(cbind(x,y)) </span></font></div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px"><font size="3"><span style="BACKGROUND-COLOR:transparent">E
mesmo corrigindo veja o acentece:</span></font></div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px"><font size="3"><span style="BACKGROUND-COLOR:transparent"><font color="#000000">>
plotGoogleMaps(x,y)<br>
Erro em function (classes, fdef,
mtable) : <br>
unable to find an inherited method
for function "spTransform", for
signature "numeric", "CRS"<br>
> </font></span><br>
</font></div>
</span><br>
</font></div>
<blockquote style="BORDER-LEFT:#000000 2px solid;PADDING-LEFT:5px;PADDING-RIGHT:0px;MARGIN-LEFT:5px;MARGIN-RIGHT:0px">
<div><br>
</div>
<div style="background-color:rgb(255,255,255);font-family:'times new roman','new york',times,serif;color:rgb(0,0,0);font-size:12pt">
<div><span>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px">Troquei
os pacotes. É necessário o pacote
plotGoogleMaps. Corrigindo:</div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px"><br>
y <-
c(-43.565,-43.564,-43.563,-43.565,-43.564) <br>
</div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px">x
<- <span style="BACKGROUND-COLOR:transparent">c(-10.518,-10.466,-10.412,-10.516,-10.474) </span><span style="BACKGROUND-COLOR:transparent"> </span></div>
<div><span style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px"><br>
</span></div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px">require(sp)</div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px"><span style="BACKGROUND-COLOR:transparent">xy
<- SpatialPoints(cbind(xy))</span><br>
</div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px"><br>
</div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px">require(plotGoogleMaps) </div>
<div style="background-color:transparent;font-family:Arial,Helvetica,sans-serif;color:rgb(69,69,69);font-size:12px">plotGoogleMaps(xy)</div>
</span></div>
<div> </div>
<div>Elias T. Krainski<br>
<blockquote style="BORDER-LEFT:rgb(16,16,255) 2px solid;MARGIN-TOP:5px;PADDING-LEFT:5px;MARGIN-LEFT:5px">
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
<div> </div>
</div>
</blockquote>
</div>
</div>
</blockquote>
</div>
</div>
<br>
<br>
</div>
</div>
</blockquote>
</div>
</div>
<br>
<fieldset></fieldset>
<br>
<pre>_______________________________________________
R-br mailing list
<a rel="nofollow" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a rel="nofollow" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a rel="nofollow" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre>--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Avenida dos Ramires, s/n
Caixa Postal 744
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)
<a rel="nofollow" href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a>
<a rel="nofollow" href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a>
======================================================================
</pre>
</div>
</div><br>_______________________________________________<br>R-br mailing list<br><a rel="nofollow" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br><a rel="nofollow" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div> </div> </blockquote></div> </div>
</div></div><br>_______________________________________________<br>R-br mailing list<br><a rel="nofollow" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br><a rel="nofollow" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div> </div> </div></div></div><br>_______________________________________________<br>
R-br mailing list<br><a rel="nofollow" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br><a rel="nofollow" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div></div></div> </div> </div></div>
</div><div><div class="h5">
<br>_______________________________________________<br>R-br mailing list<br><a rel="nofollow" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br><a rel="nofollow" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div></div></div> </div> </blockquote>
</div> </div></div></div><div><div class="h5"><br>_______________________________________________<br>R-br mailing list<br><a rel="nofollow" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a rel="nofollow" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
<br> </div></div></div> </div> </div></div></div><br><br> </div> </div> </blockquote></div> </div></div></div><div><div class="h5"><br>_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
<br> </div></div></div> </div> </div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br>Mauricio Cardeal<br>
UFBA<br><br>