Paleta de Cores no R

Função para criar uma paleta de cores no R a partir de uma imagem.

Fonte: http://curso-r.com/blog/2017/04/22/2017-04-21-paleta-de-cores/

library(jpeg)
library(magrittr)
library(tibble)
library(dplyr)
criar_paleta <- function(img, num_cores){
  # transforma a imagem em uma matriz
  img_matrix <- apply(img, 3, as.numeric)
  # treina o algoritmo de k médias
  km <- kmeans(img_matrix, centers = num_cores)
  img_df <- tibble(
    r = img_matrix[,1], 
    g = img_matrix[,2], 
    b = img_matrix[,3],
    cluster = km$cluster
  )
  # calcula os centroides dos grupos
  centroides <- img_df %>%
    group_by(cluster) %>%
    summarise_all(mean)
  # transforma a cor em hexadecimal
  centroides <- centroides %>%
    mutate(cor = rgb(r, g, b))
  # vetor de cores
  sort(centroides$cor)
}
img <- readJPEG("leoni.jpg")
plot(as.raster(img))

paleta <- criar_paleta(img, 8)
exibir(paleta)

img <- readJPEG("aman.jpg")
plot(as.raster(img))

paleta <- criar_paleta(img, 8)
exibir(paleta)

img <- readJPEG("espadim.jpg")
plot(as.raster(img))

paleta <- criar_paleta(img, 8)
exibir(paleta)

img <- readJPEG("brasão.jpg")
plot(as.raster(img))

paleta <- criar_paleta(img, 8)
exibir(paleta)

img <- readJPEG("AMANp.jpg")
plot(as.raster(img))

paleta <- criar_paleta(img, 8)
exibir(paleta)

img <- readJPEG("aedb.jpg")
plot(as.raster(img))

paleta <- criar_paleta(img, 8)
exibir(paleta)

img <- readJPEG("unesp.jpg")
plot(as.raster(img))

paleta <- criar_paleta(img, 8)
exibir(paleta)

img <- readJPEG("dilma.jpg")
plot(as.raster(img))

paleta <- criar_paleta(img, 8)
exibir(paleta)