# palettes.R
# ::rtemis::
# 2016-22 E.D. Gennatas rtemis.org
# Useful color resource
# https://encycolorpedia.com
# UCSF ----
#' UCSF Colors
#'
#' `ucsfCol`: UCSF color palette (https://identity.ucsf.edu/brand-guide/color)
#'
#' @name rtPalettes
ucsfLegacyCol <- list(
navy = "#052049",
teal = "#18A3AC",
green = "#90BD31",
blue = "#178CCB",
orange = "#F48024",
purple = "#716FB2",
red = "#EC1848",
yellow = "#FFDD00",
iTeal = "#058488",
iGreen = "#6EA400",
iBlue = "#007CBE",
iOrange = "#F26D04",
iRed = "#EB093C"
)
ucsfCol <- list(
Navy = "#052049",
A2 = "#0F388A",
A3_CTA_Blue = "#006BE9",
B3_Blue = "#178CCB",
B5 = "#B8E6FA",
B6 = "#E2F4FC",
C1 = "#0E5258",
C2 = "#14828C",
C3_Teal = "#16A0AC",
C4 = "#60D0DA",
C5 = "#B4E2E8",
D1 = "#00483A",
D2 = "#007242",
D3_Green = "#32A03E",
E3_Chartreuse = "#84C234",
E4_Point_Reyes = "#B4DC55",
F1 = "#2E2872",
F2 = "#443E8C",
F3_Purple = "#6C62D0",
F4_Yosemite = "#8A8CE3",
F5 = "#C0C0EA",
G1 = "#461850",
G2 = "#6C247C",
G3_Violet = "#A238BA",
G4 = "#C45ED8",
G5 = "#EACCF0",
H1 = "#561038",
H2 = "#821A56",
H3_Magenta = "#C42882",
H4 = "#E266AE",
H5 = "#F2C2DE",
I3_Blue_Gray = "#506380",
I6 = "#F2F3F4",
J2 = "#878D96",
J3_Cool_Gray = "#B4B9BF",
J5 = "#E1E3E5",
K3_Gray = "#D1D3D3",
L3_Yellow = "#FEB80A",
M3_Orange = "#FA6E1E",
N3_Red = "#E61048"
)
#' UCSF Color Palette
#'
#' `ucsfPalette`: Subset of `ucsfCol`
#'
#' @name rtPalettes
ucsfPalette <- ucsfCol[c(
"teal", "orange", "blue", "yellow", "purple",
"red", "navy", "green"
)]
# UC Davis ----
#' UC Davis Colors
#'
#' `ucdCol`: UC Davis color palette
#' (https://marketingtoolbox.ucdavis.edu/visual-identity/color.html)
#' @name rtPalettes
ucdCol <- list(
davisBlue = "#002855",
davisGold = "#DAAA00",
unitransRed = "#BA0C2F",
westernRedbud = "#C6007E",
californiaPoppy = "#ED8B00",
goldenLupine = "#FFCD00",
sunnyGrass = "#78BE20",
skyBlue = "#00B5E2",
recPoolBlue = "#008EAA",
wineGrape = "#642667",
muBrick = "#C26E60",
hartHallStucco = "#E6A65D",
sageGreen = "#9CAF88",
evergreen = "#00573F",
winterSkyGray = "#5B7F95",
centennialWalkGray = "#B1B3B3",
corkOak = "#ACA39A",
southHallShingleBrown = "#4F2C1D"
)
# Berkeley ----
#' Berkeley Colors
#'
#' `berkeleyCol`: Berkeley color palette
#' (https://brand.berkeley.edu/colors/)
#'
#' @name rtPalettes
berkeleyCol <- list(
Berkeley_Blue = "#003262",
Founders_Rock = "#3B7EA1",
California_Gold = "#FDB515",
Medalist = "#C4820E",
Wellman_Tile = "#D9661F",
Rose_Garden = "#EE1F60",
Golden_Gate = "#ED4E33",
South_Hall = "#6C3302",
Bay_Fog = "#DDD5C7",
Lawrence = "#00B0DA",
LapLane = "#00A598",
Pacific = "#46535E",
Sather_Gate = "#B9D3B6",
Ion = "#CFDD45",
Soy_Bean = "#859438",
Stone_Pine = "#584F29",
Grey = "#EEEEEE",
Web_Grey = "#888888"
)
# UC Santa Cruz ----
#' UC Santa Cruz Colors
#'
#' `ucscCol`: UC Santa Cruz color palette
#' (https://communications.ucsc.edu/visual-design/color/)
#'
#' @name rtPalettes
ucscCol <- list(
blue = "#003c6c",
gold = "#fdc700",
mediumBlue = "#006aad",
lightBlue = "#13a5dc",
teal = "#007988",
orange = "#f29813",
yellow = "#ffbf00",
green = "#93c02d",
rubineRed = "#da216d"
)
# UC Merced ----
#' UC Merced Colors
#'
#' `ucmercedCol`: UC Merced color palette
#' (https://publicrelations.ucmerced.edu/color-guidelines)
#'
#' @name rtPalettes
ucmercedCol <- list(
mercedRiverBlue = "#092f44",
foothillsGold = "#a29061",
sierraSkyBlue = "#5f8498",
wildflowerBabyBlueEyes = "#2980b9",
yosemiteSnowWhite = "#F8F5EC",
halfDomeSlate = "#5B5B5B",
mercedRyeGreen = "#235B16"
)
# UC Santa Barbara ----
#' UC Santa Barbara Colors
#'
#' `ucsbCol`: UC Santa Barbara color palette
#' (https://www.ucsb.edu/visual-identity/color)
#' @name rtPalettes
ucsbCol <- list(
navy = "#003660",
gold = "#FEBC11",
aqua = "#04859B",
moss = "#7A8D39",
seaGreen = "#0BA89A",
coral = "#EF5645",
mist = "#9CBEBE",
clay = "#DCD6CC",
sandstone = "#C9BF9D",
lightGray = "#DCE1E5"
)
# UCLA ----
#' UCLA Colors
#'
#' `uclaCol`: UCLA color palette (http://brand.ucla.edu/identity/colors)
#' @name rtPalettes
uclaCol <- list(
Blue = "#2774AE",
Gold = "#FFD100",
Darkest_Blue = "#003B5C",
Darker_Blue = "#005587",
Lighter_Blue = "#8BB8E8",
Lightest_Blue = "#C3D7EE",
Darkest_Gold = "#FFB81C",
Darker_Gold = "#FFC72C",
Yellow = "#FFFF00",
Green = "#00FF87",
Magenta = "#FF00A5",
Cyan = "#00FFFF",
Purple = "#8237FF"
)
# UC Riverside ----
#' UC Riverside Colors
#'
#' `ucrCol`: UC Riverside color palette (https://brand.ucr.edu/ucr-colors)
#' @name rtPalettes
ucrColor <- list(
ucrBlue = "#2d6cc0",
ucrGold = "#f1ab00",
ucrGray = "#393b41"
)
# UCI ----
#' UCI Colors
#'
#' `uciCol`: UCI color palette (https://communications.uci.edu/campus-resources/graphic-standards/colors.php)
#' @name rtPalettes
uciCol <- list(
blue = "#0064a4",
yellow = "#ffd200",
teal = "#6aa2b8",
lightGray = "#c6beb5",
navy = "#1b3d6d",
orange = "#f78d2d",
darkGray = "#555759",
lightYellow = "#f7eb5f"
)
# UC San Diego ----
#' UC San Diego Colors
#'
#' `ucsdCol`: UC San Diego color palette
#' (https://ucpa.ucsd.edu/brand/elements/color-palette/)
#' @name rtPalettes
ucsdCol <- list(
blue = "#182B49",
mediumBlue = "#006A96",
gold = "#C69214",
yellow = "#FFCD00",
cyan = "#00C6D7",
green = "#6E963B",
lightYellow = "#F3E500",
orange = "#FC8900",
coolGray = "#747678",
lightGray = "#B6B1A9",
darkGold = "#84754E"
)
# University of California ----
#' University of California Colors
#'
#' `californiaCol`: University of California color palette
#' (http://brand.universityofcalifornia.edu/guidelines/color.html#!primary-colors)
#' @name rtPalettes
californiaCol <- list(
ucBlue = "#1295D8",
ucGold = "#FFB511",
blue = "#005581",
lightBlue = "#72CDF4",
gold = "#FFD200",
lightgold = "#FFE552",
orange = "#FF6E1B",
lightOrange = "#FF8F28",
pink = "#E44C9A",
lightPink = "#FEB2E0",
teal = "#00778B",
lightTeal = "#00A3AD",
ucGray = "#7C7E7F",
warmGray8 = "#8F8884",
warmGray3 = "#BEB6AF",
warmGray1 = "#DBD5CD",
metallicGold = "#B4975A"
)
# Stanford ----
#' Stanford Colors
#'
#' `stanfordCol`: Stanford color palette
#' (https://identity.stanford.edu/color.html#digital-color)
#'
#' @name rtPalettes
stanfordCol <- list(
Cardinal = "#8c1515",
Cool_Grey = "#4d4f53",
Black = "#2e2d29",
Bright_Red = "#B1040E",
Chocolate = "#2F2424",
Stone = "#544948",
Fog = "#F4F4F4",
Light_Sandstone = "#F9F6EF",
Sandstone = "#d2c295",
Warm_Grey = "#3f3c30",
Beige = "#9d9573",
Light_Sage = "#c7d1c5",
Clay = "#5f574f",
Cloud = "#dad7cb",
Driftwood = "#b6b1a9",
Sandhill = "#b3995d",
Palo_Alto = "#175e54",
Teal = "#00505c",
Purple = "#53284f",
Redwood = "#8d3c1e",
Brown = "#5e3032",
Sky = "#0098db",
Lagunita = "#007c92",
Mint = "#009b76",
Gold = "#b26f16",
Sun = "#eaab00",
Poppy = "#e98300"
)
# California State University ----
#' California State University Colors
#'
#' `csuCol`: California State University color palette
#' (https://www2.calstate.edu/csu-system/csu-branding-standards/Documents/CSU-Brand-Guidelines-8-2018.pdf)
#' @name rtPalettes
csuCol <- list(
red = "#CC0B2A",
coolGray = "#D9D9D6",
black = "#2F2F2F"
)
# California Polytechnic State University ----
#' California Polytechnic State University Colors
#'
#' `calpolyCol`: Cal Poly color palette
#' (https://universitymarketing.calpoly.edu/brand-guidelines/colors/)
#' @name rtPalettes
calpolyCol <- list(
calpolygreen = "#154734",
calpolygold = "#C69214",
stadiumgold = "#F8E08E",
polycanyon = "#F2C75C",
dextergreen = "#A4D65E",
farmersmarket = "#3A913F",
skyblue = "#B5E3D8",
surfblue = "#5CB8B2",
serenity = "#D3E3F4",
morroblue = "#ABCAE9",
missionbeige = "#E4E1D1",
pismosand = "#CAC7A7",
coastsage = "#B6CCC2",
sycamore = "#789F90",
kennedygray = "#8E9089",
sealgray = "#54585A",
heritageorange = "#FF6A39",
avodaco = "#D0DF00"
)
# Caltech ----
#' Caltech Colors
#'
#' `caltechCol`: Caltech color palette (http://identity.caltech.edu/colors)
#' @name rtPalettes
caltechCol <- list(
orange = "#FF6C0C",
coolGray9 = "#76777B",
coolGray3c = "#C8C8C8",
pms414 = "#AAA99F",
pms5497c = "#849895",
pms7494c = "#9DAE88",
pms451c = "#C7B784",
pms7403c = "#F1D384",
pms548c = "#003B4C",
pms3292c = "#005851",
pms668c = "#644B78",
pms195c = "#7A303F",
pms186c = "#CF0A2C",
pms299c = "#00A1DF",
pms7473c = "#1E988A",
pms7489c = "#73A950",
pms7408c = "#F9BE00",
pms605c = "#E2CC00",
pms1915c = "#F54D80"
)
# Scripps Research ----
#' Scripps Research Colors
#'
#' `scrippsCol`: Scripps Research color palette
#' @name rtPalettes
scrippsCol <- list(
yellow = "#edb035",
orange = "#f1624f",
maroon = "#610f37",
blue = "#273d78",
teal = "#116f79",
lightblue = "#59c3d3"
)
# Penn ----
#' rtemis Color Palettes
#'
#' `pennCol`: Penn color palette
#' (http://www.upenn.edu/about/styleguide-color-type)
#' @name rtPalettes
pennCol <- list(
darkestBlue = "#000f3a",
darkerBlue = "#00144d",
blue = "#01256e",
lighterBlue = "#045ea7",
lightestBlue = "#82afd3",
darkestRed = "#57000a",
darkerRed = "#74000e",
red = "#95001a",
lighterRed = "#c2004d",
lightestRed = "#e180a6",
darkestYellow = "#af7f00",
darkerYellow = "#eaa900",
yellow = "#f2c100",
lighterYellow = "#f8de00",
lightestYellow = "#fcef80",
darkestGreen = "#005200",
darkerGreen = "#006e00",
green = "#008e00",
lighterGreen = "#00be00",
lightestGreen = "#80df80",
darkestOrange = "#812d00",
darkerOrange = "#ac3c00",
orange = "#c35a00",
lighterOrange = "#df9700",
lightestOrange = "#efcb80",
darkestPurple = "#23001f",
darkerPurple = "#2f0029",
purple = "#4a0042",
lighterPurple = "#890082",
lightestPurple = "#c480c1"
)
#' `pennPalette`: Subset of `pennCol`.
#'
#' @name rtPalettes
pennPalette <- pennCol[c(
"lighterBlue", "red", "green", "yellow", "lighterPurple", "orange",
"lightestBlue", "lighterRed", "lighterGreen", "lightestPurple",
"lighterOrange"
)]
#' `pennLightPalette`: Subset of `pennCol`. This is the lighter Penn palette for use with
#' the dark themes
#' @name rtPalettes
pennLightPalette <- pennCol[c(
"lightestBlue", "lightestRed", "lightestGreen",
"lightestYellow", "lightestPurple"
)]
# CMU ----
#' CMU Colors
#'
#' `cmuCol`: Carnegie Mellon color palette
#' (https://www.cmu.edu/marcom/brand-standards/web-standards.html#colors)
#' @name rtPalettes
cmuCol <- list(
cmuRed = "#bb0000",
gray = "#e0e0e0",
darkGray = "#666666",
gold = "#aa6600",
teal = "#006677",
blue = "#224477",
green = "#008855",
darkGreen = "#224433"
)
# MIT ----
#' MIT Colors
#'
#' `mitCol`: MIT color palette
#' (http://web.mit.edu/graphicidentity/colors.html)
#' @name rtPalettes
mitCol <- list(
red = "#A31F34",
gray = "#8A8B8C",
lightGray = "#C2C0BF"
)
# Princeton ----
#' Princeton Colors
#'
#' `princetonCol`: Princeton color palette
#' (https://communications.princeton.edu/guides-tools/logo-graphic-identity)
#' @name rtPalettes
princetonCol <- list(
orangeOnWhite = "#e77500",
orangeOnBlack = "#f58025"
)
# Columbia ----
#' Columbia Colors
#'
#' `columbiaCol`: Columbia color palette
#' (https://visualidentity.columbia.edu/content/web-0)
#' @name rtPalettes
columbiaCol <- list(
blue = "#000d74",
blue1 = "#C4D8E2",
blue2 = "#75AADB",
blue3 = "#6CADDF",
blue4 = "#008EE0",
blue5 = "#2C6BAC",
blue6 = "#0046A6",
white = "#F9F9F9",
lightGray = "#EFEFEF",
sandstone = "#D2D2C0",
gray = "#555555",
slate = "#41516C",
tarawera = "#093552",
yellow = "#FFB400",
lightGreen = "#C0CD3F",
lime = "#90C134",
orange = "#C14D00",
red = "#841C1C",
purple = "#8E0F56"
)
# Brown ----
#' Brown Colors
#'
#' `brownCol`: Brown color palette
#' (https://www.brown.edu/university-identity/sites/university-identity/files/Brown_Visual_Identity_Policy_2016-07-22.pdf)
#' @name rtPalettes
brownCol <- list(
red = "#ED1C24",
brown = "#4E3629",
gold = "#FFC72C",
gray = "#98A4AE",
skyBlue = "#59CBE8",
emerald = "#00B398",
navy = "#003C71",
taupe = "#B7B09C"
)
# Yale ----
#' Yale Colors
#'
#' `yaleCol`: Yale color palette (https://yaleidentity.yale.edu/web)
#' @name rtPalettes
yaleCol <- list(
yaleBlue = "#00356b",
mediumBlue = "#286dc0",
lightBlue = "#63aaff",
darkestGray = "#222222",
darkGray = "#4a4a4a",
sandstone = "#978d85",
lightGray = "#dddddd",
lightestGray = "#f9f9f9",
green = "#5f712d",
orange = "#bd5319"
)
# Cornell ----
#' Cornell Colors
#'
#' `cornellCol`: Yale color palette
#' (https://brand.cornell.edu/design-center/colors/
#' @name rtPalettes
cornellCol <- list(
carnellian = "#B31B1B",
darkGrey = "#222222",
lightGrey = "#F7F7F7",
linkBlue = "#006699",
greenGraphics = "#6EB43F",
greenText = "#4B7B2B",
greenLargeText = "#578E32",
orangeGraphics = "#F8981D",
orangeLargeText = "#D47500",
redGraphics = "#EF4035",
redText = "#DF1E12",
navy = "#073949",
darkWarmGrey = "#A2998B",
seaGrey = "#9FAD9F"
)
# Harvard Medical School ----
#' HMS Colors
#'
#' `hmsCol`: Harvard Medical School color palette
#' (https://identityguide.hms.harvard.edu/color)
#' @name rtPalettes
hmsCol <- list(
crimson = "#A51C30",
black = "#1E1E1E",
mortar = "#8C8179",
parchment = "#F3F3F1",
slate = "#8996A0",
shade = "#BAC5C6",
indigo = "#293352",
blueBonnet = "#4E84C4",
ivy = "#52854C",
pear = "#C3D7A4",
lemon = "#FFDB6D",
saffron = "#D16103",
gold = "#C4961A",
creme = "#F4EDCA"
)
# Dartmouth ----
#' Dartmouth Colors
#'
#' `dartmouthCol`: Dartmouth color palette
#' (https://communications.dartmouth.edu/visual-identity/design-elements/color-palette#web%20palette)
#' @name rtPalettes
dartmouthCol <- list(
dartmouthGreen = "#00693e",
forestGreen = "#12312b",
webGray1 = "#f7f7f7",
webGray2 = "#e2e2e2",
graniteGray = "#424141",
autumnBrown = "#643c20",
bonfireRed = "#9d162e",
tuckOrange = "#e32d1c",
summerYellow = "#f5dc69",
springGreen = "#c4dd88",
riverNavy = "#003c73",
riverBlue = "#267aba",
webViolet = "#8a6996",
bonfireOrange = "#ffa00f"
)
# USF ----
#' USF Colors
#'
#' `usfCol`: USF color palette
#' (https://myusf.usfca.edu/marketing-communications/resources/graphics-resources/brand-standards/color-palette)
#' Color conversions performed using https://www.pantone.com/color-finder/
#' @name rtPalettes
usfCol <- list(
green = "#205C40",
yellow = "#ffb81c",
gray = "#75787B"
)
# Washington ----
#' University of Washington Colors
#'
#' `uwCol`: University of Washington color palette
#' (http://www.washington.edu/brand/graphic-elements/primary-color-palette/)
#' @name rtPalettes
uwCol <- list(
purple = "#4b2e83",
gold = "#b7a57a",
metallicGold = "#85754d"
)
# Johns Hopkins ----
#' Johns Hopkins University Colors
#'
#' `jhuCol`: Johns Hopkins University color palette
#' (https://brand.jhu.edu/color/)
#' @name rtPalettes
jhuCol <- list(
heritageBlue = "#002d72",
spiritBlue = "#68ace5",
orange = "#cf4520",
maroon = "#76232f",
pink = "#a15a95",
green = "#009b77",
blue = "#0072ce",
yellow = "#f1c400",
pms7407c = "#cba052",
pms1375c = "#ff9e1b",
pms1505c = "#ff6900",
pms7586c = "#9e5330",
pms4625c = "#4f2c1d",
pms486c = "#e8927c",
pms187c = "#a6192e",
pms262c = "#51284f",
pms666c = "#a192b2",
pms279c = "#418fde",
pms564c = "#86c8bc",
pms7734c = "#286140",
pms7490c = "#719949"
)
# NYU ----
#' NYU Colors
#'
#' `nyuCol`: NYU color palette
#' (https://www.nyu.edu/employees/resources-and-services/media-and-communications/styleguide/website/graphic-visual-design.html)
#' @name rtPalettes
nyuCol <- list(
brightPurple = "#8900e1",
nyuPurple = "#57068c",
darkerPurple = "#330662",
darkestPurple = "#220337",
mediumGray = "#6d6d6d",
lightGray = "#b8b8b8",
lighterGray = "#d6d6d6",
lightestGray = "#f2f2f2",
red = "#cb0200",
orange = "#e86c00",
green = "#489141",
blue = "#28619e",
lightBlue = "#3dbbdb",
accentGreen = "#007c70",
brightRed = "#d71e5e",
brightOrange = "#e86c00",
yellow = "#ffc107"
)
# WashU ----
#' Washington University St Louis Colors
#'
#' `washuCol`: WashU color palette
#' (https://marcomm.wustl.edu/resources/branding-logo-toolkit/color-palettes/)
#' @name rtPalettes
washuCol <- list(
red = "#a51417",
gray = "#6c7373",
lightGray = "#c8c8c8",
darkGray = "#3d3d3d",
extraLightGRAY = "#eeeeee",
green = "#007360",
darkGreen = "#173e3a",
lightGreen = "#789b4a",
tan = "#e1c4ac",
darkBlue = "#172752",
blue = "#005f85",
pearl = "#d8d2c5",
yellow = "#ffcc00",
orange = "#d15f27",
darkOrange = "#b85323",
purple = "#622466",
lightTurqoise = "#67c8c7",
turqoise = "#2b8282"
)
# Chicago ----
#' U Chicago Colors
#'
#' `chicagoCol`: University of Chicago color palette
#' (https://news.uchicago.edu/sites/default/files/attachments/_uchicago.identity.guidelines.pdf)
#' @name rtPalettes
chicagoCol <- list(
maroon = "#800000",
darkGray = "#767676",
lightGray = "#D6D6CE",
yellowTint = "#FFB547",
yellowCore = "#FFA319",
yellowShade = "#C68220",
orangeTint = "#D49464",
orangeCore = "#C16622",
orangeShade = "#9A5324",
redTint = "#B1746F",
redCore = "#8F3931",
redShade = "#642822",
lightGreenTint = "#ADB17D",
lightGreenCore = "#8A9045",
lightGreenShade = "#616530",
darkGreenTint = "#8A8B79",
darkGreenCore = "#58593F",
darkGreenShade = "#3E3E23",
blueTint = "#5B8FA8",
blueCore = "#155F83",
blueShade = "#0F425C",
violetTint = "#725663",
violetCore = "#350E20",
cyan = "#47B5FF",
magenta = "#FF3399"
)
# Penn State ----
#' Penn State Colors
#'
#' `texasCol`: Penn State color palette
#' (https://brand.psu.edu/design-essentials.html#color)
#' @name rtPalettes
pennstateCol <- list(
nittanyNavy = "#001E44",
beaverBlue = "#1E407C",
pennsylvaniaSky = "#009CDE",
limestone = "#91959C",
creek = "#3EA39E",
slate = "#314D64",
pennsForest = "#4A7729",
oldCoaly = "#54585A",
landGrant = "#6A3028",
lionsRoar = "#BF8226",
lionShrine = "#B88965",
statelyAtherton = "#AC8DCE",
pughBlue = "#96BEE6",
original1887 = "#BC204B",
brightkeystone = "#FFD100",
inventOrange = "#E98300",
dawnOfDiscovery = "#F2665E",
perpetualWonder = "#491D70",
greenOpportunity = "#008755",
futuresCalling = "#99CC00"
)
# SFSU ----
#' SF State
#'
#' `sfsuCol`: SF State color palette
#' (https://logo.sfsu.edu/color-system)
#' @name rtPalettes
sfsuCol <- list(
`2755C` = "#231161",
`2755C_85pc` = "#463077",
`117C` = "#C99700",
`117C_60pc` = "#E9D597",
`3025C` = "#004F71",
`383C` = "#ABAD00",
`7419C` = "#B04A5A",
`484C` = "#9A3324",
coolGray11 = "#53565A"
)
# U Illinois ----
#' University of Illinois Colors
#'
#' `illinoisCol`: University of Illinois color palette
#' (https://www.uillinois.edu/OUR/brand/color_palettes)
#' @name rtPalettes
illinoisCol <- list(
uofiblue = "#13294b",
urbanaOrange = "#E84A27",
uicRed = "#D50032",
uisBlue = "#003366",
teal = "#0d605e",
grayBlue = "#6fafc7",
citron = "#bfd46d",
darkYellow = "#ffd125",
salmon = "#ee5e5e",
periwinkle = "#4f6898",
gray = "#E8E9EA",
coolGray6 = "#A5A8AA",
coolGray1 = "#5E6669",
secondaryBlue1 = "#0455A4",
secondaryBlue2 = "#1F4096"
)
# U Maryland ----
#' University of Maryland Colors
#'
#' `umdCol`: University of Maryland color palette
#' (https://osc.umd.edu/licensing-trademarks/brand-standards/logos/#color)
#' @name rtPalettes
umdCol <- list(
umdRed = "#E21833",
umdYellow = "#ffd200",
umdBrown = "#AD7C59"
)
# MSU ----
#' Michigan State University Colors
#'
#' `msuCol`: MSU color palette
#' (https://brand.msu.edu/visual/color-palette)
#' @name rtPalettes
msuCol <- list(
SpartanGreen = "#18453B",
White = "#FFFFFF",
Black = "#000000",
KellyGreen = "#008208",
LimeGreen = "#7BBD00",
ExcellenceGreen = "#0B9A6D"
)
# Michigan ----
#' University of Michigan Colors
#'
#' `michiganCol`: Michigan color palette
#' (https://brand.umich.edu/design-resources/colors/)
#' @name rtPalettes
michiganCol <- list(
Maize = "#FFCB05",
Blue = "#00274C",
TappanRed = "#9A3324",
RossOrange = "#D86018",
RackhamGreen = "#75988d",
WaveFieldGreen = "#A5A508",
TaubmanTeal = "#00B2A9",
ArboretumBlue = "#2F65A7",
A2Amethyst = "#702082",
MatthaeiViolet = "#575294",
UMMATan = "#CFC096",
BurtonTowerBeige = "#9B9A6D",
AngelHallAsh = "#989C97",
LawQuadStone = "#655A52",
PumaBlack = "#131516"
)
# Iowa ----
#' Univeristy of Iowa Colors
#'
#' `iowaCol`: University of Iowa color palette
#' (https://brand.uiowa.edu/color)
#' @name rtPalettes
iowaCol <- list(
Gold = "#FFCD00",
Gray = "#BBBCBC",
Blue = "#00A9E0",
Green = "#00AF66",
Orange = "#FF8200",
DarkGray = "#63666A",
DarkBlue = "#00558C",
DarkGreen = "#00664F",
DarkOrange = "#BD472A"
)
# U Texas ----
#' U Texas Colors
#'
#' `texasCol`: University of Texas color palette
#' (https://brand.utexas.edu/identity/color/)
#' @name rtPalettes
texasCol <- list(
burntOrange = "#bf5700",
gray = "#333f48",
brightOrange = "#f8971f",
yellow = "#ffd600",
lightGreen = "#a6cd57",
green = "#579d42",
teal = "#00a9b7",
blue = "#005f86",
lightBlue = "#9cadb7",
stone = "#d6d2c4"
)
# Emory ----
#' Emory Colors
#'
#' `emoryCol`: Emory color palette
#' (https://brand.emory.edu/color.html)
#' @name rtPalettes
emoryCol <- list(
emoryBlue = "#012169",
darkBlue = "#0c2340",
mediumBlue = "#0033a0",
lightBlue = "#007dba",
yellow = "#f2a900",
gold = "#b58500",
metallicGold = "#84754e",
cyan = "#00aeef",
skyBlue = "#41b6e6",
teal = "#487f84",
kellyGreen = "#348338",
seaGreen = " #006c5b",
olive = "#5c8118",
orange = "#c35413",
red = "#da291c",
magenta = "#c6007e",
purple = "#6558b1",
grape = "#6d2077",
black = "#101820",
coolGray5 = "#b1b3b3",
coolGray2 = "#d0d0ce",
coolGray1 = "#d9d9d6"
)
# Georgia Tech ----
#' Georgia Tech Colors
#'
#' `techCol`: Georgia Tech color palette
#' (http://www.licensing.gatech.edu/super-block/239)
#' @name rtPalettes
techCol <- list(
techGold = "#B3A369",
buzzGold = "#EAAA00",
blue = "#00263A"
)
# Vanderbilt ----
#' Vanderbilt Color
#'
#' `vanderbiltCol`: Vanderbilt color palette
#' (https://www.vanderbilt.edu/communications/brand/color.php)
#' @name rtPalettes
vanderbiltCol <- list(
gold = "#D8AB4C",
blue = "#006682",
red = "#993D1B",
darkGray = "#333333",
green = "#464E21",
lightBlue = "#CCE0E6",
lightRed = "#EBD8D1",
lightGray = "#DDDDDD",
lightGreen = "#DADCD3"
)
# Jefferson ----
#' Jefferson University Colors
#'
#' `jeffersonCol`: Jefferson color palette (http://creative.jefferson.edu/downloads/Jefferson-Brand-Guidelines.pdf)
#' @name rtPalettes
jeffersonCol <- list(
jeffDeepBlue = "#152456",
jeffBrightBlue = "#59B7df",
legacyMaroon = "#9f2943",
red = "#e53e30",
voltGreen = "#ece819",
silver = "#dfe1df",
darkGray = "#8e9089",
black = "#231f20"
)
# Hawaii ----
#' University of Hawaii Colors
#'
#' `hawaiiCol`: University of Hawaii color palette (https://www.hawaii.edu/offices/eaur/graphicsstandards.pdf)
#' @name rtPalettes
hawaiiCol <- list(
manoa = "#024731",
hilo = "#DA291C",
westOahu = "#A71930",
hawaiiCC = "#91004B",
honoluluCC = "#00747A",
kapiolaniCC = "#002395",
kauaiCC = "#716FB3",
leeward = "#3D7EDB",
mauiCC = "#005172",
windward = "#7AB800",
system = "#B3995D"
)
# NIH ----
#' NIH Colors
#'
#' `nihCol`: NIH color palette (https://www.nlm.nih.gov/about/nlm_logo_guidelines_030414_508.pdf)
#' @name rtPalettes
nihCol <- list(
blue = "#20558a",
gray = "#616265"
)
# Imperial ----
#' Imperial Colours
#'
#' `imperialCol`: Imperial College London colour palette
#' (https://www.imperial.ac.uk/brand-style-guide/visual-identity/brand-colours/)
#'
#' @name rtPalettes
imperialCol <- list(
navy = "#002147",
imperialBlue = "#003E74",
lightGrey = "#EBEEEE",
coolGrey = "#9D9D9D",
lightBlue = "#D4EFFC",
blue = "#006EAF",
processBlue = "#0091D4",
poolBlue = "#00ACD7",
darkTeal = "#0F8291",
teal = "#009CBC",
seaglass = "#379f9f",
darkGreen = "#02893B",
kermitGreen = "#66A40A",
lime = "#BBCE00",
orange = "#D24000",
tangerine = "#EC7300",
lemonYellow = "#FFDD00",
brick = "#A51900",
red = "#DD2501",
cherry = "#E40043",
raspberry = "#9F004E",
magentaPink = "#C81E78",
iris = "#751E66",
violet = "#960078",
plum = "#321E6D",
purple = "#653098"
)
# UCL ----
#' UCL Colours
#'
#' `uclCol`: UCL colour palette (https://www.ucl.ac.uk/cam/brand/guidelines/colour)
#' @name rtPalettes
uclCol <- list(
darkGreen = "#555025",
darkRed = "#651D32",
darkPurple = "#4B384C",
darkBlue = "#003D4C",
darkBrown = "#4E3629",
midGreen = "#8F993E",
midRed = "#93272C",
midPurple = "#500778",
midBlue = "#002855",
stone = "#D6D2C4",
brightGreen = "#B5BD00",
brightRed = "#D50032",
brightBlue = "#0097A9",
brightPink = "#AC145A",
lightGreen = "#BBC592",
lightRed = "#E03C31",
lightPurple = "#C6B0BC",
lightBlue = "#8DB9CA",
yellow = "#F6BE00",
orange = "#EA7600",
grey = "#8C8279",
blueCeleste = "#A4DBE8",
IOEblue = "#24509A"
)
# Oxford ----
#' Oxford Colours
#'
#' `oxfordCol`: Oxford University colour palette (https://www.ox.ac.uk/sites/files/oxford/media_wysiwyg/Oxford%20Blue%20LR.pdf)
#' @name rtPalettes
oxfordCol <- list(
oxfordBlue = "#002147",
pantone279 = "#4891DC",
pantone291 = "#9ECEEB",
pantone5405 = "#44687D",
pantone549 = "#5F9BAF",
pantone551 = "#A1C4D0",
pantone562 = "#007770",
pantone624 = "#7BA296",
pantone559 = "#BCD2C3",
pantone576 = "#69913B",
pantone578 = "#B9CF96",
pantone580 = "#CEDBAF",
pantone583 = "#AAB300",
pantone585 = "#DBDE72",
pantone587 = "#E3E597",
pantone7412 = "#CF7A30",
pantone129 = "#F5CF47",
pantone127 = "#F3DE74",
pantone202 = "#872434",
pantone200 = "#BE0F34",
pantone196 = "#EBC4CB",
pantoneWarmGray6 = "#A79D96",
pantoneWarmGray3 = "#C7C2BC",
pantoneWarmGray1 = "#E0DED9"
)
# NHS ----
#' NHS Colours
#'
#' `nhsCol`: NHS colour palette (https://www.england.nhs.uk/nhsidentity/identity-guidelines/colours/)
#' @name rtPalettes
nhsCol <- list(
nhsDarkBlue = "#003087",
nhsBlue = "#005EB8",
nhsBrightBlue = "#0072CE",
nhsLightBlue = "#41B6E6",
nhsAquaBlue = "#00A9CE",
nhsBlack = "#231f20",
nhsDarkGrey = "#425563",
nhsMidGrey = "#768692",
nhsPaleGrey = "#E8EDEE",
nhsDarkGreen = "#006747",
nhsGreen = "#009639",
nhsLightGreen = "#78BE20",
nhsAquaGreen = "#00A499",
nhsPurple = "#330072",
nhsDarkPink = "#7C2855",
nhsPink = "#AE2573",
nhsDarkRed = "#8A1538",
emergencyServicesRed = "#DA291C",
nhsOrange = "#ED8B00",
nhsWarmYellow = "#FFB81C",
nhsYellow = "#FAE100"
)
# UBC ----
#' UBC Colors
#'
#' `ubcCol`: UBC color palette (http://assets.brand.ubc.ca/downloads/ubc_colour_guide.pdf)
#' @name rtPalettes
ubcCol <- list(
ubcBlue = "#002145",
blue2 = "#0055B7",
blue3 = "#00A7E1",
blue4 = "#40B4E5",
blue5 = "#6EC4E8",
blue6 = "#97D4E9"
)
# U Toronto ----
#' U Toronto Colors
#'
#' `torontoCol`: U Toronto color palette (https://trademarks.utoronto.ca/colors-fonts/)
#' @name rtPalettes
torontoCol <- list(
blue = "#002043",
red = "#bb133e"
)
# McGill ----
#' McGill Colors
#'
#' `mcgillCol`: McGill color palette (https://www.mcgill.ca/visual-identity/visual-identity-guide)
#' @name rtPalettes
mcgillCol <- list(
mcgillRed = "#ED1B2F",
grey = "#5D6770",
pastelOrange = "#FFD794",
brightOrange = "#F7941D",
mutedOrange = "#D3674A",
darkOrange = "#AA4B31",
pastelYellow = "#FFF193",
brightYellow = "#FFD400",
mutedYellow = "#E8B92E",
darkYellow = "#B28C35",
pastelTeal = "#B5E1E1",
brightTeal = "#27BDBE",
mutedTeal = "#087F8C",
darkTeal = "#0A6266",
pastelBlue = "#C8EAF5",
brightBlue = "#44C8F5",
mutedBlue = "#0096C9",
darkBlue = "#024F6D",
pastelGreen = "#D5E6A8",
brightGreen = "#B2D235",
mutedGreen = "#8BA04E",
darkGreen = "#305534",
pastelPink = "#E2A7CC",
brightPink = "#C768A9",
mutedPink = "#9B5678",
darkPink = "#673567",
darkRed = "#9E0918"
)
# ETH ----
#' ETH Colours
#'
#' `ethCol`: ETH color palette (https://ethz.ch/services/en/service/communication/corporate-design/colour.html)
#' @name rtPalettes
ethCol <- list(
eth1 = "#1F407A",
eth2 = "#3C5A0F",
eth3 = "#0069B4",
eth4 = "#72791C",
eth5 = "#91056A",
eth6 = "#6F6F6E",
eth7 = "#A8322D",
eth8 = "#007A92",
eth9 = "#956013",
eth10 = "#82BE1E"
)
# RWTH Aachen ----
#' RWTH Aachen Colours
#'
#' `rwthCol`: RWTH Aachen color palette (http://www9.rwth-aachen.de/global/show_document.asp?id=aaaaaaaaaadpbhq)
#' @name rtPalettes
rwthCol <- list(
blau1 = "#00549F",
blau2 = "#407FB7",
blau3 = "#8EBAE5",
blau4 = "#C7DDF2",
blau5 = "#E8F1FA",
magenta1 = "#E30066",
magenta2 = "#E96088",
magenta3 = "#F19EB1",
magenta4 = "#F9D2DA",
magenta5 = "#FDEEF0",
gelb1 = "#FFED00",
gelb2 = "#FFF055",
gelb3 = "#FFF59B",
gelb4 = "#FFFAD1",
gelb5 = "#FFFDEE",
petrol1 = "#006165",
petrol2 = "#2D7F83",
petrol3 = "#7DA4A7",
petrol4 = "#BFD0D1",
petrol5 = "#E6ECEC",
tuerkis1 = "#0098A1",
tuerkis2 = "#00B1B7",
tuerkis3 = "#89CCCF",
tuerkis4 = "#CAE7E7",
tuerkis5 = "#EBF6F6",
gruen1 = "#57AB27",
gruen2 = "#8DC060",
gruen3 = "#B8D698",
gruen4 = "#DDEBCE",
gruen5 = "#F2F7EC",
maigruen1 = "#BDCD00",
maigruen2 = "#D0D95C",
maigruen3 = "#E0E69A",
maigruen4 = "#F0F3D0",
maigruen5 = "#F9FAED",
orange1 = "#F6A800",
orange2 = "#FABE50",
orange3 = "#FDD48F",
orange4 = "#FEEAC9",
orange5 = "#FFF7EA",
rot1 = "#CC071E",
rot2 = "#D85C41",
rot3 = "#E69679",
rot4 = "#F3CDBB",
rot5 = "#FAEBE3",
bordeaux1 = "#A11035",
bordeaux2 = "#B65256",
bordeaux3 = "#CD8B87",
bordeaux4 = "#E5C5C0",
bordeaux5 = "#F5E8E5",
violett1 = "#612158",
violett2 = "#834E75",
violett3 = "#A8859E",
violett4 = "#D2C0CD",
violett5 = "#EDE5EA",
lila1 = "#7A6FAC",
lila2 = "#9B91C1",
lila3 = "#BCB5D7",
lila4 = "#DEDAEB",
lila5 = "#F2F0F7"
)
# Mozilla ----
#' Mozilla Colors
#'
#' `mozillaCol`: Mozilla design colors
#' (https://mozilla.design/mozilla/color/)
#' @name rtPalettes
mozillaCol <- list(
neonBlue = "#00ffff",
lemonYellow = "#fff44f",
warmRed = "#ff4f5e",
neonGreen = "#54ffbd",
darkPurple = "#6e008b",
darkGreen = "#005e5e",
darkBlue = "#00458b",
lightGrey = "#e7e5e2"
)
# Firefox ----
#' Firefox Colors
#'
#' `firefoxCol`: Firefox design colors
#' (https://mozilla.design/firefox/color/)
#' @name rtPalettes
firefoxCol <- list(
Green = "#53FEBE",
Blue = "#0290EE",
Purple = "#AC71FF",
Light_Purple = "#D64CF1",
Magenta = "#FE4AA3",
Salmon = "#FF6A75",
Orange = "#FE8A4F",
Yellow = "#FFBD4F"
)
# Apple ----
#' Apple Colors
#'
#' `appleCol`: Apple Human Interface Guidelines color palette
#' (https://developer.apple.com/design/human-interface-guidelines/ios/visual-design/color/)
#' @name rtPalettes
appleCol <- list(
red = "#FF3B30",
orange = "#FF9500",
yellow = "#FFCC00",
green = "#4CD964",
tealBlue = "#5AC8FA",
blue = "#007AFF",
purple = "#5856D6",
pink = "#FF2D55"
)
# Google ----
#' Google Colors
#'
#' `googleCol`: Google brand palette (https://brandpalettes.com/google-colors/)
#' @name rtPalettes
googleCol <- list(
blue = "#4285F4",
red = "#DB4437",
yellow = "#F4B400",
green = "#0F9D58"
)
# Amazon ----
#' Amazon Colors
#'
#' `amazonCol`: Amazon brand palette
#' (https://images-na.ssl-images-amazon.com/images/G/01/AdvertisingSite/pdfs/AmazonBrandUsageGuidelines.pdf)
#' @name rtPalettes
amazonCol <- list(
orange = "#FF9900",
blue = "#146EB4"
)
# Microsoft ----
#' Microsoft Colors
#'
#' `microsoftCol`: Microsoft brand palette
#' (https://brandcolors.net/b/microsoft)
#' @name rtPalettes
microsoftCol <- list(
orange = "#f65314",
green = "#7cbb00",
blue = "#00a1f1",
yellow = "#ffbb00"
)
# rtemis palettes ----
rtCol1 <- desaturate(c(
ucsfCol$C3_Teal,
ucsfCol$M3_Orange,
pennCol$lighterRed,
pennCol$lighterBlue,
pennCol$lighterOrange,
pennCol$lighterPurple,
ucsfCol$A3_CTA_Blue,
pennCol$lightestOrange,
pennCol$lightestPurple,
pennCol$blue,
pennCol$red,
pennCol$orange,
pennCol$purple
), .3)
rtCol1n <- desaturate(c(
ucsfCol$C3_Teal,
ucsfCol$M3_Orange,
pennCol$lighterBlue,
pennCol$lighterRed,
pennCol$lighterOrange,
pennCol$lighterPurple,
pennCol$lightestBlue,
ucsfCol$G4,
pennCol$lightestOrange,
pennCol$lightestPurple,
pennCol$blue,
pennCol$red,
pennCol$orange,
pennCol$purple
), .3)
rtCol2 <- c(
ucsfCol$C3_Teal,
ucsfCol$M3_Orange,
ucsfCol$H2,
ucsfCol$A2,
ucsfCol$C4,
ucsfCol$L3_Yellow,
ucsfCol$H3_Magenta,
ucsfCol$A3_CTA_Blue
)
rtCol3 <- c(
ucsfCol$C3_Teal,
ucsfCol$M3_Orange,
pennCol$lighterRed,
pennCol$lighterBlue,
ucsfCol$C4,
ucsfCol$L3_Yellow,
ucsfCol$H3_Magenta,
ucsfCol$A3_CTA_Blue
) |> desaturate()
rtcoldev <- list(
rtemisblue = "#80ffff",
rtemisbluetoo = "#00D6FF",
lavender = "#ff80ffff",
orange = "#ffb200ff"
)
grays <- list("gray10", "gray30", "gray50", "gray70", "gray90")
# Pantone 2022 ----
pantoneBalancingAct <- list(
Granite_Green = "#86A293",
Muted_Clay = "#D29381",
Very_Peri = "#6667AB",
Hawthorne_Rose = "#884C5E",
Dried_Moss = "#CCB97E",
Elderberry = "#9D848E",
Lotus = "#E3C1C0",
Burnished_Lilac = "#C4AEB1"
)
pantoneWellspring <- list(
Eggshell_Blue = "#A1CAC9",
Celery = "#CFBF54",
Dewberry = "#8C5896",
Chai_tea = "#B3832F",
Greenbrier = "#48996B",
Very_Peri = "#6667AB",
Treetop = "#436A2F",
Foliage = "#759F51"
)
pantoneAmusements <- list(
Tawny_Orange = "#D77E6F",
Very_Peri = "#6667AB",
Iced_Coffee = "#B38F6A",
Pink_Flambe = "#D75078",
Fuchsia_Pink = "#E288B6",
Paradise_Pink = "#E9445D",
Cornsilk = "#EEC272",
Tourmaline = "#85A0A9"
)
# rtPalettes ----
rtPalettes <- list(
ucsfCol = ucsfCol,
pennCol = pennCol,
imperialCol = imperialCol,
stanfordCol = stanfordCol,
ucdCol = ucdCol,
berkeleyCol = berkeleyCol,
ucscCol = ucscCol,
ucmercedCol = ucmercedCol,
ucsbCol = ucsbCol,
uclaCol = uclaCol,
ucrColor = ucrColor,
uciCol = uciCol,
ucsdCol = ucsdCol,
californiaCol = californiaCol,
scrippsCol = scrippsCol,
caltechCol = caltechCol,
cmuCol = cmuCol,
princetonCol = princetonCol,
columbiaCol = columbiaCol,
yaleCol = yaleCol,
brownCol = brownCol,
cornellCol = cornellCol,
hmsCol = hmsCol,
dartmouthCol = dartmouthCol,
usfCol = usfCol,
uwCol = uwCol,
jhuCol = jhuCol,
nyuCol = nyuCol,
washuCol = washuCol,
chicagoCol = chicagoCol,
pennstateCol = pennstateCol,
msuCol = msuCol,
michiganCol = michiganCol,
iowaCol = iowaCol,
texasCol = texasCol,
techCol = techCol,
jeffersonCol = jeffersonCol,
hawaiiCol = hawaiiCol,
nihCol = nihCol,
torontoCol = torontoCol,
mcgillCol = mcgillCol,
uclCol = uclCol,
oxfordCol = oxfordCol,
nhsCol = nhsCol,
ethCol = ethCol,
rwthCol = rwthCol,
firefoxCol = firefoxCol,
mozillaCol = mozillaCol,
appleCol = appleCol,
googleCol = googleCol,
amazonCol = amazonCol,
microsoftCol = microsoftCol,
pantoneBalancingAct = pantoneBalancingAct,
pantoneWellspring = pantoneWellspring,
pantoneAmusements = pantoneAmusements,
grays = grays,
rtCol1 = rtCol1,
rtCol3 = rtCol3
)
#' \pkg{rtemis} Color Palettes
#'
#' `rtpalette()` prints names of available color palettes
#' Each palette is a named list of hexadecimal color definitions which can be used with
#' any graphics function.
#' `rtpalette(palette_name)` returns a list of colors for a given palette.
#'
#' @param palette Character: Name of palette to return. Default = NULL: available palette
#' names are printed and no palette is returned
#' @param verbose Logical: If `TRUE`, print messages to console
#'
#' @return
#' A list of available palettes, invisibly
#' @examples
#' rtpalette("imperial")
#' @export
rtpalette <- function(palette = NULL, verbose = TRUE) {
if (is.null(palette)) {
if (verbose) {
msg2(hilite("The following palettes are available:"))
print(names(rtPalettes))
}
} else {
palette <- match.arg(
palette,
names(rtPalettes)
)
rtPalettes[[palette]]
}
} # rtemis::rtPalette
#' Access rtemis palette colors
#'
#' Allows you to get `n` colors of a defined palette, useful for passing to other functions, like ggplot
#'
#' @param n Integer: Number of colors to output
#' @param palette Character: Palette to use. See available options with `rtpalette()`.
#' Default = `rtPalette`
#' @export
#' @author E.D. Gennatas
#' @examples
#' rtemis_palette(3)
#'
rtemis_palette <- function(n,
palette = rtPalette) {
.palette <- unlist(rtpalette(palette))
names(.palette) <- NULL
.palette[seq_len(n)]
} # rtemis::rtemis_palette
penn.heat <- function(n = 11, space = "Lab",
demo = FALSE,
colorbar = FALSE,
bar.min = -1, bar.mid = 0, bar.max = 1,
cex = 1.2,
filename = NULL,
col.text = "black") {
# Arguments ----
if (!is.null(filename)) colorbar <- TRUE
# Gradient ----
n <- as.integer(n)
midpoint <- ceiling(n / 2)
if (space == "RGB") {
penn.vlight2blue <- grDevices::colorRampPalette(
c(colorAdjust(pennCol$blue, hue = -.08, val = .568), pennCol$blue)
)
penn.blue2red2yellow <- grDevices::colorRampPalette(
c(pennCol$blue, pennCol$red, pennCol$yellow)
)
grad <- c(
penn.vlight2blue(midpoint),
penn.blue2red2yellow(n - midpoint)
)
} else {
penn.vlight2blue.lab <- grDevices::colorRampPalette(
c(colorAdjust(pennCol$blue, hue = -.08, val = .568), pennCol$blue),
space = "Lab"
)
penn.blue2red2yellow.lab <- grDevices::colorRampPalette(
c(pennCol$blue, colorAdjust(pennCol$red, val = .1), pennCol$yellow),
space = "Lab"
)
grad <- c(
penn.vlight2blue.lab(midpoint),
penn.blue2red2yellow.lab(n - midpoint + 1)[-1]
)
}
# Demo ----
if (demo) {
plot(rep(1, n),
col = grad, pch = 19, cex = 6,
xlim = c(0.5, n + .5), ylim = c(.8, 1.2),
ann = FALSE, axes = FALSE
)
text(
x = 0.25, y = 1.05,
labels = paste0("Penn heat colors (n = ", n, ")"),
adj = 0, cex = 1.5
)
segments(midpoint, .95, midpoint, 1.05, lwd = 2, lty = 2, col = NA)
}
if (colorbar) {
# bar.grad <- c(penn.vlight2blue.lab(31), penn.blue2red2yellow.lab(30))
par.orig <- par(no.readonly = TRUE)
par(mar = c(1, 1, 1, 1))
if (!is.null(filename)) grDevices::pdf(filename, width = 3, height = 9)
plot(
rep(1, n), 1:n,
col = grad, pch = 19, cex = 6,
xlim = c(0.5, 1.5), ylim = c(.5, n + .5),
ann = FALSE, axes = FALSE
)
# text(1.5, c(1, midpoint, n), labels = c(bar.min, bar.mid, bar.max), col = col.text)
axis(
side = 4, at = c(1, midpoint, n), labels = c(bar.min, bar.mid, bar.max),
col = colorAdjust("black", 0), col.axis = col.text, col.ticks = colorAdjust("black", 0),
pos = 1.1, las = 1, cex.axis = cex, hadj = 0
)
if (!is.null(filename)) grDevices::dev.off()
par(par.orig)
}
return(grad)
} # rtemis::penn.heat
# Xterm Colors ----
XtermCol <- list(
`Black (SYSTEM)` = "#000000", `Maroon (SYSTEM)` = "#800000",
`Green (SYSTEM)` = "#008000", `Olive (SYSTEM)` = "#808000",
`Navy (SYSTEM)` = "#000080", `Purple (SYSTEM)` = "#800080",
`Teal (SYSTEM)` = "#008080", `Silver (SYSTEM)` = "#c0c0c0",
`Grey (SYSTEM)` = "#808080", `Red (SYSTEM)` = "#ff0000",
`Lime (SYSTEM)` = "#00ff00", `Yellow (SYSTEM)` = "#ffff00",
`Blue (SYSTEM)` = "#0000ff", `Fuchsia (SYSTEM)` = "#ff00ff",
`Aqua (SYSTEM)` = "#00ffff", `White (SYSTEM)` = "#ffffff",
Grey0 = "#000000", NavyBlue = "#00005f", DarkBlue = "#000087",
Blue3 = "#0000af", Blue3 = "#0000d7", Blue1 = "#0000ff",
DarkGreen = "#005f00", DeepSkyBlue4 = "#005f5f", DeepSkyBlue4 = "#005f87",
DeepSkyBlue4 = "#005faf", DodgerBlue3 = "#005fd7", DodgerBlue2 = "#005fff",
Green4 = "#008700", SpringGreen4 = "#00875f", Turquoise4 = "#008787",
DeepSkyBlue3 = "#0087af", DeepSkyBlue3 = "#0087d7", DodgerBlue1 = "#0087ff",
Green3 = "#00af00", SpringGreen3 = "#00af5f", DarkCyan = "#00af87",
LightSeaGreen = "#00afaf", DeepSkyBlue2 = "#00afd7", DeepSkyBlue1 = "#00afff",
Green3 = "#00d700", SpringGreen3 = "#00d75f", SpringGreen2 = "#00d787",
Cyan3 = "#00d7af", DarkTurquoise = "#00d7d7", Turquoise2 = "#00d7ff",
Green1 = "#00ff00", SpringGreen2 = "#00ff5f", SpringGreen1 = "#00ff87",
MediumSpringGreen = "#00ffaf", Cyan2 = "#00ffd7", Cyan1 = "#00ffff",
DarkRed = "#5f0000", DeepPink4 = "#5f005f", Purple4 = "#5f0087",
Purple4 = "#5f00af", Purple3 = "#5f00d7", BlueViolet = "#5f00ff",
Orange4 = "#5f5f00", Grey37 = "#5f5f5f", MediumPurple4 = "#5f5f87",
SlateBlue3 = "#5f5faf", SlateBlue3 = "#5f5fd7", RoyalBlue1 = "#5f5fff",
Chartreuse4 = "#5f8700", DarkSeaGreen4 = "#5f875f", PaleTurquoise4 = "#5f8787",
SteelBlue = "#5f87af", SteelBlue3 = "#5f87d7", CornflowerBlue = "#5f87ff",
Chartreuse3 = "#5faf00", DarkSeaGreen4 = "#5faf5f", CadetBlue = "#5faf87",
CadetBlue = "#5fafaf", SkyBlue3 = "#5fafd7", SteelBlue1 = "#5fafff",
Chartreuse3 = "#5fd700", PaleGreen3 = "#5fd75f", SeaGreen3 = "#5fd787",
Aquamarine3 = "#5fd7af", MediumTurquoise = "#5fd7d7", SteelBlue1 = "#5fd7ff",
Chartreuse2 = "#5fff00", SeaGreen2 = "#5fff5f", SeaGreen1 = "#5fff87",
SeaGreen1 = "#5fffaf", Aquamarine1 = "#5fffd7", DarkSlateGray2 = "#5fffff",
DarkRed = "#870000", DeepPink4 = "#87005f", DarkMagenta = "#870087",
DarkMagenta = "#8700af", DarkViolet = "#8700d7", Purple = "#8700ff",
Orange4 = "#875f00", LightPink4 = "#875f5f", Plum4 = "#875f87",
MediumPurple3 = "#875faf", MediumPurple3 = "#875fd7", SlateBlue1 = "#875fff",
Yellow4 = "#878700", Wheat4 = "#87875f", Grey53 = "#878787",
LightSlateGrey = "#8787af", MediumPurple = "#8787d7", LightSlateBlue = "#8787ff",
Yellow4 = "#87af00", DarkOliveGreen3 = "#87af5f", DarkSeaGreen = "#87af87",
LightSkyBlue3 = "#87afaf", LightSkyBlue3 = "#87afd7", SkyBlue2 = "#87afff",
Chartreuse2 = "#87d700", DarkOliveGreen3 = "#87d75f", PaleGreen3 = "#87d787",
DarkSeaGreen3 = "#87d7af", DarkSlateGray3 = "#87d7d7", SkyBlue1 = "#87d7ff",
Chartreuse1 = "#87ff00", LightGreen = "#87ff5f", LightGreen = "#87ff87",
PaleGreen1 = "#87ffaf", Aquamarine1 = "#87ffd7", DarkSlateGray1 = "#87ffff",
Red3 = "#af0000", DeepPink4 = "#af005f", MediumVioletRed = "#af0087",
Magenta3 = "#af00af", DarkViolet = "#af00d7", Purple = "#af00ff",
DarkOrange3 = "#af5f00", IndianRed = "#af5f5f", HotPink3 = "#af5f87",
MediumOrchid3 = "#af5faf", MediumOrchid = "#af5fd7", MediumPurple2 = "#af5fff",
DarkGoldenrod = "#af8700", LightSalmon3 = "#af875f", RosyBrown = "#af8787",
Grey63 = "#af87af", MediumPurple2 = "#af87d7", MediumPurple1 = "#af87ff",
Gold3 = "#afaf00", DarkKhaki = "#afaf5f", NavajoWhite3 = "#afaf87",
Grey69 = "#afafaf", LightSteelBlue3 = "#afafd7", LightSteelBlue = "#afafff",
Yellow3 = "#afd700", DarkOliveGreen3 = "#afd75f", DarkSeaGreen3 = "#afd787",
DarkSeaGreen2 = "#afd7af", LightCyan3 = "#afd7d7", LightSkyBlue1 = "#afd7ff",
GreenYellow = "#afff00", DarkOliveGreen2 = "#afff5f", PaleGreen1 = "#afff87",
DarkSeaGreen2 = "#afffaf", DarkSeaGreen1 = "#afffd7", PaleTurquoise1 = "#afffff",
Red3 = "#d70000", DeepPink3 = "#d7005f", DeepPink3 = "#d70087",
Magenta3 = "#d700af", Magenta3 = "#d700d7", Magenta2 = "#d700ff",
DarkOrange3 = "#d75f00", IndianRed = "#d75f5f", HotPink3 = "#d75f87",
HotPink2 = "#d75faf", Orchid = "#d75fd7", MediumOrchid1 = "#d75fff",
Orange3 = "#d78700", LightSalmon3 = "#d7875f", LightPink3 = "#d78787",
Pink3 = "#d787af", Plum3 = "#d787d7", Violet = "#d787ff",
Gold3 = "#d7af00", LightGoldenrod3 = "#d7af5f", Tan = "#d7af87",
MistyRose3 = "#d7afaf", Thistle3 = "#d7afd7", Plum2 = "#d7afff",
Yellow3 = "#d7d700", Khaki3 = "#d7d75f", LightGoldenrod2 = "#d7d787",
LightYellow3 = "#d7d7af", Grey84 = "#d7d7d7", LightSteelBlue1 = "#d7d7ff",
Yellow2 = "#d7ff00", DarkOliveGreen1 = "#d7ff5f", DarkOliveGreen1 = "#d7ff87",
DarkSeaGreen1 = "#d7ffaf", Honeydew2 = "#d7ffd7", LightCyan1 = "#d7ffff",
Red1 = "#ff0000", DeepPink2 = "#ff005f", DeepPink1 = "#ff0087",
DeepPink1 = "#ff00af", Magenta2 = "#ff00d7", Magenta1 = "#ff00ff",
OrangeRed1 = "#ff5f00", IndianRed1 = "#ff5f5f", IndianRed1 = "#ff5f87",
HotPink = "#ff5faf", HotPink = "#ff5fd7", MediumOrchid1 = "#ff5fff",
DarkOrange = "#ff8700", Salmon1 = "#ff875f", LightCoral = "#ff8787",
PaleVioletRed1 = "#ff87af", Orchid2 = "#ff87d7", Orchid1 = "#ff87ff",
Orange1 = "#ffaf00", SandyBrown = "#ffaf5f", LightSalmon1 = "#ffaf87",
LightPink1 = "#ffafaf", Pink1 = "#ffafd7", Plum1 = "#ffafff",
Gold1 = "#ffd700", LightGoldenrod2 = "#ffd75f", LightGoldenrod2 = "#ffd787",
NavajoWhite1 = "#ffd7af", MistyRose1 = "#ffd7d7", Thistle1 = "#ffd7ff",
Yellow1 = "#ffff00", LightGoldenrod1 = "#ffff5f", Khaki1 = "#ffff87",
Wheat1 = "#ffffaf", Cornsilk1 = "#ffffd7", Grey100 = "#ffffff",
Grey3 = "#080808", Grey7 = "#121212", Grey11 = "#1c1c1c",
Grey15 = "#262626", Grey19 = "#303030", Grey23 = "#3a3a3a",
Grey27 = "#444444", Grey30 = "#4e4e4e", Grey35 = "#585858",
Grey39 = "#626262", Grey42 = "#6c6c6c", Grey46 = "#767676",
Grey50 = "#808080", Grey54 = "#8a8a8a", Grey58 = "#949494",
Grey62 = "#9e9e9e", Grey66 = "#a8a8a8", Grey70 = "#b2b2b2",
Grey74 = "#bcbcbc", Grey78 = "#c6c6c6", Grey82 = "#d0d0d0",
Grey85 = "#dadada", Grey89 = "#e4e4e4", Grey93 = "#eeeeee"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.