Importando mapas do google com a funcão ggmap

O software R oferece cerca de 4000 pacotes com diferentes análises estatísticas e funções gráficas. Fazendo uma busca por pacotes relacionados a mapas me interessei pela funcão ggmap, vinculada à função ggplot2.

Ela é bem fácil de lidar depois que se compreende a lógica da coisa. A filosofia dessa função é baseada na idéia de “gramática dos gráficos”, visando comandos em que o usuário descreve todos os componentes da figura, mais detalhes na página oficial dos autores da função. Para fazer um teste, dei uma estudada para (1) extrair um mapa do google e (2) plotar os pontos das amostragens que realizamos até agora no Lago Guaíba.

Para tanto tem que ter uma planilha com os dados das coordenadas em graus decimais e demais informações que queira colocar. Aqui coloquei somente o número do ponto, um exemplo simples para começar.

library(ggplot2)
library(ggmap)

#data frame com as coordenadas em graus decimais e informações, total de 27 
tablemap<-read.table("https://www.dropbox.com/s/kwsgumv7ilt2mgm/tablemap.txt?dl=1")
head(tablemap) 
        lon       lat point         
1 -51.33704 -29.95326     1             
2 -51.22997 -30.01519     2           
3 -51.32068 -30.21160     3   
4 -51.24097 -30.13274     4          
5 -51.05942 -30.40774     5         
6 -51.09834 -30.40001     6 

#obtendo o mapa do google
map <- get_map(location = "Lago Gauíba", zoom = 10, maptype = "terrain",
+ source = "google")

# iniciando a fucão ggmap
p <- ggmap(map)

#juntando o mapa com o pontos  
p <- p + geom_text(data=tablemap,aes(x = lon, y = lat, label = point), 
+ colour="black",size=4,hjust=0, vjust=0)+ theme(legend.position = "none") 

#colocando os pontos pontos em cima do mapa
p <- p + geom_point(data=tablemap,aes(x=lon, y=lat),colour="white",size=2)

#barbada
p