Choroplet

globeMap <- read.csv("../Icesi/BDD Proyecto Final/globeMap.csv")

library(ggplot2)

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

mymap <- mymap + geom_polygon(aes(fill=Continent_Name, color=Continent_Name))

mymap <- mymap + scale_fill_viridis_d()

mymap <- mymap + labs(title = "Countries outlined by region", subtitle = "Using a mercator projection", caption = "Dataset retrieved from native ggplot map", x = "Longitude", y= "Latitude")
mymap