<html><body><div style="color:#000; background-color:#fff; 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; "><span>Oi Mauricio, </span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal; "><span><br></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal; ">Se vc trocar a ordem de </div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal; "> </div><div style="background-color: transparent; "><div style="background-color: transparent; ">dados <- as.data.frame(cbind(bdlg,bdlt)) </div><div
style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; "><br></div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; background-color: transparent; ">para </div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; background-color: transparent; "><br></div><div style="background-color: transparent; "><div style="background-color: transparent; ">dados <- as.data.frame(cbind(bdlt,bdlg)) </div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; "><br></div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; background-color: transparent; ">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 size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Mauricio Cardeal <mcardeal2010@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <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> </font> </div> <br><meta
http-equiv="x-dns-prefetch-control" content="off"><div id="yiv548238393">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><meta http-equiv="x-dns-prefetch-control" content="on"><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br> </div> </div> </blockquote></div> </div></body></html>