ChoropletMap

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

library(ggplot2)

Grafica <- ggplot(Mapa, aes(x=long, y=lat, group = as.factor(group)))
Grafica <- Grafica + geom_polygon()
Grafica

#Agregar Color a los Continentes
Grafica2 <- ggplot(Mapa, aes(x=long, y=lat, group = as.factor(group)))
Grafica2 <- Grafica2 + geom_polygon(aes(fill=Continent_Name))
Grafica2

#Personalizar Colores, Agregar Titulos y Nombres de Ejes
Grafica3 <- ggplot(Mapa, aes(x=long, y=lat, group = as.factor(group)))
Grafica3 <- Grafica3 + geom_polygon(aes(fill=Continent_Name))
Grafica3 <- Grafica3 + scale_fill_manual(values = c ("#6340b9", "#0e605d", "#08a79f", "#30732d", "#382325", "#8d7280"))  
Grafica3 <- Grafica3 +  labs(title = "Continentes", caption = "Dataset globeMap", x = "Longitud", y= "Latitud")
Grafica3

#Agregar Bordes a los Paises
Grafica4 <- ggplot(Mapa, aes(x=long, y=lat, group = as.factor(group)))
Grafica4 <- Grafica4 + geom_polygon(aes(fill=Continent_Name, color=Continent_Name))
Grafica4 <- Grafica4 + scale_fill_manual(values = c("#6340b9", "#0e605d", "#08a79f", "#30732d", "#382325", "#8d7280"))
Grafica4 <- Grafica4 + scale_colour_manual(values =c("#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7"))
Grafica4 <- Grafica4 +  labs(title = "Continentes", caption = "Dataset globeMap", x = "Longitud", y= "Latitud")
Grafica4 <- Grafica4 + theme_bw()
Grafica4

#Paleta Magma
Grafica5 <- ggplot(Mapa, aes(x=long, y=lat, group = as.factor(group)))
Grafica5 <- Grafica5 + geom_polygon(aes(fill=order))
Grafica5 <- Grafica5 + scale_fill_viridis_c(option = "magma")
Grafica5 <- Grafica5 +  labs(title = "Continentes", caption = "Dataset globeMap", x = "Longitud", y= "Latitud")
Grafica5