# NOT RUN {
data <- data.frame(name = c("USA", "FRA", "CHN", "RUS", "COG", "DZA"),
    color = round(runif(6, 1, 10)))
data %>%
    datamaps() %>%
    add_choropleth(name, color, colors = c("skyblue", "yellow", "orangered"))
# categorical colors
cat <- data.frame(name = c("USA", "BRA", "COL", "CAN", "ARG", "CHL"),
    col = rep(c("Yes", "No"), 6))
cat %>%
    datamaps(projection = "orthographic") %>%
    add_choropleth(name, col, colors = c("red", "blue"))
# US states
states <- data.frame(st = c("AR", "NY", "CA", "IL", "CO", "MT", "TX"),
    val = c(10, 5, 3, 8, 6, 7, 2))
states %>%
    datamaps(scope = "usa", default = "lightgray") %>%
    add_choropleth(st, val) %>%
    add_labels()
# }
Run the code above in your browser using DataLab