List colors with ggplot2

R_colors.R

library(ggplot2)
library(dplyr)
library(stringr)
library(pipeR)

.data = data_frame(fill=colours()) %>>%
    mutate(basename=str_extract(fill, '[^\\d]+'), number=extract_numeric(fill)) %>>%
    dplyr::filter(!(basename %in% c('gray', 'grey') & (number %% 10 != 0))) %>>%
    replace_na(list(number=0)) %>>%
    arrange(basename, number) %>>%
    mutate(colour=ifelse(colMeans(col2rgb(fill)) < 128, 'white', 'black'),
           fill=factor(fill, levels=fill)) %>>%
    (?.)

gp = ggplot(.data, aes(x=0, y=0, fill=fill))+
    geom_raster()+
    geom_text(aes(label=fill, colour=colour), family='mono')+
    scale_fill_identity()+
    scale_colour_identity()+
    facet_wrap(~fill, ncol=53, dir='v')+
    theme_void()+
    theme(legend.position='none')+
    theme(panel.margin=grid::unit(0, 'mm'))

dev.off()
quartz(width=16, height=12)
gp

ggsave('R_colors.pdf', gp, width=16, height=12)
quartz.save('R_colors_quartz.pdf', type='pdf')
quartz.save('R_colors.png')