6 Paletas de cores

7 Mapa básico do mundo com as fronteiras dos países

Vamos carregar os pacotes necessários:

library(tmap)
library(viridis)
library(RColorBrewer)

data(World)

tm_shape(World) +
  tm_borders() +
  tm_layout(main.title = "Mapa do Mundo", 
                    main.title.position = "center")

7.1 Paletas

• rainbow: Uma paleta com cores do arco-íris.

cores_rainbow <- rainbow(8)

tm_shape(World) +
  tm_polygons("pop_est", palette = cores_rainbow, title = "População Estimada") +
  tm_layout(main.title = "Mapa do Mundo por População Estimada", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

• terrain.colors: Uma paleta de cores inspirada em terreno.

cores_terrain <- terrain.colors(8)

tm_shape(World) +
  tm_polygons("pop_est", palette = cores_terrain, title = "População Estimada") +
  tm_layout(main.title = "Mapa do Mundo por População Estimada", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

• topo.colors: Uma paleta de cores que representa topografia.

cores_topo <- topo.colors(8)

tm_shape(World) +
  tm_polygons("pop_est", palette = cores_topo, title = "População Estimada") +
  tm_layout(main.title = "Mapa do Mundo por População Estimada", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

• Pacote viridis: fornece paletas mais fáceis de ler para pessoas com daltonismo e imprimam bem em escala de cinza.

cores <- viridis(8)

tm_shape(World) +
  tm_polygons("area", palette = cores, title = "Área (km2)") +
  tm_layout(main.title = "Mapa do Mundo por Área", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

• Pacote RColorBrewer: fornece um conjunto diversificado de paletas de cores.

Paletas sequenciais:

Paletas qualitativas:

Paletas divergentes:

cores_rcolorbrewer <- brewer.pal(7, "Set3")

tm_shape(World) +
  tm_polygons("area", palette = cores_rcolorbrewer, title = "Área (km2)") +
  tm_layout(main.title = "Mapa do Mundo por Área", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

cores_rcolorbrewer <- brewer.pal(7, "Dark2")

tm_shape(World) +
  tm_polygons("area", palette = cores_rcolorbrewer, title = "Área (km2)") +
  tm_layout(main.title = "Mapa do Mundo por Área", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

cores_rcolorbrewer <- brewer.pal(7, "Spectral")

tm_shape(World) +
  tm_polygons("life_exp", palette = cores_rcolorbrewer, title = "Expectativa de Vida") +
  tm_layout(main.title = "Mapa do Mundo por Expectativa de Vida", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

cores_rcolorbrewer <- brewer.pal(7, "BrBG")

tm_shape(World) +
  tm_polygons("life_exp", palette = cores_rcolorbrewer, title = "Expectativa de Vida") +
  tm_layout(main.title = "Mapa do Mundo por Expectativa de Vida", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

cores_rcolorbrewer <- brewer.pal(7, "Set1")

tm_shape(World) +
  tm_polygons("life_exp", palette = cores_rcolorbrewer, title = "Expectativa de Vida") +
  tm_layout(main.title = "Mapa do Mundo por Expectativa de Vida", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

• Greens: Escala de verde.

tm_shape(World) +
  tm_polygons("pop_est_dens", 
              palette = "Greens", 
              title = "População (km2)",
              breaks = c(0, 10, 50, 100, 200, 500, 1000, 5000, 10000),
              labels = c("0-10", "10-50", "50-100", "100-200", "200-500", "500-1000", "1000-5000", "5000-10000", ">10000")) +
  tm_layout(main.title = "Mapa do Mundo por Densidade Populacional", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

• Blues: Escala de azul.

tm_shape(World) +
  tm_polygons("pop_est_dens", 
              palette = "Blues", 
              title = "População (km2)",
              breaks = c(0, 10, 50, 100, 200, 500, 1000, 5000, 10000),
              labels = c("0-10", "10-50", "50-100", "100-200", "200-500", "500-1000", "1000-5000", "5000-10000", ">10000")) +
  tm_layout(main.title = "Mapa do Mundo por Densidade Populacional", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))

• Reds: Escala de vermelho.

 tm_shape(World) +
  tm_polygons("pop_est_dens", 
              palette = "Reds", 
              title = "População (km2)",
              breaks = c(0, 10, 50, 100, 200, 500, 1000, 5000, 10000),
              labels = c("0-10", "10-50", "50-100", "100-200", "200-500", "500-1000", "1000-5000", "5000-10000", ">10000")) +
  tm_layout(main.title = "Mapa do Mundo por Densidade Populacional", 
            main.title.position = "center", 
            legend.position = c("left", "bottom"))