Sesion 5 Mapas coroplet

# import dataset
globeMap <- read.csv("globeMap.csv")

library(ggplot2)

myMap <- ggplot(globeMap, aes(x=long, y=lat, group = as.factor(group)))

# add geometry
myMap <- myMap + geom_polygon(aes(fill=Continent_Name, color=Continent_Name))
# add color palettes
myMap <- myMap + scale_fill_viridis_d()
# customized color palette
myMap <- myMap + scale_colour_manual(values = c("#274239", "#c7eb22", "#e31f02", "#625b68", "#fa5a00", "#6ea41b", "#0a1e4d", "#e32e8f"))
# add labels
myMap <- myMap + labs(title = "Countries outlined by region", subtitle = "Using a mercator projection", caption = "Dataset retrieved from native ggplot map", x = "Longitude", y= "Latitude")
# add margins
myMap <- myMap + theme_bw()
# plot the map
myMap