Skip to content

Instantly share code, notes, and snippets.

@FelipeSBarros
Created December 27, 2017 00:54
Show Gist options
  • Save FelipeSBarros/f7885f6f9ce389cf4da7ee6929ff60d1 to your computer and use it in GitHub Desktop.
Save FelipeSBarros/f7885f6f9ce389cf4da7ee6929ff60d1 to your computer and use it in GitHub Desktop.
library(ggplot2)
library(ggmap)
library(maps)
library(mapdata)
library(dismo)
#Usando dados do pacote "mapdata"
usa <- map_data("usa") # Definindo qual dado queremos trabalhar
ggplot() +
geom_polygon(data = usa, aes(x=long, y = lat, group = group)) + # Aqui estamos usando o data frame "usa" para plotar-lo como poligono
coord_fixed(1.3)
# Se quiser fazer o mesmo, mas com os limites dos estados:
states <- map_data("state")
ggplot(data = states) +
geom_polygon(aes(x = long, y = lat, group = group), color = "white") +
coord_fixed(1.3) +
guides(fill=FALSE)
# para adicionar seus pontos (objeto chamado "species"), considerando que vc tem um dataframe com ao menos tres colunas (lon, lat e grupo resultate do K-means, que chaamrei de kmeans), ficaria algo assim:
mapsBase <- ggplot(data = states) +
geom_polygon(aes(x = long, y = lat, group = group), color = "white") +
coord_fixed(1.3) +
guides(fill=FALSE)
mapBase + geom_point(data=species, aes(x=lon, y=lat),group = kmeans)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment