okcolors

install.packages("okcolors")
library(okcolors)

# dev version:
install.packages('remotes') # if not already installed
# wait for the installation to complete

remotes::install_github('nelsonquesado/okcolors@main')
library(okcolors)

library(ggplot2)
library(okcolors)

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

library(ggplot2)
library(okcolors)

ggplot(mpg, aes(class, fill = class)) +
  geom_bar() +
  scale_fill_okcolors("skyscrapers", discrete = TRUE)  # 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"

library(tidyverse); library(okcolors); library(aopdata); library(sf)

read_landuse('fortaleza', geometry = TRUE) %>% 
  group_by(id_hex, geometry) %>% 
  reframe(`Low-income individuals` = P001 * (R003 <= 4) %>% if_else(is.na(.), 0, .),
          `Low-complexity job positions` = 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',
                      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 mismatch between low-complexity job positions\nand low-income individuals in Fortaleza, Brazil.') +
  theme(legend.position = 'bottom')

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 = TRUE,
                       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')

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 = TRUE)) %>% 
  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') +
  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()

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(discrete = TRUE)

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', discrete = TRUE, direction = -1)

  @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.2},
    url = {https://cran.r-project.org/package=okcolors},
    doi = {10.32614/CRAN.package.okcolors}}