okcolors

v0.1.0 {CRAN} release 2025-05-15

v0.1.1 {DEV}

Installation

install.packages("okcolors")library(okcolors)# dev version:install.packages('remotes')# if not already installed# wait for the installation to completeremotes::install_github('nelsonquesado/okcolors@main')library(okcolors)

Usage

library(ggplot2)library(okcolors)ggplot(mpg, aes(displ,hwy,color=class))+  geom_point(size=3)+  scale_color_okcolors()# Just add it like any ggplot scale

library(ggplot2)library(okcolors)ggplot(mpg, aes(class,fill=class))+  geom_bar()+  scale_fill_okcolors("skyscrapers")# Again, just add it like any ggplot scale

valid_palettes()[1]"it""stone""skyscrapers""obsession""moment"

okcolors('obsession',12) [1]"#45924C""#83A744""#C1BC3C""#EFC344""#ECA07C""#EA7DB5" [7]"#EB66B9""#EF5C87""#F35155""#C4536D""#845A9E""#4561CF"

Palettes

it - Here it goes again

library(tidyverse); library(okcolors); library(aopdata); library(sf)read_landuse('fortaleza',geometry=T) %>%   group_by(id_hex,geometry) %>%   reframe(`Low-income individuals`=P001* (R003<=4) %>% if_else(is.na(.),0,.),`Low-complexity job psitions`=T002) %>%   pivot_longer(cols=3:4) %>%   mutate(value=value/sum(value)) %>%   st_as_sf() %>%   ggplot()+  geom_sf(aes(fill=value),color=NA)+  facet_grid(.~name)+   scale_fill_okcolors('it',discrete=F,transform='log',na.value= okcolors('it',n=1,direction=1),breaks= c(.000001,.0001,.005),labels= c('0.0001%','0.01%','0.5%'),name='Proportion\n',direction=1)+  theme_linedraw()+  labs(title='Spatial misatch between low-complexity job positions\nand low-income individuals in Fortaleza, Brazil.')+  theme(legend.position='bottom')

stone - A stone only rolls downhill

library(tidyverse); library(okcolors)library(GTFSwizard); library(hrbrthemes)for_bus_gtfs %>%   get_fleet('by.hour') %>%ggplot+  geom_line(aes(x=hour,y=fleet,color=service_pattern,group=service_pattern),linewidth=2)+  scale_color_okcolors('stone',discrete=T,direction=-1,name='Service Pattern',labels= c('Business days','Sundays','Saturdays'))+  theme_linedraw()+  scale_y_comma(big.mark='.')+  labs(title='Bus fleet variation during the day in Fortaleza, Brazil.',x='Time of the day',y='Fleet (veh)')+  theme(legend.position='bottom')

skyscrapers - Skyscrapers

library(tidyverse); library(okcolors); library(aopdata); library(hrbrthemes)read_population('all') %>%   mutate(`Proportion of white individuals`= (P002/P001) %>% round(1)) %>%   group_by(`Proportion of white individuals`,name_muni) %>%   reframe(`Average per capita household income`= mean(R001,na.rm=T)) %>%ggplot+  geom_line(aes(`Proportion of white individuals`,`Average per capita household income`,color=`Average per capita household income`))+  geom_point(aes(`Proportion of white individuals`,`Average per capita household income`,color=`Average per capita household income`),size=4)+  facet_wrap(name_muni~.)+  scale_color_okcolors('skyscrapers',guide='none',discrete=F)+  scale_x_percent(breaks= c(0,0.2,.4,.6,.8))+  scale_y_comma(big.mark='.',prefix='R$',breaks= c(1000,3000,5000))+  labs(title='Average income for different racial contexts')+  theme_linedraw()

obsession - Obsession

library(tidyverse); library(okcolors)mpg %>%   ggplot()+  geom_boxplot(aes(x=class,y=hwy,fill=class))+  labs(title="Highway MPG by Car Class",x="Car Class",y="Highway MPG")+  theme_linedraw()+  theme(legend.position="none")+  scale_fill_okcolors()

moment - The one moment

library(okcolors); library(tidyverse)diamonds %>%   ggplot(aes(x=cut,fill=clarity))+  geom_bar(position="fill")+  labs(title="Proportion of Clarity Within Diamond Cuts",x="Cut",y="Proportion",fill="Clarity")+  theme_linedraw()+  scale_fill_okcolors('moment',direction=-1)

Contributing

Related Packages

Citation

  @Manual{quesado.silveira.2025,    title = {okcolors: A Set of Color Palettes Inspired by OK Go Music Videos for ggplot2 in R.},    author = {Nelson de O. {Quesado Filho} and Ana Flávia T. {Silveira},    year = {2025},    note = {R package version 0.1.0},    url = {https://cran.r-project.org/package=okcolors},    doi = {10.32614/CRAN.package.okcolors}}

Acknowledgement