R/MixPalette.Plot.R

In Ehsan-F/R-Mixtape: Mixtape: Enhancing the model making process

MixPalette.Plot <- function(palette = MixPalette) {
  
  z <- (1:5)^2
  z <- min(z[z >= length(palette)])
  z <- sqrt(z)
  library(tidyverse)
  
  
  squares <- tibble(
    x0 = c(rep(c(1:z), z))[1:length(palette)],
    
    y0 = rep(1:z, each=z)[1:length(palette)],
    colours_names = factor(names(palette), levels = names(palette))
  ) 
  
  squares %>% 
    ggplot(aes(x = x0, y = y0, group = colours_names, color = colours_names)) +
    geom_point(size = 35, shape = 15)  + 
    
    scale_color_manual(values = as.vector(unlist(palette))) +
    ylim(0,4.5) + xlim(0,4.5) +
    
    ggtitle('Colour Palette') +
    
    theme(
      plot.title = element_text(hjust = 0.5, size = 16, face = 'bold'),
      plot.subtitle = element_text(hjust = 0.5, size = 14),
      
      axis.title.x=element_blank(),
      axis.text.x=element_blank(),
      axis.ticks.x=element_blank(),
      
      axis.title.y=element_blank(),
      axis.text.y=element_blank(),
      axis.ticks.y=element_blank(),
      
      panel.background = element_rect(fill = 'white', 
                                      colour = 'white'),
      
      legend.title = element_blank(),
      legend.key = element_rect(fill = "white"),
      legend.text = element_text(face = 'bold', size = 12),
      
      text = element_text(family = 'Calibri')
    ) + guides(color = guide_legend(override.aes = list(size=10)))
  
}