Oi Elias.<br>Essa opção de troca abre um mapa bem longe do local esperado ! E a primeira, abre no mar !!!<br>Mauricio <br><br><div class="gmail_quote">Em 5 de setembro de 2012 08:49, Elias T. Krainski <span dir="ltr"><<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@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 style="font-size:12pt;font-family:times new roman,new york,times,serif"><div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
<span>Oi Mauricio, </span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif"><span><br></span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">
Se vc trocar a ordem de </div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif"> </div><div style="background-color:transparent">
<div style="background-color:transparent">dados <- as.data.frame(cbind(bdlg,bdlt)) </div><div style="font-style:normal;font-size:16px;font-family:'times new roman','new york',times,serif"><br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">
para </div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif"><br></div><div style="background-color:transparent"><div style="background-color:transparent">
dados <- as.data.frame(cbind(bdlt,bdlg)) </div><div style="font-style:normal;font-size:16px;font-family:'times new roman','new york',times,serif"><br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">
funciona.</div></div></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> Mauricio Cardeal <<a href="mailto:mcardeal2010@gmail.com" target="_blank">mcardeal2010@gmail.com</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, 4 de Setembro de 2012 15:36<br>
<b><span style="font-weight:bold">Assunto:</span></b> [R-br] RgoogleMaps e rgdal<br> </div></font> </div> <br><div><div class="h5"><div>Olá caros mestRes ! Estou reenviando essa mensagem porque não tenho certeza de que ela chegou à lista,
<br>uma vez que não recebi no meu email a notificação.
<br>
<br>Estou tentando plotar alguns pontos (latitude e longitude) no mapa de Monte Santo, Bahia,
<br>para uma pesquisa em genética médica, através
<br>do Rgoogle e rgdal, mas o mapa que aparece ao final não é o de Monte Santo,
<br>apesar de as coordenadas estarem de acordo com as de Monte Santo.
<br>O código não apresenta erro, mas o resultado não está certo.
<br>
<br>Uso o Ubuntu 12.04, o R 2.15.1 e o ESS/Emacs. <br><br>O que estou fazendo errado ? Segue o CMR:
<br>
<br>#bibliotecas
<br>library(RgoogleMaps)
<br>library(rgdal)
<br>
<br>#dados de latitude
<br>bdlt <- c(-43.565,-43.564,-43.563,-43.565,-43.564)
<br>#dados de longitude
<br>bdlg <- c(-10.518,-10.466,-10.412,-10.516,-10.474)
<br>dados <- as.data.frame(cbind(bdlt,bdlg))
<br>names(dados) <- c("lat","lon")
<br>attach(dados,warn.conflicts=F)
<br>dados
<br>
<br>dados$size <- "tiny"
<br>dados$col <- "red"
<br>dados$char <- ""
<br>#get the bounding box:
<br>bb <- qbbox(lat = dados[,"lat"], lon = dados[,"lon"])
<br>
<br>#download the map:
<br>mapa <- GetMap.bbox(bb$lonR, bb$latR, destfile = "dados.png", GRAYSCALE =F,
<br>markers = dados);
<br>
<br>#determine the max zoom, so that all points fit on the plot
<br>zoom <- min(MaxZoom(latrange=bb$latR,lonrange=bb$lonR));
<br>plot.new()
<br>PlotOnStaticMap(mapa,lat = dados[,"lat"], lon = dados[,"lon"],
<br> cex=1.5,pch=20,col=c('blue', 'green', 'red'),add=F);
<br>
<br>Agradeço a ajuda,
<br>
<br>Mauricio Cardeal
<br>Complexo Hospitalar Universitário Prof. Edgard Santos<br>Pós-graduação Processos Interativos dos Órgãos e Sistemas<br>Instituto de Ciências da Saúde<br>Universidade Federal da Bahia<br>
</div><br></div></div><div class="im">_______________________________________________<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> </blockquote></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>