## Not run:
# gdpData <- CIAdata("GDP") # load some world data
#
# mWorldMap(gdpData, key="country", fill="GDP")
#
# gdpData <- gdpData %>% mutate(GDP5 = ntiles(-GDP, 5, format="rank"))
# mWorldMap(gdpData, key="country", fill="GDP5")
#
# mWorldMap(gdpData, key="country", plot="frame") +
# geom_point()
#
# mergedData <- mWorldMap(gdpData, key="country", plot="none")
#
# ggplot(mergedData, aes(x=long, y=lat, group=group, order=order)) +
# geom_polygon(aes(fill=GDP5), color="gray70", size=.5) + guides(fill=FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab