Created
December 27, 2017 00:54
-
-
Save FelipeSBarros/f7885f6f9ce389cf4da7ee6929ff60d1 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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