ggsci/0000755000176200001440000000000015120462532011346 5ustar liggesusersggsci/MD50000644000176200001440000001767215120462532011673 0ustar liggesusers47e26dde855fd9bbfeed07793bfee39b *DESCRIPTION 9fdd2931b4a916112523863038025a1c *NAMESPACE 6e0a50f46ece31160d7f2446f403b735 *NEWS.md ee997e3ff1b0860514c2b3cd13d179ef *R/continuous-bs5.R c70e63c44fdfb91fc439bfa1fc15897c *R/continuous-gsea.R 504eb1addb7414c25351318e2b86cb94 *R/continuous-material.R 6b8d746b15a0fa12e1dec95cff81898e *R/continuous-tw3.R 274ac790b6f55ba1af27249e80f1f5e2 *R/discrete-aaas.R 4f3724fc15ba0eee306f5e8d52dfebfb *R/discrete-atlassian.R 9e6bf2b871e96682e534cf58389c36f6 *R/discrete-bmj.R b3ab0951c4e0b3306e9e8c2f2cde3730 *R/discrete-cosmic.R fde2964065f08922b399b3d44b4e7cd3 *R/discrete-d3.R 02b4b880376e0c3d7e8138bcb742cebe *R/discrete-flatui.R 6555576ba106caef507abae1013a875f *R/discrete-frontiers.R b311d2c8b558b1eb22aaebb51d2d1c1d *R/discrete-futurama.R 61aa05a927b88928abbbb4e17df4f9a5 *R/discrete-igv.R d96331b43d2223ac000d86f01c04c4fd *R/discrete-iterm.R 2341929d910403a66ae56792ed5d48b0 *R/discrete-jama.R 356e04c2fcdd2173e68f477a35fdaca1 *R/discrete-jco.R 2a66e0249fae233069454272eada422f *R/discrete-lancet.R 6b0f4931b023b06caafb73ead90efcd2 *R/discrete-locuszoom.R 7774fcbe94365a3ff66cdf0287454889 *R/discrete-nejm.R 2442768c99eda1884390f5a991044a99 *R/discrete-npg.R 8e42dfbb7b8c8b3461a3957e298da527 *R/discrete-observable.R 1a1506d083fdef3f11156834272d32f7 *R/discrete-primer.R 903bbae6af174bb8bb46aff681b6934b *R/discrete-rickandmorty.R 6777a49a63f267d5fc59c4624d2c16a2 *R/discrete-simpsons.R 929e91a7e0e000194b630f91c2068685 *R/discrete-startrek.R 4a50e1d632c281b21c181ded9d5aaf19 *R/discrete-tron.R 1518ad45b8a6792eb580ef1473399826 *R/discrete-uchicago.R 3f6afb3bfcc5bf1ff1e572b54f9a16c6 *R/discrete-ucscgb.R 469d73b009e7b2fef144ad4a5460ae0d *R/examples.R b4fe12876c37f8a22cde06e9701eecf0 *R/ggsci-package.R e36140c8b3951eb52fa16e9832bd4cb6 *R/palettes-iterm.R 0707074de25e0080b2d2fc0df449530a *R/palettes.R 72c235a8035d12dd58333980efbb02cd *R/staticimports.R 1a01c625981e207319b392a973bdfd46 *R/utils.R 57bb4228393ddab0a7fc830089ac0353 *README.md 64df4a5c38b26adf929cb661cc876432 *build/vignette.rds 72802f8bf5b6e2996a041a343b8087a8 *inst/WORDLIST 71a82d97ae0094c9510e36bdd5594016 *inst/doc/ggsci-faq.R 99b408fbb27671330d03a8f101b37e59 *inst/doc/ggsci-faq.Rmd 79818b46e5c6589f7e919ca808595a95 *inst/doc/ggsci-faq.html 77228b9f310c33a944f9df0eda4a9e4a *inst/doc/ggsci.R 39de19428a9fcacbe29649be826cd770 *inst/doc/ggsci.Rmd 2c7e436158f46e6f6baec9d34e13e37e *inst/doc/ggsci.html 7a46953940f87ede1b6f5c95da60480e *man/example_plots.Rd a7952b31a93c8f07f3d33e2e7176da7b *man/figures/README-ggsci-aaas-1.png 34754422d1c0cb7d23728bc47d6eb190 *man/figures/README-ggsci-atlassian-1.png 5a5ae741074acb0dd835117d9bd0294a *man/figures/README-ggsci-bmj-1.png f9c0ca52e3f03381bc111d2e77fffb42 *man/figures/README-ggsci-bs5-1.png c87b60fccb795b0ad536f266aff1ad46 *man/figures/README-ggsci-cosmic-1.png a9986e71472fe90fde425dc87f5b047b *man/figures/README-ggsci-cosmic-2.png ebf76bb91bf8b1ebff579cf781ce9ae3 *man/figures/README-ggsci-cosmic-3.png 8b710ab7626fd2d5a6a684ac68b238b0 *man/figures/README-ggsci-d3-1.png c8161383cd3981351d11cfb7dee2e630 *man/figures/README-ggsci-flatui-1.png ed087b5661d1e9f1801abc109f31a25c *man/figures/README-ggsci-frontiers-1.png 03345450b44431bbc7e58c3274fd35df *man/figures/README-ggsci-futurama-1.png 2c59f4f000c2985e262ecccd22e3e1a7 *man/figures/README-ggsci-gsea-1.png f14c0e6eeb2014c04e7c308e3497d78e *man/figures/README-ggsci-igv-1.png 3d6ec7f01fbe4feb18347eb85665273d *man/figures/README-ggsci-iterm-1.png 19dfd28d90b80fc6b73430b56e1abe99 *man/figures/README-ggsci-jama-1.png c9b600314bae9913bbaad61dc9114be9 *man/figures/README-ggsci-jco-1.png b7ca81ed36dde666f676e1acf7ff9d16 *man/figures/README-ggsci-lancet-1.png 973bac645ee6eace2549f49f5109f076 *man/figures/README-ggsci-locuszoom-1.png b978b77613de460d8c7abb77b8affa69 *man/figures/README-ggsci-material-1.png e80bb0a33cf80b4c117b92c7c5921648 *man/figures/README-ggsci-nejm-1.png 42e8baabd836933f8d0af90f45168c3d *man/figures/README-ggsci-npg-1.png 948b6ff6390537710690f91dbbf2d0e7 *man/figures/README-ggsci-observable-1.png 8f6ace68770a99d3022433a37479cdfe *man/figures/README-ggsci-primer-1.png 9868a483d599c1b48ade56a35af3f666 *man/figures/README-ggsci-rickandmorty-1.png 39f199756fdb4cb80bab1e7bb3de7f68 *man/figures/README-ggsci-simpsons-1.png 930c7ad37778271accf39c0d0f5f1363 *man/figures/README-ggsci-startrek-1.png d3e982817ef3904e3a6270f9ecc1da70 *man/figures/README-ggsci-tron-1.png ed85a1b2335883931d34992872ad46a9 *man/figures/README-ggsci-tw3-1.png f5182fef71a2a73f5e3a9955833fb1ea *man/figures/README-ggsci-uchicago-1.png 92474f9f11a62662d9de2d628ce3e1e2 *man/figures/README-ggsci-ucscgb-1.png 314520bf9b7aae7240921580713df426 *man/figures/logo.png fa1ea028803ef5bf9094caaa43fdf6db *man/ggsci-package.Rd 34c95662b22654e783d35908d4da6fad *man/iterm_palettes.Rd ea10b8afcca2c7f26c9a78200cb0ec15 *man/pal_aaas.Rd 845e1ac21e2ff8626437dbb449f12a3f *man/pal_atlassian.Rd 2768b1a592f4b71564eaa6748f42d609 *man/pal_bmj.Rd 0670729ee6c15151985a5cd424a46fdf *man/pal_bs5.Rd 91fb1535f26b011649550bdfa6745873 *man/pal_cosmic.Rd 3c4c514ae39c86981415a1aeb792df93 *man/pal_d3.Rd 062f28d6153c9d21387e894520920090 *man/pal_flatui.Rd 08c45e86e8889e2db9a84c9a75d4f65b *man/pal_frontiers.Rd d5e1711e415283917cc275eee1bddde9 *man/pal_futurama.Rd e862620e38f30b1a60ca350bbe1a09c6 *man/pal_gsea.Rd 1317d07dd2217086951e1771c3c5909a *man/pal_igv.Rd 67ccfd24199b24167dba8115966c22f2 *man/pal_iterm.Rd 53a0d957997ea2de67b81e7ba41fc22e *man/pal_jama.Rd 8ad59dd0507ce03131bdf113157e9bfc *man/pal_jco.Rd 7926ee1fa14cd512566ad63805fa652c *man/pal_lancet.Rd b4660f67fd21f12a3cd34bfb3300361f *man/pal_locuszoom.Rd a6fd7fe0f8d9b78dc40269b296badd1b *man/pal_material.Rd 5285e77ea13c897d9101db6df874d5c7 *man/pal_nejm.Rd 271f6a92a97e3c30544238c8d7813335 *man/pal_npg.Rd a067d50781f839644ba1bd2ae17bdf52 *man/pal_observable.Rd a6a04a68ccc82dc3189af1c67af3d484 *man/pal_primer.Rd 32305f0481a7321b67ac1f11eb88701e *man/pal_rickandmorty.Rd 94d41a692b58cdefa6a43b9cff8ecc7a *man/pal_simpsons.Rd 6e93646c7a12945104abfbd0864f3512 *man/pal_startrek.Rd 7964aa137a18699e3bbc3cc830e71421 *man/pal_tron.Rd 1022d72cdce5a44f5abdc758bb5183f9 *man/pal_tw3.Rd db3cd93a958109ce3c38b6005b1d05c5 *man/pal_uchicago.Rd 4cf8fa2c05f735c232c995e3cc50355e *man/pal_ucscgb.Rd caaf73b37475f7a3cafe9191bdbc957f *man/rgb_bs5.Rd 9ba40d9aa59f03747e243a494e04f318 *man/rgb_gsea.Rd 0d867dba54e1bea70c3768181ecadef3 *man/rgb_material.Rd 7a75e60ba7c8e68ff9052915803cdcde *man/rgb_tw3.Rd 97889949b5028e64b4ce25e6a5f7c37f *man/scale_aaas.Rd b6a9f7a776f92c38edb8bff6c53cd504 *man/scale_atlassian.Rd be50f40e2d91079131b83f6c7182cc98 *man/scale_bmj.Rd 4fe8b80e47c0bfceab7d39c6ebab8283 *man/scale_bs5.Rd 86acb921cf9449a7511bc6d274b3bdf1 *man/scale_cosmic.Rd 1e0d8137e8f2e3c85630c908f601d942 *man/scale_d3.Rd c7bdd836311b7c2ed716023246ec3a4e *man/scale_flatui.Rd 2e046cf3d33553397dec36dc8d323eff *man/scale_frontiers.Rd 890abc73ed3d330ac0e508ac4ee2cca0 *man/scale_futurama.Rd 94bcf651ad5d23fec16c2e994b21c091 *man/scale_gsea.Rd cec8140a6a90a541c6e59c68fd896db9 *man/scale_igv.Rd a8860cba0505dee30976855bf98e2a77 *man/scale_iterm.Rd 034f776b4e4332a2b389d88589fa14e1 *man/scale_jama.Rd c8ef354ed07885267c85ce86477a598d *man/scale_jco.Rd f76e611db9f92608592376ffa84f61eb *man/scale_lancet.Rd 70230b3ac2383c84a63c0b415128d4d4 *man/scale_locuszoom.Rd 60eb6f60dfbbe066b160428409f13606 *man/scale_material.Rd c1030279a6d01b56085debbef5bef83c *man/scale_nejm.Rd 823df4f03364f3cfe29309dcf65bc42f *man/scale_npg.Rd 5c41e59699180468b8bd2a12c5c15b81 *man/scale_observable.Rd a12c8fda1663701631051ce6a9d0d268 *man/scale_primer.Rd ef01e0fcdf92cacfd3557f90875c7749 *man/scale_rickandmorty.Rd f2dff35f7cc2b387eb205c584137fbe6 *man/scale_simpsons.Rd e63b828db3b2453bd17011376af1e94d *man/scale_startrek.Rd b7c00938dda4402928557a9faa21cb96 *man/scale_tron.Rd 54e3850cc7b1c4e11cc1522cd4faf19d *man/scale_tw3.Rd 29a10bfff01650bbaeb3d8f1d4656b29 *man/scale_uchicago.Rd e92cf20bca865c7a2cde4baa74f212d0 *man/scale_ucscgb.Rd 4eacfa48d71283d7a0f553326f306624 *vignettes/custom.css 99b408fbb27671330d03a8f101b37e59 *vignettes/ggsci-faq.Rmd 39de19428a9fcacbe29649be826cd770 *vignettes/ggsci.Rmd ggsci/R/0000755000176200001440000000000015120434214011543 5ustar liggesusersggsci/R/staticimports.R0000644000176200001440000000350115120434214014572 0ustar liggesusers# Generated by staticimports; do not edit by hand. # ====================================================================== # Imported from pkg:staticimports # ====================================================================== get_package_version <- function(pkg) { # `utils::packageVersion()` can be slow, so first try the fast path of # checking if the package is already loaded. ns <- .getNamespace(pkg) if (is.null(ns)) { utils::packageVersion(pkg) } else { as.package_version(ns$.__NAMESPACE__.$spec[["version"]]) } } is_installed <- function(pkg, version = NULL) { installed <- isNamespaceLoaded(pkg) || nzchar(system_file_cached(package = pkg)) if (is.null(version)) { return(installed) } if (!is.character(version) && !inherits(version, "numeric_version")) { # Avoid https://bugs.r-project.org/show_bug.cgi?id=18548 alert <- if (identical(Sys.getenv("TESTTHAT"), "true")) stop else warning alert("`version` must be a character string or a `package_version` or `numeric_version` object.") version <- numeric_version(sprintf("%0.9g", version)) } installed && isTRUE(get_package_version(pkg) >= version) } # A wrapper for `system.file()`, which caches the package path because # `system.file()` can be slow. If a package is not installed, the result won't # be cached. system_file_cached <- local({ pkg_dir_cache <- character() function(..., package = "base") { if (!is.null(names(list(...)))) { stop("All arguments other than `package` must be unnamed.") } not_cached <- is.na(match(package, names(pkg_dir_cache))) if (not_cached) { pkg_dir <- system.file(package = package) if (nzchar(pkg_dir)) { pkg_dir_cache[[package]] <<- pkg_dir } } else { pkg_dir <- pkg_dir_cache[[package]] } file.path(pkg_dir, ...) } }) ggsci/R/discrete-igv.R0000644000176200001440000000540015120434214014252 0ustar liggesusers#' Integrative Genomics Viewer (IGV) color palettes #' #' Color palettes based on the colors used by #' Integrative Genomics Viewer (IGV). #' #' @param palette Palette type. #' There are two available options: #' - `"default"` (51-color palette). #' - `"alternating"` (2-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_igv #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' James T. Robinson, Helga Thorvaldsdóttir, Wendy Winckler, #' Mitchell Guttman, Eric S. Lander, Gad Getz, Jill P. Mesirov. #' Integrative Genomics Viewer. _Nature Biotechnology_ 29, 24--26 (2011). #' #' @examples #' library("scales") #' show_col(pal_igv("default")(51)) #' show_col(pal_igv("alternating")(2)) pal_igv <- function(palette = c("default", "alternating"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"igv"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Integrative Genomics Viewer (IGV) color scales #' #' See [pal_igv()] for details. #' #' @inheritParams pal_igv #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_igv #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_igv #' #' @examples #' p1 <- example_scatterplot() #' p2 <- example_barplot() #' #' p1 + scale_color_igv() #' p2 + scale_fill_igv() #' #' p1 + ggplot2::scale_colour_manual( #' values = rep(pal_igv("alternating")(2), times = 3) #' ) #' p2 + ggplot2::scale_fill_manual( #' values = rep(pal_igv("alternating")(2), times = 3) #' ) scale_color_igv <- function(palette = c("default", "alternating"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_igv(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "igv", palette = pal_igv(palette, alpha), ...) } } #' @export scale_colour_igv #' @rdname scale_igv scale_colour_igv <- scale_color_igv #' @export scale_fill_igv #' @importFrom ggplot2 discrete_scale #' @rdname scale_igv scale_fill_igv <- function(palette = c("default", "alternating"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_igv(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "igv", palette = pal_igv(palette, alpha), ...) } } ggsci/R/discrete-nejm.R0000644000176200001440000000432515120434214014423 0ustar liggesusers#' NEJM color palettes #' #' Color palette inspired by plots in #' _The New England Journal of Medicine_. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (8-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_nejm #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_nejm("default")(8)) #' show_col(pal_nejm("default", alpha = 0.6)(8)) pal_nejm <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"nejm"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' NEJM color scales #' #' See [pal_nejm()] for details. #' #' @inheritParams pal_nejm #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_nejm #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_nejm #' #' @examples #' example_scatterplot() + scale_color_nejm() #' example_barplot() + scale_fill_nejm() scale_color_nejm <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_nejm(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "nejm", palette = pal_nejm(palette, alpha), ...) } } #' @export scale_colour_nejm #' @rdname scale_nejm scale_colour_nejm <- scale_color_nejm #' @export scale_fill_nejm #' @importFrom ggplot2 discrete_scale #' @rdname scale_nejm scale_fill_nejm <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_nejm(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "nejm", palette = pal_nejm(palette, alpha), ...) } } ggsci/R/ggsci-package.R0000644000176200001440000000004115120434214014346 0ustar liggesusers#' @keywords internal "_PACKAGE" ggsci/R/discrete-ucscgb.R0000644000176200001440000000442415120434214014740 0ustar liggesusers#' UCSC Genome Browser color palette #' #' Color palette from UCSC Genome Browser chromosome colors. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (26-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_ucscgb #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_ucscgb("default")(26)) #' show_col(pal_ucscgb("default", alpha = 0.6)(26)) pal_ucscgb <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"ucscgb"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' UCSC Genome Browser color scales #' #' See [pal_ucscgb()] for details. #' #' @inheritParams pal_ucscgb #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_ucscgb #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_ucscgb #' #' @examples #' example_scatterplot() + scale_color_ucscgb() #' example_barplot() + scale_fill_ucscgb() scale_color_ucscgb <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_ucscgb(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "ucscgb", palette = pal_ucscgb(palette, alpha), ...) } } #' @export scale_colour_ucscgb #' @rdname scale_ucscgb scale_colour_ucscgb <- scale_color_ucscgb #' @export scale_fill_ucscgb #' @importFrom ggplot2 discrete_scale #' @rdname scale_ucscgb scale_fill_ucscgb <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_ucscgb(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "ucscgb", palette = pal_ucscgb(palette, alpha), ...) } } ggsci/R/palettes-iterm.R0000644000176200001440000052561115120434214014637 0ustar liggesusers# Generated by tools/update_iterm_palettes.R: do not edit by hand # Please run Rscript tools/update_iterm_palettes.R to regenerate this file #' iTerm color palette names #' #' @return Character vector of palette names. #' #' @export iterm_palettes #' #' @examples #' iterm_palettes() iterm_palettes <- function() { c( "0x96f", "12-bit Rainbow", "3024 Day", "3024 Night", "Aardvark Blue", "Abernathy", "Adventure Time", "Adventure", "Adwaita Dark", "Adwaita", "Afterglow", "Alabaster", "Alien Blood", "Andromeda", "Apple Classic", "Apple System Colors Light", "Apple System Colors", "Arcoiris", "Ardoise", "Argonaut", "Arthur", "Atelier Sulphurpool", "Atom One Dark", "Atom One Light", "Atom", "Aura", "Aurora", "Ayu Light", "Ayu Mirage", "Ayu", "Banana Blueberry", "Batman", "Belafonte Day", "Belafonte Night", "Birds Of Paradise", "Black Metal (Bathory)", "Black Metal (Burzum)", "Black Metal (Dark Funeral)", "Black Metal (Gorgoroth)", "Black Metal (Immortal)", "Black Metal (Khold)", "Black Metal (Marduk)", "Black Metal (Mayhem)", "Black Metal (Nile)", "Black Metal (Venom)", "Black Metal", "Blazer", "Blue Berry Pie", "Blue Dolphin", "Blue Matrix", "Bluloco Dark", "Bluloco Light", "Borland", "Box", "branch", "Breadog", "Breeze", "Bright Lights", "Broadcast", "Brogrammer", "Builtin Dark", "Builtin Light", "Builtin Pastel Dark", "Builtin Solarized Dark", "Builtin Solarized Light", "Builtin Tango Dark", "Builtin Tango Light", "C64", "Calamity", "Carbonfox", "Catppuccin Frappe", "Catppuccin Latte", "Catppuccin Macchiato", "Catppuccin Mocha", "CGA", "Chalk", "Chalkboard", "Challenger Deep", "Chester", "Ciapre", "Citruszest", "CLRS", "Cobalt Neon", "Cobalt Next Dark", "Cobalt Next Minimal", "Cobalt Next", "Cobalt2", "Coffee Theme", "Crayon Pony Fish", "Cursor Dark", "Cutie Pro", "Cyberdyne", "Cyberpunk Scarlet Protocol", "Cyberpunk", "Dark Modern", "Dark Pastel", "Dark+", "Darkermatrix", "Darkmatrix", "Darkside", "Dawnfox", "Dayfox", "Deep", "Desert", "Detuned", "Dimidium", "Dimmed Monokai", "Django Reborn Again", "Django Smooth", "Django", "Doom One", "Doom Peacock", "Dot Gov", "Dracula", "Dracula+", "Duckbones", "Duotone Dark", "Duskfox", "Earthsong", "Electron Highlighter", "Elegant", "Elemental", "Elementary", "Embark", "Embers Dark", "ENCOM", "Espresso Libre", "Espresso", "Everblush", "Everforest Dark Hard", "Everforest Light Med", "Fahrenheit", "Fairyfloss", "Farmhouse Dark", "Farmhouse Light", "Fideloper", "Firefly Traditional", "Firefox Dev", "Firewatch", "Fish Tank", "Flat", "Flatland", "Flexoki Dark", "Flexoki Light", "Floraverse", "Forest Blue", "Framer", "Front End Delight", "Fun Forrest", "Galaxy", "Galizur", "Ghostty Default Style Dark", "GitHub Dark Colorblind", "GitHub Dark Default", "GitHub Dark Dimmed", "GitHub Dark High Contrast", "GitHub Dark", "GitHub Light Colorblind", "GitHub Light Default", "GitHub Light High Contrast", "GitHub", "GitLab Dark Grey", "GitLab Dark", "GitLab Light", "Glacier", "Grape", "Grass", "Grey Green", "Gruber Darker", "Gruvbox Dark Hard", "Gruvbox Dark", "Gruvbox Light Hard", "Gruvbox Light", "Gruvbox Material Dark", "Gruvbox Material Light", "Gruvbox Material", "Guezwhoz", "Hacktober", "Hardcore", "Harper", "Havn Daggry", "Havn Skumring", "HaX0R Blue", "HaX0R Gr33N", "HaX0R R3D", "Heeler", "Highway", "Hipster Green", "Hivacruz", "Homebrew", "Hopscotch.256", "Hopscotch", "Horizon Bright", "Horizon", "Hot Dog Stand (Mustard)", "Hot Dog Stand", "Hurtado", "Hybrid", "IBM 5153 CGA (Black)", "IBM 5153 CGA", "IC Green PPL", "IC Orange PPL", "Iceberg Dark", "Iceberg Light", "Idea", "Idle Toes", "IR Black", "IRIX Console", "IRIX Terminal", "iTerm2 Dark Background", "iTerm2 Default", "iTerm2 Light Background", "iTerm2 Pastel Dark Background", "iTerm2 Smoooooth", "iTerm2 Solarized Dark", "iTerm2 Solarized Light", "iTerm2 Tango Dark", "iTerm2 Tango Light", "Jackie Brown", "Japanesque", "Jellybeans", "JetBrains Darcula", "Jubi", "Kanagawa Dragon", "Kanagawa Wave", "Kanagawabones", "Kibble", "Kitty Default", "Kitty Low Contrast", "Kolorit", "Konsolas", "Kurokula", "Lab Fox", "Laser", "Later This Evening", "Lavandula", "Light Owl", "Liquid Carbon Transparent", "Liquid Carbon", "Lovelace", "Man Page", "Mariana", "Material Dark", "Material Darker", "Material Design Colors", "Material Ocean", "Material", "Mathias", "Matrix", "Matte Black", "Medallion", "Melange Dark", "Melange Light", "Mellifluous", "Mellow", "Miasma", "Midnight In Mojave", "Mirage", "Misterioso", "Molokai", "Mona Lisa", "Monokai Classic", "Monokai Pro Light Sun", "Monokai Pro Light", "Monokai Pro Machine", "Monokai Pro Octagon", "Monokai Pro Ristretto", "Monokai Pro Spectrum", "Monokai Pro", "Monokai Remastered", "Monokai Soda", "Monokai Vivid", "Moonfly", "N0Tch2K", "Neobones Dark", "Neobones Light", "Neon", "Neopolitan", "Neutron", "Night Lion V1", "Night Lion V2", "Night Owl", "Night Owlish Light", "Nightfox", "Niji", "No Clown Fiesta Light", "No Clown Fiesta", "Nocturnal Winter", "Nord Light", "Nord Wave", "Nord", "Nordfox", "Novel", "novmbr", "Nvim Dark", "Nvim Light", "Obsidian", "Ocean", "Oceanic Material", "Oceanic Next", "Ollie", "One Dark Two", "One Double Dark", "One Double Light", "One Half Dark", "One Half Light", "Operator Mono Dark", "Overnight Slumber", "owl", "Oxocarbon", "Pale Night Hc", "Pandora", "Paraiso Dark", "Paul Millr", "Pencil Dark", "Pencil Light", "Peppermint", "Phala Green Dark", "Piatto Light", "Pnevma", "Poimandres Darker", "Poimandres Storm", "Poimandres White", "Poimandres", "Popping And Locking", "Powershell", "Primary", "Pro Light", "Pro", "Purple Rain", "Purplepeter", "Rapture", "Raycast Dark", "Raycast Light", "Rebecca", "Red Alert", "Red Planet", "Red Sands", "Relaxed", "Retro Legends", "Retro", "Rippedcasts", "Rose Pine Dawn", "Rose Pine Moon", "Rose Pine", "Rouge 2", "Royal", "Ryuuko", "Sakura", "Scarlet Protocol", "Sea Shells", "Seafoam Pastel", "Selenized Black", "Selenized Dark", "Selenized Light", "Seoulbones Dark", "Seoulbones Light", "Seti", "Shades Of Purple", "Shaman", "Slate", "Sleepy Hollow", "Smyck", "Snazzy Soft", "Snazzy", "Soft Server", "Solarized Darcula", "Solarized Dark Higher Contrast", "Solarized Dark Patched", "Solarized Osaka Night", "Sonokai", "Spacedust", "Spacegray Bright", "Spacegray Eighties Dull", "Spacegray Eighties", "Spacegray", "Spiderman", "Spring", "Square", "Squirrelsong Dark", "Srcery", "Starlight", "Sublette", "Subliminal", "Sugarplum", "Sundried", "Symfonic", "Synthwave Alpha", "Synthwave Everything", "Synthwave", "Tango Adapted", "Tango Half Adapted", "Tearout", "Teerb", "Terafox", "Terminal Basic Dark", "Terminal Basic", "Thayer Bright", "The Hulk", "Tinacious Design Dark", "Tinacious Design Light", "TokyoNight Day", "TokyoNight Moon", "TokyoNight Night", "TokyoNight Storm", "TokyoNight", "Tomorrow Night Blue", "Tomorrow Night Bright", "Tomorrow Night Burns", "Tomorrow Night Eighties", "Tomorrow Night", "Tomorrow", "Toy Chest", "traffic", "Treehouse", "Twilight", "Ubuntu", "Ultra Dark", "Ultra Violent", "Under The Sea", "Unikitty", "urban", "Urple", "Vague", "Vaughn", "Vercel", "Vesper", "Vibrant Ink", "Vimbones", "Violet Dark", "Violet Light", "Violite", "Warm Neon", "Wez", "Whimsy", "Wild Cherry", "Wilmersdorf", "Wombat", "Wryan", "Xcode Dark hc", "Xcode Dark", "Xcode Light hc", "Xcode Light", "Xcode WWDC", "Zenbones Dark", "Zenbones Light", "Zenbones", "Zenburn", "Zenburned", "Zenwritten Dark", "Zenwritten Light" ) } ggsci_db_iterm <- vector("list") ggsci_db_iterm$"0x96f"$"normal" <- c( "Blue" = "#00CDE8", "Yellow" = "#FFC739", "Red" = "#FF666D", "Cyan" = "#9DEAF6", "Green" = "#B3E03A", "Magenta" = "#A392E8" ) ggsci_db_iterm$"0x96f"$"bright" <- c( "Blue" = "#1BD5EB", "Yellow" = "#FFD05E", "Red" = "#FF7E83", "Cyan" = "#ACEDF8", "Green" = "#BEE55E", "Magenta" = "#B0A3EB" ) ggsci_db_iterm$"12-bit Rainbow"$"normal" <- c( "Blue" = "#3060B0", "Yellow" = "#E09040", "Red" = "#A03050", "Cyan" = "#0090C0", "Green" = "#40D080", "Magenta" = "#603090" ) ggsci_db_iterm$"12-bit Rainbow"$"bright" <- c( "Blue" = "#00B0C0", "Yellow" = "#E0D000", "Red" = "#C06060", "Cyan" = "#20B0C0", "Green" = "#90D050", "Magenta" = "#801070" ) ggsci_db_iterm$"3024 Day"$"normal" <- c( "Blue" = "#01A0E4", "Yellow" = "#CABA00", "Red" = "#DB2D20", "Cyan" = "#8FBECE", "Green" = "#01A252", "Magenta" = "#A16A94" ) ggsci_db_iterm$"3024 Day"$"bright" <- c( "Blue" = "#807D7C", "Yellow" = "#4A4543", "Red" = "#DBAEC3", "Cyan" = "#CDAB53", "Green" = "#3A3432", "Magenta" = "#BCBBBA" ) ggsci_db_iterm$"3024 Night"$"normal" <- c( "Blue" = "#01A0E4", "Yellow" = "#FDED02", "Red" = "#DB2D20", "Cyan" = "#B5E4F4", "Green" = "#01A252", "Magenta" = "#A16A94" ) ggsci_db_iterm$"3024 Night"$"bright" <- c( "Blue" = "#807D7C", "Yellow" = "#4A4543", "Red" = "#E8BBD0", "Cyan" = "#CDAB53", "Green" = "#47413F", "Magenta" = "#D6D5D4" ) ggsci_db_iterm$"Aardvark Blue"$"normal" <- c( "Blue" = "#1370D3", "Yellow" = "#DBBA00", "Red" = "#AA342E", "Cyan" = "#008EB0", "Green" = "#4B8C0F", "Magenta" = "#C43AC3" ) ggsci_db_iterm$"Aardvark Blue"$"bright" <- c( "Blue" = "#60A4EC", "Yellow" = "#FFE763", "Red" = "#F05B50", "Cyan" = "#60B6CB", "Green" = "#95DC55", "Magenta" = "#E26BE2" ) ggsci_db_iterm$"Abernathy"$"normal" <- c( "Blue" = "#1093F5", "Yellow" = "#CDCD00", "Red" = "#CD0000", "Cyan" = "#00CDCD", "Green" = "#00CD00", "Magenta" = "#CD00CD" ) ggsci_db_iterm$"Abernathy"$"bright" <- c( "Blue" = "#11B5F6", "Yellow" = "#FFFF00", "Red" = "#FF0000", "Cyan" = "#00FFFF", "Green" = "#00FF00", "Magenta" = "#FF00FF" ) ggsci_db_iterm$"Adventure Time"$"normal" <- c( "Blue" = "#0F4AC6", "Yellow" = "#E7741E", "Red" = "#BD0013", "Cyan" = "#70A598", "Green" = "#4AB118", "Magenta" = "#665993" ) ggsci_db_iterm$"Adventure Time"$"bright" <- c( "Blue" = "#1997C6", "Yellow" = "#EFC11A", "Red" = "#FC5F5A", "Cyan" = "#C8FAF4", "Green" = "#9EFF6E", "Magenta" = "#9B5953" ) ggsci_db_iterm$"Adventure"$"normal" <- c( "Blue" = "#417AB3", "Yellow" = "#EEBB6E", "Red" = "#D84A33", "Cyan" = "#BDCFE5", "Green" = "#5DA602", "Magenta" = "#E5C499" ) ggsci_db_iterm$"Adventure"$"bright" <- c( "Blue" = "#97D7EF", "Yellow" = "#FFB670", "Red" = "#D76B42", "Cyan" = "#BDCFE5", "Green" = "#99B52C", "Magenta" = "#AA7900" ) ggsci_db_iterm$"Adwaita Dark"$"normal" <- c( "Blue" = "#1E78E4", "Yellow" = "#F5C211", "Red" = "#C01C28", "Cyan" = "#0AB9DC", "Green" = "#2EC27E", "Magenta" = "#9841BB" ) ggsci_db_iterm$"Adwaita Dark"$"bright" <- c( "Blue" = "#51A1FF", "Yellow" = "#F8E45C", "Red" = "#ED333B", "Cyan" = "#4FD2FD", "Green" = "#57E389", "Magenta" = "#C061CB" ) ggsci_db_iterm$"Adwaita"$"normal" <- c( "Blue" = "#1E78E4", "Yellow" = "#E8B504", "Red" = "#C01C28", "Cyan" = "#0AB9DC", "Green" = "#2EC27E", "Magenta" = "#9841BB" ) ggsci_db_iterm$"Adwaita"$"bright" <- c( "Blue" = "#51A1FF", "Yellow" = "#D2BE36", "Red" = "#ED333B", "Cyan" = "#4FD2FD", "Green" = "#4AD67C", "Magenta" = "#C061CB" ) ggsci_db_iterm$"Afterglow"$"normal" <- c( "Blue" = "#6C99BB", "Yellow" = "#E5B567", "Red" = "#AC4142", "Cyan" = "#7DD6CF", "Green" = "#7E8E50", "Magenta" = "#9F4E85" ) ggsci_db_iterm$"Afterglow"$"bright" <- c( "Blue" = "#6C99BB", "Yellow" = "#E5B567", "Red" = "#AC4142", "Cyan" = "#7DD6CF", "Green" = "#7E8E50", "Magenta" = "#9F4E85" ) ggsci_db_iterm$"Alabaster"$"normal" <- c( "Blue" = "#325CC0", "Yellow" = "#CB9000", "Red" = "#AA3731", "Cyan" = "#0083B2", "Green" = "#448C27", "Magenta" = "#7A3E9D" ) ggsci_db_iterm$"Alabaster"$"bright" <- c( "Blue" = "#007ACC", "Yellow" = "#F2AF50", "Red" = "#F05050", "Cyan" = "#00AACB", "Green" = "#60CB00", "Magenta" = "#E64CE6" ) ggsci_db_iterm$"Alien Blood"$"normal" <- c( "Blue" = "#2F6A7F", "Yellow" = "#717F24", "Red" = "#7F2B27", "Cyan" = "#327F77", "Green" = "#2F7E25", "Magenta" = "#47587F" ) ggsci_db_iterm$"Alien Blood"$"bright" <- c( "Blue" = "#00AAE0", "Yellow" = "#BDE000", "Red" = "#E08009", "Cyan" = "#00E0C4", "Green" = "#18E000", "Magenta" = "#0058E0" ) ggsci_db_iterm$"Andromeda"$"normal" <- c( "Blue" = "#2472C8", "Yellow" = "#E5E512", "Red" = "#CD3131", "Cyan" = "#0FA8CD", "Green" = "#05BC79", "Magenta" = "#BC3FBC" ) ggsci_db_iterm$"Andromeda"$"bright" <- c( "Blue" = "#2472C8", "Yellow" = "#E5E512", "Red" = "#CD3131", "Cyan" = "#0FA8CD", "Green" = "#05BC79", "Magenta" = "#BC3FBC" ) ggsci_db_iterm$"Apple Classic"$"normal" <- c( "Blue" = "#1C3FE1", "Yellow" = "#C7C400", "Red" = "#C91B00", "Cyan" = "#00C5C7", "Green" = "#00C200", "Magenta" = "#CA30C7" ) ggsci_db_iterm$"Apple Classic"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#FFFC67", "Red" = "#FF6E67", "Cyan" = "#60FDFF", "Green" = "#5FFA68", "Magenta" = "#FF77FF" ) ggsci_db_iterm$"Apple System Colors Light"$"normal" <- c( "Blue" = "#0869CB", "Yellow" = "#CDAC08", "Red" = "#CC372E", "Cyan" = "#479EC2", "Green" = "#26A439", "Magenta" = "#9647BF" ) ggsci_db_iterm$"Apple System Colors Light"$"bright" <- c( "Blue" = "#0A84FF", "Yellow" = "#E5BC00", "Red" = "#FF453A", "Cyan" = "#69C9F2", "Green" = "#32D74B", "Magenta" = "#BF5AF2" ) ggsci_db_iterm$"Apple System Colors"$"normal" <- c( "Blue" = "#0869CB", "Yellow" = "#CDAC08", "Red" = "#CC372E", "Cyan" = "#479EC2", "Green" = "#26A439", "Magenta" = "#9647BF" ) ggsci_db_iterm$"Apple System Colors"$"bright" <- c( "Blue" = "#0A84FF", "Yellow" = "#FFD60A", "Red" = "#FF453A", "Cyan" = "#76D6FF", "Green" = "#32D74B", "Magenta" = "#BF5AF2" ) ggsci_db_iterm$"Arcoiris"$"normal" <- c( "Blue" = "#518BFC", "Yellow" = "#FFC656", "Red" = "#DA2700", "Cyan" = "#63FAD5", "Green" = "#12C258", "Magenta" = "#E37BD9" ) ggsci_db_iterm$"Arcoiris"$"bright" <- c( "Blue" = "#B3E8F3", "Yellow" = "#FFDDAA", "Red" = "#FFB9B9", "Cyan" = "#BCFFC7", "Green" = "#E3F6AA", "Magenta" = "#CBBAF9" ) ggsci_db_iterm$"Ardoise"$"normal" <- c( "Blue" = "#2465C2", "Yellow" = "#FCA93A", "Red" = "#D3322D", "Cyan" = "#64E1B8", "Green" = "#588B35", "Magenta" = "#7332B4" ) ggsci_db_iterm$"Ardoise"$"bright" <- c( "Blue" = "#6AB5F8", "Yellow" = "#FFEA51", "Red" = "#FA5852", "Cyan" = "#89FFDB", "Green" = "#8DC252", "Magenta" = "#BE68CA" ) ggsci_db_iterm$"Argonaut"$"normal" <- c( "Blue" = "#008DF8", "Yellow" = "#FFB900", "Red" = "#FF000F", "Cyan" = "#00D8EB", "Green" = "#8CE10B", "Magenta" = "#6D43A6" ) ggsci_db_iterm$"Argonaut"$"bright" <- c( "Blue" = "#0092FF", "Yellow" = "#FFD242", "Red" = "#FF2740", "Cyan" = "#67FFF0", "Green" = "#ABE15B", "Magenta" = "#9A5FEB" ) ggsci_db_iterm$"Arthur"$"normal" <- c( "Blue" = "#6495ED", "Yellow" = "#E8AE5B", "Red" = "#CD5C5C", "Cyan" = "#B0C4DE", "Green" = "#86AF80", "Magenta" = "#DEB887" ) ggsci_db_iterm$"Arthur"$"bright" <- c( "Blue" = "#87CEEB", "Yellow" = "#FFA75D", "Red" = "#CC5533", "Cyan" = "#B0C4DE", "Green" = "#88AA22", "Magenta" = "#996600" ) ggsci_db_iterm$"Atelier Sulphurpool"$"normal" <- c( "Blue" = "#3D8FD1", "Yellow" = "#C08B30", "Red" = "#C94922", "Cyan" = "#22A2C9", "Green" = "#AC9739", "Magenta" = "#6679CC" ) ggsci_db_iterm$"Atelier Sulphurpool"$"bright" <- c( "Blue" = "#898EA4", "Yellow" = "#5E6687", "Red" = "#C76B29", "Cyan" = "#9C637A", "Green" = "#4F587C", "Magenta" = "#DFE2F1" ) ggsci_db_iterm$"Atom One Dark"$"normal" <- c( "Blue" = "#61AFEF", "Yellow" = "#E5C07B", "Red" = "#E06C75", "Cyan" = "#56B6C2", "Green" = "#98C379", "Magenta" = "#C678DD" ) ggsci_db_iterm$"Atom One Dark"$"bright" <- c( "Blue" = "#61AFEF", "Yellow" = "#E5C07B", "Red" = "#E06C75", "Cyan" = "#56B6C2", "Green" = "#98C379", "Magenta" = "#C678DD" ) ggsci_db_iterm$"Atom One Light"$"normal" <- c( "Blue" = "#2F5AF3", "Yellow" = "#D2B67C", "Red" = "#DE3E35", "Cyan" = "#3F953A", "Green" = "#3F953A", "Magenta" = "#950095" ) ggsci_db_iterm$"Atom One Light"$"bright" <- c( "Blue" = "#2F5AF3", "Yellow" = "#D2B67C", "Red" = "#DE3E35", "Cyan" = "#3F953A", "Green" = "#3F953A", "Magenta" = "#A00095" ) ggsci_db_iterm$"Atom"$"normal" <- c( "Blue" = "#85BEFD", "Yellow" = "#FFD7B1", "Red" = "#FD5FF1", "Cyan" = "#85BEFD", "Green" = "#87C38A", "Magenta" = "#B9B6FC" ) ggsci_db_iterm$"Atom"$"bright" <- c( "Blue" = "#96CBFE", "Yellow" = "#F5FFA8", "Red" = "#FD5FF1", "Cyan" = "#85BEFD", "Green" = "#94FA36", "Magenta" = "#B9B6FC" ) ggsci_db_iterm$"Aura"$"normal" <- c( "Blue" = "#A277FF", "Yellow" = "#FFCA85", "Red" = "#FF6767", "Cyan" = "#61FFCA", "Green" = "#61FFCA", "Magenta" = "#A277FF" ) ggsci_db_iterm$"Aura"$"bright" <- c( "Blue" = "#A277FF", "Yellow" = "#FFCA85", "Red" = "#FFCA85", "Cyan" = "#61FFCA", "Green" = "#A277FF", "Magenta" = "#A277FF" ) ggsci_db_iterm$"Aurora"$"normal" <- c( "Blue" = "#102EE4", "Yellow" = "#FFE66D", "Red" = "#F0266F", "Cyan" = "#03D6B8", "Green" = "#8FD46D", "Magenta" = "#EE5D43" ) ggsci_db_iterm$"Aurora"$"bright" <- c( "Blue" = "#03D6B8", "Yellow" = "#FFE66D", "Red" = "#F92672", "Cyan" = "#03D6B8", "Green" = "#8FD46D", "Magenta" = "#EE5D43" ) ggsci_db_iterm$"Ayu Light"$"normal" <- c( "Blue" = "#3199E1", "Yellow" = "#ECA944", "Red" = "#EA6C6D", "Cyan" = "#46BA94", "Green" = "#6CBF43", "Magenta" = "#9E75C7" ) ggsci_db_iterm$"Ayu Light"$"bright" <- c( "Blue" = "#399EE6", "Yellow" = "#F2AE49", "Red" = "#F07171", "Cyan" = "#4CBF99", "Green" = "#86B300", "Magenta" = "#A37ACC" ) ggsci_db_iterm$"Ayu Mirage"$"normal" <- c( "Blue" = "#6DCBFA", "Yellow" = "#FACC6E", "Red" = "#ED8274", "Cyan" = "#90E1C6", "Green" = "#87D96C", "Magenta" = "#DABAFA" ) ggsci_db_iterm$"Ayu Mirage"$"bright" <- c( "Blue" = "#73D0FF", "Yellow" = "#FFD173", "Red" = "#F28779", "Cyan" = "#95E6CB", "Green" = "#D5FF80", "Magenta" = "#DFBFFF" ) ggsci_db_iterm$"Ayu"$"normal" <- c( "Blue" = "#53BDFA", "Yellow" = "#F9AF4F", "Red" = "#EA6C73", "Cyan" = "#90E1C6", "Green" = "#7FD962", "Magenta" = "#CDA1FA" ) ggsci_db_iterm$"Ayu"$"bright" <- c( "Blue" = "#59C2FF", "Yellow" = "#FFB454", "Red" = "#F07178", "Cyan" = "#95E6CB", "Green" = "#AAD94C", "Magenta" = "#D2A6FF" ) ggsci_db_iterm$"Banana Blueberry"$"normal" <- c( "Blue" = "#22E8DF", "Yellow" = "#E6C62F", "Red" = "#FF6B7F", "Cyan" = "#56B6C2", "Green" = "#00BD9C", "Magenta" = "#DC396A" ) ggsci_db_iterm$"Banana Blueberry"$"bright" <- c( "Blue" = "#91FFF4", "Yellow" = "#F9E46B", "Red" = "#FE9EA1", "Cyan" = "#BCF3FF", "Green" = "#98C379", "Magenta" = "#DA70D6" ) ggsci_db_iterm$"Batman"$"normal" <- c( "Blue" = "#737174", "Yellow" = "#F4FD22", "Red" = "#E6DC44", "Cyan" = "#62605F", "Green" = "#C8BE46", "Magenta" = "#747271" ) ggsci_db_iterm$"Batman"$"bright" <- c( "Blue" = "#919495", "Yellow" = "#FEED6C", "Red" = "#FFF78E", "Cyan" = "#A3A3A6", "Green" = "#FFF27D", "Magenta" = "#9A9A9D" ) ggsci_db_iterm$"Belafonte Day"$"normal" <- c( "Blue" = "#426A79", "Yellow" = "#D08B30", "Red" = "#BE100E", "Cyan" = "#989A9C", "Green" = "#858162", "Magenta" = "#97522C" ) ggsci_db_iterm$"Belafonte Day"$"bright" <- c( "Blue" = "#426A79", "Yellow" = "#D08B30", "Red" = "#BE100E", "Cyan" = "#989A9C", "Green" = "#858162", "Magenta" = "#97522C" ) ggsci_db_iterm$"Belafonte Night"$"normal" <- c( "Blue" = "#426A79", "Yellow" = "#EAA549", "Red" = "#BE100E", "Cyan" = "#989A9C", "Green" = "#858162", "Magenta" = "#97522C" ) ggsci_db_iterm$"Belafonte Night"$"bright" <- c( "Blue" = "#426A79", "Yellow" = "#EAA549", "Red" = "#BE100E", "Cyan" = "#989A9C", "Green" = "#858162", "Magenta" = "#97522C" ) ggsci_db_iterm$"Birds Of Paradise"$"normal" <- c( "Blue" = "#5A86AD", "Yellow" = "#E99D2A", "Red" = "#BE2D26", "Cyan" = "#74A6AD", "Green" = "#6BA18A", "Magenta" = "#AC80A6" ) ggsci_db_iterm$"Birds Of Paradise"$"bright" <- c( "Blue" = "#B8D3ED", "Yellow" = "#D0D150", "Red" = "#E84627", "Cyan" = "#93CFD7", "Green" = "#95D8BA", "Magenta" = "#D19ECB" ) ggsci_db_iterm$"Black Metal (Bathory)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#E78A53", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#FBCB97", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Bathory)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#E78A53", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#FBCB97", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Burzum)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#99BBAA", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#DDEECC", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Burzum)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#99BBAA", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#DDEECC", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Dark Funeral)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#5F81A5", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#D0DFEE", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Dark Funeral)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#5F81A5", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#D0DFEE", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Gorgoroth)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#8C7F70", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#9B8D7F", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Gorgoroth)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#8C7F70", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#9B8D7F", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Immortal)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#556677", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#7799BB", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Immortal)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#556677", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#7799BB", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Khold)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#974B46", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#ECEEE3", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Khold)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#974B46", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#ECEEE3", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Marduk)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#626B67", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#A5AAA7", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Marduk)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#626B67", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#A5AAA7", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Mayhem)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#EECC6C", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#F3ECD4", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Mayhem)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#EECC6C", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#F3ECD4", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Nile)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#777755", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#AA9988", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Nile)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#777755", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#AA9988", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Venom)"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#79241F", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#F8F7F2", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal (Venom)"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#79241F", "Red" = "#5F8787", "Cyan" = "#AAAAAA", "Green" = "#F8F7F2", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal"$"normal" <- c( "Blue" = "#888888", "Yellow" = "#A06666", "Red" = "#486E6F", "Cyan" = "#AAAAAA", "Green" = "#DD9999", "Magenta" = "#999999" ) ggsci_db_iterm$"Black Metal"$"bright" <- c( "Blue" = "#888888", "Yellow" = "#A06666", "Red" = "#486E6F", "Cyan" = "#AAAAAA", "Green" = "#DD9999", "Magenta" = "#999999" ) ggsci_db_iterm$"Blazer"$"normal" <- c( "Blue" = "#7A7AB8", "Yellow" = "#B8B87A", "Red" = "#B87A7A", "Cyan" = "#7AB8B8", "Green" = "#7AB87A", "Magenta" = "#B87AB8" ) ggsci_db_iterm$"Blazer"$"bright" <- c( "Blue" = "#BDBDDB", "Yellow" = "#DBDBBD", "Red" = "#DBBDBD", "Cyan" = "#BDDBDB", "Green" = "#BDDBBD", "Magenta" = "#DBBDDB" ) ggsci_db_iterm$"Blue Berry Pie"$"normal" <- c( "Blue" = "#90A5BD", "Yellow" = "#EAB9A8", "Red" = "#99246E", "Cyan" = "#7E83CC", "Green" = "#5CB1B3", "Magenta" = "#9D54A7" ) ggsci_db_iterm$"Blue Berry Pie"$"bright" <- c( "Blue" = "#5F3D63", "Yellow" = "#7A3188", "Red" = "#C87272", "Cyan" = "#5E6071", "Green" = "#0A6C7E", "Magenta" = "#BC94B7" ) ggsci_db_iterm$"Blue Dolphin"$"normal" <- c( "Blue" = "#82AAFF", "Yellow" = "#F4D69F", "Red" = "#FF8288", "Cyan" = "#89EBFF", "Green" = "#B4E88D", "Magenta" = "#E9C1FF" ) ggsci_db_iterm$"Blue Dolphin"$"bright" <- c( "Blue" = "#9CC4FF", "Yellow" = "#FFE585", "Red" = "#FF8B92", "Cyan" = "#A3F7FF", "Green" = "#DDFFA7", "Magenta" = "#DDB0F6" ) ggsci_db_iterm$"Blue Matrix"$"normal" <- c( "Blue" = "#00B0FF", "Yellow" = "#FFFC58", "Red" = "#FF5680", "Cyan" = "#76C1FF", "Green" = "#00FF9C", "Magenta" = "#D57BFF" ) ggsci_db_iterm$"Blue Matrix"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#FFFC67", "Red" = "#FF6E67", "Cyan" = "#60FDFF", "Green" = "#5FFA68", "Magenta" = "#D682EC" ) ggsci_db_iterm$"Bluloco Dark"$"normal" <- c( "Blue" = "#3476FF", "Yellow" = "#FF936A", "Red" = "#FC2F52", "Cyan" = "#4483AA", "Green" = "#25A45C", "Magenta" = "#7A82DA" ) ggsci_db_iterm$"Bluloco Dark"$"bright" <- c( "Blue" = "#10B1FE", "Yellow" = "#F9C859", "Red" = "#FF6480", "Cyan" = "#5FB9BC", "Green" = "#3FC56B", "Magenta" = "#FF78F8" ) ggsci_db_iterm$"Bluloco Light"$"normal" <- c( "Blue" = "#275FE4", "Yellow" = "#DF631C", "Red" = "#D52753", "Cyan" = "#27618D", "Green" = "#23974A", "Magenta" = "#823FF1" ) ggsci_db_iterm$"Bluloco Light"$"bright" <- c( "Blue" = "#0099E1", "Yellow" = "#C5A332", "Red" = "#FF6480", "Cyan" = "#6D93BB", "Green" = "#3CBC66", "Magenta" = "#CE33C0" ) ggsci_db_iterm$"Borland"$"normal" <- c( "Blue" = "#96CBFE", "Yellow" = "#FFFFB6", "Red" = "#FF6C60", "Cyan" = "#C6C5FE", "Green" = "#A8FF60", "Magenta" = "#FF73FD" ) ggsci_db_iterm$"Borland"$"bright" <- c( "Blue" = "#B5DCFF", "Yellow" = "#FFFFCC", "Red" = "#FFB6B0", "Cyan" = "#DFDFFE", "Green" = "#CEFFAC", "Magenta" = "#FF9CFE" ) ggsci_db_iterm$"Box"$"normal" <- c( "Blue" = "#0D73CC", "Yellow" = "#CECB00", "Red" = "#CC0403", "Cyan" = "#0DCDCD", "Green" = "#19CB00", "Magenta" = "#CB1ED1" ) ggsci_db_iterm$"Box"$"bright" <- c( "Blue" = "#1A8FFF", "Yellow" = "#FFFD00", "Red" = "#F2201F", "Cyan" = "#14FFFF", "Green" = "#23FD00", "Magenta" = "#FD28FF" ) ggsci_db_iterm$"branch"$"normal" <- c( "Blue" = "#3B8E8C", "Yellow" = "#D29B5A", "Red" = "#C2562D", "Cyan" = "#639A90", "Green" = "#96A65E", "Magenta" = "#C47E5B" ) ggsci_db_iterm$"branch"$"bright" <- c( "Blue" = "#3B8E8C", "Yellow" = "#D29B5A", "Red" = "#C2562D", "Cyan" = "#639A90", "Green" = "#96A65E", "Magenta" = "#C47E5B" ) ggsci_db_iterm$"Breadog"$"normal" <- c( "Blue" = "#005CB4", "Yellow" = "#8B4C00", "Red" = "#B10B00", "Cyan" = "#006A78", "Green" = "#007232", "Magenta" = "#9B0097" ) ggsci_db_iterm$"Breadog"$"bright" <- c( "Blue" = "#0074E1", "Yellow" = "#AE6000", "Red" = "#DE1100", "Cyan" = "#008697", "Green" = "#008F40", "Magenta" = "#C300BD" ) ggsci_db_iterm$"Breeze"$"normal" <- c( "Blue" = "#1D99F3", "Yellow" = "#F67400", "Red" = "#ED1515", "Cyan" = "#1ABC9C", "Green" = "#11D116", "Magenta" = "#9B59B6" ) ggsci_db_iterm$"Breeze"$"bright" <- c( "Blue" = "#3DAEE9", "Yellow" = "#FDBC4B", "Red" = "#C0392B", "Cyan" = "#16A085", "Green" = "#1CDC9A", "Magenta" = "#8E44AD" ) ggsci_db_iterm$"Bright Lights"$"normal" <- c( "Blue" = "#76D4FF", "Yellow" = "#FFC251", "Red" = "#FF355B", "Cyan" = "#6CBFB5", "Green" = "#B7E876", "Magenta" = "#BA76E7" ) ggsci_db_iterm$"Bright Lights"$"bright" <- c( "Blue" = "#76D5FF", "Yellow" = "#FFC251", "Red" = "#FF355B", "Cyan" = "#6CBFB5", "Green" = "#B7E876", "Magenta" = "#BA76E7" ) ggsci_db_iterm$"Broadcast"$"normal" <- c( "Blue" = "#6D9CBE", "Yellow" = "#FFD24A", "Red" = "#DA4939", "Cyan" = "#6E9CBE", "Green" = "#519F50", "Magenta" = "#D0D0FF" ) ggsci_db_iterm$"Broadcast"$"bright" <- c( "Blue" = "#9FCEF0", "Yellow" = "#FFFF7C", "Red" = "#FF7B6B", "Cyan" = "#A0CEF0", "Green" = "#83D182", "Magenta" = "#FFFFFF" ) ggsci_db_iterm$"Brogrammer"$"normal" <- c( "Blue" = "#2A84D2", "Yellow" = "#ECBA0F", "Red" = "#F81118", "Cyan" = "#1081D6", "Green" = "#2DC55E", "Magenta" = "#4E5AB7" ) ggsci_db_iterm$"Brogrammer"$"bright" <- c( "Blue" = "#1081D6", "Yellow" = "#F3BD09", "Red" = "#DE352E", "Cyan" = "#0F7DDB", "Green" = "#1DD361", "Magenta" = "#5350B9" ) ggsci_db_iterm$"Builtin Dark"$"normal" <- c( "Blue" = "#0D0DC8", "Yellow" = "#BBBB00", "Red" = "#BB0000", "Cyan" = "#00BBBB", "Green" = "#00BB00", "Magenta" = "#BB00BB" ) ggsci_db_iterm$"Builtin Dark"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#55FFFF", "Green" = "#55FF55", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Builtin Light"$"normal" <- c( "Blue" = "#0000BB", "Yellow" = "#BBBB00", "Red" = "#BB0000", "Cyan" = "#00BBBB", "Green" = "#00BB00", "Magenta" = "#BB00BB" ) ggsci_db_iterm$"Builtin Light"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#BFBF15", "Red" = "#FF5555", "Cyan" = "#22CCCC", "Green" = "#2FD92F", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Builtin Pastel Dark"$"normal" <- c( "Blue" = "#96CBFE", "Yellow" = "#FFFFB6", "Red" = "#FF6C60", "Cyan" = "#C6C5FE", "Green" = "#A8FF60", "Magenta" = "#FF73FD" ) ggsci_db_iterm$"Builtin Pastel Dark"$"bright" <- c( "Blue" = "#B5DCFF", "Yellow" = "#FFFFCC", "Red" = "#FFB6B0", "Cyan" = "#DFDFFE", "Green" = "#CEFFAC", "Magenta" = "#FF9CFE" ) ggsci_db_iterm$"Builtin Solarized Dark"$"normal" <- c( "Blue" = "#268BD2", "Yellow" = "#B58900", "Red" = "#DC322F", "Cyan" = "#2AA198", "Green" = "#859900", "Magenta" = "#D33682" ) ggsci_db_iterm$"Builtin Solarized Dark"$"bright" <- c( "Blue" = "#839496", "Yellow" = "#657B83", "Red" = "#CB4B16", "Cyan" = "#93A1A1", "Green" = "#586E75", "Magenta" = "#6C71C4" ) ggsci_db_iterm$"Builtin Solarized Light"$"normal" <- c( "Blue" = "#268BD2", "Yellow" = "#B58900", "Red" = "#DC322F", "Cyan" = "#2AA198", "Green" = "#859900", "Magenta" = "#D33682" ) ggsci_db_iterm$"Builtin Solarized Light"$"bright" <- c( "Blue" = "#839496", "Yellow" = "#657B83", "Red" = "#CB4B16", "Cyan" = "#93A1A1", "Green" = "#586E75", "Magenta" = "#6C71C4" ) ggsci_db_iterm$"Builtin Tango Dark"$"normal" <- c( "Blue" = "#3465A4", "Yellow" = "#C4A000", "Red" = "#CC0000", "Cyan" = "#06989A", "Green" = "#4E9A06", "Magenta" = "#75507B" ) ggsci_db_iterm$"Builtin Tango Dark"$"bright" <- c( "Blue" = "#729FCF", "Yellow" = "#FCE94F", "Red" = "#EF2929", "Cyan" = "#34E2E2", "Green" = "#8AE234", "Magenta" = "#AD7FA8" ) ggsci_db_iterm$"Builtin Tango Light"$"normal" <- c( "Blue" = "#3465A4", "Yellow" = "#C4A000", "Red" = "#CC0000", "Cyan" = "#06989A", "Green" = "#4E9A06", "Magenta" = "#75507B" ) ggsci_db_iterm$"Builtin Tango Light"$"bright" <- c( "Blue" = "#729FCF", "Yellow" = "#D6C329", "Red" = "#EF2929", "Cyan" = "#27D5D5", "Green" = "#7DD527", "Magenta" = "#AD7FA8" ) ggsci_db_iterm$"C64"$"normal" <- c( "Blue" = "#6657B3", "Yellow" = "#BFCE72", "Red" = "#A2524C", "Cyan" = "#67B6BD", "Green" = "#55A049", "Magenta" = "#984CA3" ) ggsci_db_iterm$"C64"$"bright" <- c( "Blue" = "#6657B3", "Yellow" = "#BFCE72", "Red" = "#A2524C", "Cyan" = "#67B6BD", "Green" = "#55A049", "Magenta" = "#984CA3" ) ggsci_db_iterm$"Calamity"$"normal" <- c( "Blue" = "#3B79C7", "Yellow" = "#E9D7A5", "Red" = "#FC644D", "Cyan" = "#74D3DE", "Green" = "#A5F69C", "Magenta" = "#F92672" ) ggsci_db_iterm$"Calamity"$"bright" <- c( "Blue" = "#3B79C7", "Yellow" = "#E9D7A5", "Red" = "#FC644D", "Cyan" = "#74D3DE", "Green" = "#A5F69C", "Magenta" = "#F92672" ) ggsci_db_iterm$"Carbonfox"$"normal" <- c( "Blue" = "#78A9FF", "Yellow" = "#08BDBA", "Red" = "#EE5396", "Cyan" = "#33B1FF", "Green" = "#25BE6A", "Magenta" = "#BE95FF" ) ggsci_db_iterm$"Carbonfox"$"bright" <- c( "Blue" = "#8CB6FF", "Yellow" = "#2DC7C4", "Red" = "#F16DA6", "Cyan" = "#52BDFF", "Green" = "#46C880", "Magenta" = "#C8A5FF" ) ggsci_db_iterm$"Catppuccin Frappe"$"normal" <- c( "Blue" = "#8CAAEE", "Yellow" = "#E5C890", "Red" = "#E78284", "Cyan" = "#81C8BE", "Green" = "#A6D189", "Magenta" = "#F4B8E4" ) ggsci_db_iterm$"Catppuccin Frappe"$"bright" <- c( "Blue" = "#7B9EF0", "Yellow" = "#D9BA73", "Red" = "#E67172", "Cyan" = "#5ABFB5", "Green" = "#8EC772", "Magenta" = "#F2A4DB" ) ggsci_db_iterm$"Catppuccin Latte"$"normal" <- c( "Blue" = "#1E66F5", "Yellow" = "#DF8E1D", "Red" = "#D20F39", "Cyan" = "#179299", "Green" = "#40A02B", "Magenta" = "#EA76CB" ) ggsci_db_iterm$"Catppuccin Latte"$"bright" <- c( "Blue" = "#456EFF", "Yellow" = "#EEA02D", "Red" = "#DE293E", "Cyan" = "#2D9FA8", "Green" = "#49AF3D", "Magenta" = "#FE85D8" ) ggsci_db_iterm$"Catppuccin Macchiato"$"normal" <- c( "Blue" = "#8AADF4", "Yellow" = "#EED49F", "Red" = "#ED8796", "Cyan" = "#8BD5CA", "Green" = "#A6DA95", "Magenta" = "#F5BDE6" ) ggsci_db_iterm$"Catppuccin Macchiato"$"bright" <- c( "Blue" = "#78A1F6", "Yellow" = "#E1C682", "Red" = "#EC7486", "Cyan" = "#63CBC0", "Green" = "#8CCF7F", "Magenta" = "#F2A9DD" ) ggsci_db_iterm$"Catppuccin Mocha"$"normal" <- c( "Blue" = "#89B4FA", "Yellow" = "#F9E2AF", "Red" = "#F38BA8", "Cyan" = "#94E2D5", "Green" = "#A6E3A1", "Magenta" = "#F5C2E7" ) ggsci_db_iterm$"Catppuccin Mocha"$"bright" <- c( "Blue" = "#74A8FC", "Yellow" = "#EBD391", "Red" = "#F37799", "Cyan" = "#6BD7CA", "Green" = "#89D88B", "Magenta" = "#F2AEDE" ) ggsci_db_iterm$"CGA"$"normal" <- c( "Blue" = "#0D0DB7", "Yellow" = "#AA5500", "Red" = "#AA0000", "Cyan" = "#00AAAA", "Green" = "#00AA00", "Magenta" = "#AA00AA" ) ggsci_db_iterm$"CGA"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#55FFFF", "Green" = "#55FF55", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Chalk"$"normal" <- c( "Blue" = "#2A7FAC", "Yellow" = "#B9AC4A", "Red" = "#B23A52", "Cyan" = "#44A799", "Green" = "#789B6A", "Magenta" = "#BD4F5A" ) ggsci_db_iterm$"Chalk"$"bright" <- c( "Blue" = "#4196FF", "Yellow" = "#FFEB62", "Red" = "#F24840", "Cyan" = "#53CDBD", "Green" = "#80C470", "Magenta" = "#FC5275" ) ggsci_db_iterm$"Chalkboard"$"normal" <- c( "Blue" = "#7372C3", "Yellow" = "#C2C372", "Red" = "#C37372", "Cyan" = "#72C2C3", "Green" = "#72C373", "Magenta" = "#C372C2" ) ggsci_db_iterm$"Chalkboard"$"bright" <- c( "Blue" = "#AAAADB", "Yellow" = "#DADBAA", "Red" = "#DBAAAA", "Cyan" = "#AADADB", "Green" = "#AADBAA", "Magenta" = "#DBAADA" ) ggsci_db_iterm$"Challenger Deep"$"normal" <- c( "Blue" = "#65B2FF", "Yellow" = "#FFB378", "Red" = "#FF5458", "Cyan" = "#63F2F1", "Green" = "#62D196", "Magenta" = "#906CFF" ) ggsci_db_iterm$"Challenger Deep"$"bright" <- c( "Blue" = "#91DDFF", "Yellow" = "#FFE9AA", "Red" = "#FF8080", "Cyan" = "#AAFFE4", "Green" = "#95FFA4", "Magenta" = "#C991E1" ) ggsci_db_iterm$"Chester"$"normal" <- c( "Blue" = "#288AD6", "Yellow" = "#FFC83F", "Red" = "#FA5E5B", "Cyan" = "#28DDDE", "Green" = "#16C98D", "Magenta" = "#D34590" ) ggsci_db_iterm$"Chester"$"bright" <- c( "Blue" = "#278AD6", "Yellow" = "#FEEF6D", "Red" = "#FA5E5B", "Cyan" = "#27DEDE", "Green" = "#16C98D", "Magenta" = "#D34590" ) ggsci_db_iterm$"Ciapre"$"normal" <- c( "Blue" = "#576D8C", "Yellow" = "#CC8B3F", "Red" = "#8E0D16", "Cyan" = "#5C4F4B", "Green" = "#48513B", "Magenta" = "#724D7C" ) ggsci_db_iterm$"Ciapre"$"bright" <- c( "Blue" = "#3097C6", "Yellow" = "#DCDF7C", "Red" = "#AC3835", "Cyan" = "#F3DBB2", "Green" = "#A6A75D", "Magenta" = "#D33061" ) ggsci_db_iterm$"Citruszest"$"normal" <- c( "Blue" = "#00BFFF", "Yellow" = "#FFD400", "Red" = "#FF5454", "Cyan" = "#48D1CC", "Green" = "#00CC7A", "Magenta" = "#FF90FE" ) ggsci_db_iterm$"Citruszest"$"bright" <- c( "Blue" = "#33CFFF", "Yellow" = "#FFFF00", "Red" = "#FF1A75", "Cyan" = "#00FFF2", "Green" = "#1AFFA3", "Magenta" = "#FFB2FE" ) ggsci_db_iterm$"CLRS"$"normal" <- c( "Blue" = "#135CD0", "Yellow" = "#FA701D", "Red" = "#F8282A", "Cyan" = "#33C3C1", "Green" = "#328A5D", "Magenta" = "#9F00BD" ) ggsci_db_iterm$"CLRS"$"bright" <- c( "Blue" = "#1670FF", "Yellow" = "#E3BD0E", "Red" = "#FB0416", "Cyan" = "#3AD5CE", "Green" = "#2CC631", "Magenta" = "#E900B0" ) ggsci_db_iterm$"Cobalt Neon"$"normal" <- c( "Blue" = "#8FF586", "Yellow" = "#E9E75C", "Red" = "#FF2320", "Cyan" = "#8FF586", "Green" = "#3BA5FF", "Magenta" = "#781AA0" ) ggsci_db_iterm$"Cobalt Neon"$"bright" <- c( "Blue" = "#3C7DD2", "Yellow" = "#E9F06D", "Red" = "#D4312E", "Cyan" = "#6CBC67", "Green" = "#8FF586", "Magenta" = "#8230A7" ) ggsci_db_iterm$"Cobalt Next Dark"$"normal" <- c( "Blue" = "#409DD4", "Yellow" = "#FFC64C", "Red" = "#F94967", "Cyan" = "#37B5B4", "Green" = "#8CC98F", "Magenta" = "#CBA3C7" ) ggsci_db_iterm$"Cobalt Next Dark"$"bright" <- c( "Blue" = "#7AC0EB", "Yellow" = "#FFDC91", "Red" = "#E47E8B", "Cyan" = "#84E4E3", "Green" = "#BADDBB", "Magenta" = "#F3CCEF" ) ggsci_db_iterm$"Cobalt Next Minimal"$"normal" <- c( "Blue" = "#409DD4", "Yellow" = "#FFC64C", "Red" = "#FF657A", "Cyan" = "#37B5B4", "Green" = "#8CC98F", "Magenta" = "#CBA3C7" ) ggsci_db_iterm$"Cobalt Next Minimal"$"bright" <- c( "Blue" = "#7AC0EB", "Yellow" = "#FFDC91", "Red" = "#E47E8B", "Cyan" = "#84E4E3", "Green" = "#BADDBB", "Magenta" = "#F3CCEF" ) ggsci_db_iterm$"Cobalt Next"$"normal" <- c( "Blue" = "#409DD4", "Yellow" = "#FFC64C", "Red" = "#FF527B", "Cyan" = "#37B5B4", "Green" = "#8CC98F", "Magenta" = "#CBA3C7" ) ggsci_db_iterm$"Cobalt Next"$"bright" <- c( "Blue" = "#7AC0EB", "Yellow" = "#FFDC91", "Red" = "#E47E8B", "Cyan" = "#84E4E3", "Green" = "#BADDBB", "Magenta" = "#F3CCEF" ) ggsci_db_iterm$"Cobalt2"$"normal" <- c( "Blue" = "#1460D2", "Yellow" = "#FFE50A", "Red" = "#FF0000", "Cyan" = "#00BBBB", "Green" = "#38DE21", "Magenta" = "#FF005D" ) ggsci_db_iterm$"Cobalt2"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#EDC809", "Red" = "#F40E17", "Cyan" = "#6AE3FA", "Green" = "#3BD01D", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Coffee Theme"$"normal" <- c( "Blue" = "#0225C7", "Yellow" = "#ADAA00", "Red" = "#C91B00", "Cyan" = "#00B8BA", "Green" = "#00C200", "Magenta" = "#CA30C7" ) ggsci_db_iterm$"Coffee Theme"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#B2AF1B", "Red" = "#FF6E67", "Cyan" = "#20BDBF", "Green" = "#1FBA28", "Magenta" = "#F26AF2" ) ggsci_db_iterm$"Crayon Pony Fish"$"normal" <- c( "Blue" = "#8C87B0", "Yellow" = "#AB311B", "Red" = "#91002B", "Cyan" = "#E8A866", "Green" = "#579524", "Magenta" = "#692F50" ) ggsci_db_iterm$"Crayon Pony Fish"$"bright" <- c( "Blue" = "#CFC9FF", "Yellow" = "#C8381D", "Red" = "#C5255D", "Cyan" = "#FFCEAF", "Green" = "#8DFF57", "Magenta" = "#FC6CBA" ) ggsci_db_iterm$"Cursor Dark"$"normal" <- c( "Blue" = "#81A1C1", "Yellow" = "#EBCB8B", "Red" = "#BF616A", "Cyan" = "#88C0D0", "Green" = "#A3BE8C", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Cursor Dark"$"bright" <- c( "Blue" = "#81A1C1", "Yellow" = "#EBCB8B", "Red" = "#BF616A", "Cyan" = "#88C0D0", "Green" = "#A3BE8C", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Cutie Pro"$"normal" <- c( "Blue" = "#42D9C5", "Yellow" = "#F58669", "Red" = "#F56E7F", "Cyan" = "#37CB8A", "Green" = "#BEC975", "Magenta" = "#D286B7" ) ggsci_db_iterm$"Cutie Pro"$"bright" <- c( "Blue" = "#80C5DE", "Yellow" = "#F1BB79", "Red" = "#E5A1A3", "Cyan" = "#9DCCBB", "Green" = "#E8D6A7", "Magenta" = "#B294BB" ) ggsci_db_iterm$"Cyberdyne"$"normal" <- c( "Blue" = "#0071CF", "Yellow" = "#D2A700", "Red" = "#FF8373", "Cyan" = "#6BFFDD", "Green" = "#00C172", "Magenta" = "#FF90FE" ) ggsci_db_iterm$"Cyberdyne"$"bright" <- c( "Blue" = "#C2E3FF", "Yellow" = "#FFFED5", "Red" = "#FFC4BE", "Cyan" = "#E6E7FE", "Green" = "#D6FCBA", "Magenta" = "#FFB2FE" ) ggsci_db_iterm$"Cyberpunk Scarlet Protocol"$"normal" <- c( "Blue" = "#0271B6", "Yellow" = "#FAF945", "Red" = "#FF0051", "Cyan" = "#00C5C7", "Green" = "#01DC84", "Magenta" = "#C930C7" ) ggsci_db_iterm$"Cyberpunk Scarlet Protocol"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#FFFC67", "Red" = "#FF6E67", "Cyan" = "#60FDFF", "Green" = "#60FA68", "Magenta" = "#BD35EC" ) ggsci_db_iterm$"Cyberpunk"$"normal" <- c( "Blue" = "#00BFFF", "Yellow" = "#FFFA6A", "Red" = "#FF7092", "Cyan" = "#86CBFE", "Green" = "#00FBAC", "Magenta" = "#DF95FF" ) ggsci_db_iterm$"Cyberpunk"$"bright" <- c( "Blue" = "#1BCCFD", "Yellow" = "#FFF787", "Red" = "#FF8AA4", "Cyan" = "#99D6FC", "Green" = "#21F6BC", "Magenta" = "#E6AEFE" ) ggsci_db_iterm$"Dark Modern"$"normal" <- c( "Blue" = "#0078D4", "Yellow" = "#9E6A03", "Red" = "#F74949", "Cyan" = "#1DB4D6", "Green" = "#2EA043", "Magenta" = "#D01273" ) ggsci_db_iterm$"Dark Modern"$"bright" <- c( "Blue" = "#3B8EEA", "Yellow" = "#F5F543", "Red" = "#DC5452", "Cyan" = "#29B8DB", "Green" = "#23D18B", "Magenta" = "#D670D6" ) ggsci_db_iterm$"Dark Pastel"$"normal" <- c( "Blue" = "#5555FF", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#55FFFF", "Green" = "#55FF55", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Dark Pastel"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#55FFFF", "Green" = "#55FF55", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Dark+"$"normal" <- c( "Blue" = "#2472C8", "Yellow" = "#E5E510", "Red" = "#CD3131", "Cyan" = "#11A8CD", "Green" = "#0DBC79", "Magenta" = "#BC3FBC" ) ggsci_db_iterm$"Dark+"$"bright" <- c( "Blue" = "#3B8EEA", "Yellow" = "#F5F543", "Red" = "#F14C4C", "Cyan" = "#29B8DB", "Green" = "#23D18B", "Magenta" = "#D670D6" ) ggsci_db_iterm$"Darkermatrix"$"normal" <- c( "Blue" = "#00CB6B", "Yellow" = "#595900", "Red" = "#1A4831", "Cyan" = "#125459", "Green" = "#6FA64C", "Magenta" = "#4E375A" ) ggsci_db_iterm$"Darkermatrix"$"bright" <- c( "Blue" = "#00FF87", "Yellow" = "#E2E500", "Red" = "#0D452A", "Cyan" = "#176C73", "Green" = "#90D762", "Magenta" = "#4E375A" ) ggsci_db_iterm$"Darkmatrix"$"normal" <- c( "Blue" = "#2C9A84", "Yellow" = "#7E8000", "Red" = "#006536", "Cyan" = "#114D53", "Green" = "#6FA64C", "Magenta" = "#523A60" ) ggsci_db_iterm$"Darkmatrix"$"bright" <- c( "Blue" = "#46D8B8", "Yellow" = "#E2E500", "Red" = "#00733D", "Cyan" = "#12545A", "Green" = "#90D762", "Magenta" = "#573D66" ) ggsci_db_iterm$"Darkside"$"normal" <- c( "Blue" = "#1C98E8", "Yellow" = "#F2D42C", "Red" = "#E8341C", "Cyan" = "#1C98E8", "Green" = "#68C256", "Magenta" = "#8E69C9" ) ggsci_db_iterm$"Darkside"$"bright" <- c( "Blue" = "#387CD3", "Yellow" = "#EFD64B", "Red" = "#E05A4F", "Cyan" = "#3D97E2", "Green" = "#77B869", "Magenta" = "#957BBE" ) ggsci_db_iterm$"Dawnfox"$"normal" <- c( "Blue" = "#286983", "Yellow" = "#EA9D34", "Red" = "#B4637A", "Cyan" = "#56949F", "Green" = "#618774", "Magenta" = "#907AA9" ) ggsci_db_iterm$"Dawnfox"$"bright" <- c( "Blue" = "#2D81A3", "Yellow" = "#EEA846", "Red" = "#C26D85", "Cyan" = "#5CA7B4", "Green" = "#629F81", "Magenta" = "#9A80B9" ) ggsci_db_iterm$"Dayfox"$"normal" <- c( "Blue" = "#2848A9", "Yellow" = "#AC5402", "Red" = "#A5222F", "Cyan" = "#287980", "Green" = "#396847", "Magenta" = "#6E33CE" ) ggsci_db_iterm$"Dayfox"$"bright" <- c( "Blue" = "#4863B6", "Yellow" = "#B86E28", "Red" = "#B3434E", "Cyan" = "#488D93", "Green" = "#577F63", "Magenta" = "#8452D5" ) ggsci_db_iterm$"Deep"$"normal" <- c( "Blue" = "#5665FF", "Yellow" = "#D9BD26", "Red" = "#D70005", "Cyan" = "#50D2DA", "Green" = "#1CD915", "Magenta" = "#B052DA" ) ggsci_db_iterm$"Deep"$"bright" <- c( "Blue" = "#9FA9FF", "Yellow" = "#FEDC2B", "Red" = "#FB0007", "Cyan" = "#8DF9FF", "Green" = "#22FF18", "Magenta" = "#E09AFF" ) ggsci_db_iterm$"Desert"$"normal" <- c( "Blue" = "#CD853F", "Yellow" = "#F0E68C", "Red" = "#FF2B2B", "Cyan" = "#FFA0A0", "Green" = "#98FB98", "Magenta" = "#FFDEAD" ) ggsci_db_iterm$"Desert"$"bright" <- c( "Blue" = "#87CEFF", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#FFD700", "Green" = "#55FF55", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Detuned"$"normal" <- c( "Blue" = "#0094D9", "Yellow" = "#E6DA73", "Red" = "#FE4386", "Cyan" = "#50B7D9", "Green" = "#A6E32D", "Magenta" = "#9B37FF" ) ggsci_db_iterm$"Detuned"$"bright" <- c( "Blue" = "#00BEFF", "Yellow" = "#FFF27F", "Red" = "#FA80AC", "Cyan" = "#5ED7FF", "Green" = "#BDE371", "Magenta" = "#BE9EFF" ) ggsci_db_iterm$"Dimidium"$"normal" <- c( "Blue" = "#0575D8", "Yellow" = "#DB9C11", "Red" = "#CF494C", "Cyan" = "#1DB6BB", "Green" = "#60B442", "Magenta" = "#AF5ED2" ) ggsci_db_iterm$"Dimidium"$"bright" <- c( "Blue" = "#688DFD", "Yellow" = "#FCCD1A", "Red" = "#FF643B", "Cyan" = "#32E0FB", "Green" = "#37E57B", "Magenta" = "#ED6FE9" ) ggsci_db_iterm$"Dimmed Monokai"$"normal" <- c( "Blue" = "#4F76A1", "Yellow" = "#C5A635", "Red" = "#BE3F48", "Cyan" = "#578FA4", "Green" = "#879A3B", "Magenta" = "#855C8D" ) ggsci_db_iterm$"Dimmed Monokai"$"bright" <- c( "Blue" = "#186DE3", "Yellow" = "#C47033", "Red" = "#FB001F", "Cyan" = "#2E706D", "Green" = "#0F722F", "Magenta" = "#FB0067" ) ggsci_db_iterm$"Django Reborn Again"$"normal" <- c( "Blue" = "#245032", "Yellow" = "#FFE862", "Red" = "#FD6209", "Cyan" = "#9DF39F", "Green" = "#41A83E", "Magenta" = "#F8F8F8" ) ggsci_db_iterm$"Django Reborn Again"$"bright" <- c( "Blue" = "#568264", "Yellow" = "#FFFF94", "Red" = "#FF943B", "Cyan" = "#CFFFD1", "Green" = "#73DA70", "Magenta" = "#FFFFFF" ) ggsci_db_iterm$"Django Smooth"$"normal" <- c( "Blue" = "#989898", "Yellow" = "#FFE862", "Red" = "#FD6209", "Cyan" = "#9DF39F", "Green" = "#41A83E", "Magenta" = "#F8F8F8" ) ggsci_db_iterm$"Django Smooth"$"bright" <- c( "Blue" = "#CACACA", "Yellow" = "#FFFF94", "Red" = "#FF943B", "Cyan" = "#CFFFD1", "Green" = "#73DA70", "Magenta" = "#FFFFFF" ) ggsci_db_iterm$"Django"$"normal" <- c( "Blue" = "#315D3F", "Yellow" = "#FFE862", "Red" = "#FD6209", "Cyan" = "#9DF39F", "Green" = "#41A83E", "Magenta" = "#F8F8F8" ) ggsci_db_iterm$"Django"$"bright" <- c( "Blue" = "#568264", "Yellow" = "#FFFF94", "Red" = "#FF943B", "Cyan" = "#CFFFD1", "Green" = "#73DA70", "Magenta" = "#FFFFFF" ) ggsci_db_iterm$"Doom One"$"normal" <- c( "Blue" = "#A9A1E1", "Yellow" = "#ECBE7B", "Red" = "#FF6C6B", "Cyan" = "#51AFEF", "Green" = "#98BE65", "Magenta" = "#C678DD" ) ggsci_db_iterm$"Doom One"$"bright" <- c( "Blue" = "#A9A1E1", "Yellow" = "#ECBE7B", "Red" = "#FF6655", "Cyan" = "#51AFEF", "Green" = "#99BB66", "Magenta" = "#C678DD" ) ggsci_db_iterm$"Doom Peacock"$"normal" <- c( "Blue" = "#2A6CC6", "Yellow" = "#BCD42A", "Red" = "#CB4B16", "Cyan" = "#5699AF", "Green" = "#26A6A6", "Magenta" = "#A9A1E1" ) ggsci_db_iterm$"Doom Peacock"$"bright" <- c( "Blue" = "#51AFEF", "Yellow" = "#E6F972", "Red" = "#FF5D38", "Cyan" = "#46D9FF", "Green" = "#98BE65", "Magenta" = "#C678DD" ) ggsci_db_iterm$"Dot Gov"$"normal" <- c( "Blue" = "#17B2E0", "Yellow" = "#F6BB34", "Red" = "#BF091D", "Cyan" = "#8BD2ED", "Green" = "#3D9751", "Magenta" = "#7830B0" ) ggsci_db_iterm$"Dot Gov"$"bright" <- c( "Blue" = "#17B2E0", "Yellow" = "#F6BB34", "Red" = "#BF091D", "Cyan" = "#8BD2ED", "Green" = "#3D9751", "Magenta" = "#7830B0" ) ggsci_db_iterm$"Dracula"$"normal" <- c( "Blue" = "#BD93F9", "Yellow" = "#F1FA8C", "Red" = "#FF5555", "Cyan" = "#8BE9FD", "Green" = "#50FA7B", "Magenta" = "#FF79C6" ) ggsci_db_iterm$"Dracula"$"bright" <- c( "Blue" = "#D6ACFF", "Yellow" = "#FFFFA5", "Red" = "#FF6E6E", "Cyan" = "#A4FFFF", "Green" = "#69FF94", "Magenta" = "#FF92DF" ) ggsci_db_iterm$"Dracula+"$"normal" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFCB6B", "Red" = "#FF5555", "Cyan" = "#8BE9FD", "Green" = "#50FA7B", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Dracula+"$"bright" <- c( "Blue" = "#D6ACFF", "Yellow" = "#FFCB6B", "Red" = "#FF6E6E", "Cyan" = "#A4FFFF", "Green" = "#69FF94", "Magenta" = "#FF92DF" ) ggsci_db_iterm$"Duckbones"$"normal" <- c( "Blue" = "#00A3CB", "Yellow" = "#E39500", "Red" = "#E03600", "Cyan" = "#00A3CB", "Green" = "#5DCD97", "Magenta" = "#795CCC" ) ggsci_db_iterm$"Duckbones"$"bright" <- c( "Blue" = "#00B4E0", "Yellow" = "#F6A100", "Red" = "#FF4821", "Cyan" = "#00B4E0", "Green" = "#58DB9E", "Magenta" = "#B3A1E6" ) ggsci_db_iterm$"Duotone Dark"$"normal" <- c( "Blue" = "#FFC284", "Yellow" = "#D9B76E", "Red" = "#D9393E", "Cyan" = "#2488FF", "Green" = "#2DCD73", "Magenta" = "#DE8D40" ) ggsci_db_iterm$"Duotone Dark"$"bright" <- c( "Blue" = "#FFC284", "Yellow" = "#D9B76E", "Red" = "#D9393E", "Cyan" = "#2488FF", "Green" = "#2DCD73", "Magenta" = "#DE8D40" ) ggsci_db_iterm$"Duskfox"$"normal" <- c( "Blue" = "#569FBA", "Yellow" = "#F6C177", "Red" = "#EB6F92", "Cyan" = "#9CCFD8", "Green" = "#A3BE8C", "Magenta" = "#C4A7E7" ) ggsci_db_iterm$"Duskfox"$"bright" <- c( "Blue" = "#65B1CD", "Yellow" = "#F9CB8C", "Red" = "#F083A2", "Cyan" = "#A6DAE3", "Green" = "#B1D196", "Magenta" = "#CCB1ED" ) ggsci_db_iterm$"Earthsong"$"normal" <- c( "Blue" = "#1398B9", "Yellow" = "#F5AE2E", "Red" = "#C94234", "Cyan" = "#509552", "Green" = "#85C54C", "Magenta" = "#D0633D" ) ggsci_db_iterm$"Earthsong"$"bright" <- c( "Blue" = "#5FDAFF", "Yellow" = "#E0D561", "Red" = "#FF645A", "Cyan" = "#84F088", "Green" = "#98E036", "Magenta" = "#FF9269" ) ggsci_db_iterm$"Electron Highlighter"$"normal" <- c( "Blue" = "#77ABFF", "Yellow" = "#FFD7A9", "Red" = "#FF6C8D", "Cyan" = "#00FDFF", "Green" = "#00FFC3", "Magenta" = "#DAA4F4" ) ggsci_db_iterm$"Electron Highlighter"$"bright" <- c( "Blue" = "#77ABFF", "Yellow" = "#FFD7A9", "Red" = "#FF6C8D", "Cyan" = "#00FDFF", "Green" = "#00FFC3", "Magenta" = "#DAA4F4" ) ggsci_db_iterm$"Elegant"$"normal" <- c( "Blue" = "#8DABE1", "Yellow" = "#FFCB8B", "Red" = "#FF0257", "Cyan" = "#78CCF0", "Green" = "#85CC95", "Magenta" = "#C792EB" ) ggsci_db_iterm$"Elegant"$"bright" <- c( "Blue" = "#8DABE1", "Yellow" = "#FFCB8B", "Red" = "#FF0057", "Cyan" = "#3FACEF", "Green" = "#85CC95", "Magenta" = "#C792EB" ) ggsci_db_iterm$"Elemental"$"normal" <- c( "Blue" = "#497F7D", "Yellow" = "#7F7111", "Red" = "#98290F", "Cyan" = "#387F58", "Green" = "#479A43", "Magenta" = "#7F4E2F" ) ggsci_db_iterm$"Elemental"$"bright" <- c( "Blue" = "#79D9D9", "Yellow" = "#D69927", "Red" = "#E0502A", "Cyan" = "#59D599", "Green" = "#61E070", "Magenta" = "#CD7C54" ) ggsci_db_iterm$"Elementary"$"normal" <- c( "Blue" = "#134899", "Yellow" = "#FDB40C", "Red" = "#D71C15", "Cyan" = "#2595E1", "Green" = "#5AA513", "Magenta" = "#E40038" ) ggsci_db_iterm$"Elementary"$"bright" <- c( "Blue" = "#0955FF", "Yellow" = "#FEC80E", "Red" = "#FC1C18", "Cyan" = "#3EA8FC", "Green" = "#6BC219", "Magenta" = "#FB0050" ) ggsci_db_iterm$"Embark"$"normal" <- c( "Blue" = "#57C7FF", "Yellow" = "#FFE9AA", "Red" = "#F0719B", "Cyan" = "#87DFEB", "Green" = "#A1EFD3", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Embark"$"bright" <- c( "Blue" = "#1DA0E2", "Yellow" = "#FFB378", "Red" = "#F02E6E", "Cyan" = "#63F2F1", "Green" = "#2CE592", "Magenta" = "#A742EA" ) ggsci_db_iterm$"Embers Dark"$"normal" <- c( "Blue" = "#6D5782", "Yellow" = "#6D8257", "Red" = "#826D57", "Cyan" = "#576D82", "Green" = "#57826D", "Magenta" = "#82576D" ) ggsci_db_iterm$"Embers Dark"$"bright" <- c( "Blue" = "#8A8075", "Yellow" = "#50483F", "Red" = "#828257", "Cyan" = "#825757", "Green" = "#464039", "Magenta" = "#BEB6AE" ) ggsci_db_iterm$"ENCOM"$"normal" <- c( "Blue" = "#0081FF", "Yellow" = "#FFD000", "Red" = "#9F0000", "Cyan" = "#008B8B", "Green" = "#008B00", "Magenta" = "#BC00CA" ) ggsci_db_iterm$"ENCOM"$"bright" <- c( "Blue" = "#0000FF", "Yellow" = "#FFFF00", "Red" = "#FF0000", "Cyan" = "#00CDCD", "Green" = "#00EE00", "Magenta" = "#FF00FF" ) ggsci_db_iterm$"Espresso Libre"$"normal" <- c( "Blue" = "#0066FF", "Yellow" = "#F0E53A", "Red" = "#CC0000", "Cyan" = "#06989A", "Green" = "#1A921C", "Magenta" = "#C5656B" ) ggsci_db_iterm$"Espresso Libre"$"bright" <- c( "Blue" = "#43A8ED", "Yellow" = "#FFFB5C", "Red" = "#EF2929", "Cyan" = "#34E2E2", "Green" = "#9AFF87", "Magenta" = "#FF818A" ) ggsci_db_iterm$"Espresso"$"normal" <- c( "Blue" = "#6C99BB", "Yellow" = "#FFC66D", "Red" = "#D25252", "Cyan" = "#BED6FF", "Green" = "#A5C261", "Magenta" = "#D197D9" ) ggsci_db_iterm$"Espresso"$"bright" <- c( "Blue" = "#8AB7D9", "Yellow" = "#E1E48B", "Red" = "#F00C0C", "Cyan" = "#DCF4FF", "Green" = "#C2E075", "Magenta" = "#EFB5F7" ) ggsci_db_iterm$"Everblush"$"normal" <- c( "Blue" = "#67B0E8", "Yellow" = "#E5C76B", "Red" = "#E57474", "Cyan" = "#6CBFBF", "Green" = "#8CCF7E", "Magenta" = "#C47FD5" ) ggsci_db_iterm$"Everblush"$"bright" <- c( "Blue" = "#71BAF2", "Yellow" = "#F4D67A", "Red" = "#EF7E7E", "Cyan" = "#67CBE7", "Green" = "#96D988", "Magenta" = "#CE89DF" ) ggsci_db_iterm$"Everforest Dark Hard"$"normal" <- c( "Blue" = "#7FBBB3", "Yellow" = "#DBBC7F", "Red" = "#E67E80", "Cyan" = "#83C092", "Green" = "#A7C080", "Magenta" = "#D699B6" ) ggsci_db_iterm$"Everforest Dark Hard"$"bright" <- c( "Blue" = "#3A94C5", "Yellow" = "#DFA000", "Red" = "#F85552", "Cyan" = "#35A77C", "Green" = "#8DA101", "Magenta" = "#DF69BA" ) ggsci_db_iterm$"Everforest Light Med"$"normal" <- c( "Blue" = "#7FBBB3", "Yellow" = "#C1A266", "Red" = "#E67E80", "Cyan" = "#83C092", "Green" = "#9AB373", "Magenta" = "#D699B6" ) ggsci_db_iterm$"Everforest Light Med"$"bright" <- c( "Blue" = "#3A94C5", "Yellow" = "#DFA000", "Red" = "#F85552", "Cyan" = "#35A77C", "Green" = "#8DA101", "Magenta" = "#DF69BA" ) ggsci_db_iterm$"Fahrenheit"$"normal" <- c( "Blue" = "#7F0E0F", "Yellow" = "#FECF75", "Red" = "#CDA074", "Cyan" = "#979797", "Green" = "#9E744D", "Magenta" = "#734C4D" ) ggsci_db_iterm$"Fahrenheit"$"bright" <- c( "Blue" = "#CB4A05", "Yellow" = "#FD9F4D", "Red" = "#FECEA0", "Cyan" = "#FED04D", "Green" = "#CC734D", "Magenta" = "#4E739F" ) ggsci_db_iterm$"Fairyfloss"$"normal" <- c( "Blue" = "#C2FFDF", "Yellow" = "#E6C000", "Red" = "#F92672", "Cyan" = "#C5A3FF", "Green" = "#C2FFDF", "Magenta" = "#FFB8D1" ) ggsci_db_iterm$"Fairyfloss"$"bright" <- c( "Blue" = "#C2FFDF", "Yellow" = "#FFEA00", "Red" = "#FF857F", "Cyan" = "#C5A3FF", "Green" = "#C2FFDF", "Magenta" = "#FFB8D1" ) ggsci_db_iterm$"Farmhouse Dark"$"normal" <- c( "Blue" = "#0049E6", "Yellow" = "#C87300", "Red" = "#BA0004", "Cyan" = "#1FB65C", "Green" = "#549D00", "Magenta" = "#9F1B61" ) ggsci_db_iterm$"Farmhouse Dark"$"bright" <- c( "Blue" = "#006EFE", "Yellow" = "#EA9A00", "Red" = "#EB0009", "Cyan" = "#19E062", "Green" = "#7AC100", "Magenta" = "#BF3B7F" ) ggsci_db_iterm$"Farmhouse Light"$"normal" <- c( "Blue" = "#092CCD", "Yellow" = "#A95600", "Red" = "#8D0003", "Cyan" = "#229256", "Green" = "#3A7D00", "Magenta" = "#820046" ) ggsci_db_iterm$"Farmhouse Light"$"bright" <- c( "Blue" = "#006EFE", "Yellow" = "#EA9A00", "Red" = "#EB0009", "Cyan" = "#00C649", "Green" = "#7AC100", "Magenta" = "#BF3B7F" ) ggsci_db_iterm$"Fideloper"$"normal" <- c( "Blue" = "#2E78C2", "Yellow" = "#B7AB9B", "Red" = "#CB1E2D", "Cyan" = "#309186", "Green" = "#EDB8AC", "Magenta" = "#C0236F" ) ggsci_db_iterm$"Fideloper"$"bright" <- c( "Blue" = "#7C85C4", "Yellow" = "#A86671", "Red" = "#D4605A", "Cyan" = "#819090", "Green" = "#D4605A", "Magenta" = "#5C5DB2" ) ggsci_db_iterm$"Firefly Traditional"$"normal" <- c( "Blue" = "#5A63FF", "Yellow" = "#AFAD24", "Red" = "#C23720", "Cyan" = "#33BBC7", "Green" = "#33BC26", "Magenta" = "#D53AD2" ) ggsci_db_iterm$"Firefly Traditional"$"bright" <- c( "Blue" = "#838DFF", "Yellow" = "#ECEC16", "Red" = "#FF3B1E", "Cyan" = "#29F0F0", "Green" = "#2EE720", "Magenta" = "#FF5CFE" ) ggsci_db_iterm$"Firefox Dev"$"normal" <- c( "Blue" = "#359DDF", "Yellow" = "#A57706", "Red" = "#E63853", "Cyan" = "#4B73A2", "Green" = "#5EB83C", "Magenta" = "#D75CFF" ) ggsci_db_iterm$"Firefox Dev"$"bright" <- c( "Blue" = "#006FC0", "Yellow" = "#CD9409", "Red" = "#E1003F", "Cyan" = "#005794", "Green" = "#1D9000", "Magenta" = "#A200DA" ) ggsci_db_iterm$"Firewatch"$"normal" <- c( "Blue" = "#4D89C4", "Yellow" = "#DFB563", "Red" = "#D95360", "Cyan" = "#44A8B6", "Green" = "#5AB977", "Magenta" = "#D55119" ) ggsci_db_iterm$"Firewatch"$"bright" <- c( "Blue" = "#4C89C5", "Yellow" = "#DFB563", "Red" = "#D95360", "Cyan" = "#44A8B6", "Green" = "#5AB977", "Magenta" = "#D55119" ) ggsci_db_iterm$"Fish Tank"$"normal" <- c( "Blue" = "#525FB8", "Yellow" = "#FECD5E", "Red" = "#C6004A", "Cyan" = "#968763", "Green" = "#ACF157", "Magenta" = "#986F82" ) ggsci_db_iterm$"Fish Tank"$"bright" <- c( "Blue" = "#B2BEFA", "Yellow" = "#FEE6A9", "Red" = "#DA4B8A", "Cyan" = "#A5BD86", "Green" = "#DBFFA9", "Magenta" = "#FDA5CD" ) ggsci_db_iterm$"Flat"$"normal" <- c( "Blue" = "#3167AC", "Yellow" = "#E58D11", "Red" = "#A82320", "Cyan" = "#2C9370", "Green" = "#32A548", "Magenta" = "#781AA0" ) ggsci_db_iterm$"Flat"$"bright" <- c( "Blue" = "#3C7DD2", "Yellow" = "#E5BE0C", "Red" = "#D4312E", "Cyan" = "#35B387", "Green" = "#2D9440", "Magenta" = "#8230A7" ) ggsci_db_iterm$"Flatland"$"normal" <- c( "Blue" = "#5096BE", "Yellow" = "#F4EF6D", "Red" = "#F18339", "Cyan" = "#D63865", "Green" = "#9FD364", "Magenta" = "#695ABC" ) ggsci_db_iterm$"Flatland"$"bright" <- c( "Blue" = "#61B9D0", "Yellow" = "#FF8949", "Red" = "#D22A24", "Cyan" = "#D63865", "Green" = "#A7D42C", "Magenta" = "#695ABC" ) ggsci_db_iterm$"Flexoki Dark"$"normal" <- c( "Blue" = "#4385BE", "Yellow" = "#D0A215", "Red" = "#D14D41", "Cyan" = "#3AA99F", "Green" = "#879A39", "Magenta" = "#CE5D97" ) ggsci_db_iterm$"Flexoki Dark"$"bright" <- c( "Blue" = "#205EA6", "Yellow" = "#AD8301", "Red" = "#AF3029", "Cyan" = "#24837B", "Green" = "#66800B", "Magenta" = "#A02F6F" ) ggsci_db_iterm$"Flexoki Light"$"normal" <- c( "Blue" = "#205EA6", "Yellow" = "#AD8301", "Red" = "#AF3029", "Cyan" = "#24837B", "Green" = "#66800B", "Magenta" = "#A02F6F" ) ggsci_db_iterm$"Flexoki Light"$"bright" <- c( "Blue" = "#4385BE", "Yellow" = "#D0A215", "Red" = "#D14D41", "Cyan" = "#3AA99F", "Green" = "#879A39", "Magenta" = "#CE5D97" ) ggsci_db_iterm$"Floraverse"$"normal" <- c( "Blue" = "#1D6DA1", "Yellow" = "#CD751C", "Red" = "#7E1A46", "Cyan" = "#42A38C", "Green" = "#5D731A", "Magenta" = "#B7077E" ) ggsci_db_iterm$"Floraverse"$"bright" <- c( "Blue" = "#40A4CF", "Yellow" = "#FAC357", "Red" = "#D02063", "Cyan" = "#62CAA8", "Green" = "#B4CE59", "Magenta" = "#F12AAE" ) ggsci_db_iterm$"Forest Blue"$"normal" <- c( "Blue" = "#8ED0CE", "Yellow" = "#1A8E63", "Red" = "#F8818E", "Cyan" = "#31658C", "Green" = "#92D3A2", "Magenta" = "#5E468C" ) ggsci_db_iterm$"Forest Blue"$"bright" <- c( "Blue" = "#39A7A2", "Yellow" = "#30C85A", "Red" = "#FB3D66", "Cyan" = "#6096BF", "Green" = "#6BB48D", "Magenta" = "#7E62B3" ) ggsci_db_iterm$"Framer"$"normal" <- c( "Blue" = "#00AAFF", "Yellow" = "#FFCC33", "Red" = "#FF5555", "Cyan" = "#88DDFF", "Green" = "#98EC65", "Magenta" = "#AA88FF" ) ggsci_db_iterm$"Framer"$"bright" <- c( "Blue" = "#33BBFF", "Yellow" = "#FFD966", "Red" = "#FF8888", "Cyan" = "#BBECFF", "Green" = "#B6F292", "Magenta" = "#CEBBFF" ) ggsci_db_iterm$"Front End Delight"$"normal" <- c( "Blue" = "#2C70B7", "Yellow" = "#FA771D", "Red" = "#F8511B", "Cyan" = "#3CA1A6", "Green" = "#565747", "Magenta" = "#F02E4F" ) ggsci_db_iterm$"Front End Delight"$"bright" <- c( "Blue" = "#3393CA", "Yellow" = "#FDC325", "Red" = "#F74319", "Cyan" = "#4FBCE6", "Green" = "#74EC4C", "Magenta" = "#E75E4F" ) ggsci_db_iterm$"Fun Forrest"$"normal" <- c( "Blue" = "#4699A3", "Yellow" = "#BE8A13", "Red" = "#D6262B", "Cyan" = "#DA8213", "Green" = "#919C00", "Magenta" = "#8D4331" ) ggsci_db_iterm$"Fun Forrest"$"bright" <- c( "Blue" = "#7CC9CF", "Yellow" = "#FFCB1B", "Red" = "#E55A1C", "Cyan" = "#E6A96B", "Green" = "#BFC65A", "Magenta" = "#D26349" ) ggsci_db_iterm$"Galaxy"$"normal" <- c( "Blue" = "#589DF6", "Yellow" = "#FEF02A", "Red" = "#F9555F", "Cyan" = "#1F9EE7", "Green" = "#21B089", "Magenta" = "#944D95" ) ggsci_db_iterm$"Galaxy"$"bright" <- c( "Blue" = "#589DF6", "Yellow" = "#FFFF55", "Red" = "#FA8C8F", "Cyan" = "#3979BC", "Green" = "#35BB9A", "Magenta" = "#E75699" ) ggsci_db_iterm$"Galizur"$"normal" <- c( "Blue" = "#2255CC", "Yellow" = "#CCAA22", "Red" = "#AA1122", "Cyan" = "#22BBDD", "Green" = "#33AA11", "Magenta" = "#7755AA" ) ggsci_db_iterm$"Galizur"$"bright" <- c( "Blue" = "#3377FF", "Yellow" = "#FFDD33", "Red" = "#FF1133", "Cyan" = "#33DDFF", "Green" = "#33FF11", "Magenta" = "#AA77FF" ) ggsci_db_iterm$"Ghostty Default Style Dark"$"normal" <- c( "Blue" = "#82A2BE", "Yellow" = "#F0C674", "Red" = "#CC6566", "Cyan" = "#8ABEB7", "Green" = "#B6BD68", "Magenta" = "#B294BB" ) ggsci_db_iterm$"Ghostty Default Style Dark"$"bright" <- c( "Blue" = "#7AA6DA", "Yellow" = "#E7C547", "Red" = "#D54E53", "Cyan" = "#70C0B1", "Green" = "#B9CA4B", "Magenta" = "#C397D8" ) ggsci_db_iterm$"GitHub Dark Colorblind"$"normal" <- c( "Blue" = "#58A6FF", "Yellow" = "#D29922", "Red" = "#EC8E2C", "Cyan" = "#39C5CF", "Green" = "#58A6FF", "Magenta" = "#BC8CFF" ) ggsci_db_iterm$"GitHub Dark Colorblind"$"bright" <- c( "Blue" = "#79C0FF", "Yellow" = "#E3B341", "Red" = "#FDAC54", "Cyan" = "#56D4DD", "Green" = "#79C0FF", "Magenta" = "#D2A8FF" ) ggsci_db_iterm$"GitHub Dark Default"$"normal" <- c( "Blue" = "#58A6FF", "Yellow" = "#D29922", "Red" = "#FF7B72", "Cyan" = "#39C5CF", "Green" = "#3FB950", "Magenta" = "#BC8CFF" ) ggsci_db_iterm$"GitHub Dark Default"$"bright" <- c( "Blue" = "#79C0FF", "Yellow" = "#E3B341", "Red" = "#FFA198", "Cyan" = "#56D4DD", "Green" = "#56D364", "Magenta" = "#D2A8FF" ) ggsci_db_iterm$"GitHub Dark Dimmed"$"normal" <- c( "Blue" = "#539BF5", "Yellow" = "#C69026", "Red" = "#F47067", "Cyan" = "#39C5CF", "Green" = "#57AB5A", "Magenta" = "#B083F0" ) ggsci_db_iterm$"GitHub Dark Dimmed"$"bright" <- c( "Blue" = "#6CB6FF", "Yellow" = "#DAAA3F", "Red" = "#FF938A", "Cyan" = "#56D4DD", "Green" = "#6BC46D", "Magenta" = "#DCBDFB" ) ggsci_db_iterm$"GitHub Dark High Contrast"$"normal" <- c( "Blue" = "#71B7FF", "Yellow" = "#F0B72F", "Red" = "#FF9492", "Cyan" = "#39C5CF", "Green" = "#26CD4D", "Magenta" = "#CB9EFF" ) ggsci_db_iterm$"GitHub Dark High Contrast"$"bright" <- c( "Blue" = "#91CBFF", "Yellow" = "#F7C843", "Red" = "#FFB1AF", "Cyan" = "#56D4DD", "Green" = "#4AE168", "Magenta" = "#DBB7FF" ) ggsci_db_iterm$"GitHub Dark"$"normal" <- c( "Blue" = "#6CA4F8", "Yellow" = "#E3B341", "Red" = "#F78166", "Cyan" = "#2B7489", "Green" = "#56D364", "Magenta" = "#DB61A2" ) ggsci_db_iterm$"GitHub Dark"$"bright" <- c( "Blue" = "#6CA4F8", "Yellow" = "#E3B341", "Red" = "#F78166", "Cyan" = "#2B7489", "Green" = "#56D364", "Magenta" = "#DB61A2" ) ggsci_db_iterm$"GitHub Light Colorblind"$"normal" <- c( "Blue" = "#0969DA", "Yellow" = "#4D2D00", "Red" = "#B35900", "Cyan" = "#1B7C83", "Green" = "#0550AE", "Magenta" = "#8250DF" ) ggsci_db_iterm$"GitHub Light Colorblind"$"bright" <- c( "Blue" = "#218BFF", "Yellow" = "#633C01", "Red" = "#8A4600", "Cyan" = "#3192AA", "Green" = "#0969DA", "Magenta" = "#A475F9" ) ggsci_db_iterm$"GitHub Light Default"$"normal" <- c( "Blue" = "#0969DA", "Yellow" = "#4D2D00", "Red" = "#CF222E", "Cyan" = "#1B7C83", "Green" = "#116329", "Magenta" = "#8250DF" ) ggsci_db_iterm$"GitHub Light Default"$"bright" <- c( "Blue" = "#218BFF", "Yellow" = "#633C01", "Red" = "#A40E26", "Cyan" = "#3192AA", "Green" = "#1A7F37", "Magenta" = "#A475F9" ) ggsci_db_iterm$"GitHub Light High Contrast"$"normal" <- c( "Blue" = "#0349B4", "Yellow" = "#3F2200", "Red" = "#A0111F", "Cyan" = "#1B7C83", "Green" = "#024C1A", "Magenta" = "#622CBC" ) ggsci_db_iterm$"GitHub Light High Contrast"$"bright" <- c( "Blue" = "#1168E3", "Yellow" = "#4E2C00", "Red" = "#86061D", "Cyan" = "#3192AA", "Green" = "#055D20", "Magenta" = "#844AE7" ) ggsci_db_iterm$"GitHub"$"normal" <- c( "Blue" = "#003E8A", "Yellow" = "#C5BB94", "Red" = "#970B16", "Cyan" = "#7CC4DF", "Green" = "#07962A", "Magenta" = "#E94691" ) ggsci_db_iterm$"GitHub"$"bright" <- c( "Blue" = "#2E6CBA", "Yellow" = "#D7B600", "Red" = "#DE0000", "Cyan" = "#00C7CB", "Green" = "#7AC895", "Magenta" = "#F29592" ) ggsci_db_iterm$"GitLab Dark Grey"$"normal" <- c( "Blue" = "#7FB6ED", "Yellow" = "#D99530", "Red" = "#F57F6C", "Cyan" = "#32C5D2", "Green" = "#52B87A", "Magenta" = "#F88AAF" ) ggsci_db_iterm$"GitLab Dark Grey"$"bright" <- c( "Blue" = "#498DD1", "Yellow" = "#E9BE74", "Red" = "#FCB5AA", "Cyan" = "#5EDEE3", "Green" = "#91D4A8", "Magenta" = "#FCACC5" ) ggsci_db_iterm$"GitLab Dark"$"normal" <- c( "Blue" = "#7FB6ED", "Yellow" = "#D99530", "Red" = "#F57F6C", "Cyan" = "#32C5D2", "Green" = "#52B87A", "Magenta" = "#F88AAF" ) ggsci_db_iterm$"GitLab Dark"$"bright" <- c( "Blue" = "#498DD1", "Yellow" = "#E9BE74", "Red" = "#FCB5AA", "Cyan" = "#5EDEE3", "Green" = "#91D4A8", "Magenta" = "#FCACC5" ) ggsci_db_iterm$"GitLab Light"$"normal" <- c( "Blue" = "#006CD8", "Yellow" = "#AF551D", "Red" = "#A31700", "Cyan" = "#00798A", "Green" = "#0A7F3D", "Magenta" = "#583CAC" ) ggsci_db_iterm$"GitLab Light"$"bright" <- c( "Blue" = "#006CD8", "Yellow" = "#AF551D", "Red" = "#A31700", "Cyan" = "#00798A", "Green" = "#0A7F3D", "Magenta" = "#583CAC" ) ggsci_db_iterm$"Glacier"$"normal" <- c( "Blue" = "#1F5872", "Yellow" = "#FB9435", "Red" = "#BD0F2F", "Cyan" = "#778397", "Green" = "#35A770", "Magenta" = "#BD2523" ) ggsci_db_iterm$"Glacier"$"bright" <- c( "Blue" = "#2A8BC1", "Yellow" = "#FDDF6E", "Red" = "#BD0F2F", "Cyan" = "#A0B6D3", "Green" = "#49E998", "Magenta" = "#EA4727" ) ggsci_db_iterm$"Grape"$"normal" <- c( "Blue" = "#487DF4", "Yellow" = "#8DDC20", "Red" = "#ED2261", "Cyan" = "#3BDEED", "Green" = "#1FA91B", "Magenta" = "#8D35C9" ) ggsci_db_iterm$"Grape"$"bright" <- c( "Blue" = "#A9BCEC", "Yellow" = "#B2DC87", "Red" = "#F0729A", "Cyan" = "#9DE3EB", "Green" = "#53AA5E", "Magenta" = "#AD81C2" ) ggsci_db_iterm$"Grass"$"normal" <- c( "Blue" = "#0000A3", "Yellow" = "#E7B000", "Red" = "#FF5959", "Cyan" = "#00BBBB", "Green" = "#00BB00", "Magenta" = "#EE59BB" ) ggsci_db_iterm$"Grass"$"bright" <- c( "Blue" = "#0000BB", "Yellow" = "#E7B000", "Red" = "#FF5959", "Cyan" = "#55FFFF", "Green" = "#00BB00", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Grey Green"$"normal" <- c( "Blue" = "#00DEFF", "Yellow" = "#F1FF01", "Red" = "#FE1414", "Cyan" = "#00FFBC", "Green" = "#74FF00", "Magenta" = "#FF00F0" ) ggsci_db_iterm$"Grey Green"$"bright" <- c( "Blue" = "#00AFFF", "Yellow" = "#FFD100", "Red" = "#FF3939", "Cyan" = "#00FFD3", "Green" = "#00FF44", "Magenta" = "#FF008A" ) ggsci_db_iterm$"Gruber Darker"$"normal" <- c( "Blue" = "#92A7CB", "Yellow" = "#FFDB00", "Red" = "#FF0A36", "Cyan" = "#90AA9E", "Green" = "#42DC00", "Magenta" = "#A095CB" ) ggsci_db_iterm$"Gruber Darker"$"bright" <- c( "Blue" = "#92A7CB", "Yellow" = "#FFDB00", "Red" = "#FF3851", "Cyan" = "#90AA9E", "Green" = "#42DC00", "Magenta" = "#AFAFDA" ) ggsci_db_iterm$"Gruvbox Dark Hard"$"normal" <- c( "Blue" = "#458588", "Yellow" = "#D79921", "Red" = "#CC241D", "Cyan" = "#689D6A", "Green" = "#98971A", "Magenta" = "#B16286" ) ggsci_db_iterm$"Gruvbox Dark Hard"$"bright" <- c( "Blue" = "#83A598", "Yellow" = "#FABD2F", "Red" = "#FB4934", "Cyan" = "#8EC07C", "Green" = "#B8BB26", "Magenta" = "#D3869B" ) ggsci_db_iterm$"Gruvbox Dark"$"normal" <- c( "Blue" = "#458588", "Yellow" = "#D79921", "Red" = "#CC241D", "Cyan" = "#689D6A", "Green" = "#98971A", "Magenta" = "#B16286" ) ggsci_db_iterm$"Gruvbox Dark"$"bright" <- c( "Blue" = "#83A598", "Yellow" = "#FABD2F", "Red" = "#FB4934", "Cyan" = "#8EC07C", "Green" = "#B8BB26", "Magenta" = "#D3869B" ) ggsci_db_iterm$"Gruvbox Light Hard"$"normal" <- c( "Blue" = "#458588", "Yellow" = "#D79921", "Red" = "#CC241D", "Cyan" = "#689D6A", "Green" = "#98971A", "Magenta" = "#B16286" ) ggsci_db_iterm$"Gruvbox Light Hard"$"bright" <- c( "Blue" = "#076678", "Yellow" = "#B57614", "Red" = "#9D0006", "Cyan" = "#427B58", "Green" = "#79740E", "Magenta" = "#8F3F71" ) ggsci_db_iterm$"Gruvbox Light"$"normal" <- c( "Blue" = "#458588", "Yellow" = "#D79921", "Red" = "#CC241D", "Cyan" = "#689D6A", "Green" = "#98971A", "Magenta" = "#B16286" ) ggsci_db_iterm$"Gruvbox Light"$"bright" <- c( "Blue" = "#076678", "Yellow" = "#B57614", "Red" = "#9D0006", "Cyan" = "#427B58", "Green" = "#79740E", "Magenta" = "#8F3F71" ) ggsci_db_iterm$"Gruvbox Material Dark"$"normal" <- c( "Blue" = "#7DAEA3", "Yellow" = "#D8A657", "Red" = "#EA6962", "Cyan" = "#89B482", "Green" = "#A9B665", "Magenta" = "#D3869B" ) ggsci_db_iterm$"Gruvbox Material Dark"$"bright" <- c( "Blue" = "#7DAEA3", "Yellow" = "#D8A657", "Red" = "#EA6962", "Cyan" = "#89B482", "Green" = "#A9B665", "Magenta" = "#D3869B" ) ggsci_db_iterm$"Gruvbox Material Light"$"normal" <- c( "Blue" = "#45707A", "Yellow" = "#B47109", "Red" = "#C14A4A", "Cyan" = "#4C7A5D", "Green" = "#6C782E", "Magenta" = "#945E80" ) ggsci_db_iterm$"Gruvbox Material Light"$"bright" <- c( "Blue" = "#45707A", "Yellow" = "#B47109", "Red" = "#C14A4A", "Cyan" = "#4C7A5D", "Green" = "#6C782E", "Magenta" = "#945E80" ) ggsci_db_iterm$"Gruvbox Material"$"normal" <- c( "Blue" = "#6DA3EC", "Yellow" = "#EECF75", "Red" = "#EA6926", "Cyan" = "#FE9D6E", "Green" = "#C1D041", "Magenta" = "#FD9BC1" ) ggsci_db_iterm$"Gruvbox Material"$"bright" <- c( "Blue" = "#2C86FF", "Yellow" = "#EECF75", "Red" = "#D3573B", "Cyan" = "#92A5DF", "Green" = "#C1D041", "Magenta" = "#FD9BC1" ) ggsci_db_iterm$"Guezwhoz"$"normal" <- c( "Blue" = "#5AA0D6", "Yellow" = "#B7D074", "Red" = "#E85181", "Cyan" = "#58D6CE", "Green" = "#7AD694", "Magenta" = "#9A90E0" ) ggsci_db_iterm$"Guezwhoz"$"bright" <- c( "Blue" = "#64B2ED", "Yellow" = "#D1ED85", "Red" = "#E85181", "Cyan" = "#61EDE4", "Green" = "#AFD7AF", "Magenta" = "#A398ED" ) ggsci_db_iterm$"Hacktober"$"normal" <- c( "Blue" = "#206EC5", "Yellow" = "#D08949", "Red" = "#B34538", "Cyan" = "#AC9166", "Green" = "#587744", "Magenta" = "#864651" ) ggsci_db_iterm$"Hacktober"$"bright" <- c( "Blue" = "#5389C5", "Yellow" = "#C75A22", "Red" = "#B33323", "Cyan" = "#EBC587", "Green" = "#42824A", "Magenta" = "#E795A5" ) ggsci_db_iterm$"Hardcore"$"normal" <- c( "Blue" = "#66D9EF", "Yellow" = "#FD971F", "Red" = "#F92672", "Cyan" = "#5E7175", "Green" = "#A6E22E", "Magenta" = "#9E6FFE" ) ggsci_db_iterm$"Hardcore"$"bright" <- c( "Blue" = "#66D9EF", "Yellow" = "#E6DB74", "Red" = "#FF669D", "Cyan" = "#A3BABF", "Green" = "#BEED5F", "Magenta" = "#9E6FFE" ) ggsci_db_iterm$"Harper"$"normal" <- c( "Blue" = "#489E48", "Yellow" = "#D6DA25", "Red" = "#F8B63F", "Cyan" = "#F5BFD7", "Green" = "#7FB5E1", "Magenta" = "#B296C6" ) ggsci_db_iterm$"Harper"$"bright" <- c( "Blue" = "#489E48", "Yellow" = "#D6DA25", "Red" = "#F8B63F", "Cyan" = "#F5BFD7", "Green" = "#7FB5E1", "Magenta" = "#B296C6" ) ggsci_db_iterm$"Havn Daggry"$"normal" <- c( "Blue" = "#3A577D", "Yellow" = "#BE6B00", "Red" = "#985248", "Cyan" = "#925780", "Green" = "#577159", "Magenta" = "#7C5C97" ) ggsci_db_iterm$"Havn Daggry"$"bright" <- c( "Blue" = "#6089C0", "Yellow" = "#F1A527", "Red" = "#CC4A35", "Cyan" = "#AA869D", "Green" = "#719679", "Magenta" = "#7D7396" ) ggsci_db_iterm$"Havn Skumring"$"normal" <- c( "Blue" = "#596CF7", "Yellow" = "#F8B330", "Red" = "#EA563E", "Cyan" = "#D588C1", "Green" = "#6EAD7B", "Magenta" = "#7C719E" ) ggsci_db_iterm$"Havn Skumring"$"bright" <- c( "Blue" = "#5186CB", "Yellow" = "#EAC58C", "Red" = "#D17264", "Cyan" = "#D17AB6", "Green" = "#8C9E8F", "Magenta" = "#9B7CEE" ) ggsci_db_iterm$"HaX0R Blue"$"normal" <- c( "Blue" = "#10B6FF", "Yellow" = "#10B6FF", "Red" = "#10B6FF", "Cyan" = "#10B6FF", "Green" = "#10B6FF", "Magenta" = "#10B6FF" ) ggsci_db_iterm$"HaX0R Blue"$"bright" <- c( "Blue" = "#00B3F7", "Yellow" = "#00B3F7", "Red" = "#00B3F7", "Cyan" = "#00B3F7", "Green" = "#00B3F7", "Magenta" = "#00B3F7" ) ggsci_db_iterm$"HaX0R Gr33N"$"normal" <- c( "Blue" = "#15D00D", "Yellow" = "#15D00D", "Red" = "#15D00D", "Cyan" = "#15D00D", "Green" = "#15D00D", "Magenta" = "#15D00D" ) ggsci_db_iterm$"HaX0R Gr33N"$"bright" <- c( "Blue" = "#19E20E", "Yellow" = "#19E20E", "Red" = "#19E20E", "Cyan" = "#19E20E", "Green" = "#19E20E", "Magenta" = "#19E20E" ) ggsci_db_iterm$"HaX0R R3D"$"normal" <- c( "Blue" = "#B00D0D", "Yellow" = "#B00D0D", "Red" = "#B00D0D", "Cyan" = "#B00D0D", "Green" = "#B00D0D", "Magenta" = "#B00D0D" ) ggsci_db_iterm$"HaX0R R3D"$"bright" <- c( "Blue" = "#FF1010", "Yellow" = "#FF1010", "Red" = "#FF1111", "Cyan" = "#FF1010", "Green" = "#FF1010", "Magenta" = "#FF1010" ) ggsci_db_iterm$"Heeler"$"normal" <- c( "Blue" = "#5BA5F2", "Yellow" = "#F4CE65", "Red" = "#E44C2E", "Cyan" = "#FF9763", "Green" = "#BDD100", "Magenta" = "#FF95C2" ) ggsci_db_iterm$"Heeler"$"bright" <- c( "Blue" = "#0088FF", "Yellow" = "#F4CE65", "Red" = "#E44C2E", "Cyan" = "#8DA6E4", "Green" = "#BDD100", "Magenta" = "#FF95C2" ) ggsci_db_iterm$"Highway"$"normal" <- c( "Blue" = "#006BB3", "Yellow" = "#FFCB3E", "Red" = "#D00E18", "Cyan" = "#455271", "Green" = "#138034", "Magenta" = "#783482" ) ggsci_db_iterm$"Highway"$"bright" <- c( "Blue" = "#4FC2FD", "Yellow" = "#FFF120", "Red" = "#F07E18", "Cyan" = "#5D504A", "Green" = "#B1D130", "Magenta" = "#DE0071" ) ggsci_db_iterm$"Hipster Green"$"normal" <- c( "Blue" = "#246EB2", "Yellow" = "#BFBF00", "Red" = "#B6214A", "Cyan" = "#00A6B2", "Green" = "#00A600", "Magenta" = "#B200B2" ) ggsci_db_iterm$"Hipster Green"$"bright" <- c( "Blue" = "#0000FF", "Yellow" = "#E5E500", "Red" = "#E50000", "Cyan" = "#00E5E5", "Green" = "#86A93E", "Magenta" = "#E500E5" ) ggsci_db_iterm$"Hivacruz"$"normal" <- c( "Blue" = "#3D8FD1", "Yellow" = "#C08B30", "Red" = "#C94922", "Cyan" = "#22A2C9", "Green" = "#AC9739", "Magenta" = "#6679CC" ) ggsci_db_iterm$"Hivacruz"$"bright" <- c( "Blue" = "#898EA4", "Yellow" = "#5E6687", "Red" = "#C76B29", "Cyan" = "#9C637A", "Green" = "#73AD43", "Magenta" = "#DFE2F1" ) ggsci_db_iterm$"Homebrew"$"normal" <- c( "Blue" = "#0D0DBF", "Yellow" = "#999900", "Red" = "#990000", "Cyan" = "#00A6B2", "Green" = "#00A600", "Magenta" = "#B200B2" ) ggsci_db_iterm$"Homebrew"$"bright" <- c( "Blue" = "#0000FF", "Yellow" = "#E5E500", "Red" = "#E50000", "Cyan" = "#00E5E5", "Green" = "#00D900", "Magenta" = "#E500E5" ) ggsci_db_iterm$"Hopscotch.256"$"normal" <- c( "Blue" = "#1290BF", "Yellow" = "#FDCC59", "Red" = "#DD464C", "Cyan" = "#149B93", "Green" = "#8FC13E", "Magenta" = "#C85E7C" ) ggsci_db_iterm$"Hopscotch.256"$"bright" <- c( "Blue" = "#1290BF", "Yellow" = "#FDCC59", "Red" = "#DD464C", "Cyan" = "#149B93", "Green" = "#8FC13E", "Magenta" = "#C85E7C" ) ggsci_db_iterm$"Hopscotch"$"normal" <- c( "Blue" = "#1290BF", "Yellow" = "#FDCC59", "Red" = "#DD464C", "Cyan" = "#149B93", "Green" = "#8FC13E", "Magenta" = "#C85E7C" ) ggsci_db_iterm$"Hopscotch"$"bright" <- c( "Blue" = "#989498", "Yellow" = "#5C545B", "Red" = "#FD8B19", "Cyan" = "#B33508", "Green" = "#5C545C", "Magenta" = "#D5D3D5" ) ggsci_db_iterm$"Horizon Bright"$"normal" <- c( "Blue" = "#00BEDD", "Yellow" = "#F2A682", "Red" = "#FC4777", "Cyan" = "#00CDCB", "Green" = "#00CA86", "Magenta" = "#FF58B1" ) ggsci_db_iterm$"Horizon Bright"$"bright" <- c( "Blue" = "#00C9E2", "Yellow" = "#E5A688", "Red" = "#FE5F87", "Cyan" = "#00C3C2", "Green" = "#00D193", "Magenta" = "#FF6CBA" ) ggsci_db_iterm$"Horizon"$"normal" <- c( "Blue" = "#26BBD9", "Yellow" = "#FAB795", "Red" = "#E95678", "Cyan" = "#59E1E3", "Green" = "#29D398", "Magenta" = "#EE64AC" ) ggsci_db_iterm$"Horizon"$"bright" <- c( "Blue" = "#3FC4DE", "Yellow" = "#FBC3A7", "Red" = "#EC6A88", "Cyan" = "#6BE4E6", "Green" = "#3FDAA4", "Magenta" = "#F075B5" ) ggsci_db_iterm$"Hot Dog Stand (Mustard)"$"normal" <- c( "Blue" = "#000000", "Yellow" = "#EA3323", "Red" = "#EA3323", "Cyan" = "#000000", "Green" = "#EA3323", "Magenta" = "#EA3323" ) ggsci_db_iterm$"Hot Dog Stand (Mustard)"$"bright" <- c( "Blue" = "#000000", "Yellow" = "#EA3323", "Red" = "#EA3323", "Cyan" = "#000000", "Green" = "#EA3323", "Magenta" = "#EA3323" ) ggsci_db_iterm$"Hot Dog Stand"$"normal" <- c( "Blue" = "#000000", "Yellow" = "#FFFF54", "Red" = "#FFFF54", "Cyan" = "#FFFFFF", "Green" = "#FFFF54", "Magenta" = "#FFFF54" ) ggsci_db_iterm$"Hot Dog Stand"$"bright" <- c( "Blue" = "#000000", "Yellow" = "#FFFF54", "Red" = "#FFFF54", "Cyan" = "#FFFFFF", "Green" = "#FFFF54", "Magenta" = "#FFFF54" ) ggsci_db_iterm$"Hurtado"$"normal" <- c( "Blue" = "#496487", "Yellow" = "#FBE74A", "Red" = "#FF1B00", "Cyan" = "#86E9FE", "Green" = "#A5E055", "Magenta" = "#FD5FF1" ) ggsci_db_iterm$"Hurtado"$"bright" <- c( "Blue" = "#89BEFF", "Yellow" = "#FBE84A", "Red" = "#D51D00", "Cyan" = "#86EAFE", "Green" = "#A5DF55", "Magenta" = "#C001C1" ) ggsci_db_iterm$"Hybrid"$"normal" <- c( "Blue" = "#6E90B0", "Yellow" = "#E4B55E", "Red" = "#B84D51", "Cyan" = "#7FBFB4", "Green" = "#B3BF5A", "Magenta" = "#A17EAC" ) ggsci_db_iterm$"Hybrid"$"bright" <- c( "Blue" = "#4B6B88", "Yellow" = "#E58A50", "Red" = "#8D2E32", "Cyan" = "#4D7B74", "Green" = "#798431", "Magenta" = "#6E5079" ) ggsci_db_iterm$"IBM 5153 CGA (Black)"$"normal" <- c( "Blue" = "#0000C4", "Yellow" = "#C47E00", "Red" = "#C40000", "Cyan" = "#00C4C4", "Green" = "#00C400", "Magenta" = "#C400C4" ) ggsci_db_iterm$"IBM 5153 CGA (Black)"$"bright" <- c( "Blue" = "#4E4EDC", "Yellow" = "#F3F34E", "Red" = "#DC4E4E", "Cyan" = "#4EF3F3", "Green" = "#4EDC4E", "Magenta" = "#F34EF3" ) ggsci_db_iterm$"IBM 5153 CGA"$"normal" <- c( "Blue" = "#1B1BD0", "Yellow" = "#D08C1B", "Red" = "#D03333", "Cyan" = "#1BD0D0", "Green" = "#1BD01B", "Magenta" = "#D01BD0" ) ggsci_db_iterm$"IBM 5153 CGA"$"bright" <- c( "Blue" = "#4E4EDC", "Yellow" = "#F3F34E", "Red" = "#DC4E4E", "Cyan" = "#4EF3F3", "Green" = "#4EDC4E", "Magenta" = "#F34EF3" ) ggsci_db_iterm$"IC Green PPL"$"normal" <- c( "Blue" = "#2EC3B9", "Yellow" = "#76A831", "Red" = "#FF2736", "Cyan" = "#3CA078", "Green" = "#41A638", "Magenta" = "#50A096" ) ggsci_db_iterm$"IC Green PPL"$"bright" <- c( "Blue" = "#2EFAEB", "Yellow" = "#DAFA87", "Red" = "#B4FA5C", "Cyan" = "#3CFAC8", "Green" = "#AEFB86", "Magenta" = "#50FAFA" ) ggsci_db_iterm$"IC Orange PPL"$"normal" <- c( "Blue" = "#BD6D00", "Yellow" = "#CAAF00", "Red" = "#C13900", "Cyan" = "#F79500", "Green" = "#A4A900", "Magenta" = "#FC5E00" ) ggsci_db_iterm$"IC Orange PPL"$"bright" <- c( "Blue" = "#FFBE55", "Yellow" = "#FFE36E", "Red" = "#FF8C68", "Cyan" = "#C69752", "Green" = "#F6FF40", "Magenta" = "#FC874F" ) ggsci_db_iterm$"Iceberg Dark"$"normal" <- c( "Blue" = "#84A0C6", "Yellow" = "#E2A478", "Red" = "#E27878", "Cyan" = "#89B8C2", "Green" = "#B4BE82", "Magenta" = "#A093C7" ) ggsci_db_iterm$"Iceberg Dark"$"bright" <- c( "Blue" = "#91ACD1", "Yellow" = "#E9B189", "Red" = "#E98989", "Cyan" = "#95C4CE", "Green" = "#C0CA8E", "Magenta" = "#ADA0D3" ) ggsci_db_iterm$"Iceberg Light"$"normal" <- c( "Blue" = "#2D539E", "Yellow" = "#C57339", "Red" = "#CC517A", "Cyan" = "#3F83A6", "Green" = "#668E3D", "Magenta" = "#7759B4" ) ggsci_db_iterm$"Iceberg Light"$"bright" <- c( "Blue" = "#22478E", "Yellow" = "#B6662D", "Red" = "#CC3768", "Cyan" = "#327698", "Green" = "#598030", "Magenta" = "#6845AD" ) ggsci_db_iterm$"Idea"$"normal" <- c( "Blue" = "#437EE7", "Yellow" = "#CCB444", "Red" = "#FC5256", "Cyan" = "#248887", "Green" = "#98B61C", "Magenta" = "#9D74B0" ) ggsci_db_iterm$"Idea"$"bright" <- c( "Blue" = "#6C9CED", "Yellow" = "#FFFF0B", "Red" = "#FC7072", "Cyan" = "#248887", "Green" = "#98B61C", "Magenta" = "#FC7EFF" ) ggsci_db_iterm$"Idle Toes"$"normal" <- c( "Blue" = "#4099FF", "Yellow" = "#FFC66D", "Red" = "#D25252", "Cyan" = "#BED6FF", "Green" = "#7FE173", "Magenta" = "#F680FF" ) ggsci_db_iterm$"Idle Toes"$"bright" <- c( "Blue" = "#5EB7F7", "Yellow" = "#FFE48B", "Red" = "#F07070", "Cyan" = "#DCF4FF", "Green" = "#9DFF91", "Magenta" = "#FF9DFF" ) ggsci_db_iterm$"IR Black"$"normal" <- c( "Blue" = "#96CAFE", "Yellow" = "#FFFEB7", "Red" = "#FA6C60", "Cyan" = "#C6C5FE", "Green" = "#A8FF60", "Magenta" = "#FA73FD" ) ggsci_db_iterm$"IR Black"$"bright" <- c( "Blue" = "#B5DCFF", "Yellow" = "#FFFFCC", "Red" = "#FCB6B0", "Cyan" = "#E0E0FE", "Green" = "#CFFFAB", "Magenta" = "#FB9CFE" ) ggsci_db_iterm$"IRIX Console"$"normal" <- c( "Blue" = "#0739E2", "Yellow" = "#C29D28", "Red" = "#D42426", "Cyan" = "#4497DF", "Green" = "#37A327", "Magenta" = "#911F9C" ) ggsci_db_iterm$"IRIX Console"$"bright" <- c( "Blue" = "#4079FF", "Yellow" = "#F9F2A7", "Red" = "#F34F59", "Cyan" = "#6ED7D7", "Green" = "#45C731", "Magenta" = "#C31BA2" ) ggsci_db_iterm$"IRIX Terminal"$"normal" <- c( "Blue" = "#0004FF", "Yellow" = "#FFFF44", "Red" = "#FF2B1E", "Cyan" = "#56FFFF", "Green" = "#57FF3D", "Magenta" = "#FF2CFF" ) ggsci_db_iterm$"IRIX Terminal"$"bright" <- c( "Blue" = "#FFFF44", "Yellow" = "#FFFC72", "Red" = "#FFFF44", "Cyan" = "#FFFF44", "Green" = "#FFFF44", "Magenta" = "#FFFF44" ) ggsci_db_iterm$"iTerm2 Dark Background"$"normal" <- c( "Blue" = "#0225C7", "Yellow" = "#C7C400", "Red" = "#C91B00", "Cyan" = "#00C5C7", "Green" = "#00C200", "Magenta" = "#CA30C7" ) ggsci_db_iterm$"iTerm2 Dark Background"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#FFFC67", "Red" = "#FF6E67", "Cyan" = "#60FDFF", "Green" = "#5FFA68", "Magenta" = "#FF77FF" ) ggsci_db_iterm$"iTerm2 Default"$"normal" <- c( "Blue" = "#2225C4", "Yellow" = "#C7C400", "Red" = "#C91B00", "Cyan" = "#00C5C7", "Green" = "#00C200", "Magenta" = "#CA30C7" ) ggsci_db_iterm$"iTerm2 Default"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#FFFC67", "Red" = "#FF6E67", "Cyan" = "#60FDFF", "Green" = "#5FFA68", "Magenta" = "#FF77FF" ) ggsci_db_iterm$"iTerm2 Light Background"$"normal" <- c( "Blue" = "#0225C7", "Yellow" = "#C7C400", "Red" = "#C91B00", "Cyan" = "#00C5C7", "Green" = "#00C200", "Magenta" = "#CA30C7" ) ggsci_db_iterm$"iTerm2 Light Background"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#CCC934", "Red" = "#FF6E67", "Cyan" = "#3AD7D9", "Green" = "#39D442", "Magenta" = "#FF77FF" ) ggsci_db_iterm$"iTerm2 Pastel Dark Background"$"normal" <- c( "Blue" = "#A5D5FE", "Yellow" = "#FFFDC3", "Red" = "#FF8373", "Cyan" = "#D1D1FE", "Green" = "#B4FB73", "Magenta" = "#FF90FE" ) ggsci_db_iterm$"iTerm2 Pastel Dark Background"$"bright" <- c( "Blue" = "#C2E3FF", "Yellow" = "#FFFED5", "Red" = "#FFC4BE", "Cyan" = "#E6E6FE", "Green" = "#D6FCBA", "Magenta" = "#FFB2FE" ) ggsci_db_iterm$"iTerm2 Smoooooth"$"normal" <- c( "Blue" = "#2744C7", "Yellow" = "#C7C400", "Red" = "#B43C2A", "Cyan" = "#00C5C7", "Green" = "#00C200", "Magenta" = "#C040BE" ) ggsci_db_iterm$"iTerm2 Smoooooth"$"bright" <- c( "Blue" = "#A7ABF2", "Yellow" = "#ECE100", "Red" = "#DD7975", "Cyan" = "#60FDFF", "Green" = "#58E790", "Magenta" = "#E17EE1" ) ggsci_db_iterm$"iTerm2 Solarized Dark"$"normal" <- c( "Blue" = "#268BD2", "Yellow" = "#B58900", "Red" = "#DC322F", "Cyan" = "#2AA198", "Green" = "#859900", "Magenta" = "#D33682" ) ggsci_db_iterm$"iTerm2 Solarized Dark"$"bright" <- c( "Blue" = "#839496", "Yellow" = "#657B83", "Red" = "#CB4B16", "Cyan" = "#93A1A1", "Green" = "#586E75", "Magenta" = "#6C71C4" ) ggsci_db_iterm$"iTerm2 Solarized Light"$"normal" <- c( "Blue" = "#268BD2", "Yellow" = "#B58900", "Red" = "#DC322F", "Cyan" = "#2AA198", "Green" = "#859900", "Magenta" = "#D33682" ) ggsci_db_iterm$"iTerm2 Solarized Light"$"bright" <- c( "Blue" = "#839496", "Yellow" = "#657B83", "Red" = "#CB4B16", "Cyan" = "#93A1A1", "Green" = "#586E75", "Magenta" = "#6C71C4" ) ggsci_db_iterm$"iTerm2 Tango Dark"$"normal" <- c( "Blue" = "#427AB3", "Yellow" = "#CFAE00", "Red" = "#D81E00", "Cyan" = "#00A7AA", "Green" = "#5EA702", "Magenta" = "#89658E" ) ggsci_db_iterm$"iTerm2 Tango Dark"$"bright" <- c( "Blue" = "#84B0D8", "Yellow" = "#FDEB61", "Red" = "#F54235", "Cyan" = "#37E6E8", "Green" = "#99E343", "Magenta" = "#BC94B7" ) ggsci_db_iterm$"iTerm2 Tango Light"$"normal" <- c( "Blue" = "#427AB3", "Yellow" = "#CFAE00", "Red" = "#D81E00", "Cyan" = "#00A7AA", "Green" = "#5EA702", "Magenta" = "#89658E" ) ggsci_db_iterm$"iTerm2 Tango Light"$"bright" <- c( "Blue" = "#84B0D8", "Yellow" = "#D7C53B", "Red" = "#F54235", "Cyan" = "#1ECCCE", "Green" = "#8CD636", "Magenta" = "#BC94B7" ) ggsci_db_iterm$"Jackie Brown"$"normal" <- c( "Blue" = "#246EB2", "Yellow" = "#BEBF00", "Red" = "#EF5734", "Cyan" = "#00ACEE", "Green" = "#2BAF2B", "Magenta" = "#D05EC1" ) ggsci_db_iterm$"Jackie Brown"$"bright" <- c( "Blue" = "#0000FF", "Yellow" = "#E5E500", "Red" = "#E50000", "Cyan" = "#00E5E5", "Green" = "#86A93E", "Magenta" = "#E500E5" ) ggsci_db_iterm$"Japanesque"$"normal" <- c( "Blue" = "#4C9AD4", "Yellow" = "#E9B32A", "Red" = "#CF3F61", "Cyan" = "#389AAD", "Green" = "#7BB75B", "Magenta" = "#A57FC4" ) ggsci_db_iterm$"Japanesque"$"bright" <- c( "Blue" = "#135979", "Yellow" = "#78592F", "Red" = "#D18FA6", "Cyan" = "#76BBCA", "Green" = "#767F2C", "Magenta" = "#604291" ) ggsci_db_iterm$"Jellybeans"$"normal" <- c( "Blue" = "#97BEDC", "Yellow" = "#FFBA7B", "Red" = "#E27373", "Cyan" = "#00988E", "Green" = "#94B979", "Magenta" = "#E1C0FA" ) ggsci_db_iterm$"Jellybeans"$"bright" <- c( "Blue" = "#B1D8F6", "Yellow" = "#FFDCA0", "Red" = "#FFA1A1", "Cyan" = "#1AB2A8", "Green" = "#BDDEAB", "Magenta" = "#FBDAFF" ) ggsci_db_iterm$"JetBrains Darcula"$"normal" <- c( "Blue" = "#4581EB", "Yellow" = "#C2C300", "Red" = "#FA5355", "Cyan" = "#33C2C1", "Green" = "#126E00", "Magenta" = "#FA54FF" ) ggsci_db_iterm$"JetBrains Darcula"$"bright" <- c( "Blue" = "#6D9DF1", "Yellow" = "#FFFF00", "Red" = "#FB7172", "Cyan" = "#60D3D1", "Green" = "#67FF4F", "Magenta" = "#FB82FF" ) ggsci_db_iterm$"Jubi"$"normal" <- c( "Blue" = "#576EA6", "Yellow" = "#6EBFC0", "Red" = "#CF7B98", "Cyan" = "#75A7D2", "Green" = "#90A94B", "Magenta" = "#BC4F68" ) ggsci_db_iterm$"Jubi"$"bright" <- c( "Blue" = "#8C9FCD", "Yellow" = "#87E9EA", "Red" = "#DE90AB", "Cyan" = "#B7C9EF", "Green" = "#BCDD61", "Magenta" = "#E16C87" ) ggsci_db_iterm$"Kanagawa Dragon"$"normal" <- c( "Blue" = "#8BA4B0", "Yellow" = "#C4B28A", "Red" = "#C4746E", "Cyan" = "#8EA4A2", "Green" = "#8A9A7B", "Magenta" = "#A292A3" ) ggsci_db_iterm$"Kanagawa Dragon"$"bright" <- c( "Blue" = "#7FB4CA", "Yellow" = "#E6C384", "Red" = "#E46876", "Cyan" = "#7AA89F", "Green" = "#87A987", "Magenta" = "#938AA9" ) ggsci_db_iterm$"Kanagawa Wave"$"normal" <- c( "Blue" = "#7E9CD8", "Yellow" = "#C0A36E", "Red" = "#C34043", "Cyan" = "#6A9589", "Green" = "#76946A", "Magenta" = "#957FB8" ) ggsci_db_iterm$"Kanagawa Wave"$"bright" <- c( "Blue" = "#7FB4CA", "Yellow" = "#E6C384", "Red" = "#E82424", "Cyan" = "#7AA89F", "Green" = "#98BB6C", "Magenta" = "#938AA9" ) ggsci_db_iterm$"Kanagawabones"$"normal" <- c( "Blue" = "#7EB3C9", "Yellow" = "#E5C283", "Red" = "#E46A78", "Cyan" = "#7EB3C9", "Green" = "#98BC6D", "Magenta" = "#957FB8" ) ggsci_db_iterm$"Kanagawabones"$"bright" <- c( "Blue" = "#7BC2DF", "Yellow" = "#F1C982", "Red" = "#EC818C", "Cyan" = "#7BC2DF", "Green" = "#9EC967", "Magenta" = "#A98FD2" ) ggsci_db_iterm$"Kibble"$"normal" <- c( "Blue" = "#3449D1", "Yellow" = "#D8E30E", "Red" = "#C70031", "Cyan" = "#0798AB", "Green" = "#29CF13", "Magenta" = "#8400FF" ) ggsci_db_iterm$"Kibble"$"bright" <- c( "Blue" = "#97A4F7", "Yellow" = "#F3F79E", "Red" = "#F01578", "Cyan" = "#68F2E0", "Green" = "#6CE05C", "Magenta" = "#C495F0" ) ggsci_db_iterm$"Kitty Default"$"normal" <- c( "Blue" = "#0D73CC", "Yellow" = "#CECB00", "Red" = "#CC0403", "Cyan" = "#0DCDCD", "Green" = "#19CB00", "Magenta" = "#CB1ED1" ) ggsci_db_iterm$"Kitty Default"$"bright" <- c( "Blue" = "#1A8FFF", "Yellow" = "#FFFD00", "Red" = "#F2201F", "Cyan" = "#14FFFF", "Green" = "#23FD00", "Magenta" = "#FD28FF" ) ggsci_db_iterm$"Kitty Low Contrast"$"normal" <- c( "Blue" = "#0D73CC", "Yellow" = "#CECB00", "Red" = "#CC0403", "Cyan" = "#0DCDCD", "Green" = "#19CB00", "Magenta" = "#CB1ED1" ) ggsci_db_iterm$"Kitty Low Contrast"$"bright" <- c( "Blue" = "#1A8FFF", "Yellow" = "#FFFD00", "Red" = "#F2201F", "Cyan" = "#14FFFF", "Green" = "#23FD00", "Magenta" = "#FD28FF" ) ggsci_db_iterm$"Kolorit"$"normal" <- c( "Blue" = "#5DB4EE", "Yellow" = "#E8E562", "Red" = "#FF5B82", "Cyan" = "#57E9EB", "Green" = "#47D7A1", "Magenta" = "#DA6CDA" ) ggsci_db_iterm$"Kolorit"$"bright" <- c( "Blue" = "#5DB4EE", "Yellow" = "#E8E562", "Red" = "#FF5B82", "Cyan" = "#57E9EB", "Green" = "#47D7A1", "Magenta" = "#DA6CDA" ) ggsci_db_iterm$"Konsolas"$"normal" <- c( "Blue" = "#2323A5", "Yellow" = "#EBAE1F", "Red" = "#AA1717", "Cyan" = "#42B0C8", "Green" = "#18B218", "Magenta" = "#AD1EDC" ) ggsci_db_iterm$"Konsolas"$"bright" <- c( "Blue" = "#4B4BFF", "Yellow" = "#FFFF55", "Red" = "#FF4141", "Cyan" = "#69FFFF", "Green" = "#5FFF5F", "Magenta" = "#FF54FF" ) ggsci_db_iterm$"Kurokula"$"normal" <- c( "Blue" = "#5C91DD", "Yellow" = "#E1B917", "Red" = "#C35A52", "Cyan" = "#867268", "Green" = "#78B3A9", "Magenta" = "#8B79A6" ) ggsci_db_iterm$"Kurokula"$"bright" <- c( "Blue" = "#90DBFF", "Yellow" = "#FFF700", "Red" = "#FFC34C", "Cyan" = "#FFCDB6", "Green" = "#AFFFA5", "Magenta" = "#AD93FF" ) ggsci_db_iterm$"Lab Fox"$"normal" <- c( "Blue" = "#DB3B21", "Yellow" = "#FCA121", "Red" = "#FC6D26", "Cyan" = "#6E49CB", "Green" = "#3EB383", "Magenta" = "#6B40A8" ) ggsci_db_iterm$"Lab Fox"$"bright" <- c( "Blue" = "#DB501F", "Yellow" = "#FCA013", "Red" = "#FF6517", "Cyan" = "#7D53E7", "Green" = "#53EAA8", "Magenta" = "#6A36B6" ) ggsci_db_iterm$"Laser"$"normal" <- c( "Blue" = "#FED300", "Yellow" = "#09B4BD", "Red" = "#FF8373", "Cyan" = "#D1D1FE", "Green" = "#B4FB73", "Magenta" = "#FF90FE" ) ggsci_db_iterm$"Laser"$"bright" <- c( "Blue" = "#F92883", "Yellow" = "#FFFED5", "Red" = "#FFC4BE", "Cyan" = "#E6E7FE", "Green" = "#D6FCBA", "Magenta" = "#FFB2FE" ) ggsci_db_iterm$"Later This Evening"$"normal" <- c( "Blue" = "#A0BAD6", "Yellow" = "#E5D289", "Red" = "#D45A60", "Cyan" = "#91BFB7", "Green" = "#AFBA67", "Magenta" = "#C092D6" ) ggsci_db_iterm$"Later This Evening"$"bright" <- c( "Blue" = "#6699D6", "Yellow" = "#E5BE39", "Red" = "#D3232F", "Cyan" = "#5FC0AE", "Green" = "#AABB39", "Magenta" = "#AB53D6" ) ggsci_db_iterm$"Lavandula"$"normal" <- c( "Blue" = "#4F4A7F", "Yellow" = "#7F6F49", "Red" = "#7D1625", "Cyan" = "#58777F", "Green" = "#337E6F", "Magenta" = "#5A3F7F" ) ggsci_db_iterm$"Lavandula"$"bright" <- c( "Blue" = "#8E87E0", "Yellow" = "#E0C386", "Red" = "#E05167", "Cyan" = "#9AD4E0", "Green" = "#52E0C4", "Magenta" = "#A776E0" ) ggsci_db_iterm$"Light Owl"$"normal" <- c( "Blue" = "#288ED7", "Yellow" = "#E0AF02", "Red" = "#DE3D3B", "Cyan" = "#2AA298", "Green" = "#08916A", "Magenta" = "#D6438A" ) ggsci_db_iterm$"Light Owl"$"bright" <- c( "Blue" = "#288ED7", "Yellow" = "#DAAA01", "Red" = "#DE3D3B", "Cyan" = "#2AA298", "Green" = "#08916A", "Magenta" = "#D6438A" ) ggsci_db_iterm$"Liquid Carbon Transparent"$"normal" <- c( "Blue" = "#0099CC", "Yellow" = "#CCAC00", "Red" = "#FF3030", "Cyan" = "#7AC4CC", "Green" = "#559A70", "Magenta" = "#CC69C8" ) ggsci_db_iterm$"Liquid Carbon Transparent"$"bright" <- c( "Blue" = "#0099CC", "Yellow" = "#CCAC00", "Red" = "#FF3030", "Cyan" = "#7AC4CC", "Green" = "#559A70", "Magenta" = "#CC69C8" ) ggsci_db_iterm$"Liquid Carbon"$"normal" <- c( "Blue" = "#0099CC", "Yellow" = "#CCAC00", "Red" = "#FF3030", "Cyan" = "#7AC4CC", "Green" = "#559A70", "Magenta" = "#CC69C8" ) ggsci_db_iterm$"Liquid Carbon"$"bright" <- c( "Blue" = "#0099CC", "Yellow" = "#CCAC00", "Red" = "#FF3030", "Cyan" = "#7AC4CC", "Green" = "#559A70", "Magenta" = "#CC69C8" ) ggsci_db_iterm$"Lovelace"$"normal" <- c( "Blue" = "#8897F4", "Yellow" = "#F2A272", "Red" = "#F37F97", "Cyan" = "#79E6F3", "Green" = "#5ADECD", "Magenta" = "#C574DD" ) ggsci_db_iterm$"Lovelace"$"bright" <- c( "Blue" = "#556FFF", "Yellow" = "#FF8037", "Red" = "#FF4971", "Cyan" = "#3FDCEE", "Green" = "#18E3C8", "Magenta" = "#B043D1" ) ggsci_db_iterm$"Man Page"$"normal" <- c( "Blue" = "#0000B2", "Yellow" = "#999900", "Red" = "#CC0000", "Cyan" = "#00A6B2", "Green" = "#00A600", "Magenta" = "#B200B2" ) ggsci_db_iterm$"Man Page"$"bright" <- c( "Blue" = "#0000FF", "Yellow" = "#BFBF00", "Red" = "#E50000", "Cyan" = "#00CBCB", "Green" = "#00CC00", "Magenta" = "#E500E5" ) ggsci_db_iterm$"Mariana"$"normal" <- c( "Blue" = "#6699CC", "Yellow" = "#F9AE58", "Red" = "#EC5F66", "Cyan" = "#5FB4B4", "Green" = "#99C794", "Magenta" = "#C695C6" ) ggsci_db_iterm$"Mariana"$"bright" <- c( "Blue" = "#85ADD6", "Yellow" = "#FAC761", "Red" = "#F97B58", "Cyan" = "#82C4C4", "Green" = "#ACD1A8", "Magenta" = "#D8B6D8" ) ggsci_db_iterm$"Material Dark"$"normal" <- c( "Blue" = "#134EB2", "Yellow" = "#F6981E", "Red" = "#B7141F", "Cyan" = "#0E717C", "Green" = "#457B24", "Magenta" = "#701AA2" ) ggsci_db_iterm$"Material Dark"$"bright" <- c( "Blue" = "#54A4F3", "Yellow" = "#FFEA2E", "Red" = "#E83B3F", "Cyan" = "#26BBD1", "Green" = "#7ABA3A", "Magenta" = "#AA4DBC" ) ggsci_db_iterm$"Material Darker"$"normal" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFCB6B", "Red" = "#FF5370", "Cyan" = "#89DDFF", "Green" = "#C3E88D", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Material Darker"$"bright" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFCB6B", "Red" = "#FF5370", "Cyan" = "#89DDFF", "Green" = "#C3E88D", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Material Design Colors"$"normal" <- c( "Blue" = "#37B6FF", "Yellow" = "#FED032", "Red" = "#FC3841", "Cyan" = "#59FFD1", "Green" = "#5CF19E", "Magenta" = "#FC226E" ) ggsci_db_iterm$"Material Design Colors"$"bright" <- c( "Blue" = "#70CFFF", "Yellow" = "#FEE16C", "Red" = "#FC746D", "Cyan" = "#9AFFE6", "Green" = "#ADF7BE", "Magenta" = "#FC669B" ) ggsci_db_iterm$"Material Ocean"$"normal" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFCB6B", "Red" = "#FF5370", "Cyan" = "#89DDFF", "Green" = "#C3E88D", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Material Ocean"$"bright" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFCB6B", "Red" = "#FF5370", "Cyan" = "#89DDFF", "Green" = "#C3E88D", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Material"$"normal" <- c( "Blue" = "#134EB2", "Yellow" = "#F6981E", "Red" = "#B7141F", "Cyan" = "#0E717C", "Green" = "#457B24", "Magenta" = "#560088" ) ggsci_db_iterm$"Material"$"bright" <- c( "Blue" = "#54A4F3", "Yellow" = "#BFAA00", "Red" = "#E83B3F", "Cyan" = "#26BBD1", "Green" = "#7ABA3A", "Magenta" = "#AA4DBC" ) ggsci_db_iterm$"Mathias"$"normal" <- c( "Blue" = "#C48DFF", "Yellow" = "#FC951E", "Red" = "#E52222", "Cyan" = "#67D9F0", "Green" = "#A6E32D", "Magenta" = "#FA2573" ) ggsci_db_iterm$"Mathias"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#55FFFF", "Green" = "#55FF55", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Matrix"$"normal" <- c( "Blue" = "#3F5242", "Yellow" = "#FFD700", "Red" = "#23755A", "Cyan" = "#50B45A", "Green" = "#82D967", "Magenta" = "#409931" ) ggsci_db_iterm$"Matrix"$"bright" <- c( "Blue" = "#4F7E7E", "Yellow" = "#FAFF00", "Red" = "#2FC079", "Cyan" = "#C1FF8A", "Green" = "#90D762", "Magenta" = "#11FF25" ) ggsci_db_iterm$"Matte Black"$"normal" <- c( "Blue" = "#E68E0D", "Yellow" = "#B91C1C", "Red" = "#D35F5F", "Cyan" = "#BEBEBE", "Green" = "#FFC107", "Magenta" = "#D35F5F" ) ggsci_db_iterm$"Matte Black"$"bright" <- c( "Blue" = "#F59E0B", "Yellow" = "#B90A0A", "Red" = "#891C1C", "Cyan" = "#EAEAEA", "Green" = "#FFC107", "Magenta" = "#B91C1C" ) ggsci_db_iterm$"Medallion"$"normal" <- c( "Blue" = "#616BB0", "Yellow" = "#D3BD26", "Red" = "#B64C00", "Cyan" = "#916C25", "Green" = "#7C8B16", "Magenta" = "#8C5A90" ) ggsci_db_iterm$"Medallion"$"bright" <- c( "Blue" = "#ACB8FF", "Yellow" = "#FFE54A", "Red" = "#FF9149", "Cyan" = "#FFBC51", "Green" = "#B2CA3B", "Magenta" = "#FFA0FF" ) ggsci_db_iterm$"Melange Dark"$"normal" <- c( "Blue" = "#7F91B2", "Yellow" = "#E49B5D", "Red" = "#BD8183", "Cyan" = "#7B9695", "Green" = "#78997A", "Magenta" = "#B380B0" ) ggsci_db_iterm$"Melange Dark"$"bright" <- c( "Blue" = "#A3A9CE", "Yellow" = "#EBC06D", "Red" = "#D47766", "Cyan" = "#89B3B6", "Green" = "#85B695", "Magenta" = "#CF9BC2" ) ggsci_db_iterm$"Melange Light"$"normal" <- c( "Blue" = "#7892BD", "Yellow" = "#BC5C00", "Red" = "#C77B8B", "Cyan" = "#739797", "Green" = "#6E9B72", "Magenta" = "#BE79BB" ) ggsci_db_iterm$"Melange Light"$"bright" <- c( "Blue" = "#465AA4", "Yellow" = "#A06D00", "Red" = "#BF0021", "Cyan" = "#3D6568", "Green" = "#3A684A", "Magenta" = "#904180" ) ggsci_db_iterm$"Mellifluous"$"normal" <- c( "Blue" = "#A8A1BE", "Yellow" = "#CBAA89", "Red" = "#D29393", "Cyan" = "#C0AF8C", "Green" = "#B3B393", "Magenta" = "#B39FB0" ) ggsci_db_iterm$"Mellifluous"$"bright" <- c( "Blue" = "#5A6599", "Yellow" = "#A6794C", "Red" = "#C95954", "Cyan" = "#74A39E", "Green" = "#828040", "Magenta" = "#9C6995" ) ggsci_db_iterm$"Mellow"$"normal" <- c( "Blue" = "#ACA1CF", "Yellow" = "#E6B99D", "Red" = "#F5A191", "Cyan" = "#EA83A5", "Green" = "#90B99F", "Magenta" = "#E29ECA" ) ggsci_db_iterm$"Mellow"$"bright" <- c( "Blue" = "#B9AEDA", "Yellow" = "#F0C5A9", "Red" = "#FFAE9F", "Cyan" = "#F591B2", "Green" = "#9DC6AC", "Magenta" = "#ECAAD6" ) ggsci_db_iterm$"Miasma"$"normal" <- c( "Blue" = "#78824B", "Yellow" = "#B36D43", "Red" = "#685742", "Cyan" = "#C9A554", "Green" = "#5F875F", "Magenta" = "#BB7744" ) ggsci_db_iterm$"Miasma"$"bright" <- c( "Blue" = "#78824B", "Yellow" = "#B36D43", "Red" = "#685742", "Cyan" = "#C9A554", "Green" = "#5F875F", "Magenta" = "#BB7744" ) ggsci_db_iterm$"Midnight In Mojave"$"normal" <- c( "Blue" = "#0A84FF", "Yellow" = "#FFD60A", "Red" = "#FF453A", "Cyan" = "#5AC8FA", "Green" = "#32D74B", "Magenta" = "#BF5AF2" ) ggsci_db_iterm$"Midnight In Mojave"$"bright" <- c( "Blue" = "#0A84FF", "Yellow" = "#FFD60A", "Red" = "#FF453A", "Cyan" = "#5AC8FA", "Green" = "#32D74B", "Magenta" = "#BF5AF2" ) ggsci_db_iterm$"Mirage"$"normal" <- c( "Blue" = "#7FB5FF", "Yellow" = "#FFD700", "Red" = "#FF9999", "Cyan" = "#21C7A8", "Green" = "#85CC95", "Magenta" = "#DDB3FF" ) ggsci_db_iterm$"Mirage"$"bright" <- c( "Blue" = "#7FB5FF", "Yellow" = "#FFD700", "Red" = "#FF9999", "Cyan" = "#85CC95", "Green" = "#85CC95", "Magenta" = "#DDB3FF" ) ggsci_db_iterm$"Misterioso"$"normal" <- c( "Blue" = "#338F86", "Yellow" = "#FFAD29", "Red" = "#FF4242", "Cyan" = "#23D7D7", "Green" = "#74AF68", "Magenta" = "#9414E6" ) ggsci_db_iterm$"Misterioso"$"bright" <- c( "Blue" = "#23D7D7", "Yellow" = "#FFB929", "Red" = "#FF3242", "Cyan" = "#00EDE1", "Green" = "#74CD68", "Magenta" = "#FF37FF" ) ggsci_db_iterm$"Molokai"$"normal" <- c( "Blue" = "#1080D0", "Yellow" = "#DFD460", "Red" = "#FA2573", "Cyan" = "#43A8D0", "Green" = "#98E123", "Magenta" = "#8700FF" ) ggsci_db_iterm$"Molokai"$"bright" <- c( "Blue" = "#00AFFF", "Yellow" = "#FFF26D", "Red" = "#F6669D", "Cyan" = "#51CEFF", "Green" = "#B1E05F", "Magenta" = "#AF87FF" ) ggsci_db_iterm$"Mona Lisa"$"normal" <- c( "Blue" = "#515C5D", "Yellow" = "#C36E28", "Red" = "#9B291C", "Cyan" = "#588056", "Green" = "#636232", "Magenta" = "#9B1D29" ) ggsci_db_iterm$"Mona Lisa"$"bright" <- c( "Blue" = "#9EB2B4", "Yellow" = "#FF9566", "Red" = "#FF4331", "Cyan" = "#8ACD8F", "Green" = "#B4B264", "Magenta" = "#FF5B6A" ) ggsci_db_iterm$"Monokai Classic"$"normal" <- c( "Blue" = "#FD971F", "Yellow" = "#E6DB74", "Red" = "#F92672", "Cyan" = "#66D9EF", "Green" = "#A6E22E", "Magenta" = "#AE81FF" ) ggsci_db_iterm$"Monokai Classic"$"bright" <- c( "Blue" = "#FD971F", "Yellow" = "#E6DB74", "Red" = "#F92672", "Cyan" = "#66D9EF", "Green" = "#A6E22E", "Magenta" = "#AE81FF" ) ggsci_db_iterm$"Monokai Pro Light Sun"$"normal" <- c( "Blue" = "#D4572B", "Yellow" = "#B16803", "Red" = "#CE4770", "Cyan" = "#2473B6", "Green" = "#218871", "Magenta" = "#6851A2" ) ggsci_db_iterm$"Monokai Pro Light Sun"$"bright" <- c( "Blue" = "#D4572B", "Yellow" = "#B16803", "Red" = "#CE4770", "Cyan" = "#2473B6", "Green" = "#218871", "Magenta" = "#6851A2" ) ggsci_db_iterm$"Monokai Pro Light"$"normal" <- c( "Blue" = "#E16032", "Yellow" = "#CC7A0A", "Red" = "#E14775", "Cyan" = "#1C8CA8", "Green" = "#269D69", "Magenta" = "#7058BE" ) ggsci_db_iterm$"Monokai Pro Light"$"bright" <- c( "Blue" = "#E16032", "Yellow" = "#CC7A0A", "Red" = "#E14775", "Cyan" = "#1C8CA8", "Green" = "#269D69", "Magenta" = "#7058BE" ) ggsci_db_iterm$"Monokai Pro Machine"$"normal" <- c( "Blue" = "#FFB270", "Yellow" = "#FFED72", "Red" = "#FF6D7E", "Cyan" = "#7CD5F1", "Green" = "#A2E57B", "Magenta" = "#BAA0F8" ) ggsci_db_iterm$"Monokai Pro Machine"$"bright" <- c( "Blue" = "#FFB270", "Yellow" = "#FFED72", "Red" = "#FF6D7E", "Cyan" = "#7CD5F1", "Green" = "#A2E57B", "Magenta" = "#BAA0F8" ) ggsci_db_iterm$"Monokai Pro Octagon"$"normal" <- c( "Blue" = "#FF9B5E", "Yellow" = "#FFD76D", "Red" = "#FF657A", "Cyan" = "#9CD1BB", "Green" = "#BAD761", "Magenta" = "#C39AC9" ) ggsci_db_iterm$"Monokai Pro Octagon"$"bright" <- c( "Blue" = "#FF9B5E", "Yellow" = "#FFD76D", "Red" = "#FF657A", "Cyan" = "#9CD1BB", "Green" = "#BAD761", "Magenta" = "#C39AC9" ) ggsci_db_iterm$"Monokai Pro Ristretto"$"normal" <- c( "Blue" = "#F38D70", "Yellow" = "#F9CC6C", "Red" = "#FD6883", "Cyan" = "#85DACC", "Green" = "#ADDA78", "Magenta" = "#A8A9EB" ) ggsci_db_iterm$"Monokai Pro Ristretto"$"bright" <- c( "Blue" = "#F38D70", "Yellow" = "#F9CC6C", "Red" = "#FD6883", "Cyan" = "#85DACC", "Green" = "#ADDA78", "Magenta" = "#A8A9EB" ) ggsci_db_iterm$"Monokai Pro Spectrum"$"normal" <- c( "Blue" = "#FD9353", "Yellow" = "#FCE566", "Red" = "#FC618D", "Cyan" = "#5AD4E6", "Green" = "#7BD88F", "Magenta" = "#948AE3" ) ggsci_db_iterm$"Monokai Pro Spectrum"$"bright" <- c( "Blue" = "#FD9353", "Yellow" = "#FCE566", "Red" = "#FC618D", "Cyan" = "#5AD4E6", "Green" = "#7BD88F", "Magenta" = "#948AE3" ) ggsci_db_iterm$"Monokai Pro"$"normal" <- c( "Blue" = "#FC9867", "Yellow" = "#FFD866", "Red" = "#FF6188", "Cyan" = "#78DCE8", "Green" = "#A9DC76", "Magenta" = "#AB9DF2" ) ggsci_db_iterm$"Monokai Pro"$"bright" <- c( "Blue" = "#FC9867", "Yellow" = "#FFD866", "Red" = "#FF6188", "Cyan" = "#78DCE8", "Green" = "#A9DC76", "Magenta" = "#AB9DF2" ) ggsci_db_iterm$"Monokai Remastered"$"normal" <- c( "Blue" = "#9D65FF", "Yellow" = "#FD971F", "Red" = "#F4005F", "Cyan" = "#58D1EB", "Green" = "#98E024", "Magenta" = "#F4005F" ) ggsci_db_iterm$"Monokai Remastered"$"bright" <- c( "Blue" = "#9D65FF", "Yellow" = "#E0D561", "Red" = "#F4005F", "Cyan" = "#58D1EB", "Green" = "#98E024", "Magenta" = "#F4005F" ) ggsci_db_iterm$"Monokai Soda"$"normal" <- c( "Blue" = "#9D65FF", "Yellow" = "#FA8419", "Red" = "#F4005F", "Cyan" = "#58D1EB", "Green" = "#98E024", "Magenta" = "#F4005F" ) ggsci_db_iterm$"Monokai Soda"$"bright" <- c( "Blue" = "#9D65FF", "Yellow" = "#E0D561", "Red" = "#F4005F", "Cyan" = "#58D1EB", "Green" = "#98E024", "Magenta" = "#F4005F" ) ggsci_db_iterm$"Monokai Vivid"$"normal" <- c( "Blue" = "#0443FF", "Yellow" = "#FFF30A", "Red" = "#FA2934", "Cyan" = "#01B6ED", "Green" = "#98E123", "Magenta" = "#F800F8" ) ggsci_db_iterm$"Monokai Vivid"$"bright" <- c( "Blue" = "#0443FF", "Yellow" = "#FFF26D", "Red" = "#F6669D", "Cyan" = "#51CEFF", "Green" = "#B1E05F", "Magenta" = "#F200F6" ) ggsci_db_iterm$"Moonfly"$"normal" <- c( "Blue" = "#80A0FF", "Yellow" = "#E3C78A", "Red" = "#FF5454", "Cyan" = "#79DAC8", "Green" = "#8CC85F", "Magenta" = "#CF87E8" ) ggsci_db_iterm$"Moonfly"$"bright" <- c( "Blue" = "#74B2FF", "Yellow" = "#C6C684", "Red" = "#FF5189", "Cyan" = "#85DC85", "Green" = "#36C692", "Magenta" = "#AE81FF" ) ggsci_db_iterm$"N0Tch2K"$"normal" <- c( "Blue" = "#657D3E", "Yellow" = "#A98051", "Red" = "#A95551", "Cyan" = "#C9C9C9", "Green" = "#666666", "Magenta" = "#767676" ) ggsci_db_iterm$"N0Tch2K"$"bright" <- c( "Blue" = "#98BD5E", "Yellow" = "#A99175", "Red" = "#A97775", "Cyan" = "#DCDCDC", "Green" = "#8C8C8C", "Magenta" = "#A3A3A3" ) ggsci_db_iterm$"Neobones Dark"$"normal" <- c( "Blue" = "#8190D4", "Yellow" = "#B77E64", "Red" = "#DE6E7C", "Cyan" = "#66A5AD", "Green" = "#90FF6B", "Magenta" = "#B279A7" ) ggsci_db_iterm$"Neobones Dark"$"bright" <- c( "Blue" = "#92A0E2", "Yellow" = "#D68C67", "Red" = "#E8838F", "Cyan" = "#65B8C1", "Green" = "#A0FF85", "Magenta" = "#CF86C1" ) ggsci_db_iterm$"Neobones Light"$"normal" <- c( "Blue" = "#286486", "Yellow" = "#944927", "Red" = "#A8334C", "Cyan" = "#3B8992", "Green" = "#567A30", "Magenta" = "#88507D" ) ggsci_db_iterm$"Neobones Light"$"bright" <- c( "Blue" = "#1D5573", "Yellow" = "#803D1C", "Red" = "#94253E", "Cyan" = "#2B747C", "Green" = "#3F5A22", "Magenta" = "#7B3B70" ) ggsci_db_iterm$"Neon"$"normal" <- c( "Blue" = "#0F15D8", "Yellow" = "#FFFC7E", "Red" = "#FF3045", "Cyan" = "#00FFFC", "Green" = "#5FFA74", "Magenta" = "#F924E7" ) ggsci_db_iterm$"Neon"$"bright" <- c( "Blue" = "#3C40CB", "Yellow" = "#FFFD96", "Red" = "#FF5A5A", "Cyan" = "#88FFFE", "Green" = "#75FF88", "Magenta" = "#F15BE5" ) ggsci_db_iterm$"Neopolitan"$"normal" <- c( "Blue" = "#324883", "Yellow" = "#FBDE2D", "Red" = "#9A1A1A", "Cyan" = "#8DA6CE", "Green" = "#61CE3C", "Magenta" = "#FF0080" ) ggsci_db_iterm$"Neopolitan"$"bright" <- c( "Blue" = "#324883", "Yellow" = "#FBDE2D", "Red" = "#9A1A1A", "Cyan" = "#8DA6CE", "Green" = "#61CE3C", "Magenta" = "#FF0080" ) ggsci_db_iterm$"Neutron"$"normal" <- c( "Blue" = "#6A7C93", "Yellow" = "#DEB566", "Red" = "#B54036", "Cyan" = "#3F94A8", "Green" = "#5AB977", "Magenta" = "#A4799D" ) ggsci_db_iterm$"Neutron"$"bright" <- c( "Blue" = "#6A7C93", "Yellow" = "#DEB566", "Red" = "#B54036", "Cyan" = "#3F94A8", "Green" = "#5AB977", "Magenta" = "#A4799D" ) ggsci_db_iterm$"Night Lion V1"$"normal" <- c( "Blue" = "#276BD8", "Yellow" = "#F3F167", "Red" = "#BB0000", "Cyan" = "#00DADF", "Green" = "#5FDE8F", "Magenta" = "#BB00BB" ) ggsci_db_iterm$"Night Lion V1"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#55FFFF", "Green" = "#55FF55", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Night Lion V2"$"normal" <- c( "Blue" = "#64D0F0", "Yellow" = "#F3F167", "Red" = "#BB0000", "Cyan" = "#00DADF", "Green" = "#04F623", "Magenta" = "#CE6FDB" ) ggsci_db_iterm$"Night Lion V2"$"bright" <- c( "Blue" = "#62CBE8", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#00CCD8", "Green" = "#7DF71D", "Magenta" = "#FF9BF5" ) ggsci_db_iterm$"Night Owl"$"normal" <- c( "Blue" = "#82AAFF", "Yellow" = "#ADDB67", "Red" = "#EF5350", "Cyan" = "#21C7A8", "Green" = "#22DA6E", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Night Owl"$"bright" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFEB95", "Red" = "#EF5350", "Cyan" = "#7FDBCA", "Green" = "#22DA6E", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Night Owlish Light"$"normal" <- c( "Blue" = "#4876D6", "Yellow" = "#DAAA01", "Red" = "#D3423E", "Cyan" = "#08916A", "Green" = "#2AA298", "Magenta" = "#403F53" ) ggsci_db_iterm$"Night Owlish Light"$"bright" <- c( "Blue" = "#5CA7E4", "Yellow" = "#DAC26B", "Red" = "#F76E6E", "Cyan" = "#00C990", "Green" = "#49D0C5", "Magenta" = "#697098" ) ggsci_db_iterm$"Nightfox"$"normal" <- c( "Blue" = "#719CD6", "Yellow" = "#DBC074", "Red" = "#C94F6D", "Cyan" = "#63CDCF", "Green" = "#81B29A", "Magenta" = "#9D79D6" ) ggsci_db_iterm$"Nightfox"$"bright" <- c( "Blue" = "#86ABDC", "Yellow" = "#E0C989", "Red" = "#D16983", "Cyan" = "#7AD5D6", "Green" = "#8EBAA4", "Magenta" = "#BAA1E2" ) ggsci_db_iterm$"Niji"$"normal" <- c( "Blue" = "#2AB9FF", "Yellow" = "#FFF700", "Red" = "#D23E08", "Cyan" = "#1EF9F5", "Green" = "#54CA74", "Magenta" = "#FF50DA" ) ggsci_db_iterm$"Niji"$"bright" <- c( "Blue" = "#8EFFF3", "Yellow" = "#FCFFB8", "Red" = "#FFB7B7", "Cyan" = "#BCFFC7", "Green" = "#C1FFAE", "Magenta" = "#FFA2ED" ) ggsci_db_iterm$"No Clown Fiesta Light"$"normal" <- c( "Blue" = "#8BA1BF", "Yellow" = "#B89058", "Red" = "#874E42", "Cyan" = "#3E5F66", "Green" = "#677940", "Magenta" = "#AA759F" ) ggsci_db_iterm$"No Clown Fiesta Light"$"bright" <- c( "Blue" = "#93A2AB", "Yellow" = "#B89058", "Red" = "#637786", "Cyan" = "#99AB93", "Green" = "#677940", "Magenta" = "#AA759F" ) ggsci_db_iterm$"No Clown Fiesta"$"normal" <- c( "Blue" = "#BAD7FF", "Yellow" = "#F4BF75", "Red" = "#B46958", "Cyan" = "#88AFA2", "Green" = "#90A959", "Magenta" = "#AA759F" ) ggsci_db_iterm$"No Clown Fiesta"$"bright" <- c( "Blue" = "#BAD7FF", "Yellow" = "#F4BF75", "Red" = "#7E97AB", "Cyan" = "#88AFA2", "Green" = "#90A959", "Magenta" = "#AA759F" ) ggsci_db_iterm$"Nocturnal Winter"$"normal" <- c( "Blue" = "#3182E0", "Yellow" = "#F5F17A", "Red" = "#F12D52", "Cyan" = "#09C87A", "Green" = "#09CD7E", "Magenta" = "#FF2B6D" ) ggsci_db_iterm$"Nocturnal Winter"$"bright" <- c( "Blue" = "#6096FF", "Yellow" = "#FFFC67", "Red" = "#F16D86", "Cyan" = "#0AE78D", "Green" = "#0AE78D", "Magenta" = "#FF78A2" ) ggsci_db_iterm$"Nord Light"$"normal" <- c( "Blue" = "#81A1C1", "Yellow" = "#C5A565", "Red" = "#BF616A", "Cyan" = "#7BB3C3", "Green" = "#96B17F", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Nord Light"$"bright" <- c( "Blue" = "#81A1C1", "Yellow" = "#C5A565", "Red" = "#BF616A", "Cyan" = "#82AFAE", "Green" = "#96B17F", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Nord Wave"$"normal" <- c( "Blue" = "#81A1C1", "Yellow" = "#EBCB8B", "Red" = "#BF616A", "Cyan" = "#88C0D0", "Green" = "#A3BE8C", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Nord Wave"$"bright" <- c( "Blue" = "#81A1C1", "Yellow" = "#EBCB8B", "Red" = "#BF616A", "Cyan" = "#8FBCBB", "Green" = "#A3BE8C", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Nord"$"normal" <- c( "Blue" = "#81A1C1", "Yellow" = "#EBCB8B", "Red" = "#BF616A", "Cyan" = "#88C0D0", "Green" = "#A3BE8C", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Nord"$"bright" <- c( "Blue" = "#81A1C1", "Yellow" = "#EBCB8B", "Red" = "#BF616A", "Cyan" = "#8FBCBB", "Green" = "#A3BE8C", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Nordfox"$"normal" <- c( "Blue" = "#81A1C1", "Yellow" = "#EBCB8B", "Red" = "#BF616A", "Cyan" = "#88C0D0", "Green" = "#A3BE8C", "Magenta" = "#B48EAD" ) ggsci_db_iterm$"Nordfox"$"bright" <- c( "Blue" = "#8CAFD2", "Yellow" = "#F0D399", "Red" = "#D06F79", "Cyan" = "#93CCDC", "Green" = "#B1D196", "Magenta" = "#C895BF" ) ggsci_db_iterm$"Novel"$"normal" <- c( "Blue" = "#0000CC", "Yellow" = "#D06B00", "Red" = "#CC0000", "Cyan" = "#0087CC", "Green" = "#009600", "Magenta" = "#CC00CC" ) ggsci_db_iterm$"Novel"$"bright" <- c( "Blue" = "#0000CC", "Yellow" = "#D06B00", "Red" = "#CC0000", "Cyan" = "#0087CC", "Green" = "#009600", "Magenta" = "#CC00CC" ) ggsci_db_iterm$"novmbr"$"normal" <- c( "Blue" = "#2F7D7C", "Yellow" = "#CCA75F", "Red" = "#9F6434", "Cyan" = "#52877F", "Green" = "#9DAC5F", "Magenta" = "#B5896E" ) ggsci_db_iterm$"novmbr"$"bright" <- c( "Blue" = "#2F7D7C", "Yellow" = "#CCA75F", "Red" = "#9F6434", "Cyan" = "#52877F", "Green" = "#9DAC5F", "Magenta" = "#B5896E" ) ggsci_db_iterm$"Nvim Dark"$"normal" <- c( "Blue" = "#A6DBFF", "Yellow" = "#FCE094", "Red" = "#FFC0B9", "Cyan" = "#8CF8F7", "Green" = "#B3F6C0", "Magenta" = "#FFCAFF" ) ggsci_db_iterm$"Nvim Dark"$"bright" <- c( "Blue" = "#A6DBFF", "Yellow" = "#FCE094", "Red" = "#FFC0B9", "Cyan" = "#8CF8F7", "Green" = "#B3F6C0", "Magenta" = "#FFCAFF" ) ggsci_db_iterm$"Nvim Light"$"normal" <- c( "Blue" = "#004C73", "Yellow" = "#6B5300", "Red" = "#590008", "Cyan" = "#007373", "Green" = "#005523", "Magenta" = "#470045" ) ggsci_db_iterm$"Nvim Light"$"bright" <- c( "Blue" = "#004C73", "Yellow" = "#6B5300", "Red" = "#590008", "Cyan" = "#007373", "Green" = "#005523", "Magenta" = "#470045" ) ggsci_db_iterm$"Obsidian"$"normal" <- c( "Blue" = "#3A9BDB", "Yellow" = "#FECD22", "Red" = "#B30D0E", "Cyan" = "#00BBBB", "Green" = "#00BB00", "Magenta" = "#BB00BB" ) ggsci_db_iterm$"Obsidian"$"bright" <- c( "Blue" = "#A1D7FF", "Yellow" = "#FEF874", "Red" = "#FF0003", "Cyan" = "#55FFFF", "Green" = "#93C863", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Ocean"$"normal" <- c( "Blue" = "#0000B2", "Yellow" = "#999900", "Red" = "#E64C4C", "Cyan" = "#00A6B2", "Green" = "#00A600", "Magenta" = "#D826D8" ) ggsci_db_iterm$"Ocean"$"bright" <- c( "Blue" = "#7373FF", "Yellow" = "#E5E500", "Red" = "#FF1A1A", "Cyan" = "#00E5E5", "Green" = "#00D900", "Magenta" = "#E500E5" ) ggsci_db_iterm$"Oceanic Material"$"normal" <- c( "Blue" = "#1E80F0", "Yellow" = "#FFEA2E", "Red" = "#EE2B2A", "Cyan" = "#16AFCA", "Green" = "#40A33F", "Magenta" = "#8800A0" ) ggsci_db_iterm$"Oceanic Material"$"bright" <- c( "Blue" = "#54A4F3", "Yellow" = "#FFF163", "Red" = "#DC5C60", "Cyan" = "#42C7DA", "Green" = "#70BE71", "Magenta" = "#AA4DBC" ) ggsci_db_iterm$"Oceanic Next"$"normal" <- c( "Blue" = "#6699CC", "Yellow" = "#FAC863", "Red" = "#EC5F67", "Cyan" = "#5FB3B3", "Green" = "#99C794", "Magenta" = "#C594C5" ) ggsci_db_iterm$"Oceanic Next"$"bright" <- c( "Blue" = "#6699CC", "Yellow" = "#FAC863", "Red" = "#EC5F67", "Cyan" = "#5FB3B3", "Green" = "#99C794", "Magenta" = "#C594C5" ) ggsci_db_iterm$"Ollie"$"normal" <- c( "Blue" = "#2D57AC", "Yellow" = "#AC4300", "Red" = "#AC2E31", "Cyan" = "#1FA6AC", "Green" = "#31AC61", "Magenta" = "#B08528" ) ggsci_db_iterm$"Ollie"$"bright" <- c( "Blue" = "#4488FF", "Yellow" = "#FF5E1E", "Red" = "#FF3D48", "Cyan" = "#1FFAFF", "Green" = "#3BFF99", "Magenta" = "#FFC21D" ) ggsci_db_iterm$"One Dark Two"$"normal" <- c( "Blue" = "#71B9F4", "Yellow" = "#EAC786", "Red" = "#E27881", "Cyan" = "#62BAC6", "Green" = "#98C379", "Magenta" = "#C88BDA" ) ggsci_db_iterm$"One Dark Two"$"bright" <- c( "Blue" = "#8DC7F6", "Yellow" = "#EDCF97", "Red" = "#E68991", "Cyan" = "#78C4CE", "Green" = "#A8CC8E", "Magenta" = "#D3A2E2" ) ggsci_db_iterm$"One Double Dark"$"normal" <- c( "Blue" = "#3FB1F5", "Yellow" = "#ECBE70", "Red" = "#F16372", "Cyan" = "#17B9C4", "Green" = "#8CC570", "Magenta" = "#D373E3" ) ggsci_db_iterm$"One Double Dark"$"bright" <- c( "Blue" = "#6DCAFF", "Yellow" = "#F5C065", "Red" = "#FF777B", "Cyan" = "#00E5FB", "Green" = "#82D882", "Magenta" = "#FF7BF4" ) ggsci_db_iterm$"One Double Light"$"normal" <- c( "Blue" = "#0087C1", "Yellow" = "#CC8100", "Red" = "#F74840", "Cyan" = "#009AB7", "Green" = "#25A343", "Magenta" = "#B50DA9" ) ggsci_db_iterm$"One Double Light"$"bright" <- c( "Blue" = "#1065DE", "Yellow" = "#EC9900", "Red" = "#FF3711", "Cyan" = "#00B4DD", "Green" = "#00B90E", "Magenta" = "#E500D8" ) ggsci_db_iterm$"One Half Dark"$"normal" <- c( "Blue" = "#61AFEF", "Yellow" = "#E5C07B", "Red" = "#E06C75", "Cyan" = "#56B6C2", "Green" = "#98C379", "Magenta" = "#C678DD" ) ggsci_db_iterm$"One Half Dark"$"bright" <- c( "Blue" = "#61AFEF", "Yellow" = "#E5C07B", "Red" = "#E06C75", "Cyan" = "#56B6C2", "Green" = "#98C379", "Magenta" = "#C678DD" ) ggsci_db_iterm$"One Half Light"$"normal" <- c( "Blue" = "#0184BC", "Yellow" = "#C18401", "Red" = "#E45649", "Cyan" = "#0997B3", "Green" = "#50A14F", "Magenta" = "#A626A4" ) ggsci_db_iterm$"One Half Light"$"bright" <- c( "Blue" = "#61AFEF", "Yellow" = "#D8B36E", "Red" = "#E06C75", "Cyan" = "#56B6C2", "Green" = "#98C379", "Magenta" = "#C678DD" ) ggsci_db_iterm$"Operator Mono Dark"$"normal" <- c( "Blue" = "#4387CF", "Yellow" = "#D4D697", "Red" = "#CA372D", "Cyan" = "#72D5C6", "Green" = "#4D7B3A", "Magenta" = "#B86CB4" ) ggsci_db_iterm$"Operator Mono Dark"$"bright" <- c( "Blue" = "#89D3F6", "Yellow" = "#FDFDC5", "Red" = "#C37D62", "Cyan" = "#82EADA", "Green" = "#83D0A2", "Magenta" = "#FF2C7A" ) ggsci_db_iterm$"Overnight Slumber"$"normal" <- c( "Blue" = "#8DABE1", "Yellow" = "#FFCB8B", "Red" = "#FFA7C4", "Cyan" = "#78CCF0", "Green" = "#85CC95", "Magenta" = "#C792EB" ) ggsci_db_iterm$"Overnight Slumber"$"bright" <- c( "Blue" = "#8DABE1", "Yellow" = "#FFCB8B", "Red" = "#FFA7C4", "Cyan" = "#FFA7C4", "Green" = "#85CC95", "Magenta" = "#C792EB" ) ggsci_db_iterm$"owl"$"normal" <- c( "Blue" = "#656565", "Yellow" = "#CACACA", "Red" = "#5A5A5A", "Cyan" = "#7F7F7F", "Green" = "#989898", "Magenta" = "#B1B1B1" ) ggsci_db_iterm$"owl"$"bright" <- c( "Blue" = "#656565", "Yellow" = "#CACACA", "Red" = "#DA5B2C", "Cyan" = "#7F7F7F", "Green" = "#989898", "Magenta" = "#B1B1B1" ) ggsci_db_iterm$"Oxocarbon"$"normal" <- c( "Blue" = "#00C15A", "Yellow" = "#FF4297", "Red" = "#00DFDB", "Cyan" = "#FF74B8", "Green" = "#00B4FF", "Magenta" = "#C693FF" ) ggsci_db_iterm$"Oxocarbon"$"bright" <- c( "Blue" = "#00C15A", "Yellow" = "#FF4297", "Red" = "#00DFDB", "Cyan" = "#FF74B8", "Green" = "#00B4FF", "Magenta" = "#C693FF" ) ggsci_db_iterm$"Pale Night Hc"$"normal" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFCB6B", "Red" = "#F07178", "Cyan" = "#89DDFF", "Green" = "#C3E88D", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Pale Night Hc"$"bright" <- c( "Blue" = "#B4CCFF", "Yellow" = "#FFDFA6", "Red" = "#F6A9AE", "Cyan" = "#B8EAFF", "Green" = "#DBF1BA", "Magenta" = "#DDBDF2" ) ggsci_db_iterm$"Pandora"$"normal" <- c( "Blue" = "#338F86", "Yellow" = "#FFAD29", "Red" = "#FF4242", "Cyan" = "#23D7D7", "Green" = "#74AF68", "Magenta" = "#9414E6" ) ggsci_db_iterm$"Pandora"$"bright" <- c( "Blue" = "#23D7D7", "Yellow" = "#FFB929", "Red" = "#FF3242", "Cyan" = "#00EDE1", "Green" = "#74CD68", "Magenta" = "#FF37FF" ) ggsci_db_iterm$"Paraiso Dark"$"normal" <- c( "Blue" = "#06B6EF", "Yellow" = "#FEC418", "Red" = "#EF6155", "Cyan" = "#5BC4BF", "Green" = "#48B685", "Magenta" = "#815BA4" ) ggsci_db_iterm$"Paraiso Dark"$"bright" <- c( "Blue" = "#06B6EF", "Yellow" = "#FEC418", "Red" = "#EF6155", "Cyan" = "#5BC4BF", "Green" = "#48B685", "Magenta" = "#815BA4" ) ggsci_db_iterm$"Paul Millr"$"normal" <- c( "Blue" = "#396BD7", "Yellow" = "#E7BF00", "Red" = "#FF0000", "Cyan" = "#66CCFF", "Green" = "#79FF0F", "Magenta" = "#B449BE" ) ggsci_db_iterm$"Paul Millr"$"bright" <- c( "Blue" = "#709AED", "Yellow" = "#F3D64E", "Red" = "#FF0080", "Cyan" = "#7ADFF2", "Green" = "#66FF66", "Magenta" = "#DB67E6" ) ggsci_db_iterm$"Pencil Dark"$"normal" <- c( "Blue" = "#008EC4", "Yellow" = "#A89C14", "Red" = "#C30771", "Cyan" = "#20A5BA", "Green" = "#10A778", "Magenta" = "#5F4986" ) ggsci_db_iterm$"Pencil Dark"$"bright" <- c( "Blue" = "#20BBFC", "Yellow" = "#F3E430", "Red" = "#FB007A", "Cyan" = "#4FB8CC", "Green" = "#5FD7AF", "Magenta" = "#6855DE" ) ggsci_db_iterm$"Pencil Light"$"normal" <- c( "Blue" = "#008EC4", "Yellow" = "#A89C14", "Red" = "#C30771", "Cyan" = "#20A5BA", "Green" = "#10A778", "Magenta" = "#523C79" ) ggsci_db_iterm$"Pencil Light"$"bright" <- c( "Blue" = "#20BBFC", "Yellow" = "#C0B100", "Red" = "#FB007A", "Cyan" = "#4FB8CC", "Green" = "#52CAA2", "Magenta" = "#6855DE" ) ggsci_db_iterm$"Peppermint"$"normal" <- c( "Blue" = "#449FD0", "Yellow" = "#DAB853", "Red" = "#E74669", "Cyan" = "#65AAAF", "Green" = "#89D287", "Magenta" = "#DA62DC" ) ggsci_db_iterm$"Peppermint"$"bright" <- c( "Blue" = "#6FBCE2", "Yellow" = "#E1E487", "Red" = "#E4859B", "Cyan" = "#96DCDB", "Green" = "#A3CCA2", "Magenta" = "#E586E7" ) ggsci_db_iterm$"Phala Green Dark"$"normal" <- c( "Blue" = "#0223C0", "Yellow" = "#A9A700", "Red" = "#AB1500", "Cyan" = "#00B4C0", "Green" = "#00B100", "Magenta" = "#C22EC0" ) ggsci_db_iterm$"Phala Green Dark"$"bright" <- c( "Blue" = "#0433FF", "Yellow" = "#EAE700", "Red" = "#ED2200", "Cyan" = "#00E8EA", "Green" = "#00DB00", "Magenta" = "#ED3AEA" ) ggsci_db_iterm$"Piatto Light"$"normal" <- c( "Blue" = "#3C5EA8", "Yellow" = "#CD6F34", "Red" = "#B23771", "Cyan" = "#66781E", "Green" = "#66781E", "Magenta" = "#A454B2" ) ggsci_db_iterm$"Piatto Light"$"bright" <- c( "Blue" = "#3C5EA8", "Yellow" = "#CD6F34", "Red" = "#DB3365", "Cyan" = "#829429", "Green" = "#829429", "Magenta" = "#A454B2" ) ggsci_db_iterm$"Pnevma"$"normal" <- c( "Blue" = "#7FA5BD", "Yellow" = "#D7AF87", "Red" = "#A36666", "Cyan" = "#8ADBB4", "Green" = "#90A57D", "Magenta" = "#C79EC4" ) ggsci_db_iterm$"Pnevma"$"bright" <- c( "Blue" = "#A1BDCE", "Yellow" = "#E4C9AF", "Red" = "#D78787", "Cyan" = "#B1E7DD", "Green" = "#AFBEA2", "Magenta" = "#D7BEDA" ) ggsci_db_iterm$"Poimandres Darker"$"normal" <- c( "Blue" = "#89DDFF", "Yellow" = "#FFFAC2", "Red" = "#D0679D", "Cyan" = "#ADD7FF", "Green" = "#5DE4C7", "Magenta" = "#FCC5E9" ) ggsci_db_iterm$"Poimandres Darker"$"bright" <- c( "Blue" = "#ADD7FF", "Yellow" = "#FFFAC2", "Red" = "#D0679D", "Cyan" = "#89DDFF", "Green" = "#5DE4C7", "Magenta" = "#FAE4FC" ) ggsci_db_iterm$"Poimandres Storm"$"normal" <- c( "Blue" = "#89DDFF", "Yellow" = "#FFFAC2", "Red" = "#D0679D", "Cyan" = "#89DDFF", "Green" = "#5DE4C7", "Magenta" = "#F087BD" ) ggsci_db_iterm$"Poimandres Storm"$"bright" <- c( "Blue" = "#ADD7FF", "Yellow" = "#FFFAC2", "Red" = "#D0679D", "Cyan" = "#ADD7FF", "Green" = "#5DE4C7", "Magenta" = "#F087BD" ) ggsci_db_iterm$"Poimandres White"$"normal" <- c( "Blue" = "#8ABACD", "Yellow" = "#E5BA4E", "Red" = "#FF2090", "Cyan" = "#8ABACD", "Green" = "#01DAB2", "Magenta" = "#EB8394" ) ggsci_db_iterm$"Poimandres White"$"bright" <- c( "Blue" = "#0EBFFF", "Yellow" = "#E5BA4E", "Red" = "#FF2090", "Cyan" = "#0EBFFF", "Green" = "#01DAB2", "Magenta" = "#EB8394" ) ggsci_db_iterm$"Poimandres"$"normal" <- c( "Blue" = "#89DDFF", "Yellow" = "#FFFAC2", "Red" = "#D0679D", "Cyan" = "#ADD7FF", "Green" = "#5DE4C7", "Magenta" = "#FCC5E9" ) ggsci_db_iterm$"Poimandres"$"bright" <- c( "Blue" = "#ADD7FF", "Yellow" = "#FFFAC2", "Red" = "#D0679D", "Cyan" = "#89DDFF", "Green" = "#5DE4C7", "Magenta" = "#FAE4FC" ) ggsci_db_iterm$"Popping And Locking"$"normal" <- c( "Blue" = "#458588", "Yellow" = "#D79921", "Red" = "#CC241D", "Cyan" = "#689D6A", "Green" = "#98971A", "Magenta" = "#B16286" ) ggsci_db_iterm$"Popping And Locking"$"bright" <- c( "Blue" = "#99C6CA", "Yellow" = "#FABD2F", "Red" = "#F42C3E", "Cyan" = "#7EC16E", "Green" = "#B8BB26", "Magenta" = "#D3869B" ) ggsci_db_iterm$"Powershell"$"normal" <- c( "Blue" = "#4140C3", "Yellow" = "#C4A000", "Red" = "#981A22", "Cyan" = "#0E807F", "Green" = "#098003", "Magenta" = "#D33682" ) ggsci_db_iterm$"Powershell"$"bright" <- c( "Blue" = "#268AD2", "Yellow" = "#FEFE45", "Red" = "#EF2929", "Cyan" = "#29FFFE", "Green" = "#1CFE3C", "Magenta" = "#FE13FA" ) ggsci_db_iterm$"Primary"$"normal" <- c( "Blue" = "#4285F4", "Yellow" = "#F4B400", "Red" = "#DB4437", "Cyan" = "#4285F4", "Green" = "#0F9D58", "Magenta" = "#DB4437" ) ggsci_db_iterm$"Primary"$"bright" <- c( "Blue" = "#4285F4", "Yellow" = "#F4B400", "Red" = "#DB4437", "Cyan" = "#0F9D58", "Green" = "#0F9D58", "Magenta" = "#4285F4" ) ggsci_db_iterm$"Pro Light"$"normal" <- c( "Blue" = "#3B75FF", "Yellow" = "#C6C440", "Red" = "#E5492B", "Cyan" = "#4ED2DE", "Green" = "#50D148", "Magenta" = "#ED66E8" ) ggsci_db_iterm$"Pro Light"$"bright" <- c( "Blue" = "#0082FF", "Yellow" = "#BFBE23", "Red" = "#FF6640", "Cyan" = "#3BD1D2", "Green" = "#48D53E", "Magenta" = "#FF7EFF" ) ggsci_db_iterm$"Pro"$"normal" <- c( "Blue" = "#2009DB", "Yellow" = "#999900", "Red" = "#990000", "Cyan" = "#00A6B2", "Green" = "#00A600", "Magenta" = "#B200B2" ) ggsci_db_iterm$"Pro"$"bright" <- c( "Blue" = "#0000FF", "Yellow" = "#E5E500", "Red" = "#E50000", "Cyan" = "#00E5E5", "Green" = "#00D900", "Magenta" = "#E500E5" ) ggsci_db_iterm$"Purple Rain"$"normal" <- c( "Blue" = "#00A2FA", "Yellow" = "#FFC400", "Red" = "#FF260E", "Cyan" = "#00DEEF", "Green" = "#9BE205", "Magenta" = "#815BB5" ) ggsci_db_iterm$"Purple Rain"$"bright" <- c( "Blue" = "#00A6FF", "Yellow" = "#FFD852", "Red" = "#FF4250", "Cyan" = "#74FDF3", "Green" = "#B8E36E", "Magenta" = "#AC7BF0" ) ggsci_db_iterm$"Purplepeter"$"normal" <- c( "Blue" = "#66D9EF", "Yellow" = "#EFDFAC", "Red" = "#FF796D", "Cyan" = "#BA8CFF", "Green" = "#99B481", "Magenta" = "#E78FCD" ) ggsci_db_iterm$"Purplepeter"$"bright" <- c( "Blue" = "#79DAED", "Yellow" = "#F2E9BF", "Red" = "#F99F92", "Cyan" = "#A0A0D6", "Green" = "#B4BE8F", "Magenta" = "#BA91D4" ) ggsci_db_iterm$"Rapture"$"normal" <- c( "Blue" = "#6C9BF5", "Yellow" = "#FFF09B", "Red" = "#FC644D", "Cyan" = "#64E0FF", "Green" = "#7AFDE1", "Magenta" = "#FF4FA1" ) ggsci_db_iterm$"Rapture"$"bright" <- c( "Blue" = "#6C9BF5", "Yellow" = "#FFF09B", "Red" = "#FC644D", "Cyan" = "#64E0FF", "Green" = "#7AFDE1", "Magenta" = "#FF4FA1" ) ggsci_db_iterm$"Raycast Dark"$"normal" <- c( "Blue" = "#56C2FF", "Yellow" = "#FFC531", "Red" = "#FF5360", "Cyan" = "#52EEE5", "Green" = "#59D499", "Magenta" = "#CF2F98" ) ggsci_db_iterm$"Raycast Dark"$"bright" <- c( "Blue" = "#56C2FF", "Yellow" = "#FFC531", "Red" = "#FF6363", "Cyan" = "#52EEE5", "Green" = "#59D499", "Magenta" = "#CF2F98" ) ggsci_db_iterm$"Raycast Light"$"normal" <- c( "Blue" = "#138AF2", "Yellow" = "#F8A300", "Red" = "#B12424", "Cyan" = "#3EB8BF", "Green" = "#006B4F", "Magenta" = "#9A1B6E" ) ggsci_db_iterm$"Raycast Light"$"bright" <- c( "Blue" = "#138AF2", "Yellow" = "#F8A300", "Red" = "#B12424", "Cyan" = "#3EB8BF", "Green" = "#006B4F", "Magenta" = "#9A1B6E" ) ggsci_db_iterm$"Rebecca"$"normal" <- c( "Blue" = "#7AA5FF", "Yellow" = "#F2E7B7", "Red" = "#DD7755", "Cyan" = "#56D3C2", "Green" = "#04DBB5", "Magenta" = "#BF9CF9" ) ggsci_db_iterm$"Rebecca"$"bright" <- c( "Blue" = "#69C0FA", "Yellow" = "#FFFCA8", "Red" = "#FF92CD", "Cyan" = "#8BFDE1", "Green" = "#01EAC0", "Magenta" = "#C17FF8" ) ggsci_db_iterm$"Red Alert"$"normal" <- c( "Blue" = "#489BEE", "Yellow" = "#BEB86B", "Red" = "#D62E4E", "Cyan" = "#6BBEB8", "Green" = "#71BE6B", "Magenta" = "#E979D7" ) ggsci_db_iterm$"Red Alert"$"bright" <- c( "Blue" = "#65AAF1", "Yellow" = "#DFDDB7", "Red" = "#E02553", "Cyan" = "#B7DFDD", "Green" = "#AFF08C", "Magenta" = "#DDB7DF" ) ggsci_db_iterm$"Red Planet"$"normal" <- c( "Blue" = "#69819E", "Yellow" = "#E8BF6A", "Red" = "#8C3432", "Cyan" = "#5B8390", "Green" = "#728271", "Magenta" = "#896492" ) ggsci_db_iterm$"Red Planet"$"bright" <- c( "Blue" = "#60827E", "Yellow" = "#EBEB91", "Red" = "#B55242", "Cyan" = "#38ADD8", "Green" = "#869985", "Magenta" = "#DE4974" ) ggsci_db_iterm$"Red Sands"$"normal" <- c( "Blue" = "#0072FF", "Yellow" = "#E7B000", "Red" = "#FF3F00", "Cyan" = "#00BBBB", "Green" = "#00BB00", "Magenta" = "#BB00BB" ) ggsci_db_iterm$"Red Sands"$"bright" <- c( "Blue" = "#0072AE", "Yellow" = "#E7B000", "Red" = "#D41A1A", "Cyan" = "#55FFFF", "Green" = "#00BB00", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Relaxed"$"normal" <- c( "Blue" = "#6A8799", "Yellow" = "#EBC17A", "Red" = "#BC5653", "Cyan" = "#C9DFFF", "Green" = "#909D63", "Magenta" = "#B06698" ) ggsci_db_iterm$"Relaxed"$"bright" <- c( "Blue" = "#7EAAC7", "Yellow" = "#EBC17A", "Red" = "#BC5653", "Cyan" = "#ACBBD0", "Green" = "#A0AC77", "Magenta" = "#B06698" ) ggsci_db_iterm$"Retro Legends"$"normal" <- c( "Blue" = "#4066F2", "Yellow" = "#F7BF2B", "Red" = "#DE5454", "Cyan" = "#40D9E6", "Green" = "#45EB45", "Magenta" = "#BF4CF2" ) ggsci_db_iterm$"Retro Legends"$"bright" <- c( "Blue" = "#4C80FF", "Yellow" = "#FFD933", "Red" = "#FF6666", "Cyan" = "#59E6FF", "Green" = "#59FF59", "Magenta" = "#E666FF" ) ggsci_db_iterm$"Retro"$"normal" <- c( "Blue" = "#13A10E", "Yellow" = "#13A10E", "Red" = "#13A10E", "Cyan" = "#13A10E", "Green" = "#13A10E", "Magenta" = "#13A10E" ) ggsci_db_iterm$"Retro"$"bright" <- c( "Blue" = "#16BA10", "Yellow" = "#16BA10", "Red" = "#16BA10", "Cyan" = "#16BA10", "Green" = "#16BA10", "Magenta" = "#16BA10" ) ggsci_db_iterm$"Rippedcasts"$"normal" <- c( "Blue" = "#75A5B0", "Yellow" = "#BFBB1F", "Red" = "#CDAF95", "Cyan" = "#5A647E", "Green" = "#A8FF60", "Magenta" = "#FF73FD" ) ggsci_db_iterm$"Rippedcasts"$"bright" <- c( "Blue" = "#86BDC9", "Yellow" = "#E5E500", "Red" = "#EECBAD", "Cyan" = "#8C9BC4", "Green" = "#BCEE68", "Magenta" = "#E500E5" ) ggsci_db_iterm$"Rose Pine Dawn"$"normal" <- c( "Blue" = "#56949F", "Yellow" = "#EA9D34", "Red" = "#B4637A", "Cyan" = "#D7827E", "Green" = "#286983", "Magenta" = "#907AA9" ) ggsci_db_iterm$"Rose Pine Dawn"$"bright" <- c( "Blue" = "#56949F", "Yellow" = "#EA9D34", "Red" = "#B4637A", "Cyan" = "#D7827E", "Green" = "#286983", "Magenta" = "#907AA9" ) ggsci_db_iterm$"Rose Pine Moon"$"normal" <- c( "Blue" = "#9CCFD8", "Yellow" = "#F6C177", "Red" = "#EB6F92", "Cyan" = "#EA9A97", "Green" = "#3E8FB0", "Magenta" = "#C4A7E7" ) ggsci_db_iterm$"Rose Pine Moon"$"bright" <- c( "Blue" = "#9CCFD8", "Yellow" = "#F6C177", "Red" = "#EB6F92", "Cyan" = "#EA9A97", "Green" = "#3E8FB0", "Magenta" = "#C4A7E7" ) ggsci_db_iterm$"Rose Pine"$"normal" <- c( "Blue" = "#9CCFD8", "Yellow" = "#F6C177", "Red" = "#EB6F92", "Cyan" = "#EBBCBA", "Green" = "#31748F", "Magenta" = "#C4A7E7" ) ggsci_db_iterm$"Rose Pine"$"bright" <- c( "Blue" = "#9CCFD8", "Yellow" = "#F6C177", "Red" = "#EB6F92", "Cyan" = "#EBBCBA", "Green" = "#31748F", "Magenta" = "#C4A7E7" ) ggsci_db_iterm$"Rouge 2"$"normal" <- c( "Blue" = "#6E94B9", "Yellow" = "#DBCDAB", "Red" = "#C6797E", "Cyan" = "#8AB6C1", "Green" = "#969E92", "Magenta" = "#4C4E78" ) ggsci_db_iterm$"Rouge 2"$"bright" <- c( "Blue" = "#98B3CD", "Yellow" = "#E6DCC4", "Red" = "#C6797E", "Cyan" = "#ABCBD3", "Green" = "#E6DCC4", "Magenta" = "#8283A1" ) ggsci_db_iterm$"Royal"$"normal" <- c( "Blue" = "#6580B0", "Yellow" = "#B49D27", "Red" = "#91284C", "Cyan" = "#8AAABE", "Green" = "#23801C", "Magenta" = "#674D96" ) ggsci_db_iterm$"Royal"$"bright" <- c( "Blue" = "#90BAF9", "Yellow" = "#FDE83B", "Red" = "#D5356C", "Cyan" = "#ACD4EB", "Green" = "#2CD946", "Magenta" = "#A479E3" ) ggsci_db_iterm$"Ryuuko"$"normal" <- c( "Blue" = "#6A8E95", "Yellow" = "#B1A990", "Red" = "#865F5B", "Cyan" = "#88B2AC", "Green" = "#66907D", "Magenta" = "#B18A73" ) ggsci_db_iterm$"Ryuuko"$"bright" <- c( "Blue" = "#6A8E95", "Yellow" = "#B1A990", "Red" = "#865F5B", "Cyan" = "#88B2AC", "Green" = "#66907D", "Magenta" = "#B18A73" ) ggsci_db_iterm$"Sakura"$"normal" <- c( "Blue" = "#6964AB", "Yellow" = "#BC7053", "Red" = "#D52370", "Cyan" = "#939393", "Green" = "#41AF1A", "Magenta" = "#C71FBF" ) ggsci_db_iterm$"Sakura"$"bright" <- c( "Blue" = "#9892F1", "Yellow" = "#F59574", "Red" = "#F41D99", "Cyan" = "#EEEEEE", "Green" = "#22E529", "Magenta" = "#E90CDD" ) ggsci_db_iterm$"Scarlet Protocol"$"normal" <- c( "Blue" = "#0271B6", "Yellow" = "#FAF945", "Red" = "#FF0051", "Cyan" = "#00C5C7", "Green" = "#00DC84", "Magenta" = "#CA30C7" ) ggsci_db_iterm$"Scarlet Protocol"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#FFFC67", "Red" = "#FF6E67", "Cyan" = "#60FDFF", "Green" = "#5FFA68", "Magenta" = "#BD35EC" ) ggsci_db_iterm$"Sea Shells"$"normal" <- c( "Blue" = "#1E4950", "Yellow" = "#FCA02F", "Red" = "#D15123", "Cyan" = "#50A3B5", "Green" = "#027C9B", "Magenta" = "#68D4F1" ) ggsci_db_iterm$"Sea Shells"$"bright" <- c( "Blue" = "#1BBCDD", "Yellow" = "#FDD39F", "Red" = "#D48678", "Cyan" = "#87ACB4", "Green" = "#628D98", "Magenta" = "#BBE3EE" ) ggsci_db_iterm$"Seafoam Pastel"$"normal" <- c( "Blue" = "#4D7B82", "Yellow" = "#ADA16D", "Red" = "#825D4D", "Cyan" = "#729494", "Green" = "#728C62", "Magenta" = "#8A7267" ) ggsci_db_iterm$"Seafoam Pastel"$"bright" <- c( "Blue" = "#7AC3CF", "Yellow" = "#FAE79D", "Red" = "#CF937A", "Cyan" = "#ADE0E0", "Green" = "#98D9AA", "Magenta" = "#D6B2A1" ) ggsci_db_iterm$"Selenized Black"$"normal" <- c( "Blue" = "#368AEB", "Yellow" = "#DBB32D", "Red" = "#ED4A46", "Cyan" = "#3FC5B7", "Green" = "#70B433", "Magenta" = "#EB6EB7" ) ggsci_db_iterm$"Selenized Black"$"bright" <- c( "Blue" = "#4F9CFE", "Yellow" = "#EFC541", "Red" = "#FF5E56", "Cyan" = "#56D8C9", "Green" = "#83C746", "Magenta" = "#FF81CA" ) ggsci_db_iterm$"Selenized Dark"$"normal" <- c( "Blue" = "#4695F7", "Yellow" = "#DBB32D", "Red" = "#FA5750", "Cyan" = "#41C7B9", "Green" = "#75B938", "Magenta" = "#F275BE" ) ggsci_db_iterm$"Selenized Dark"$"bright" <- c( "Blue" = "#58A3FF", "Yellow" = "#EBC13D", "Red" = "#FF665C", "Cyan" = "#53D6C7", "Green" = "#84C747", "Magenta" = "#FF84CD" ) ggsci_db_iterm$"Selenized Light"$"normal" <- c( "Blue" = "#0072D4", "Yellow" = "#AD8900", "Red" = "#D2212D", "Cyan" = "#009C8F", "Green" = "#489100", "Magenta" = "#CA4898" ) ggsci_db_iterm$"Selenized Light"$"bright" <- c( "Blue" = "#006DCE", "Yellow" = "#A78300", "Red" = "#CC1729", "Cyan" = "#00978A", "Green" = "#428B00", "Magenta" = "#C44392" ) ggsci_db_iterm$"Seoulbones Dark"$"normal" <- c( "Blue" = "#97BDDE", "Yellow" = "#FFDF9B", "Red" = "#E388A3", "Cyan" = "#6FBDBE", "Green" = "#98BD99", "Magenta" = "#A5A6C5" ) ggsci_db_iterm$"Seoulbones Dark"$"bright" <- c( "Blue" = "#A2C8E9", "Yellow" = "#FFE5B3", "Red" = "#EB99B1", "Cyan" = "#6BCACB", "Green" = "#8FCD92", "Magenta" = "#B2B3DA" ) ggsci_db_iterm$"Seoulbones Light"$"normal" <- c( "Blue" = "#0084A3", "Yellow" = "#C48562", "Red" = "#DC5284", "Cyan" = "#008586", "Green" = "#628562", "Magenta" = "#896788" ) ggsci_db_iterm$"Seoulbones Light"$"bright" <- c( "Blue" = "#006F89", "Yellow" = "#A76B48", "Red" = "#BE3C6D", "Cyan" = "#006F70", "Green" = "#487249", "Magenta" = "#7F4C7E" ) ggsci_db_iterm$"Seti"$"normal" <- c( "Blue" = "#43A5D5", "Yellow" = "#E0C64F", "Red" = "#C22832", "Cyan" = "#8EC43D", "Green" = "#8EC43D", "Magenta" = "#8B57B5" ) ggsci_db_iterm$"Seti"$"bright" <- c( "Blue" = "#43A5D5", "Yellow" = "#E0C64F", "Red" = "#C22832", "Cyan" = "#8EC43D", "Green" = "#8EC43D", "Magenta" = "#8B57B5" ) ggsci_db_iterm$"Shades Of Purple"$"normal" <- c( "Blue" = "#6943FF", "Yellow" = "#FFE700", "Red" = "#D90429", "Cyan" = "#00C5C7", "Green" = "#3AD900", "Magenta" = "#FF2C70" ) ggsci_db_iterm$"Shades Of Purple"$"bright" <- c( "Blue" = "#6871FF", "Yellow" = "#F1D000", "Red" = "#F92A1C", "Cyan" = "#79E8FB", "Green" = "#43D426", "Magenta" = "#FF77FF" ) ggsci_db_iterm$"Shaman"$"normal" <- c( "Blue" = "#449A86", "Yellow" = "#5E8BAA", "Red" = "#B2302D", "Cyan" = "#5D7E19", "Green" = "#00A941", "Magenta" = "#00599D" ) ggsci_db_iterm$"Shaman"$"bright" <- c( "Blue" = "#61D5BA", "Yellow" = "#8ED4FD", "Red" = "#FF4242", "Cyan" = "#98D028", "Green" = "#2AEA5E", "Magenta" = "#1298FF" ) ggsci_db_iterm$"Slate"$"normal" <- c( "Blue" = "#335856", "Yellow" = "#C4C9C0", "Red" = "#E2A8BF", "Cyan" = "#15AB9C", "Green" = "#81D778", "Magenta" = "#A481D3" ) ggsci_db_iterm$"Slate"$"bright" <- c( "Blue" = "#7AB0D2", "Yellow" = "#D0CCCA", "Red" = "#FFCDD9", "Cyan" = "#8CDFE0", "Green" = "#BEFFA8", "Magenta" = "#C5A7D9" ) ggsci_db_iterm$"Sleepy Hollow"$"normal" <- c( "Blue" = "#5F63B4", "Yellow" = "#B55600", "Red" = "#BA3934", "Cyan" = "#8FAEA9", "Green" = "#91773F", "Magenta" = "#A17C7B" ) ggsci_db_iterm$"Sleepy Hollow"$"bright" <- c( "Blue" = "#8086EF", "Yellow" = "#F66813", "Red" = "#D9443F", "Cyan" = "#A4DCE7", "Green" = "#D6B04E", "Magenta" = "#E2C2BB" ) ggsci_db_iterm$"Smyck"$"normal" <- c( "Blue" = "#62A3C4", "Yellow" = "#C4A500", "Red" = "#B84131", "Cyan" = "#207383", "Green" = "#7DA900", "Magenta" = "#BA8ACC" ) ggsci_db_iterm$"Smyck"$"bright" <- c( "Blue" = "#8DCFF0", "Yellow" = "#FEE14D", "Red" = "#D6837C", "Cyan" = "#6AD9CF", "Green" = "#C4F137", "Magenta" = "#F79AFF" ) ggsci_db_iterm$"Snazzy Soft"$"normal" <- c( "Blue" = "#57C7FF", "Yellow" = "#F3F99D", "Red" = "#FF5C57", "Cyan" = "#9AEDFE", "Green" = "#5AF78E", "Magenta" = "#FF6AC1" ) ggsci_db_iterm$"Snazzy Soft"$"bright" <- c( "Blue" = "#57C7FF", "Yellow" = "#F3F99D", "Red" = "#FF5C57", "Cyan" = "#9AEDFE", "Green" = "#5AF78E", "Magenta" = "#FF6AC1" ) ggsci_db_iterm$"Snazzy"$"normal" <- c( "Blue" = "#49BAFF", "Yellow" = "#F0FB8C", "Red" = "#FC4346", "Cyan" = "#8BE9FE", "Green" = "#50FB7C", "Magenta" = "#FC4CB4" ) ggsci_db_iterm$"Snazzy"$"bright" <- c( "Blue" = "#49BAFF", "Yellow" = "#F0FB8C", "Red" = "#FC4346", "Cyan" = "#8BE9FE", "Green" = "#50FB7C", "Magenta" = "#FC4CB4" ) ggsci_db_iterm$"Soft Server"$"normal" <- c( "Blue" = "#6B8FA3", "Yellow" = "#A3906A", "Red" = "#A2686A", "Cyan" = "#6BA58F", "Green" = "#9AA56A", "Magenta" = "#6A71A3" ) ggsci_db_iterm$"Soft Server"$"bright" <- c( "Blue" = "#62B1DF", "Yellow" = "#DEB360", "Red" = "#DD5C60", "Cyan" = "#64E39C", "Green" = "#BFDF55", "Magenta" = "#606EDF" ) ggsci_db_iterm$"Solarized Darcula"$"normal" <- c( "Blue" = "#2075C7", "Yellow" = "#B68800", "Red" = "#F24840", "Cyan" = "#15968D", "Green" = "#629655", "Magenta" = "#797FD4" ) ggsci_db_iterm$"Solarized Darcula"$"bright" <- c( "Blue" = "#2075C7", "Yellow" = "#B68800", "Red" = "#F24840", "Cyan" = "#15968D", "Green" = "#629655", "Magenta" = "#797FD4" ) ggsci_db_iterm$"Solarized Dark Higher Contrast"$"normal" <- c( "Blue" = "#2176C7", "Yellow" = "#A57706", "Red" = "#D11C24", "Cyan" = "#259286", "Green" = "#6CBE6C", "Magenta" = "#C61C6F" ) ggsci_db_iterm$"Solarized Dark Higher Contrast"$"bright" <- c( "Blue" = "#178EC8", "Yellow" = "#B27E28", "Red" = "#F5163B", "Cyan" = "#00B39E", "Green" = "#51EF84", "Magenta" = "#E24D8E" ) ggsci_db_iterm$"Solarized Dark Patched"$"normal" <- c( "Blue" = "#2176C7", "Yellow" = "#A57706", "Red" = "#D11C24", "Cyan" = "#259286", "Green" = "#738A05", "Magenta" = "#C61C6F" ) ggsci_db_iterm$"Solarized Dark Patched"$"bright" <- c( "Blue" = "#708284", "Yellow" = "#536870", "Red" = "#BD3613", "Cyan" = "#819090", "Green" = "#475B62", "Magenta" = "#5956BA" ) ggsci_db_iterm$"Solarized Osaka Night"$"normal" <- c( "Blue" = "#7AA2F7", "Yellow" = "#E0AF68", "Red" = "#F7768E", "Cyan" = "#7DCFFF", "Green" = "#9ECE6A", "Magenta" = "#BB9AF7" ) ggsci_db_iterm$"Solarized Osaka Night"$"bright" <- c( "Blue" = "#7AA2F7", "Yellow" = "#E0AF68", "Red" = "#F7768E", "Cyan" = "#7DCFFF", "Green" = "#9ECE6A", "Magenta" = "#BB9AF7" ) ggsci_db_iterm$"Sonokai"$"normal" <- c( "Blue" = "#76CCE0", "Yellow" = "#E7C664", "Red" = "#FC5D7C", "Cyan" = "#F39660", "Green" = "#9ED072", "Magenta" = "#B39DF3" ) ggsci_db_iterm$"Sonokai"$"bright" <- c( "Blue" = "#76CCE0", "Yellow" = "#E7C664", "Red" = "#FC5D7C", "Cyan" = "#F39660", "Green" = "#9ED072", "Magenta" = "#B39DF3" ) ggsci_db_iterm$"Spacedust"$"normal" <- c( "Blue" = "#0F548B", "Yellow" = "#E3CD7B", "Red" = "#E35B00", "Cyan" = "#06AFC7", "Green" = "#5CAB96", "Magenta" = "#E35B00" ) ggsci_db_iterm$"Spacedust"$"bright" <- c( "Blue" = "#67A0CE", "Yellow" = "#FFC878", "Red" = "#FF8A3A", "Cyan" = "#83A7B4", "Green" = "#AECAB8", "Magenta" = "#FF8A3A" ) ggsci_db_iterm$"Spacegray Bright"$"normal" <- c( "Blue" = "#7BAEC1", "Yellow" = "#F6C987", "Red" = "#BC5553", "Cyan" = "#85C9B8", "Green" = "#A0B56C", "Magenta" = "#B98AAE" ) ggsci_db_iterm$"Spacegray Bright"$"bright" <- c( "Blue" = "#7BAEC1", "Yellow" = "#F6C987", "Red" = "#BC5553", "Cyan" = "#85C9B8", "Green" = "#A0B56C", "Magenta" = "#B98AAE" ) ggsci_db_iterm$"Spacegray Eighties Dull"$"normal" <- c( "Blue" = "#7C8FA5", "Yellow" = "#C6735A", "Red" = "#B24A56", "Cyan" = "#80CDCB", "Green" = "#92B477", "Magenta" = "#A5789E" ) ggsci_db_iterm$"Spacegray Eighties Dull"$"bright" <- c( "Blue" = "#5486C0", "Yellow" = "#FEC254", "Red" = "#EC5F67", "Cyan" = "#58C2C1", "Green" = "#89E986", "Magenta" = "#BF83C1" ) ggsci_db_iterm$"Spacegray Eighties"$"normal" <- c( "Blue" = "#5486C0", "Yellow" = "#FEC254", "Red" = "#EC5F67", "Cyan" = "#57C2C1", "Green" = "#81A764", "Magenta" = "#BF83C1" ) ggsci_db_iterm$"Spacegray Eighties"$"bright" <- c( "Blue" = "#4D84D1", "Yellow" = "#FFD256", "Red" = "#FF6973", "Cyan" = "#83E9E4", "Green" = "#93D493", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Spacegray"$"normal" <- c( "Blue" = "#7D8FA4", "Yellow" = "#E5C179", "Red" = "#B04B57", "Cyan" = "#85A7A5", "Green" = "#87B379", "Magenta" = "#A47996" ) ggsci_db_iterm$"Spacegray"$"bright" <- c( "Blue" = "#7D8FA4", "Yellow" = "#E5C179", "Red" = "#B04B57", "Cyan" = "#85A7A5", "Green" = "#87B379", "Magenta" = "#A47996" ) ggsci_db_iterm$"Spiderman"$"normal" <- c( "Blue" = "#2C3FFF", "Yellow" = "#E24756", "Red" = "#E60813", "Cyan" = "#3256FF", "Green" = "#E22928", "Magenta" = "#2435DB" ) ggsci_db_iterm$"Spiderman"$"bright" <- c( "Blue" = "#1D50FF", "Yellow" = "#FE3A35", "Red" = "#FF0325", "Cyan" = "#6184FF", "Green" = "#FF3338", "Magenta" = "#747CFF" ) ggsci_db_iterm$"Spring"$"normal" <- c( "Blue" = "#1DD3EE", "Yellow" = "#1FC95B", "Red" = "#FF4D83", "Cyan" = "#3E999F", "Green" = "#1F8C3B", "Magenta" = "#8959A8" ) ggsci_db_iterm$"Spring"$"bright" <- c( "Blue" = "#15A9FD", "Yellow" = "#D5B807", "Red" = "#FF0021", "Cyan" = "#3E999F", "Green" = "#1FC231", "Magenta" = "#8959A8" ) ggsci_db_iterm$"Square"$"normal" <- c( "Blue" = "#A9CDEB", "Yellow" = "#ECEBBE", "Red" = "#E9897C", "Cyan" = "#C9CAEC", "Green" = "#B6377D", "Magenta" = "#75507B" ) ggsci_db_iterm$"Square"$"bright" <- c( "Blue" = "#B6DEFB", "Yellow" = "#FCFBCC", "Red" = "#F99286", "Cyan" = "#D7D9FC", "Green" = "#C3F786", "Magenta" = "#AD7FA8" ) ggsci_db_iterm$"Squirrelsong Dark"$"normal" <- c( "Blue" = "#4395C6", "Yellow" = "#D4B139", "Red" = "#BA4138", "Cyan" = "#2F9794", "Green" = "#468336", "Magenta" = "#855FB8" ) ggsci_db_iterm$"Squirrelsong Dark"$"bright" <- c( "Blue" = "#4CA4DB", "Yellow" = "#E8C23F", "Red" = "#DF4D43", "Cyan" = "#60ACA9", "Green" = "#659A4C", "Magenta" = "#9D70DA" ) ggsci_db_iterm$"Srcery"$"normal" <- c( "Blue" = "#2C78BF", "Yellow" = "#FBB829", "Red" = "#EF2F27", "Cyan" = "#0AAEB3", "Green" = "#519F50", "Magenta" = "#E02C6D" ) ggsci_db_iterm$"Srcery"$"bright" <- c( "Blue" = "#68A8E4", "Yellow" = "#FED06E", "Red" = "#F75341", "Cyan" = "#2BE4D0", "Green" = "#98BC37", "Magenta" = "#FF5C8F" ) ggsci_db_iterm$"Starlight"$"normal" <- c( "Blue" = "#24ACD4", "Yellow" = "#E3C401", "Red" = "#F62B5A", "Cyan" = "#13C299", "Green" = "#47B413", "Magenta" = "#F2AFFD" ) ggsci_db_iterm$"Starlight"$"bright" <- c( "Blue" = "#5DC5F8", "Yellow" = "#E9E836", "Red" = "#FF4D51", "Cyan" = "#24DFC4", "Green" = "#35D450", "Magenta" = "#FEABF2" ) ggsci_db_iterm$"Sublette"$"normal" <- c( "Blue" = "#5588FF", "Yellow" = "#FFDD88", "Red" = "#EE5577", "Cyan" = "#44EEEE", "Green" = "#55EE77", "Magenta" = "#FF77CC" ) ggsci_db_iterm$"Sublette"$"bright" <- c( "Blue" = "#77BBFF", "Yellow" = "#FFFF77", "Red" = "#EE6655", "Cyan" = "#55FFBB", "Green" = "#99EE77", "Magenta" = "#AA88FF" ) ggsci_db_iterm$"Subliminal"$"normal" <- c( "Blue" = "#6699CC", "Yellow" = "#FFE2A9", "Red" = "#E15A60", "Cyan" = "#5FB3B3", "Green" = "#A9CFA4", "Magenta" = "#F1A5AB" ) ggsci_db_iterm$"Subliminal"$"bright" <- c( "Blue" = "#6699CC", "Yellow" = "#FFE2A9", "Red" = "#E15A60", "Cyan" = "#5FB3B3", "Green" = "#A9CFA4", "Magenta" = "#F1A5AB" ) ggsci_db_iterm$"Sugarplum"$"normal" <- c( "Blue" = "#DB7DDD", "Yellow" = "#249A84", "Red" = "#5CA8DC", "Cyan" = "#F9F3F9", "Green" = "#53B397", "Magenta" = "#D0BEEE" ) ggsci_db_iterm$"Sugarplum"$"bright" <- c( "Blue" = "#FA5DFD", "Yellow" = "#01F5C7", "Red" = "#5CB5DC", "Cyan" = "#FFFFFF", "Green" = "#52DEB5", "Magenta" = "#C6A5FD" ) ggsci_db_iterm$"Sundried"$"normal" <- c( "Blue" = "#485B98", "Yellow" = "#9D602A", "Red" = "#A7463D", "Cyan" = "#9C814F", "Green" = "#587744", "Magenta" = "#864651" ) ggsci_db_iterm$"Sundried"$"bright" <- c( "Blue" = "#7999F7", "Yellow" = "#FC6A21", "Red" = "#AA000C", "Cyan" = "#FAD484", "Green" = "#128C21", "Magenta" = "#FD8AA1" ) ggsci_db_iterm$"Symfonic"$"normal" <- c( "Blue" = "#0084D4", "Yellow" = "#FF8400", "Red" = "#DC322F", "Cyan" = "#CCCCFF", "Green" = "#56DB3A", "Magenta" = "#B729D9" ) ggsci_db_iterm$"Symfonic"$"bright" <- c( "Blue" = "#0084D4", "Yellow" = "#FF8400", "Red" = "#DC322F", "Cyan" = "#CCCCFF", "Green" = "#56DB3A", "Magenta" = "#B729D9" ) ggsci_db_iterm$"Synthwave Alpha"$"normal" <- c( "Blue" = "#6E29AD", "Yellow" = "#ADAD3E", "Red" = "#E60A70", "Cyan" = "#00B0B1", "Green" = "#00986C", "Magenta" = "#B300AD" ) ggsci_db_iterm$"Synthwave Alpha"$"bright" <- c( "Blue" = "#AA54F9", "Yellow" = "#F9F972", "Red" = "#E60A70", "Cyan" = "#00FBFD", "Green" = "#0AE4A4", "Magenta" = "#FF00F6" ) ggsci_db_iterm$"Synthwave Everything"$"normal" <- c( "Blue" = "#6D77B3", "Yellow" = "#FEDE5D", "Red" = "#F97E72", "Cyan" = "#F772E0", "Green" = "#72F1B8", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Synthwave Everything"$"bright" <- c( "Blue" = "#36F9F6", "Yellow" = "#FFF951", "Red" = "#F88414", "Cyan" = "#F92AAD", "Green" = "#72F1B8", "Magenta" = "#E1ACFF" ) ggsci_db_iterm$"Synthwave"$"normal" <- c( "Blue" = "#2186EC", "Yellow" = "#FDF834", "Red" = "#F6188F", "Cyan" = "#12C3E2", "Green" = "#1EBB2B", "Magenta" = "#F85A21" ) ggsci_db_iterm$"Synthwave"$"bright" <- c( "Blue" = "#2F9DED", "Yellow" = "#FDF454", "Red" = "#F841A0", "Cyan" = "#19CDE6", "Green" = "#25C141", "Magenta" = "#F97137" ) ggsci_db_iterm$"Tango Adapted"$"normal" <- c( "Blue" = "#00A2FF", "Yellow" = "#E3BE00", "Red" = "#FF0000", "Cyan" = "#00D0D6", "Green" = "#59D600", "Magenta" = "#C17ECC" ) ggsci_db_iterm$"Tango Adapted"$"bright" <- c( "Blue" = "#88C9FF", "Yellow" = "#CCBE00", "Red" = "#FF0013", "Cyan" = "#00D8D9", "Green" = "#6DD900", "Magenta" = "#E9A7E1" ) ggsci_db_iterm$"Tango Half Adapted"$"normal" <- c( "Blue" = "#008EF6", "Yellow" = "#E2C000", "Red" = "#FF0000", "Cyan" = "#00BDC3", "Green" = "#4CC300", "Magenta" = "#A96CB3" ) ggsci_db_iterm$"Tango Half Adapted"$"bright" <- c( "Blue" = "#76BFFF", "Yellow" = "#D9C600", "Red" = "#FF0013", "Cyan" = "#00D0D4", "Green" = "#70DC00", "Magenta" = "#D898D1" ) ggsci_db_iterm$"Tearout"$"normal" <- c( "Blue" = "#B5955E", "Yellow" = "#6C9861", "Red" = "#CC967B", "Cyan" = "#D7C483", "Green" = "#97976D", "Magenta" = "#C9A554" ) ggsci_db_iterm$"Tearout"$"bright" <- c( "Blue" = "#B5955E", "Yellow" = "#6C9861", "Red" = "#CC967B", "Cyan" = "#D7C483", "Green" = "#97976D", "Magenta" = "#C9A554" ) ggsci_db_iterm$"Teerb"$"normal" <- c( "Blue" = "#86AED6", "Yellow" = "#D7AF87", "Red" = "#D68686", "Cyan" = "#8ADBB4", "Green" = "#AED686", "Magenta" = "#D6AED6" ) ggsci_db_iterm$"Teerb"$"bright" <- c( "Blue" = "#86AED6", "Yellow" = "#E4C9AF", "Red" = "#D68686", "Cyan" = "#B1E7DD", "Green" = "#AED686", "Magenta" = "#D6AED6" ) ggsci_db_iterm$"Terafox"$"normal" <- c( "Blue" = "#5A93AA", "Yellow" = "#FDA47F", "Red" = "#E85C51", "Cyan" = "#A1CDD8", "Green" = "#7AA4A1", "Magenta" = "#AD5C7C" ) ggsci_db_iterm$"Terafox"$"bright" <- c( "Blue" = "#73A3B7", "Yellow" = "#FDB292", "Red" = "#EB746B", "Cyan" = "#AFD4DE", "Green" = "#8EB2AF", "Magenta" = "#B97490" ) ggsci_db_iterm$"Terminal Basic Dark"$"normal" <- c( "Blue" = "#6444ED", "Yellow" = "#B8B74A", "Red" = "#C65339", "Cyan" = "#69C1CF", "Green" = "#6AC44B", "Magenta" = "#D357DB" ) ggsci_db_iterm$"Terminal Basic Dark"$"bright" <- c( "Blue" = "#D09AF9", "Yellow" = "#EFEF53", "Red" = "#EB5A3A", "Cyan" = "#78F1F2", "Green" = "#77EA51", "Magenta" = "#EB5AF7" ) ggsci_db_iterm$"Terminal Basic"$"normal" <- c( "Blue" = "#0000B2", "Yellow" = "#999900", "Red" = "#990000", "Cyan" = "#00A6B2", "Green" = "#00A600", "Magenta" = "#B200B2" ) ggsci_db_iterm$"Terminal Basic"$"bright" <- c( "Blue" = "#0000FF", "Yellow" = "#BFBF00", "Red" = "#E50000", "Cyan" = "#00D8D8", "Green" = "#00D900", "Magenta" = "#E500E5" ) ggsci_db_iterm$"Thayer Bright"$"normal" <- c( "Blue" = "#2757D6", "Yellow" = "#F4FD22", "Red" = "#F92672", "Cyan" = "#38C8B5", "Green" = "#4DF840", "Magenta" = "#8C54FE" ) ggsci_db_iterm$"Thayer Bright"$"bright" <- c( "Blue" = "#3F78FF", "Yellow" = "#FEED6C", "Red" = "#FF5995", "Cyan" = "#23CFD5", "Green" = "#B6E354", "Magenta" = "#9E6FFE" ) ggsci_db_iterm$"The Hulk"$"normal" <- c( "Blue" = "#2525F5", "Yellow" = "#63E457", "Red" = "#269D1B", "Cyan" = "#378CA9", "Green" = "#13CE30", "Magenta" = "#712C81" ) ggsci_db_iterm$"The Hulk"$"bright" <- c( "Blue" = "#506B95", "Yellow" = "#3AFE16", "Red" = "#8DFF2A", "Cyan" = "#4085A6", "Green" = "#48FF77", "Magenta" = "#72589D" ) ggsci_db_iterm$"Tinacious Design Dark"$"normal" <- c( "Blue" = "#00CBFF", "Yellow" = "#FFCC66", "Red" = "#FF3399", "Cyan" = "#00CECA", "Green" = "#00D364", "Magenta" = "#CC66FF" ) ggsci_db_iterm$"Tinacious Design Dark"$"bright" <- c( "Blue" = "#00CBFF", "Yellow" = "#FFD479", "Red" = "#FF2F92", "Cyan" = "#00D5D4", "Green" = "#00D364", "Magenta" = "#D783FF" ) ggsci_db_iterm$"Tinacious Design Light"$"normal" <- c( "Blue" = "#00CBFF", "Yellow" = "#E5B24D", "Red" = "#FF3399", "Cyan" = "#00CECA", "Green" = "#00D364", "Magenta" = "#CC66FF" ) ggsci_db_iterm$"Tinacious Design Light"$"bright" <- c( "Blue" = "#00CBFF", "Yellow" = "#D9AE53", "Red" = "#FF2F92", "Cyan" = "#00C8C7", "Green" = "#00D364", "Magenta" = "#D783FF" ) ggsci_db_iterm$"TokyoNight Day"$"normal" <- c( "Blue" = "#2E7DE9", "Yellow" = "#8C6C3E", "Red" = "#F52A65", "Cyan" = "#007197", "Green" = "#587539", "Magenta" = "#9854F1" ) ggsci_db_iterm$"TokyoNight Day"$"bright" <- c( "Blue" = "#2E7DE9", "Yellow" = "#8C6C3E", "Red" = "#F52A65", "Cyan" = "#007197", "Green" = "#587539", "Magenta" = "#9854F1" ) ggsci_db_iterm$"TokyoNight Moon"$"normal" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFC777", "Red" = "#FF757F", "Cyan" = "#86E1FC", "Green" = "#C3E88D", "Magenta" = "#C099FF" ) ggsci_db_iterm$"TokyoNight Moon"$"bright" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFC777", "Red" = "#FF757F", "Cyan" = "#86E1FC", "Green" = "#C3E88D", "Magenta" = "#C099FF" ) ggsci_db_iterm$"TokyoNight Night"$"normal" <- c( "Blue" = "#7AA2F7", "Yellow" = "#E0AF68", "Red" = "#F7768E", "Cyan" = "#7DCFFF", "Green" = "#9ECE6A", "Magenta" = "#BB9AF7" ) ggsci_db_iterm$"TokyoNight Night"$"bright" <- c( "Blue" = "#7AA2F7", "Yellow" = "#E0AF68", "Red" = "#F7768E", "Cyan" = "#7DCFFF", "Green" = "#9ECE6A", "Magenta" = "#BB9AF7" ) ggsci_db_iterm$"TokyoNight Storm"$"normal" <- c( "Blue" = "#7AA2F7", "Yellow" = "#E0AF68", "Red" = "#F7768E", "Cyan" = "#7DCFFF", "Green" = "#9ECE6A", "Magenta" = "#BB9AF7" ) ggsci_db_iterm$"TokyoNight Storm"$"bright" <- c( "Blue" = "#7AA2F7", "Yellow" = "#E0AF68", "Red" = "#F7768E", "Cyan" = "#7DCFFF", "Green" = "#9ECE6A", "Magenta" = "#BB9AF7" ) ggsci_db_iterm$"TokyoNight"$"normal" <- c( "Blue" = "#7AA2F7", "Yellow" = "#E0AF68", "Red" = "#F7768E", "Cyan" = "#7DCFFF", "Green" = "#9ECE6A", "Magenta" = "#BB9AF7" ) ggsci_db_iterm$"TokyoNight"$"bright" <- c( "Blue" = "#7AA2F7", "Yellow" = "#E0AF68", "Red" = "#F7768E", "Cyan" = "#7DCFFF", "Green" = "#9ECE6A", "Magenta" = "#BB9AF7" ) ggsci_db_iterm$"Tomorrow Night Blue"$"normal" <- c( "Blue" = "#BBDAFF", "Yellow" = "#FFEEAD", "Red" = "#FF9DA4", "Cyan" = "#99FFFF", "Green" = "#D1F1A9", "Magenta" = "#EBBBFF" ) ggsci_db_iterm$"Tomorrow Night Blue"$"bright" <- c( "Blue" = "#BBDAFF", "Yellow" = "#FFEEAD", "Red" = "#FF9DA4", "Cyan" = "#99FFFF", "Green" = "#D1F1A9", "Magenta" = "#EBBBFF" ) ggsci_db_iterm$"Tomorrow Night Bright"$"normal" <- c( "Blue" = "#7AA6DA", "Yellow" = "#E7C547", "Red" = "#D54E53", "Cyan" = "#70C0B1", "Green" = "#B9CA4A", "Magenta" = "#C397D8" ) ggsci_db_iterm$"Tomorrow Night Bright"$"bright" <- c( "Blue" = "#7AA6DA", "Yellow" = "#E7C547", "Red" = "#D54E53", "Cyan" = "#70C0B1", "Green" = "#B9CA4A", "Magenta" = "#C397D8" ) ggsci_db_iterm$"Tomorrow Night Burns"$"normal" <- c( "Blue" = "#FC595F", "Yellow" = "#D3494E", "Red" = "#832E31", "Cyan" = "#BA8586", "Green" = "#A63C40", "Magenta" = "#DF9395" ) ggsci_db_iterm$"Tomorrow Night Burns"$"bright" <- c( "Blue" = "#FC595F", "Yellow" = "#D2494E", "Red" = "#832E31", "Cyan" = "#BA8586", "Green" = "#A63C40", "Magenta" = "#DF9395" ) ggsci_db_iterm$"Tomorrow Night Eighties"$"normal" <- c( "Blue" = "#6699CC", "Yellow" = "#FFCC66", "Red" = "#F2777A", "Cyan" = "#66CCCC", "Green" = "#99CC99", "Magenta" = "#CC99CC" ) ggsci_db_iterm$"Tomorrow Night Eighties"$"bright" <- c( "Blue" = "#6699CC", "Yellow" = "#FFCC66", "Red" = "#F2777A", "Cyan" = "#66CCCC", "Green" = "#99CC99", "Magenta" = "#CC99CC" ) ggsci_db_iterm$"Tomorrow Night"$"normal" <- c( "Blue" = "#81A2BE", "Yellow" = "#F0C674", "Red" = "#CC6666", "Cyan" = "#8ABEB7", "Green" = "#B5BD68", "Magenta" = "#B294BB" ) ggsci_db_iterm$"Tomorrow Night"$"bright" <- c( "Blue" = "#81A2BE", "Yellow" = "#F0C674", "Red" = "#CC6666", "Cyan" = "#8ABEB7", "Green" = "#B5BD68", "Magenta" = "#B294BB" ) ggsci_db_iterm$"Tomorrow"$"normal" <- c( "Blue" = "#4271AE", "Yellow" = "#EAB700", "Red" = "#C82829", "Cyan" = "#3E999F", "Green" = "#718C00", "Magenta" = "#8959A8" ) ggsci_db_iterm$"Tomorrow"$"bright" <- c( "Blue" = "#4271AE", "Yellow" = "#EAB700", "Red" = "#C82829", "Cyan" = "#3E999F", "Green" = "#718C00", "Magenta" = "#8959A8" ) ggsci_db_iterm$"Toy Chest"$"normal" <- c( "Blue" = "#325D96", "Yellow" = "#DB8E27", "Red" = "#BE2D26", "Cyan" = "#35A08F", "Green" = "#1A9172", "Magenta" = "#8A5EDC" ) ggsci_db_iterm$"Toy Chest"$"bright" <- c( "Blue" = "#34A6DA", "Yellow" = "#E7D84B", "Red" = "#DD5944", "Cyan" = "#42C3AE", "Green" = "#31D07B", "Magenta" = "#AE6BDC" ) ggsci_db_iterm$"traffic"$"normal" <- c( "Blue" = "#515E67", "Yellow" = "#C79E84", "Red" = "#934E46", "Cyan" = "#5C6F7D", "Green" = "#637268", "Magenta" = "#715F5E" ) ggsci_db_iterm$"traffic"$"bright" <- c( "Blue" = "#515E67", "Yellow" = "#C79E84", "Red" = "#934E46", "Cyan" = "#5C6F7D", "Green" = "#637270", "Magenta" = "#715F5E" ) ggsci_db_iterm$"Treehouse"$"normal" <- c( "Blue" = "#58859A", "Yellow" = "#AA820C", "Red" = "#B2270E", "Cyan" = "#B25A1E", "Green" = "#44A900", "Magenta" = "#97363D" ) ggsci_db_iterm$"Treehouse"$"bright" <- c( "Blue" = "#85CFED", "Yellow" = "#F2B732", "Red" = "#ED5D20", "Cyan" = "#F07D14", "Green" = "#55F238", "Magenta" = "#E14C5A" ) ggsci_db_iterm$"Twilight"$"normal" <- c( "Blue" = "#44474A", "Yellow" = "#C2A86C", "Red" = "#C06D44", "Cyan" = "#778385", "Green" = "#AFB97A", "Magenta" = "#B4BE7C" ) ggsci_db_iterm$"Twilight"$"bright" <- c( "Blue" = "#5A5E62", "Yellow" = "#E2C47E", "Red" = "#DE7C4C", "Cyan" = "#8A989B", "Green" = "#CCD88C", "Magenta" = "#D0DC8E" ) ggsci_db_iterm$"Ubuntu"$"normal" <- c( "Blue" = "#3465A4", "Yellow" = "#C4A000", "Red" = "#CC0000", "Cyan" = "#06989A", "Green" = "#4E9A06", "Magenta" = "#75507B" ) ggsci_db_iterm$"Ubuntu"$"bright" <- c( "Blue" = "#729FCF", "Yellow" = "#FCE94F", "Red" = "#EF2929", "Cyan" = "#34E2E2", "Green" = "#8AE234", "Magenta" = "#AD7FA8" ) ggsci_db_iterm$"Ultra Dark"$"normal" <- c( "Blue" = "#82AAFF", "Yellow" = "#FFCB6B", "Red" = "#F07178", "Cyan" = "#89DDFF", "Green" = "#C3E88D", "Magenta" = "#C792EA" ) ggsci_db_iterm$"Ultra Dark"$"bright" <- c( "Blue" = "#B4CCFF", "Yellow" = "#FFDFA6", "Red" = "#F6A9AE", "Cyan" = "#B8EAFF", "Green" = "#DBF1BA", "Magenta" = "#DDBDF2" ) ggsci_db_iterm$"Ultra Violent"$"normal" <- c( "Blue" = "#47E0FB", "Yellow" = "#FFF727", "Red" = "#FF0090", "Cyan" = "#0EFFBB", "Green" = "#B6FF00", "Magenta" = "#D731FF" ) ggsci_db_iterm$"Ultra Violent"$"bright" <- c( "Blue" = "#7FECFF", "Yellow" = "#EBE087", "Red" = "#FB58B4", "Cyan" = "#69FCD3", "Green" = "#DEFF8C", "Magenta" = "#E681FF" ) ggsci_db_iterm$"Under The Sea"$"normal" <- c( "Blue" = "#459A86", "Yellow" = "#59819C", "Red" = "#B2302D", "Cyan" = "#5D7E19", "Green" = "#00A941", "Magenta" = "#00599D" ) ggsci_db_iterm$"Under The Sea"$"bright" <- c( "Blue" = "#61D5BA", "Yellow" = "#8ED4FD", "Red" = "#FF4242", "Cyan" = "#98D028", "Green" = "#2AEA5E", "Magenta" = "#1298FF" ) ggsci_db_iterm$"Unikitty"$"normal" <- c( "Blue" = "#145FCD", "Yellow" = "#FFF964", "Red" = "#A80F20", "Cyan" = "#9EFFEF", "Green" = "#C7FF98", "Magenta" = "#FFE9FF" ) ggsci_db_iterm$"Unikitty"$"bright" <- c( "Blue" = "#0075EA", "Yellow" = "#FFEF50", "Red" = "#D91329", "Cyan" = "#93FFEF", "Green" = "#D3FFAF", "Magenta" = "#FFEFFF" ) ggsci_db_iterm$"urban"$"normal" <- c( "Blue" = "#615772", "Yellow" = "#AE835A", "Red" = "#87404F", "Cyan" = "#625464", "Green" = "#74934E", "Magenta" = "#854B64" ) ggsci_db_iterm$"urban"$"bright" <- c( "Blue" = "#615772", "Yellow" = "#AE835A", "Red" = "#87404F", "Cyan" = "#625464", "Green" = "#74934E", "Magenta" = "#854B64" ) ggsci_db_iterm$"Urple"$"normal" <- c( "Blue" = "#564D9B", "Yellow" = "#AD5C42", "Red" = "#B0425B", "Cyan" = "#808080", "Green" = "#37A415", "Magenta" = "#6C3CA1" ) ggsci_db_iterm$"Urple"$"bright" <- c( "Blue" = "#867AED", "Yellow" = "#F08161", "Red" = "#FF6388", "Cyan" = "#EAEAEA", "Green" = "#29E620", "Magenta" = "#A05EEE" ) ggsci_db_iterm$"Vague"$"normal" <- c( "Blue" = "#6E94B2", "Yellow" = "#F3BE7C", "Red" = "#D8647E", "Cyan" = "#AEAED1", "Green" = "#7FA563", "Magenta" = "#BB9DBD" ) ggsci_db_iterm$"Vague"$"bright" <- c( "Blue" = "#8BA9C1", "Yellow" = "#F5CB96", "Red" = "#E08398", "Cyan" = "#BEBEDA", "Green" = "#99B782", "Magenta" = "#C9B1CA" ) ggsci_db_iterm$"Vaughn"$"normal" <- c( "Blue" = "#5555FF", "Yellow" = "#DFAF8F", "Red" = "#705050", "Cyan" = "#8CD0D3", "Green" = "#60B48A", "Magenta" = "#F08CC3" ) ggsci_db_iterm$"Vaughn"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#F0DFAF", "Red" = "#DCA3A3", "Cyan" = "#93E0E3", "Green" = "#60B48A", "Magenta" = "#EC93D3" ) ggsci_db_iterm$"Vercel"$"normal" <- c( "Blue" = "#006AFF", "Yellow" = "#FFAE00", "Red" = "#FC0036", "Cyan" = "#00AC96", "Green" = "#29A948", "Magenta" = "#F32882" ) ggsci_db_iterm$"Vercel"$"bright" <- c( "Blue" = "#49AEFF", "Yellow" = "#FFAE00", "Red" = "#FF8080", "Cyan" = "#00E4C4", "Green" = "#4BE15D", "Magenta" = "#F97EA8" ) ggsci_db_iterm$"Vesper"$"normal" <- c( "Blue" = "#ACA1CF", "Yellow" = "#E6B99D", "Red" = "#F5A191", "Cyan" = "#EA83A5", "Green" = "#90B99F", "Magenta" = "#E29ECA" ) ggsci_db_iterm$"Vesper"$"bright" <- c( "Blue" = "#B9AEDA", "Yellow" = "#FFC799", "Red" = "#FF8080", "Cyan" = "#F591B2", "Green" = "#99FFE4", "Magenta" = "#ECAAD6" ) ggsci_db_iterm$"Vibrant Ink"$"normal" <- c( "Blue" = "#44B4CC", "Yellow" = "#FFCC00", "Red" = "#FF6600", "Cyan" = "#44B4CC", "Green" = "#CCFF04", "Magenta" = "#9933CC" ) ggsci_db_iterm$"Vibrant Ink"$"bright" <- c( "Blue" = "#0000FF", "Yellow" = "#FFFF00", "Red" = "#FF0000", "Cyan" = "#00FFFF", "Green" = "#00FF00", "Magenta" = "#FF00FF" ) ggsci_db_iterm$"Vimbones"$"normal" <- c( "Blue" = "#286486", "Yellow" = "#944927", "Red" = "#A8334C", "Cyan" = "#3B8992", "Green" = "#4F6C31", "Magenta" = "#88507D" ) ggsci_db_iterm$"Vimbones"$"bright" <- c( "Blue" = "#1D5573", "Yellow" = "#803D1C", "Red" = "#94253E", "Cyan" = "#2B747C", "Green" = "#3F5A22", "Magenta" = "#7B3B70" ) ggsci_db_iterm$"Violet Dark"$"normal" <- c( "Blue" = "#2E8BCE", "Yellow" = "#B4881D", "Red" = "#C94C22", "Cyan" = "#32A198", "Green" = "#85981C", "Magenta" = "#D13A82" ) ggsci_db_iterm$"Violet Dark"$"bright" <- c( "Blue" = "#2176C7", "Yellow" = "#A57705", "Red" = "#BD3613", "Cyan" = "#259286", "Green" = "#738A04", "Magenta" = "#C61C6F" ) ggsci_db_iterm$"Violet Light"$"normal" <- c( "Blue" = "#2E8BCE", "Yellow" = "#B4881D", "Red" = "#C94C22", "Cyan" = "#32A198", "Green" = "#85981C", "Magenta" = "#D13A82" ) ggsci_db_iterm$"Violet Light"$"bright" <- c( "Blue" = "#2176C7", "Yellow" = "#A57705", "Red" = "#BD3613", "Cyan" = "#259286", "Green" = "#738A04", "Magenta" = "#C61C6F" ) ggsci_db_iterm$"Violite"$"normal" <- c( "Blue" = "#A979EC", "Yellow" = "#ECE279", "Red" = "#EC7979", "Cyan" = "#79ECEC", "Green" = "#79ECB3", "Magenta" = "#EC79EC" ) ggsci_db_iterm$"Violite"$"bright" <- c( "Blue" = "#B78FEF", "Yellow" = "#EFE78F", "Red" = "#EF8F8F", "Cyan" = "#9FEFEF", "Green" = "#9FEFBF", "Magenta" = "#EF8FCF" ) ggsci_db_iterm$"Warm Neon"$"normal" <- c( "Blue" = "#4261C5", "Yellow" = "#DAE145", "Red" = "#E24346", "Cyan" = "#2ABBD4", "Green" = "#39B13A", "Magenta" = "#F920FB" ) ggsci_db_iterm$"Warm Neon"$"bright" <- c( "Blue" = "#7B91D6", "Yellow" = "#DDDA7A", "Red" = "#E97071", "Cyan" = "#5ED1E5", "Green" = "#9CC090", "Magenta" = "#F674BA" ) ggsci_db_iterm$"Wez"$"normal" <- c( "Blue" = "#5555CC", "Yellow" = "#CDCD55", "Red" = "#CC5555", "Cyan" = "#7ACACA", "Green" = "#55CC55", "Magenta" = "#CC55CC" ) ggsci_db_iterm$"Wez"$"bright" <- c( "Blue" = "#5555FF", "Yellow" = "#FFFF55", "Red" = "#FF5555", "Cyan" = "#55FFFF", "Green" = "#55FF55", "Magenta" = "#FF55FF" ) ggsci_db_iterm$"Whimsy"$"normal" <- c( "Blue" = "#65AEF7", "Yellow" = "#FDD877", "Red" = "#EF6487", "Cyan" = "#43C1BE", "Green" = "#5ECA89", "Magenta" = "#AA7FF0" ) ggsci_db_iterm$"Whimsy"$"bright" <- c( "Blue" = "#65AEF7", "Yellow" = "#FDD877", "Red" = "#EF6487", "Cyan" = "#43C1BE", "Green" = "#5ECA89", "Magenta" = "#AA7FF0" ) ggsci_db_iterm$"Wild Cherry"$"normal" <- c( "Blue" = "#883CDC", "Yellow" = "#FFD16F", "Red" = "#D94085", "Cyan" = "#C1B8B7", "Green" = "#2AB250", "Magenta" = "#ECECEC" ) ggsci_db_iterm$"Wild Cherry"$"bright" <- c( "Blue" = "#308CBA", "Yellow" = "#EAC066", "Red" = "#DA6BAC", "Cyan" = "#FF919D", "Green" = "#F4DCA5", "Magenta" = "#AE636B" ) ggsci_db_iterm$"Wilmersdorf"$"normal" <- c( "Blue" = "#A6C1E0", "Yellow" = "#CCCCCC", "Red" = "#E06383", "Cyan" = "#5B94AB", "Green" = "#7EBEBD", "Magenta" = "#E1C1EE" ) ggsci_db_iterm$"Wilmersdorf"$"bright" <- c( "Blue" = "#B2CFF0", "Yellow" = "#D1DFFF", "Red" = "#FA7193", "Cyan" = "#69ABC5", "Green" = "#8FD7D6", "Magenta" = "#EFCCFD" ) ggsci_db_iterm$"Wombat"$"normal" <- c( "Blue" = "#5DA9F6", "Yellow" = "#EBD99C", "Red" = "#FF615A", "Cyan" = "#82FFF7", "Green" = "#B1E969", "Magenta" = "#E86AFF" ) ggsci_db_iterm$"Wombat"$"bright" <- c( "Blue" = "#A5C7FF", "Yellow" = "#EEE5B2", "Red" = "#F58C80", "Cyan" = "#B7FFF9", "Green" = "#DDF88F", "Magenta" = "#DDAAFF" ) ggsci_db_iterm$"Wryan"$"normal" <- c( "Blue" = "#395573", "Yellow" = "#7C7C99", "Red" = "#8C4665", "Cyan" = "#31658C", "Green" = "#287373", "Magenta" = "#5E468C" ) ggsci_db_iterm$"Wryan"$"bright" <- c( "Blue" = "#477AB3", "Yellow" = "#9E9ECB", "Red" = "#BF4D80", "Cyan" = "#6096BF", "Green" = "#53A6A6", "Magenta" = "#7E62B3" ) ggsci_db_iterm$"Xcode Dark hc"$"normal" <- c( "Blue" = "#4EC4E6", "Yellow" = "#D9C668", "Red" = "#FF8A7A", "Cyan" = "#CDA1FF", "Green" = "#83C9BC", "Magenta" = "#FF85B8" ) ggsci_db_iterm$"Xcode Dark hc"$"bright" <- c( "Blue" = "#6BDFFF", "Yellow" = "#FFA14F", "Red" = "#FF8A7A", "Cyan" = "#E5CFFF", "Green" = "#B1FAEB", "Magenta" = "#FF85B8" ) ggsci_db_iterm$"Xcode Dark"$"normal" <- c( "Blue" = "#4EB0CC", "Yellow" = "#D9C97C", "Red" = "#FF8170", "Cyan" = "#B281EB", "Green" = "#78C2B3", "Magenta" = "#FF7AB2" ) ggsci_db_iterm$"Xcode Dark"$"bright" <- c( "Blue" = "#6BDFFF", "Yellow" = "#FFA14F", "Red" = "#FF8170", "Cyan" = "#DABAFF", "Green" = "#ACF2E4", "Magenta" = "#FF7AB2" ) ggsci_db_iterm$"Xcode Light hc"$"normal" <- c( "Blue" = "#0058A1", "Yellow" = "#78492A", "Red" = "#AD1805", "Cyan" = "#703DAA", "Green" = "#355D61", "Magenta" = "#9C2191" ) ggsci_db_iterm$"Xcode Light hc"$"bright" <- c( "Blue" = "#003F73", "Yellow" = "#78492A", "Red" = "#AD1805", "Cyan" = "#441EA1", "Green" = "#174145", "Magenta" = "#9C2191" ) ggsci_db_iterm$"Xcode Light"$"normal" <- c( "Blue" = "#0F68A0", "Yellow" = "#78492A", "Red" = "#D12F1B", "Cyan" = "#804FB8", "Green" = "#3E8087", "Magenta" = "#AD3DA4" ) ggsci_db_iterm$"Xcode Light"$"bright" <- c( "Blue" = "#0B4F79", "Yellow" = "#78492A", "Red" = "#D12F1B", "Cyan" = "#4B21B0", "Green" = "#23575C", "Magenta" = "#AD3DA4" ) ggsci_db_iterm$"Xcode WWDC"$"normal" <- c( "Blue" = "#8884C5", "Yellow" = "#D28E5D", "Red" = "#BB383A", "Cyan" = "#00ABA4", "Green" = "#94C66E", "Magenta" = "#B73999" ) ggsci_db_iterm$"Xcode WWDC"$"bright" <- c( "Blue" = "#8884C5", "Yellow" = "#D28E5D", "Red" = "#BB383A", "Cyan" = "#00ABA4", "Green" = "#94C66E", "Magenta" = "#B73999" ) ggsci_db_iterm$"Zenbones Dark"$"normal" <- c( "Blue" = "#6099C0", "Yellow" = "#B77E64", "Red" = "#DE6E7C", "Cyan" = "#66A5AD", "Green" = "#819B69", "Magenta" = "#B279A7" ) ggsci_db_iterm$"Zenbones Dark"$"bright" <- c( "Blue" = "#61ABDA", "Yellow" = "#D68C67", "Red" = "#E8838F", "Cyan" = "#65B8C1", "Green" = "#8BAE68", "Magenta" = "#CF86C1" ) ggsci_db_iterm$"Zenbones Light"$"normal" <- c( "Blue" = "#286486", "Yellow" = "#944927", "Red" = "#A8334C", "Cyan" = "#3B8992", "Green" = "#4F6C31", "Magenta" = "#88507D" ) ggsci_db_iterm$"Zenbones Light"$"bright" <- c( "Blue" = "#1D5573", "Yellow" = "#803D1C", "Red" = "#94253E", "Cyan" = "#2B747C", "Green" = "#3F5A22", "Magenta" = "#7B3B70" ) ggsci_db_iterm$"Zenbones"$"normal" <- c( "Blue" = "#286486", "Yellow" = "#944927", "Red" = "#A8334C", "Cyan" = "#3B8992", "Green" = "#4F6C31", "Magenta" = "#88507D" ) ggsci_db_iterm$"Zenbones"$"bright" <- c( "Blue" = "#1D5573", "Yellow" = "#803D1C", "Red" = "#94253E", "Cyan" = "#2B747C", "Green" = "#3F5A22", "Magenta" = "#7B3B70" ) ggsci_db_iterm$"Zenburn"$"normal" <- c( "Blue" = "#5D6D7D", "Yellow" = "#F0DFAF", "Red" = "#7D5D5D", "Cyan" = "#8CD0D3", "Green" = "#60B48A", "Magenta" = "#DC8CC3" ) ggsci_db_iterm$"Zenburn"$"bright" <- c( "Blue" = "#94BFF3", "Yellow" = "#E0CF9F", "Red" = "#DCA3A3", "Cyan" = "#93E0E3", "Green" = "#C3BF9F", "Magenta" = "#EC93D3" ) ggsci_db_iterm$"Zenburned"$"normal" <- c( "Blue" = "#6099C0", "Yellow" = "#B77E64", "Red" = "#E3716E", "Cyan" = "#66A5AD", "Green" = "#819B69", "Magenta" = "#B279A7" ) ggsci_db_iterm$"Zenburned"$"bright" <- c( "Blue" = "#61ABDA", "Yellow" = "#D68C67", "Red" = "#EC8685", "Cyan" = "#65B8C1", "Green" = "#8BAE68", "Magenta" = "#CF86C1" ) ggsci_db_iterm$"Zenwritten Dark"$"normal" <- c( "Blue" = "#6099C0", "Yellow" = "#B77E64", "Red" = "#DE6E7C", "Cyan" = "#66A5AD", "Green" = "#819B69", "Magenta" = "#B279A7" ) ggsci_db_iterm$"Zenwritten Dark"$"bright" <- c( "Blue" = "#61ABDA", "Yellow" = "#D68C67", "Red" = "#E8838F", "Cyan" = "#65B8C1", "Green" = "#8BAE68", "Magenta" = "#CF86C1" ) ggsci_db_iterm$"Zenwritten Light"$"normal" <- c( "Blue" = "#286486", "Yellow" = "#944927", "Red" = "#A8334C", "Cyan" = "#3B8992", "Green" = "#4F6C31", "Magenta" = "#88507D" ) ggsci_db_iterm$"Zenwritten Light"$"bright" <- c( "Blue" = "#1D5573", "Yellow" = "#803D1C", "Red" = "#94253E", "Cyan" = "#2B747C", "Green" = "#3F5A22", "Magenta" = "#7B3B70" ) ggsci/R/discrete-uchicago.R0000644000176200001440000000566215120434214015261 0ustar liggesusers#' The University of Chicago color palettes #' #' Color palettes based on the colors used by the University of Chicago. #' #' @param palette Palette type. #' There are three available options: #' - `"default"` (9-color palette); #' - `"light"` (9-color light palette); #' - `"dark"` (9-color dark palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_uchicago #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' #' #' @examples #' library("scales") #' show_col(pal_uchicago("default")(9)) #' show_col(pal_uchicago("light")(9)) #' show_col(pal_uchicago("dark")(9)) pal_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"uchicago"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' The University of Chicago color scales #' #' See [pal_uchicago()] for details. #' #' @inheritParams pal_uchicago #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_uchicago #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' #' #' @rdname scale_uchicago #' #' @examples #' p1 <- example_scatterplot() #' p2 <- example_barplot() #' #' p1 + scale_color_uchicago() #' p2 + scale_fill_uchicago() #' #' p1 + scale_color_uchicago(palette = "light") #' p2 + scale_fill_uchicago(palette = "light") #' #' p1 + scale_color_uchicago(palette = "dark") #' p2 + scale_fill_uchicago(palette = "dark") scale_color_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_uchicago(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "uchicago", palette = pal_uchicago(palette, alpha), ...) } } #' @export scale_colour_uchicago #' @rdname scale_uchicago scale_colour_uchicago <- scale_color_uchicago #' @export scale_fill_uchicago #' @importFrom ggplot2 discrete_scale #' @rdname scale_uchicago scale_fill_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_uchicago(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "uchicago", palette = pal_uchicago(palette, alpha), ...) } } ggsci/R/discrete-d3.R0000644000176200001440000000573115120434214014002 0ustar liggesusers#' D3.js color palettes #' #' Color palettes based on the colors used by D3.js. #' #' @param palette Palette type. There are four available options: #' - `"category10"` (10-color palette). #' - `"category20"` (20-color palette). #' - `"category20b"` (20-color palette). #' - `"category20c"` (20-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_d3 #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' #' #' @examples #' library("scales") #' show_col(pal_d3("category10")(10)) #' show_col(pal_d3("category20")(20)) #' show_col(pal_d3("category20b")(20)) #' show_col(pal_d3("category20c")(20)) pal_d3 <- function(palette = c("category10", "category20", "category20b", "category20c"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"d3"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' D3.js color scales #' #' See [pal_d3()] for details. #' #' @inheritParams pal_d3 #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_d3 #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' #' #' @rdname scale_d3 #' #' @examples #' p1 <- example_scatterplot() #' p2 <- example_barplot() #' #' p1 + scale_color_d3() #' p2 + scale_fill_d3() #' #' p1 + scale_color_d3(palette = "category20") #' p2 + scale_fill_d3(palette = "category20") #' #' p1 + scale_color_d3(palette = "category20b") #' p2 + scale_fill_d3(palette = "category20b") #' #' p1 + scale_color_d3(palette = "category20c") #' p2 + scale_fill_d3(palette = "category20c") scale_color_d3 <- function(palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_d3(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "d3", palette = pal_d3(palette, alpha), ...) } } #' @export scale_colour_d3 #' @rdname scale_d3 scale_colour_d3 <- scale_color_d3 #' @export scale_fill_d3 #' @importFrom ggplot2 discrete_scale #' @rdname scale_d3 scale_fill_d3 <- function(palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_d3(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "d3", palette = pal_d3(palette, alpha), ...) } } ggsci/R/discrete-futurama.R0000644000176200001440000000452515120434214015320 0ustar liggesusers#' Futurama color palettes #' #' Color palettes inspired by the colors used in _Futurama_. #' #' @param palette Palette type. #' Currently there is one available option: `"planetexpress"` #' (12-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_futurama #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_futurama("planetexpress")(12)) #' show_col(pal_futurama("planetexpress", alpha = 0.6)(12)) pal_futurama <- function(palette = c("planetexpress"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"futurama"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Futurama color scales #' #' See [pal_futurama()] for details. #' #' @inheritParams pal_futurama #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_futurama #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_futurama #' #' @examples #' example_scatterplot() + scale_color_futurama() #' example_barplot() + scale_fill_futurama() scale_color_futurama <- function(palette = c("planetexpress"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_futurama(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "futurama", palette = pal_futurama(palette, alpha), ...) } } #' @export scale_colour_futurama #' @rdname scale_futurama scale_colour_futurama <- scale_color_futurama #' @export scale_fill_futurama #' @importFrom ggplot2 discrete_scale #' @rdname scale_futurama scale_fill_futurama <- function(palette = c("planetexpress"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_futurama(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "futurama", palette = pal_futurama(palette, alpha), ...) } } ggsci/R/discrete-cosmic.R0000644000176200001440000000610715120434214014747 0ustar liggesusers#' COSMIC color palettes #' #' Color palettes inspired by the colors used in projects from the #' [Catalogue Of #' Somatic Mutations in Cancers (COSMIC)](https://cancer.sanger.ac.uk/cosmic). #' #' @param palette Palette type. Currently there are three available options: #' - `"signature_substitutions"` (6-color palette). #' - `"hallmarks_light"` (10-color palette). #' - `"hallmarks_dark"` (10-color palette). #' #' The `"hallmarks_light"` option is from #' [Hanahan and Weinberg (2011)](https://pubmed.ncbi.nlm.nih.gov/21376230/). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_cosmic #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Joshua H. Cook | \email{joshuacook0023@gmail.com} | #' [@jhrcook](https://github.com/jhrcook) #' #' @examples #' library("scales") #' show_col(pal_cosmic("hallmarks_light")(10)) #' show_col(pal_cosmic("hallmarks_light", alpha = 0.6)(10)) #' show_col(pal_cosmic("hallmarks_dark")(10)) #' show_col(pal_cosmic("hallmarks_dark", alpha = 0.6)(10)) #' show_col(pal_cosmic("signature_substitutions")(6)) #' show_col(pal_cosmic("signature_substitutions", alpha = 0.6)(6)) pal_cosmic <- function( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1 ) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"cosmic"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' COSMIC color scales #' #' See [pal_cosmic()] for details. #' #' @inheritParams pal_cosmic #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_cosmic #' #' @importFrom ggplot2 discrete_scale #' #' @author Joshua H. Cook | \email{joshuacook0023@gmail.com} | #' [@jhrcook](https://github.com/jhrcook) #' #' @rdname scale_cosmic #' #' @examples #' example_scatterplot() + scale_color_cosmic() #' example_barplot() + scale_fill_cosmic() scale_color_cosmic <- function( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ... ) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_cosmic(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "cosmic", palette = pal_cosmic(palette, alpha), ...) } } #' @export scale_colour_cosmic #' @rdname scale_cosmic scale_colour_cosmic <- scale_color_cosmic #' @export scale_fill_cosmic #' @importFrom ggplot2 discrete_scale #' @rdname scale_cosmic scale_fill_cosmic <- function( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ... ) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_cosmic(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "cosmic", palette = pal_cosmic(palette, alpha), ...) } } ggsci/R/discrete-tron.R0000644000176200001440000000502115120434214014446 0ustar liggesusers#' Tron Legacy color palettes #' #' Color palettes inspired by the colors used in _Tron Legacy_. #' #' @param palette Palette type. #' Currently there is one available option: `"legacy"` #' (7-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_tron #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_tron("legacy")(7)) #' show_col(pal_tron("legacy", alpha = 0.6)(7)) pal_tron <- function(palette = c("legacy"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"tron"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Tron Legacy color scales #' #' See [pal_tron()] for details. #' #' @inheritParams pal_tron #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_tron #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_tron #' #' @examples #' example_scatterplot() + #' ggplot2::theme_dark() + #' ggplot2::theme( #' panel.background = ggplot2::element_rect(fill = "#2D2D2D"), #' legend.key = ggplot2::element_rect(fill = "#2D2D2D") #' ) + #' scale_color_tron() #' #' example_barplot() + #' ggplot2::theme_dark() + #' ggplot2::theme( #' panel.background = ggplot2::element_rect(fill = "#2D2D2D") #' ) + #' scale_fill_tron() scale_color_tron <- function(palette = c("legacy"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_tron(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "tron", palette = pal_tron(palette, alpha), ...) } } #' @export scale_colour_tron #' @rdname scale_tron scale_colour_tron <- scale_color_tron #' @export scale_fill_tron #' @importFrom ggplot2 discrete_scale #' @rdname scale_tron scale_fill_tron <- function(palette = c("legacy"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_tron(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "tron", palette = pal_tron(palette, alpha), ...) } } ggsci/R/discrete-jco.R0000644000176200001440000000434515120434214014247 0ustar liggesusers#' Journal of Clinical Oncology color palettes #' #' Color palette inspired by plots in _Journal of Clinical Oncology_. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (10-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_jco #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_jco("default")(10)) #' show_col(pal_jco("default", alpha = 0.6)(10)) pal_jco <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"jco"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Journal of Clinical Oncology color scales #' #' See [pal_jco()] for details. #' #' @inheritParams pal_jco #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_jco #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_jco #' #' @examples #' example_scatterplot() + scale_color_jco() #' example_barplot() + scale_fill_jco() scale_color_jco <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_jco(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "jco", palette = pal_jco(palette, alpha), ...) } } #' @export scale_colour_jco #' @rdname scale_jco scale_colour_jco <- scale_color_jco #' @export scale_fill_jco #' @importFrom ggplot2 discrete_scale #' @rdname scale_jco scale_fill_jco <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_jco(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "jco", palette = pal_jco(palette, alpha), ...) } } ggsci/R/discrete-flatui.R0000644000176200001440000000540515120434214014756 0ustar liggesusers#' Flat UI color palettes #' #' Color palettes inspired by the Flat UI colors. #' #' @param palette Palette type. Currently there are three available options: #' - `"default"` (10-color palette). #' - `"flattastic"` (12-color palette). #' - `"aussie"` (10-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_flatui #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Clara Jégousse | \email{cat3@hi.is} #' #' @examples #' library("scales") #' show_col(pal_flatui("default")(10)) #' show_col(pal_flatui("flattastic")(12)) #' show_col(pal_flatui("aussie")(10)) #' show_col(pal_flatui("aussie", alpha = 0.6)(10)) pal_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"flatui"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Flat UI color scales #' #' See [pal_flatui()] for details. #' #' @inheritParams pal_flatui #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_flatui #' #' @importFrom ggplot2 discrete_scale #' #' @author Clara Jégousse | \email{cat3@hi.is} #' #' @rdname scale_flatui #' #' @examples #' p1 <- example_scatterplot() #' p2 <- example_barplot() #' #' p1 + scale_color_flatui() #' p2 + scale_fill_flatui() #' #' p1 + scale_color_flatui(palette = "default") #' p2 + scale_fill_flatui(palette = "default") #' #' p1 + scale_color_flatui(palette = "flattastic") #' p2 + scale_fill_flatui(palette = "flattastic") #' #' p1 + scale_color_flatui(palette = "aussie") #' p2 + scale_fill_flatui(palette = "aussie") scale_color_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_flatui(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "flatui", palette = pal_flatui(palette, alpha), ...) } } #' @export scale_colour_flatui #' @rdname scale_flatui scale_colour_flatui <- scale_color_flatui #' @export scale_fill_flatui #' @importFrom ggplot2 discrete_scale #' @rdname scale_flatui scale_fill_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_flatui(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "flatui", palette = pal_flatui(palette, alpha), ...) } } ggsci/R/examples.R0000644000176200001440000000321115120434214013501 0ustar liggesusers#' Example plots for discrete color palettes #' #' Utility functions that return simple ggplot2 examples to #' demonstrate discrete color/fill scales. #' #' @details #' - `example_scatterplot()` creates a scatter plot of large diamonds #' (`carat >= 2.2`), mapping `table` to the x‑axis, `price` to the y‑axis, #' and `cut` to color. #' - `example_barplot()` creates a side‑by‑side bar chart of diamond counts #' by `color`, grouped by `cut` via fill. #' #' @return A `ggplot` object. #' #' @rdname example_plots #' #' @importFrom rlang .data #' #' @export example_scatterplot #' #' @examples #' example_scatterplot() #' example_barplot() example_scatterplot <- function() { ggplot2::ggplot( ggplot2::diamonds[ggplot2::diamonds$carat >= 2.2, ], ggplot2::aes(x = .data$table, y = .data$price, colour = .data$cut) ) + ggplot2::geom_point(alpha = 0.7) + ggplot2::geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) + ggplot2::theme_minimal() + ggplot2::theme( axis.title.x = ggplot2::element_blank(), axis.title.y = ggplot2::element_blank(), panel.grid.minor = ggplot2::element_blank() ) } #' @rdname example_plots #' @export example_barplot example_barplot <- function() { ggplot2::ggplot( ggplot2::diamonds, ggplot2::aes(x = .data$color, fill = .data$cut) ) + ggplot2::geom_bar(position = ggplot2::position_dodge()) + ggplot2::theme_minimal() + ggplot2::theme( axis.title.x = ggplot2::element_blank(), axis.title.y = ggplot2::element_blank(), panel.grid.major.x = ggplot2::element_blank(), panel.grid.minor.y = ggplot2::element_blank() ) } ggsci/R/discrete-rickandmorty.R0000644000176200001440000000465515120434214016206 0ustar liggesusers#' Rick and Morty color palettes #' #' Color palettes inspired by the colors used in _Rick and Morty_. #' #' @param palette Palette type. #' Currently there is one available option: `"schwifty"` #' (12-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_rickandmorty #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_rickandmorty("schwifty")(12)) #' show_col(pal_rickandmorty("schwifty", alpha = 0.6)(12)) pal_rickandmorty <- function(palette = c("schwifty"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"rickandmorty"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Rick and Morty color scales #' #' See [pal_rickandmorty()] for details. #' #' @inheritParams pal_rickandmorty #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_rickandmorty #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_rickandmorty #' #' @examples #' example_scatterplot() + scale_color_rickandmorty() #' example_barplot() + scale_fill_rickandmorty() scale_color_rickandmorty <- function(palette = c("schwifty"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_rickandmorty(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "rickandmorty", palette = pal_rickandmorty(palette, alpha), ...) } } #' @export scale_colour_rickandmorty #' @rdname scale_rickandmorty scale_colour_rickandmorty <- scale_color_rickandmorty #' @export scale_fill_rickandmorty #' @importFrom ggplot2 discrete_scale #' @rdname scale_rickandmorty scale_fill_rickandmorty <- function(palette = c("schwifty"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_rickandmorty(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "rickandmorty", palette = pal_rickandmorty(palette, alpha), ...) } } ggsci/R/discrete-simpsons.R0000644000176200001440000000452515120434214015347 0ustar liggesusers#' The Simpsons color palettes #' #' Color palettes inspired by the colors used in _The Simpsons_. #' #' @param palette Palette type. #' Currently there is one available option: `"springfield"` #' (16-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_simpsons #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_simpsons("springfield")(16)) #' show_col(pal_simpsons("springfield", alpha = 0.6)(16)) pal_simpsons <- function(palette = c("springfield"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"simpsons"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' The Simpsons color scales #' #' See [pal_simpsons()] for details. #' #' @inheritParams pal_simpsons #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_simpsons #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_simpsons #' #' @examples #' example_scatterplot() + scale_color_simpsons() #' example_barplot() + scale_fill_simpsons() scale_color_simpsons <- function(palette = c("springfield"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_simpsons(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "simpsons", palette = pal_simpsons(palette, alpha), ...) } } #' @export scale_colour_simpsons #' @rdname scale_simpsons scale_colour_simpsons <- scale_color_simpsons #' @export scale_fill_simpsons #' @importFrom ggplot2 discrete_scale #' @rdname scale_simpsons scale_fill_simpsons <- function(palette = c("springfield"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_simpsons(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "simpsons", palette = pal_simpsons(palette, alpha), ...) } } ggsci/R/discrete-observable.R0000644000176200001440000000525515120434214015621 0ustar liggesusers#' Observable 10 color palette #' #' The Observable 10 palette. #' #' @param palette Palette type. #' Currently there is one available option: `"observable10"` #' (10-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_observable #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' Pettiross J (2023). "Crafting data colors and staying on brand." #' _Observable blog_. #' #' @examples #' library("scales") #' show_col(pal_observable("observable10")(10)) #' show_col(pal_observable("observable10", alpha = 0.6)(10)) pal_observable <- function(palette = c("observable10"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"observable"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Observable 10 color scales #' #' See [pal_observable()] for details. #' #' @inheritParams pal_observable #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_observable #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' Pettiross J (2023). "Crafting data colors and staying on brand." #' _Observable blog_. #' #' @rdname scale_observable #' #' @examples #' example_scatterplot() + scale_color_observable() #' example_barplot() + scale_fill_observable() scale_color_observable <- function(palette = c("observable10"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_observable(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "observable", palette = pal_observable(palette, alpha), ...) } } #' @export scale_colour_observable #' @rdname scale_observable scale_colour_observable <- scale_color_observable #' @export scale_fill_observable #' @importFrom ggplot2 discrete_scale #' @rdname scale_observable scale_fill_observable <- function(palette = c("observable10"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_observable(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "observable", palette = pal_observable(palette, alpha), ...) } } ggsci/R/discrete-startrek.R0000644000176200001440000000446115120434214015332 0ustar liggesusers#' Star Trek color palettes #' #' Color palettes inspired by the colors used in _Star Trek_. #' #' @param palette Palette type. #' Currently there is one available option: `"uniform"` #' (7-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_startrek #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_startrek("uniform")(7)) #' show_col(pal_startrek("uniform", alpha = 0.6)(7)) pal_startrek <- function(palette = c("uniform"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"startrek"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Star Trek color scales #' #' See [pal_startrek()] for details. #' #' @inheritParams pal_startrek #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_startrek #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_startrek #' #' @examples #' example_scatterplot() + scale_color_startrek() #' example_barplot() + scale_fill_startrek() scale_color_startrek <- function(palette = c("uniform"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_startrek(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "startrek", palette = pal_startrek(palette, alpha), ...) } } #' @export scale_colour_startrek #' @rdname scale_startrek scale_colour_startrek <- scale_color_startrek #' @export scale_fill_startrek #' @importFrom ggplot2 discrete_scale #' @rdname scale_startrek scale_fill_startrek <- function(palette = c("uniform"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_startrek(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "startrek", palette = pal_startrek(palette, alpha), ...) } } ggsci/R/discrete-lancet.R0000644000176200001440000000447115120434214014742 0ustar liggesusers#' Lancet journal color palettes #' #' Color palettes inspired by plots in Lancet journals, #' such as _Lancet Oncology_. #' #' @param palette Palette type. #' Currently there is one available option: `"lanonc"` #' (9-color palette inspired by _Lancet Oncology_). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_lancet #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_lancet("lanonc")(9)) #' show_col(pal_lancet("lanonc", alpha = 0.6)(9)) pal_lancet <- function(palette = c("lanonc"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"lancet"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Lancet journal color scales #' #' See [pal_lancet()] for details. #' #' @inheritParams pal_lancet #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_lancet #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_lancet #' #' @examples #' example_scatterplot() + scale_color_lancet() #' example_barplot() + scale_fill_lancet() scale_color_lancet <- function(palette = c("lanonc"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_lancet(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "lancet", palette = pal_lancet(palette, alpha), ...) } } #' @export scale_colour_lancet #' @rdname scale_lancet scale_colour_lancet <- scale_color_lancet #' @export scale_fill_lancet #' @importFrom ggplot2 discrete_scale #' @rdname scale_lancet scale_fill_lancet <- function(palette = c("lanonc"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_lancet(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "lancet", palette = pal_lancet(palette, alpha), ...) } } ggsci/R/discrete-frontiers.R0000644000176200001440000000521615120434214015505 0ustar liggesusers#' Frontiers journal color palettes #' #' Color palettes inspired by the colors used in _Frontiers_ journals. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (10-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_frontiers #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Clara Jégousse | \email{cat3@hi.is} #' #' @examples #' library("scales") #' show_col(pal_frontiers("default")(7)) #' show_col(pal_frontiers("default", alpha = 0.6)(7)) pal_frontiers <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"frontiers"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Frontiers journal color scales #' #' See [pal_frontiers()] for details. #' #' @inheritParams pal_frontiers #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_frontiers #' #' @importFrom ggplot2 discrete_scale #' #' @author Clara Jégousse | \email{cat3@hi.is} #' #' @rdname scale_frontiers #' #' @examples #' example_scatterplot() + #' ggplot2::theme_dark() + #' ggplot2::theme( #' panel.background = ggplot2::element_rect(fill = "#2D2D2D"), #' legend.key = ggplot2::element_rect(fill = "#2D2D2D") #' ) + #' scale_color_frontiers() #' #' example_barplot() + #' ggplot2::theme_dark() + #' ggplot2::theme( #' panel.background = ggplot2::element_rect(fill = "#2D2D2D") #' ) + #' scale_fill_frontiers() scale_color_frontiers <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_frontiers(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "frontiers", palette = pal_frontiers(palette, alpha), ...) } } #' @export scale_colour_frontiers #' @rdname scale_frontiers scale_colour_frontiers <- scale_color_frontiers #' @export scale_fill_frontiers #' @importFrom ggplot2 discrete_scale #' @rdname scale_frontiers scale_fill_frontiers <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_frontiers(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "frontiers", palette = pal_frontiers(palette, alpha), ...) } } ggsci/R/palettes.R0000644000176200001440000007126015120434214013515 0ustar liggesusers# Construct color palettes data # # If not available, the color names are generated by "Name that Color" at # . ggsci_db <- vector("list") # Discrete Color Palettes # Color palette inspired by plots in Nature Reviews Cancer ---- ggsci_db$"npg"$"nrc" <- c( "Cinnabar" = "#E64B35", "Shakespeare" = "#4DBBD5", "PersianGreen" = "#00A087", "Chambray" = "#3C5488", "Apricot" = "#F39B7F", "WildBlueYonder" = "#8491B4", "MonteCarlo" = "#91D1C2", "Monza" = "#DC0000", "RomanCoffee" = "#7E6148", "Sandrift" = "#B09C85" ) # Color palette inspired by plots in Science from AAAS ---- ggsci_db$"aaas"$"default" <- c( "Chambray" = "#3B4992", "Red" = "#EE0000", "FunGreen" = "#008B45", "HoneyFlower" = "#631879", "Teal" = "#008280", "Monza" = "#BB0021", "ButterflyBush" = "#5F559B", "FreshEggplant" = "#A20056", "Stack" = "#808180", "CodGray" = "#1B1919" ) # Color palette inspired by plots in The New England Journal of Medicine ---- ggsci_db$"nejm"$"default" <- c( "TallPoppy" = "#BC3C29", "DeepCerulean" = "#0072B5", "Zest" = "#E18727", "Eucalyptus" = "#20854E", "WildBlueYonder" = "#7876B1", "Gothic" = "#6F99AD", "Salomie" = "#FFDC91", "FrenchRose" = "#EE4C97" ) # Color palette inspired by plots in Lancet Oncology ---- ggsci_db$"lancet"$"lanonc" <- c( "CongressBlue" = "#00468B", "Red" = "#ED0000", "Apple" = "#42B540", "BondiBlue" = "#0099B4", "TrendyPink" = "#925E9F", "MonaLisa" = "#FDAF91", "Carmine" = "#AD002A", "Edward" = "#ADB6B6", "CodGray" = "#1B1919" ) # Color palette inspired by plots in The Journal of the American Medical Association ---- ggsci_db$"jama"$"default" <- c( "Limed Spruce" = "#374E55", "Anzac" = "#DF8F44", "Cerulean" = "#00A1D5", "Apple Blossom" = "#B24745", "Acapulco" = "#79AF97", "Kimberly" = "#6A6599", "Makara" = "#80796B" ) # Color palette from BMJ living style guide ---- # https://technology.bmj.com/living-style-guide/colour.html ggsci_db$"bmj"$"default" <- c( "Blue" = "#2A6EBB", "Yellow" = "#F0AB00", "Pink" = "#C50084", "Purple" = "#7D5CC6", "Orange" = "#E37222", "Green" = "#69BE28", "Aqua" = "#00B2A9", "Red" = "#CD202C", "Grey" = "#747678" ) # Color palette inspired by plots in Journal of Clinical Oncology ---- ggsci_db$"jco"$"default" <- c( "Lochmara" = "#0073C2", "Corn" = "#EFC000", "Gray" = "#868686", "ChestnutRose" = "#CD534C", "Danube" = "#7AA6DC", "RegalBlue" = "#003C67", "Olive" = "#8F7700", "MineShaft" = "#3B3B3B", "WellRead" = "#A73030", "KashmirBlue" = "#4A6990" ) # UCSC Genome Browser chromosome colors ---- ggsci_db$"ucscgb"$"default" <- c( "chr5" = "#FF0000", "chr8" = "#FF9900", "chr9" = "#FFCC00", "chr12" = "#00FF00", "chr15" = "#6699FF", "chr20" = "#CC33FF", "chr3" = "#99991E", "chrX" = "#999999", "chr6" = "#FF00CC", "chr4" = "#CC0000", "chr7" = "#FFCCCC", "chr10" = "#FFFF00", "chr11" = "#CCFF00", "chr13" = "#358000", "chr14" = "#0000CC", "chr16" = "#99CCFF", "chr17" = "#00FFFF", "chr18" = "#CCFFFF", "chr19" = "#9900CC", "chr21" = "#CC99FF", "chr1" = "#996600", "chr2" = "#666600", "chr22" = "#666666", "chrY" = "#CCCCCC", "chrUn" = "#79CC3D", "chrM" = "#CCCC99" ) # Color palette from D3.js ---- ggsci_db$"d3"$"category10" <- c( "Matisse" = "#1F77B4", "Flamenco" = "#FF7F0E", "ForestGreen" = "#2CA02C", "Punch" = "#D62728", "Wisteria" = "#9467BD", "SpicyMix" = "#8C564B", "Orchid" = "#E377C2", "Gray" = "#7F7F7F", "KeyLimePie" = "#BCBD22", "Java" = "#17BECF" ) # Color palette from D3.js ---- ggsci_db$"d3"$"category20" <- c( "Matisse" = "#1F77B4", "Flamenco" = "#FF7F0E", "ForestGreen" = "#2CA02C", "Punch" = "#D62728", "Wisteria" = "#9467BD", "SpicyMix" = "#8C564B", "Orchid" = "#E377C2", "Gray" = "#7F7F7F", "KeyLimePie" = "#BCBD22", "Java" = "#17BECF", "Spindle" = "#AEC7E8", "MaC" = "#FFBB78", "Feijoa" = "#98DF8A", "MonaLisa" = "#FF9896", "LavenderGray" = "#C5B0D5", "Quicksand" = "#C49C94", "Chantilly" = "#F7B6D2", "Silver" = "#C7C7C7", "Deco" = "#DBDB8D", "RegentStBlue" = "#9EDAE5" ) # Color palette from D3.js ---- ggsci_db$"d3"$"category20b" <- c( "EastBay" = "#393B79", "ChaletGreen" = "#637939", "Pesto" = "#8C6D31", "Lotus" = "#843C39", "CannonPink" = "#7B4173", "ButterflyBush" = "#5254A3", "ChelseaCucumber" = "#8CA252", "Tussock" = "#BD9E39", "AppleBlossom" = "#AD494A", "Tapestry" = "#A55194", "MoodyBlue" = "#6B6ECF", "WildWillow" = "#B5CF6B", "Ronchi" = "#E7BA52", "ChestnutRose" = "#D6616B", "Hopbush" = "#CE6DBD", "ColdPurple" = "#9C9EDE", "Deco" = "#CEDB9C", "Putty" = "#E7CB94", "TonysPink" = "#E7969C", "LightOrchid" = "#DE9ED6" ) # Color palette from D3.js ---- ggsci_db$"d3"$"category20c" <- c( "BostonBlue" = "#3182BD", "Christine" = "#E6550D", "SeaGreen" = "#31A354", "Deluge" = "#756BB1", "DoveGray" = "#636363", "Danube" = "#6BAED6", "NeonCarrot" = "#FD8D3C", "DeYork" = "#74C476", "BlueBell" = "#9E9AC8", "DustyGray" = "#969696", "RegentStBlue" = "#9ECAE1", "Koromiko" = "#FDAE6B", "MossGreen" = "#A1D99B", "LavenderGray" = "#BCBDDC", "Silver" = "#BDBDBD", "Spindle" = "#C6DBEF", "Flesh" = "#FDD0A2", "Celadon" = "#C7E9C0", "Snuff" = "#DADAEB", "Alto" = "#D9D9D9" ) # Observable 10 color palette ---- ggsci_db$"observable"$"observable10" <- c( "Blue" = "#4269D0", "Orange" = "#EFB118", "Red" = "#FF725C", "Cyan" = "#6CC5B0", "Green" = "#3CA951", "Pink" = "#FF8AB7", "Purple" = "#A463F2", "LightBlue" = "#97BBF5", "Brown" = "#9C6B4E", "Gray" = "#9498A0" ) # Primer data visualization color palette ---- ggsci_db$"primer"$"mark17" <- c( "Blue" = "#006EDB", "Orange" = "#EB670F", "Red" = "#DF0C24", "Teal" = "#179B9B", "Green" = "#30A147", "Purple" = "#894CEB", "Yellow" = "#B88700", "Pink" = "#CE2C85", "Brown" = "#856D4C", "Lime" = "#527A29", "Coral" = "#D43511", "Pine" = "#167E53", "Auburn" = "#9D615C", "Olive" = "#64762D", "Plum" = "#A830E8", "Lemon" = "#866E04", "Gray" = "#808FA3" ) # Atlassian Design System data visualization color palette ---- ggsci_db$"atlassian"$"categorical8" <- c( "categorical.1" = "#4688EC", "categorical.2" = "#94C748", "categorical.3" = "#C97CF4", "categorical.4" = "#FCA700", "categorical.5" = "#1558BC", "categorical.6" = "#964AC0", "categorical.7" = "#42B2D7", "categorical.8" = "#E06C00" ) # Color palette from IGV ---- ggsci_db$"igv"$"default" <- c( "chr1" = "#5050FF", "chr2" = "#CE3D32", "chr3" = "#749B58", "chr4" = "#F0E685", "chr5" = "#466983", "chr6" = "#BA6338", "chr7" = "#5DB1DD", "chr8" = "#802268", "chr9" = "#6BD76B", "chr10" = "#D595A7", "chr11" = "#924822", "chr12" = "#837B8D", "chr13" = "#C75127", "chr14" = "#D58F5C", "chr15" = "#7A65A5", "chr16" = "#E4AF69", "chr17" = "#3B1B53", "chr18" = "#CDDEB7", "chr19" = "#612A79", "chr20" = "#AE1F63", "chr21" = "#E7C76F", "chr22" = "#5A655E", "chrX" = "#CC9900", "chrY" = "#99CC00", "chrUn" = "#A9A9A9", "chr23" = "#CC9900", "chr24" = "#99CC00", "chr25" = "#33CC00", "chr26" = "#00CC33", "chr27" = "#00CC99", "chr28" = "#0099CC", "chr29" = "#0A47FF", "chr30" = "#4775FF", "chr31" = "#FFC20A", "chr32" = "#FFD147", "chr33" = "#990033", "chr34" = "#991A00", "chr35" = "#996600", "chr36" = "#809900", "chr37" = "#339900", "chr38" = "#00991A", "chr39" = "#009966", "chr40" = "#008099", "chr41" = "#003399", "chr42" = "#1A0099", "chr43" = "#660099", "chr44" = "#990080", "chr45" = "#D60047", "chr46" = "#FF1463", "chr47" = "#00D68F", "chr48" = "#14FFB1" ) # Color palette from IGV ---- ggsci_db$"igv"$"alternating" <- c( "Indigo" = "#5773CC", "SelectiveYellow" = "#FFB900" ) # Color palette from LocusZoom ---- ggsci_db$"locuszoom"$"default" <- c( "0.8to1.0" = "#D43F3A", "0.6to0.8" = "#EEA236", "0.4to0.6" = "#5CB85C", "0.2to0.4" = "#46B8DA", "0.0to0.2" = "#357EBD", "LDRefVar" = "#9632B8", "nodata" = "#B8B8B8" ) # University of Chicago color palette ---- ggsci_db$"uchicago"$"default" <- c( "Maroon" = "#800000", "DarkGray" = "#767676", "Yellow" = "#FFA319", "LightGreen" = "#8A9045", "Blue" = "#155F83", "Orange" = "#C16622", "Red" = "#8F3931", "DarkGreen" = "#58593F", "Violet" = "#350E20" ) # University of Chicago color palette (light version) ---- ggsci_db$"uchicago"$"light" <- c( "Maroon" = "#800000", "LightGray" = "#D6D6CE", "Yellow" = "#FFB547", "LightGreen" = "#ADB17D", "Blue" = "#5B8FA8", "Orange" = "#D49464", "Red" = "#B1746F", "DarkGreen" = "#8A8B79", "Violet" = "#725663" ) # University of Chicago color palette (dark version) ---- ggsci_db$"uchicago"$"dark" <- c( "Maroon" = "#800000", "DarkGray" = "#767676", "Yellow" = "#CC8214", "LightGreen" = "#616530", "Blue" = "#0F425C", "Orange" = "#9A5324", "Red" = "#642822", "DarkGreen" = "#3E3E23", "Violet" = "#350E20" ) # Color palette inspired by COSMIC Hallmarks of Cancer ---- ggsci_db$"cosmic"$"hallmarks_dark" <- c( "Invasion and Metastasis" = "#171717", "Escaping Immunic Response to Cancer" = "#7D0226", "Change of Cellular Energetics" = "#300049", "Cell Replicative Immortality" = "#165459", "Suppression of Growth" = "#3F2327", "Genome Instability and Mutations" = "#0B1948", "Angiogenesis" = "#E71012", "Escaping Programmed Cell Death" = "#555555", "Proliferative Signaling" = "#193006", "Tumour Promoting Inflammation" = "#A8450C" ) # Color palette inspired by Hanahan, Weinberg Hallmarks of Cancer ---- ggsci_db$"cosmic"$"hallmarks_light" <- c( "Invasion and Metastasis" = "#2E2A2B", "Escaping Immunic Response to Cancer" = "#CF4E9C", "Change of Cellular Energetics" = "#8C57A2", "Cell Replicative Immortality" = "#358DB9", "Suppression of Growth" = "#82581F", "Genome Instability and Mutations" = "#2F509E", "Angiogenesis" = "#E5614C", "Escaping Programmed Cell Death" = "#97A1A7", "Proliferative Signaling" = "#3DA873", "Tumour Promoting Inflammation" = "#DC9445" ) # Color palette inspired by COSMIC Hallmarks of Cancer ---- ggsci_db$"cosmic"$"signature_substitutions" <- c( "C>A" = "#5ABCEB", "C>G" = "#050708", "C>T" = "#D33C32", "T>A" = "#CBCACB", "T>C" = "#ABCD72", "T>G" = "#E7C9C6" ) # Color palette inspired by The Simpsons ---- ggsci_db$"simpsons"$"springfield" <- c( "HomerYellow" = "#FED439", "HomerBlue" = "#709AE1", "HomerGrey" = "#8A9197", "HomerBrown" = "#D2AF81", "BartOrange" = "#FD7446", "MargeGreen" = "#D5E4A2", "MargeBlue" = "#197EC0", "LisaOrange" = "#F05C3B", "NedGreen" = "#46732E", "MaggieBlue" = "#71D0F5", "BurnsPurple" = "#370335", "BurnsGreen" = "#075149", "DuffRed" = "#C80813", "KentRed" = "#91331F", "BobGreen" = "#1A9993", "FrinkPink" = "#FD8CC1" ) # Color palette inspired by Futurama ---- ggsci_db$"futurama"$"planetexpress" <- c( "FryOrange" = "#FF6F00", "FryRed" = "#C71000", "FryBlue" = "#008EA0", "LeelaPurple" = "#8A4198", "BenderIron" = "#5A9599", "ZoidbergRed" = "#FF6348", "ZoidbergBlue" = "#84D7E1", "AmyPink" = "#FF95A8", "HermesGreen" = "#3D3B25", "ProfessorBlue" = "#ADE2D0", "ScruffyGreen" = "#1A5354", "LeelaGrey" = "#3F4041" ) # Color palette inspired by Rick and Morty ---- ggsci_db$"rickandmorty"$"schwifty" <- c( "MortyYellow" = "#FAFD7C", "MortyBrown" = "#82491E", "MortyBlue" = "#24325F", "RickBlue" = "#B7E4F9", "BethRed" = "#FB6467", "JerryGreen" = "#526E2D", "SummerPink" = "#E762D7", "SummerOrange" = "#E89242", "BethYellow" = "#FAE48B", "RickGreen" = "#A6EEE6", "RickBrown" = "#917C5D", "MeeseeksBlue" = "#69C8EC" ) # Color palette inspired by Star Trek ---- ggsci_db$"startrek"$"uniform" <- c( "Engineering" = "#CC0C00", "Sciences" = "#5C88DA", "Senior" = "#84BD00", "Command" = "#FFCD00", "Teal" = "#7C878E", "Cerulean" = "#00B5E2", "Jade" = "#00AF66" ) # Color palette inspired by Tron Legacy ---- ggsci_db$"tron"$"legacy" <- c( "BlackGuard" = "#FF410D", "Sam" = "#6EE2FF", "Clu" = "#F7C530", "Underclass" = "#95CC5E", "KevinFlynn" = "#D0DFE6", "CluFollower" = "#F79D1E", "Underclass2" = "#748AA6" ) # Color palette inspired by the logo of Frontiers ---- # https://www.frontiersin.org ggsci_db$"frontiers"$"default" <- c( "Crimson" = "#D51317", "Tangerine" = "#F39200", "SchoolBus" = "#EFD500", "Citron" = "#95C11F", "FunGreen" = "#007B3D", "Pelorous" = "#31B7BC", "PacificBlue" = "#0094CD", "ToryBlue" = "#164194", "Plum" = "#6F286A", "DoveGrey" = "#706F6F" ) # Flat UI color palette V1 ---- # https://flatuicolors.com/palette/defo ggsci_db$"flatui"$"default" <- c( "Pomegranate" = "#c0392b", "Pumkin" = "#d35400", "Orange" = "#f39c12", "Nephritis" = "#27ae60", "GreenSea" = "#16a085", "BelizeHole" = "#2980b9", "Wisteria" = "#8e44ad", "Midnight" = "#2c3e50", "Asbestos" = "#7f8c8d", "Silver" = "#bdc3c7" ) # Flat UI color palette by Erigon ---- ggsci_db$"flatui"$"flattastic" <- c( "Grapefruit" = "#DA4453", "Bittersweet" = "#E95546", "Sunflower" = "#F6BA59", "Grass" = "#8BC163", "Mint" = "#34BC9D", "Aqua" = "#3BB0D6", "BlueJeans" = "#4B8AD6", "Lavender" = "#977BD5", "PinkRose" = "#D870A9", "LightGrey" = "#E6E9ED", "MediumGrey" = "#AAB2BC", "DarkGrey" = "#434A53" ) # Flat UI color palette by Aussie Palette by Kate Hoolahan ---- # https://flatuicolors.com/palette/au ggsci_db$"flatui"$"aussie" <- c( "Turbo" = "#F9CA24", "QuinceJelly" = "#F0932B", "CarminePink" = "#EB4D4B", "PureApple" = "#6AB04C", "IcePack" = "#C7ECEE", "GreenlandGreen" = "#22A6B3", "SteelPink" = "#BE2EDD", "Burple" = "#4834D4", "DeepCove" = "#130F40", "WizardGrey" = "#535C68" ) # Continuous Color Palettes # Color palette from heatmaps generated by GSEA GenePattern ---- ggsci_db$"gsea"$"default" <- c( "Purple" = "#4500AD", "DarkBlue" = "#2700D1", "RoyalBlue" = "#6B58EF", "Malibu" = "#8888FF", "Melrose" = "#C7C1FF", "Fog" = "#D5D5FF", "CottonCandy" = "#FFC0E5", "VividTangerine" = "#FF8989", "BrinkPink" = "#FF7080", "Persimmon" = "#FF5A5A", "Flamingo" = "#EF4040", "GuardsmanRed" = "#D60C00" ) # Bootstrap 5 color palettes ---- ggsci_db$"bs5"$"blue" <- c( "blue-100" = "#cfe2ff", "blue-200" = "#9ec5fe", "blue-300" = "#6ea8fe", "blue-400" = "#3d8bfd", "blue-500" = "#0d6efd", "blue-600" = "#0a58ca", "blue-700" = "#084298", "blue-800" = "#052c65", "blue-900" = "#031633" ) ggsci_db$"bs5"$"indigo" <- c( "indigo-100" = "#e0cffc", "indigo-200" = "#c29ffa", "indigo-300" = "#a370f7", "indigo-400" = "#8540f5", "indigo-500" = "#6610f2", "indigo-600" = "#520dc2", "indigo-700" = "#3d0a91", "indigo-800" = "#290661", "indigo-900" = "#140330" ) ggsci_db$"bs5"$"purple" <- c( "purple-100" = "#e2d9f3", "purple-200" = "#c5b3e6", "purple-300" = "#a98eda", "purple-400" = "#8c68cd", "purple-500" = "#6f42c1", "purple-600" = "#59359a", "purple-700" = "#432874", "purple-800" = "#2c1a4d", "purple-900" = "#160d27" ) ggsci_db$"bs5"$"pink" <- c( "pink-100" = "#f7d6e6", "pink-200" = "#efadce", "pink-300" = "#e685b5", "pink-400" = "#de5c9d", "pink-500" = "#d63384", "pink-600" = "#ab296a", "pink-700" = "#801f4f", "pink-800" = "#561435", "pink-900" = "#2b0a1a" ) ggsci_db$"bs5"$"red" <- c( "red-100" = "#f8d7da", "red-200" = "#f1aeb5", "red-300" = "#ea868f", "red-400" = "#e35d6a", "red-500" = "#dc3545", "red-600" = "#b02a37", "red-700" = "#842029", "red-800" = "#58151c", "red-900" = "#2c0b0e" ) ggsci_db$"bs5"$"orange" <- c( "orange-100" = "#ffe5d0", "orange-200" = "#fecba1", "orange-300" = "#feb272", "orange-400" = "#fd9843", "orange-500" = "#fd7e14", "orange-600" = "#ca6510", "orange-700" = "#984c0c", "orange-800" = "#653208", "orange-900" = "#331904" ) ggsci_db$"bs5"$"yellow" <- c( "yellow-100" = "#fff3cd", "yellow-200" = "#ffe69c", "yellow-300" = "#ffda6a", "yellow-400" = "#ffcd39", "yellow-500" = "#ffc107", "yellow-600" = "#cc9a06", "yellow-700" = "#997404", "yellow-800" = "#664d03", "yellow-900" = "#332701" ) ggsci_db$"bs5"$"green" <- c( "green-100" = "#d1e7dd", "green-200" = "#a3cfbb", "green-300" = "#75b798", "green-400" = "#479f76", "green-500" = "#198754", "green-600" = "#146c43", "green-700" = "#0f5132", "green-800" = "#0a3622", "green-900" = "#051b11" ) ggsci_db$"bs5"$"teal" <- c( "teal-100" = "#d2f4ea", "teal-200" = "#a6e9d5", "teal-300" = "#79dfc1", "teal-400" = "#4dd4ac", "teal-500" = "#20c997", "teal-600" = "#1aa179", "teal-700" = "#13795b", "teal-800" = "#0d503c", "teal-900" = "#06281e" ) ggsci_db$"bs5"$"cyan" <- c( "cyan-100" = "#cff4fc", "cyan-200" = "#9eeaf9", "cyan-300" = "#6edff6", "cyan-400" = "#3dd5f3", "cyan-500" = "#0dcaf0", "cyan-600" = "#0aa2c0", "cyan-700" = "#087990", "cyan-800" = "#055160", "cyan-900" = "#032830" ) ggsci_db$"bs5"$"gray" <- c( "gray-100" = "#f8f9fa", "gray-200" = "#e9ecef", "gray-300" = "#dee2e6", "gray-400" = "#ced4da", "gray-500" = "#adb5bd", "gray-600" = "#6c757d", "gray-700" = "#495057", "gray-800" = "#343a40", "gray-900" = "#212529" ) # Material Design color palettes ---- ggsci_db$"material"$"red" <- c( "Red50" = "#FFEBEE", "Red100" = "#FFCDD2", "Red200" = "#EF9A9A", "Red300" = "#E57373", "Red400" = "#EF5350", "Red500" = "#F44336", "Red600" = "#E53935", "Red700" = "#D32F2F", "Red800" = "#C62828", "Red900" = "#B71C1C" ) ggsci_db$"material"$"pink" <- c( "Pink50" = "#FCE4EC", "Pink100" = "#F8BBD0", "Pink200" = "#F48FB1", "Pink300" = "#F06292", "Pink400" = "#EC407A", "Pink500" = "#E91E63", "Pink600" = "#D81B60", "Pink700" = "#C2185B", "Pink800" = "#AD1457", "Pink900" = "#880E4F" ) ggsci_db$"material"$"purple" <- c( "Purple50" = "#F3E5F5", "Purple100" = "#E1BEE7", "Purple200" = "#CE93D8", "Purple300" = "#BA68C8", "Purple400" = "#AB47BC", "Purple500" = "#9C27B0", "Purple600" = "#8E24AA", "Purple700" = "#7B1FA2", "Purple800" = "#6A1B9A", "Purple900" = "#4A148C" ) ggsci_db$"material"$"deep-purple" <- c( "DeepPurple50" = "#EDE7F6", "DeepPurple100" = "#D1C4E9", "DeepPurple200" = "#B39DDB", "DeepPurple300" = "#9575CD", "DeepPurple400" = "#7E57C2", "DeepPurple500" = "#673AB7", "DeepPurple600" = "#5E35B1", "DeepPurple700" = "#512DA8", "DeepPurple800" = "#4527A0", "DeepPurple900" = "#311B92" ) ggsci_db$"material"$"indigo" <- c( "Indigo50" = "#E8EAF6", "Indigo100" = "#C5CAE9", "Indigo200" = "#9FA8DA", "Indigo300" = "#7986CB", "Indigo400" = "#5C6BC0", "Indigo500" = "#3F51B5", "Indigo600" = "#3949AB", "Indigo700" = "#303F9F", "Indigo800" = "#283593", "Indigo900" = "#1A237E" ) ggsci_db$"material"$"blue" <- c( "Blue50" = "#E3F2FD", "Blue100" = "#BBDEFB", "Blue200" = "#90CAF9", "Blue300" = "#64B5F6", "Blue400" = "#42A5F5", "Blue500" = "#2196F3", "Blue600" = "#1E88E5", "Blue700" = "#1976D2", "Blue800" = "#1565C0", "Blue900" = "#0D47A1" ) ggsci_db$"material"$"light-blue" <- c( "LightBlue50" = "#E1F5FE", "LightBlue100" = "#B3E5FC", "LightBlue200" = "#81D4FA", "LightBlue300" = "#4FC3F7", "LightBlue400" = "#29B6F6", "LightBlue500" = "#03A9F4", "LightBlue600" = "#039BE5", "LightBlue700" = "#0288D1", "LightBlue800" = "#0277BD", "LightBlue900" = "#01579B" ) ggsci_db$"material"$"cyan" <- c( "Cyan50" = "#E0F7FA", "Cyan100" = "#B2EBF2", "Cyan200" = "#80DEEA", "Cyan300" = "#4DD0E1", "Cyan400" = "#26C6DA", "Cyan500" = "#00BCD4", "Cyan600" = "#00ACC1", "Cyan700" = "#0097A7", "Cyan800" = "#00838F", "Cyan900" = "#006064" ) ggsci_db$"material"$"teal" <- c( "Teal50" = "#E0F2F1", "Teal100" = "#B2DFDB", "Teal200" = "#80CBC4", "Teal300" = "#4DB6AC", "Teal400" = "#26A69A", "Teal500" = "#009688", "Teal600" = "#00897B", "Teal700" = "#00796B", "Teal800" = "#00695C", "Teal900" = "#004D40" ) ggsci_db$"material"$"green" <- c( "Green50" = "#E8F5E9", "Green100" = "#C8E6C9", "Green200" = "#A5D6A7", "Green300" = "#81C784", "Green400" = "#66BB6A", "Green500" = "#4CAF50", "Green600" = "#43A047", "Green700" = "#388E3C", "Green800" = "#2E7D32", "Green900" = "#1B5E20" ) ggsci_db$"material"$"light-green" <- c( "LightGreen50" = "#F1F8E9", "LightGreen100" = "#DCEDC8", "LightGreen200" = "#C5E1A5", "LightGreen300" = "#AED581", "LightGreen400" = "#9CCC65", "LightGreen500" = "#8BC34A", "LightGreen600" = "#7CB342", "LightGreen700" = "#689F38", "LightGreen800" = "#558B2F", "LightGreen900" = "#33691E" ) ggsci_db$"material"$"lime" <- c( "Lime50" = "#F9FBE7", "Lime100" = "#F0F4C3", "Lime200" = "#E6EE9C", "Lime300" = "#DCE775", "Lime400" = "#D4E157", "Lime500" = "#CDDC39", "Lime600" = "#C0CA33", "Lime700" = "#AFB42B", "Lime800" = "#9E9D24", "Lime900" = "#827717" ) ggsci_db$"material"$"yellow" <- c( "Yellow50" = "#FFFDE7", "Yellow100" = "#FFF9C4", "Yellow200" = "#FFF59D", "Yellow300" = "#FFF176", "Yellow400" = "#FFEE58", "Yellow500" = "#FFEB3B", "Yellow600" = "#FDD835", "Yellow700" = "#FBC02D", "Yellow800" = "#F9A825", "Yellow900" = "#F57F17" ) ggsci_db$"material"$"amber" <- c( "Amber50" = "#FFF8E1", "Amber100" = "#FFECB3", "Amber200" = "#FFE082", "Amber300" = "#FFD54F", "Amber400" = "#FFCA28", "Amber500" = "#FFC107", "Amber600" = "#FFB300", "Amber700" = "#FFA000", "Amber800" = "#FF8F00", "Amber900" = "#FF6F00" ) ggsci_db$"material"$"orange" <- c( "Orange50" = "#FFF3E0", "Orange100" = "#FFE0B2", "Orange200" = "#FFCC80", "Orange300" = "#FFB74D", "Orange400" = "#FFA726", "Orange500" = "#FF9800", "Orange600" = "#FB8C00", "Orange700" = "#F57C00", "Orange800" = "#EF6C00", "Orange900" = "#E65100" ) ggsci_db$"material"$"deep-orange" <- c( "DeepOrange50" = "#FBE9E7", "DeepOrange100" = "#FFCCBC", "DeepOrange200" = "#FFAB91", "DeepOrange300" = "#FF8A65", "DeepOrange400" = "#FF7043", "DeepOrange500" = "#FF5722", "DeepOrange600" = "#F4511E", "DeepOrange700" = "#E64A19", "DeepOrange800" = "#D84315", "DeepOrange900" = "#BF360C" ) ggsci_db$"material"$"brown" <- c( "Brown50" = "#EFEBE9", "Brown100" = "#D7CCC8", "Brown200" = "#BCAAA4", "Brown300" = "#A1887F", "Brown400" = "#8D6E63", "Brown500" = "#795548", "Brown600" = "#6D4C41", "Brown700" = "#5D4037", "Brown800" = "#4E342E", "Brown900" = "#3E2723" ) ggsci_db$"material"$"grey" <- c( "Grey50" = "#FAFAFA", "Grey100" = "#F5F5F5", "Grey200" = "#EEEEEE", "Grey300" = "#E0E0E0", "Grey400" = "#BDBDBD", "Grey500" = "#9E9E9E", "Grey600" = "#757575", "Grey700" = "#616161", "Grey800" = "#424242", "Grey900" = "#212121" ) ggsci_db$"material"$"blue-grey" <- c( "BlueGrey50" = "#ECEFF1", "BlueGrey100" = "#CFD8DC", "BlueGrey200" = "#B0BEC5", "BlueGrey300" = "#90A4AE", "BlueGrey400" = "#78909C", "BlueGrey500" = "#607D8B", "BlueGrey600" = "#546E7A", "BlueGrey700" = "#455A64", "BlueGrey800" = "#37474F", "BlueGrey900" = "#263238" ) # Tailwind CSS v3 color palettes ---- ggsci_db$"tw3"$"slate" <- c( "slate-50" = "#f8fafc", "slate-100" = "#f1f5f9", "slate-200" = "#e2e8f0", "slate-300" = "#cbd5e1", "slate-400" = "#94a3b8", "slate-500" = "#64748b", "slate-600" = "#475569", "slate-700" = "#334155", "slate-800" = "#1e293b", "slate-900" = "#0f172a", "slate-950" = "#020617" ) ggsci_db$"tw3"$"gray" <- c( "gray-50" = "#f9fafb", "gray-100" = "#f3f4f6", "gray-200" = "#e5e7eb", "gray-300" = "#d1d5db", "gray-400" = "#9ca3af", "gray-500" = "#6b7280", "gray-600" = "#4b5563", "gray-700" = "#374151", "gray-800" = "#1f2937", "gray-900" = "#111827", "gray-950" = "#030712" ) ggsci_db$"tw3"$"zinc" <- c( "zinc-50" = "#fafafa", "zinc-100" = "#f4f4f5", "zinc-200" = "#e4e4e7", "zinc-300" = "#d4d4d8", "zinc-400" = "#a1a1aa", "zinc-500" = "#71717a", "zinc-600" = "#52525b", "zinc-700" = "#3f3f46", "zinc-800" = "#27272a", "zinc-900" = "#18181b", "zinc-950" = "#09090b" ) ggsci_db$"tw3"$"neutral" <- c( "neutral-50" = "#fafafa", "neutral-100" = "#f5f5f5", "neutral-200" = "#e5e5e5", "neutral-300" = "#d4d4d4", "neutral-400" = "#a3a3a3", "neutral-500" = "#737373", "neutral-600" = "#525252", "neutral-700" = "#404040", "neutral-800" = "#262626", "neutral-900" = "#171717", "neutral-950" = "#0a0a0a" ) ggsci_db$"tw3"$"stone" <- c( "stone-50" = "#fafaf9", "stone-100" = "#f5f5f4", "stone-200" = "#e7e5e4", "stone-300" = "#d6d3d1", "stone-400" = "#a8a29e", "stone-500" = "#78716c", "stone-600" = "#57534e", "stone-700" = "#44403c", "stone-800" = "#292524", "stone-900" = "#1c1917", "stone-950" = "#0c0a09" ) ggsci_db$"tw3"$"red" <- c( "red-50" = "#fef2f2", "red-100" = "#fee2e2", "red-200" = "#fecaca", "red-300" = "#fca5a5", "red-400" = "#f87171", "red-500" = "#ef4444", "red-600" = "#dc2626", "red-700" = "#b91c1c", "red-800" = "#991b1b", "red-900" = "#7f1d1d", "red-950" = "#450a0a" ) ggsci_db$"tw3"$"orange" <- c( "orange-50" = "#fff7ed", "orange-100" = "#ffedd5", "orange-200" = "#fed7aa", "orange-300" = "#fdba74", "orange-400" = "#fb923c", "orange-500" = "#f97316", "orange-600" = "#ea580c", "orange-700" = "#c2410c", "orange-800" = "#9a3412", "orange-900" = "#7c2d12", "orange-950" = "#431407" ) ggsci_db$"tw3"$"amber" <- c( "amber-50" = "#fffbeb", "amber-100" = "#fef3c7", "amber-200" = "#fde68a", "amber-300" = "#fcd34d", "amber-400" = "#fbbf24", "amber-500" = "#f59e0b", "amber-600" = "#d97706", "amber-700" = "#b45309", "amber-800" = "#92400e", "amber-900" = "#78350f", "amber-950" = "#451a03" ) ggsci_db$"tw3"$"yellow" <- c( "yellow-50" = "#fefce8", "yellow-100" = "#fef9c3", "yellow-200" = "#fef08a", "yellow-300" = "#fde047", "yellow-400" = "#facc15", "yellow-500" = "#eab308", "yellow-600" = "#ca8a04", "yellow-700" = "#a16207", "yellow-800" = "#854d0e", "yellow-900" = "#713f12", "yellow-950" = "#422006" ) ggsci_db$"tw3"$"lime" <- c( "lime-50" = "#f7fee7", "lime-100" = "#ecfccb", "lime-200" = "#d9f99d", "lime-300" = "#bef264", "lime-400" = "#a3e635", "lime-500" = "#84cc16", "lime-600" = "#65a30d", "lime-700" = "#4d7c0f", "lime-800" = "#3f6212", "lime-900" = "#365314", "lime-950" = "#1a2e05" ) ggsci_db$"tw3"$"green" <- c( "green-50" = "#f0fdf4", "green-100" = "#dcfce7", "green-200" = "#bbf7d0", "green-300" = "#86efac", "green-400" = "#4ade80", "green-500" = "#22c55e", "green-600" = "#16a34a", "green-700" = "#15803d", "green-800" = "#166534", "green-900" = "#14532d", "green-950" = "#052e16" ) ggsci_db$"tw3"$"emerald" <- c( "emerald-50" = "#ecfdf5", "emerald-100" = "#d1fae5", "emerald-200" = "#a7f3d0", "emerald-300" = "#6ee7b7", "emerald-400" = "#34d399", "emerald-500" = "#10b981", "emerald-600" = "#059669", "emerald-700" = "#047857", "emerald-800" = "#065f46", "emerald-900" = "#064e3b", "emerald-950" = "#022c22" ) ggsci_db$"tw3"$"teal" <- c( "teal-50" = "#f0fdfa", "teal-100" = "#ccfbf1", "teal-200" = "#99f6e4", "teal-300" = "#5eead4", "teal-400" = "#2dd4bf", "teal-500" = "#14b8a6", "teal-600" = "#0d9488", "teal-700" = "#0f766e", "teal-800" = "#115e59", "teal-900" = "#134e4a", "teal-950" = "#042f2e" ) ggsci_db$"tw3"$"cyan" <- c( "cyan-50" = "#ecfeff", "cyan-100" = "#cffafe", "cyan-200" = "#a5f3fc", "cyan-300" = "#67e8f9", "cyan-400" = "#22d3ee", "cyan-500" = "#06b6d4", "cyan-600" = "#0891b2", "cyan-700" = "#0e7490", "cyan-800" = "#155e75", "cyan-900" = "#164e63", "cyan-950" = "#083344" ) ggsci_db$"tw3"$"sky" <- c( "sky-50" = "#f0f9ff", "sky-100" = "#e0f2fe", "sky-200" = "#bae6fd", "sky-300" = "#7dd3fc", "sky-400" = "#38bdf8", "sky-500" = "#0ea5e9", "sky-600" = "#0284c7", "sky-700" = "#0369a1", "sky-800" = "#075985", "sky-900" = "#0c4a6e", "sky-950" = "#082f49" ) ggsci_db$"tw3"$"blue" <- c( "blue-50" = "#eff6ff", "blue-100" = "#dbeafe", "blue-200" = "#bfdbfe", "blue-300" = "#93c5fd", "blue-400" = "#60a5fa", "blue-500" = "#3b82f6", "blue-600" = "#2563eb", "blue-700" = "#1d4ed8", "blue-800" = "#1e40af", "blue-900" = "#1e3a8a", "blue-950" = "#172554" ) ggsci_db$"tw3"$"indigo" <- c( "indigo-50" = "#eef2ff", "indigo-100" = "#e0e7ff", "indigo-200" = "#c7d2fe", "indigo-300" = "#a5b4fc", "indigo-400" = "#818cf8", "indigo-500" = "#6366f1", "indigo-600" = "#4f46e5", "indigo-700" = "#4338ca", "indigo-800" = "#3730a3", "indigo-900" = "#312e81", "indigo-950" = "#1e1b4b" ) ggsci_db$"tw3"$"violet" <- c( "violet-50" = "#f5f3ff", "violet-100" = "#ede9fe", "violet-200" = "#ddd6fe", "violet-300" = "#c4b5fd", "violet-400" = "#a78bfa", "violet-500" = "#8b5cf6", "violet-600" = "#7c3aed", "violet-700" = "#6d28d9", "violet-800" = "#5b21b6", "violet-900" = "#4c1d95", "violet-950" = "#2e1065" ) ggsci_db$"tw3"$"purple" <- c( "purple-50" = "#faf5ff", "purple-100" = "#f3e8ff", "purple-200" = "#e9d5ff", "purple-300" = "#d8b4fe", "purple-400" = "#c084fc", "purple-500" = "#a855f7", "purple-600" = "#9333ea", "purple-700" = "#7e22ce", "purple-800" = "#6b21a8", "purple-900" = "#581c87", "purple-950" = "#3b0764" ) ggsci_db$"tw3"$"fuchsia" <- c( "fuchsia-50" = "#fdf4ff", "fuchsia-100" = "#fae8ff", "fuchsia-200" = "#f5d0fe", "fuchsia-300" = "#f0abfc", "fuchsia-400" = "#e879f9", "fuchsia-500" = "#d946ef", "fuchsia-600" = "#c026d3", "fuchsia-700" = "#a21caf", "fuchsia-800" = "#86198f", "fuchsia-900" = "#701a75", "fuchsia-950" = "#4a044e" ) ggsci_db$"tw3"$"pink" <- c( "pink-50" = "#fdf2f8", "pink-100" = "#fce7f3", "pink-200" = "#fbcfe8", "pink-300" = "#f9a8d4", "pink-400" = "#f472b6", "pink-500" = "#ec4899", "pink-600" = "#db2777", "pink-700" = "#be185d", "pink-800" = "#9d174d", "pink-900" = "#831843", "pink-950" = "#500724" ) ggsci_db$"tw3"$"rose" <- c( "rose-50" = "#fff1f2", "rose-100" = "#ffe4e6", "rose-200" = "#fecdd3", "rose-300" = "#fda4af", "rose-400" = "#fb7185", "rose-500" = "#f43f5e", "rose-600" = "#e11d48", "rose-700" = "#be123c", "rose-800" = "#9f1239", "rose-900" = "#881337", "rose-950" = "#4c0519" ) ggsci/R/discrete-jama.R0000644000176200001440000000445715120434214014410 0ustar liggesusers#' Journal of the American Medical Association color palettes #' #' Color palette inspired by plots in #' _The Journal of the American Medical Association_. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (7-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_jama #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_jama("default")(7)) #' show_col(pal_jama("default", alpha = 0.6)(7)) pal_jama <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"jama"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Journal of the American Medical Association color scales #' #' See [pal_jama()] for details. #' #' @inheritParams pal_jama #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_jama #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_jama #' #' @examples #' example_scatterplot() + scale_color_jama() #' example_barplot() + scale_fill_jama() scale_color_jama <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_jama(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "jama", palette = pal_jama(palette, alpha), ...) } } #' @export scale_colour_jama #' @rdname scale_jama scale_colour_jama <- scale_color_jama #' @export scale_fill_jama #' @importFrom ggplot2 discrete_scale #' @rdname scale_jama scale_fill_jama <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_jama(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "jama", palette = pal_jama(palette, alpha), ...) } } ggsci/R/utils.R0000644000176200001440000000027315120434214013030 0ustar liggesusers# @staticimports pkg:staticimports # is_installed #' Check if the installed ggplot2 is newer than 3.5.0 #' @noRd is_ggplot2_350 <- function() is_installed("ggplot2", version = "3.5.0") ggsci/R/continuous-gsea.R0000644000176200001440000000714115120434214015014 0ustar liggesusers#' The GSEA GenePattern color palettes #' #' Color palette inspired by the colors used in the #' heatmaps plotted by GSEA GenePattern. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (continuous palette with 12 base colors). #' @param n Number of individual colors to be generated. #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' @param reverse Logical. Should the order of the colors be reversed? #' #' @export rgb_gsea #' #' @importFrom grDevices colorRamp rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @note The 12 base colors used in this palette are derived from the #' [HeatMapImage documentation](https://modulerepository.genepattern.org/gpModuleRepository/download/prod/module/?file=/HeatMapImage/broad.mit.edu:cancer.software.genepattern.module.analysis/00032/6/HeatMapImage.pdf). #' #' @examples #' library("scales") #' show_col(pal_gsea("default")(12)) #' show_col(pal_gsea("default", n = 30, alpha = 0.6, reverse = TRUE)(30)) rgb_gsea <- function(palette = c("default"), n = 12, alpha = 1, reverse = FALSE) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"gsea"[[palette]] func_cols <- colorRamp(raw_cols, space = "Lab", interpolate = "spline") mat_cols <- func_cols(seq(0L, 1L, length.out = n)) alpha_cols <- rgb( mat_cols[, 1L], mat_cols[, 2L], mat_cols[, 3L], alpha = alpha * 255L, maxColorValue = 255L ) if (reverse) alpha_cols <- rev(alpha_cols) alpha_cols } #' The GSEA GenePattern color palettes #' #' Color palette inspired by the colors used in the #' heatmaps plotted by GSEA GenePattern. #' #' @inheritParams rgb_gsea #' #' @export pal_gsea #' #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_gsea("default")(12)) #' show_col(pal_gsea("default", n = 30, alpha = 0.6, reverse = TRUE)(30)) pal_gsea <- function(palette = c("default"), n = 12, alpha = 1, reverse = FALSE) { palette <- match.arg(palette) alpha_cols <- rgb_gsea(palette, n, alpha, reverse) manual_pal(unname(alpha_cols)) } #' The GSEA GenePattern color scales #' #' See [pal_gsea()] for details. #' #' @inheritParams pal_gsea #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_gsea #' #' @importFrom ggplot2 scale_color_gradientn #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_gsea #' #' @examples #' library("ggplot2") #' #' data("mtcars") #' cor <- cor(mtcars) #' cor_melt <- data.frame( #' Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), #' Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), #' value = as.vector(cor) #' ) #' #' ggplot( #' cor_melt, #' aes(x = Var1, y = Var2, fill = value) #' ) + #' geom_tile(colour = "black", size = 0.3) + #' theme_bw() + #' scale_fill_gsea() scale_color_gsea <- function(palette = c("default"), alpha = 1, reverse = FALSE, ...) { palette <- match.arg(palette) scale_color_gradientn(colours = rgb_gsea(palette, n = 512, alpha = alpha, reverse = reverse), ...) } #' @export scale_colour_gsea #' @rdname scale_gsea scale_colour_gsea <- scale_color_gsea #' @export scale_fill_gsea #' @importFrom ggplot2 scale_fill_gradientn #' @rdname scale_gsea scale_fill_gsea <- function(palette = c("default"), alpha = 1, reverse = FALSE, ...) { palette <- match.arg(palette) scale_fill_gradientn(colours = rgb_gsea(palette, n = 512, alpha = alpha, reverse = reverse), ...) } ggsci/R/discrete-npg.R0000644000176200001440000000440315120434214014253 0ustar liggesusers#' NPG journal color palettes #' #' Color palettes inspired by plots in journals published by #' Nature Publishing Group, such as _Nature Reviews Cancer_. #' #' @param palette Palette type. #' Currently there is one available option: `"nrc"` #' (10-color palette inspired by _Nature Reviews Cancer_). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_npg #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_npg("nrc")(10)) #' show_col(pal_npg("nrc", alpha = 0.6)(10)) pal_npg <- function(palette = c("nrc"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"npg"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' NPG journal color scales #' #' See [pal_npg()] for details. #' #' @inheritParams pal_npg #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_npg #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_npg #' #' @examples #' example_scatterplot() + scale_color_npg() #' example_barplot() + scale_fill_npg() scale_color_npg <- function(palette = c("nrc"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_npg(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "npg", palette = pal_npg(palette, alpha), ...) } } #' @export scale_colour_npg #' @rdname scale_npg scale_colour_npg <- scale_color_npg #' @export scale_fill_npg #' @importFrom ggplot2 discrete_scale #' @rdname scale_npg scale_fill_npg <- function(palette = c("nrc"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_npg(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "npg", palette = pal_npg(palette, alpha), ...) } } ggsci/R/continuous-bs5.R0000644000176200001440000000745115120434214014572 0ustar liggesusers#' Bootstrap 5 color palettes #' #' Bootstrap 5 color palettes. #' #' @param palette Palette type. There are 11 available options: #' - `"blue"` #' - `"indigo"` #' - `"purple"` #' - `"pink"` #' - `"red"` #' - `"orange"` #' - `"yellow"` #' - `"green"` #' - `"teal"` #' - `"cyan"` #' - `"gray"` #' @param n Number of individual colors to be generated. #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' @param reverse Logical. Should the order of the colors be reversed? #' #' @export rgb_bs5 #' #' @importFrom grDevices colorRamp rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' #' #' @examples #' library("scales") #' show_col(pal_bs5("indigo")(10)) #' show_col(pal_bs5("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) rgb_bs5 <- function( palette = c( "blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray" ), n = 10, alpha = 1, reverse = FALSE ) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"bs5"[[palette]] func_cols <- colorRamp(raw_cols, space = "Lab", interpolate = "spline") mat_cols <- func_cols(seq(0L, 1L, length.out = n)) alpha_cols <- rgb( mat_cols[, 1L], mat_cols[, 2L], mat_cols[, 3L], alpha = alpha * 255L, maxColorValue = 255L ) if (reverse) alpha_cols <- rev(alpha_cols) alpha_cols } #' Bootstrap 5 color palettes #' #' Bootstrap 5 color palettes. #' #' @inheritParams rgb_bs5 #' #' @export pal_bs5 #' #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_bs5("indigo")(10)) #' show_col(pal_bs5("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) pal_bs5 <- function( palette = c( "blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray" ), n = 10, alpha = 1, reverse = FALSE ) { palette <- match.arg(palette) alpha_cols <- rgb_bs5(palette, n, alpha, reverse) manual_pal(unname(alpha_cols)) } #' Bootstrap 5 color scales #' #' See [pal_bs5()] for details. #' #' @inheritParams pal_bs5 #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_bs5 #' #' @importFrom ggplot2 scale_color_gradientn #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_bs5 #' #' @examples #' library("ggplot2") #' #' data("mtcars") #' cor <- abs(cor(mtcars)) #' cor_melt <- data.frame( #' Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), #' Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), #' value = as.vector(cor) #' ) #' #' ggplot( #' cor_melt, #' aes(x = Var1, y = Var2, fill = value) #' ) + #' geom_tile(colour = "black", size = 0.3) + #' theme_bw() + #' scale_fill_bs5("teal") scale_color_bs5 <- function( palette = c( "blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray" ), alpha = 1, reverse = FALSE, ... ) { palette <- match.arg(palette) scale_color_gradientn( colours = rgb_bs5( palette, n = 512, alpha = alpha, reverse = reverse ), ... ) } #' @export scale_colour_bs5 #' @rdname scale_bs5 scale_colour_bs5 <- scale_color_bs5 #' @export scale_fill_bs5 #' @importFrom ggplot2 scale_fill_gradientn #' @rdname scale_bs5 scale_fill_bs5 <- function( palette = c( "blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray" ), alpha = 1, reverse = FALSE, ... ) { palette <- match.arg(palette) scale_fill_gradientn( colours = rgb_bs5( palette, n = 512, alpha = alpha, reverse = reverse ), ... ) } ggsci/R/discrete-aaas.R0000644000176200001440000000454515120434214014403 0ustar liggesusers#' AAAS journal color palettes #' #' Color palettes inspired by plots in journals published by #' American Association for the Advancement of Science (AAAS), #' such as _Science_ and _Science Translational Medicine_. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (10-color palette inspired by _Science_). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_aaas #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_aaas("default")(10)) #' show_col(pal_aaas("default", alpha = 0.6)(10)) pal_aaas <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"aaas"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' AAAS journal color scales #' #' See [pal_aaas()] for details. #' #' @inheritParams pal_aaas #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_aaas #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_aaas #' #' @examples #' example_scatterplot() + scale_color_aaas() #' example_barplot() + scale_fill_aaas() scale_color_aaas <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_aaas(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "aaas", palette = pal_aaas(palette, alpha), ...) } } #' @export scale_colour_aaas #' @rdname scale_aaas scale_colour_aaas <- scale_color_aaas #' @export scale_fill_aaas #' @importFrom ggplot2 discrete_scale #' @rdname scale_aaas scale_fill_aaas <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_aaas(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "aaas", palette = pal_aaas(palette, alpha), ...) } } ggsci/R/discrete-locuszoom.R0000644000176200001440000000476215120434214015531 0ustar liggesusers#' LocusZoom color palette #' #' Color palettes based on the colors used by LocusZoom. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (7-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_locuszoom #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' Pruim, Randall J., et al. (2010). LocusZoom: regional visualization of #' genome-wide association scan results. _Bioinformatics_, #' 26(18), 2336--2337. #' #' @examples #' library("scales") #' show_col(pal_locuszoom("default")(7)) #' show_col(pal_locuszoom("default", alpha = 0.6)(7)) pal_locuszoom <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"locuszoom"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' LocusZoom color scales #' #' See [pal_locuszoom()] for details. #' #' @inheritParams pal_locuszoom #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_locuszoom #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_locuszoom #' #' @examples #' example_scatterplot() + scale_color_locuszoom() #' example_barplot() + scale_fill_locuszoom() scale_color_locuszoom <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_locuszoom(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "locuszoom", palette = pal_locuszoom(palette, alpha), ...) } } #' @export scale_colour_locuszoom #' @rdname scale_locuszoom scale_colour_locuszoom <- scale_color_locuszoom #' @export scale_fill_locuszoom #' @importFrom ggplot2 discrete_scale #' @rdname scale_locuszoom scale_fill_locuszoom <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_locuszoom(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "locuszoom", palette = pal_locuszoom(palette, alpha), ...) } } ggsci/R/discrete-atlassian.R0000644000176200001440000000532615120434214015453 0ustar liggesusers#' Atlassian Design System palette #' #' The Atlassian Design System categorical data visualization palette. #' #' @param palette Palette type. #' Currently there is one available option: `"categorical8"` #' (8-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_atlassian #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' Atlassian (2025). "Atlassian Design System categorical chart colors." #' #' #' @examples #' library("scales") #' show_col(pal_atlassian("categorical8")(8)) #' show_col(pal_atlassian("categorical8", alpha = 0.6)(8)) pal_atlassian <- function(palette = c("categorical8"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"atlassian"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Atlassian Design System color scales #' #' See [pal_atlassian()] for details. #' #' @inheritParams pal_atlassian #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_atlassian #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' Atlassian (2025). "Atlassian Design System categorical chart colors." #' #' #' @rdname scale_atlassian #' #' @examples #' example_scatterplot() + scale_color_atlassian() #' example_barplot() + scale_fill_atlassian() scale_color_atlassian <- function(palette = c("categorical8"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_atlassian(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "atlassian", palette = pal_atlassian(palette, alpha), ...) } } #' @export scale_colour_atlassian #' @rdname scale_atlassian scale_colour_atlassian <- scale_color_atlassian #' @export scale_fill_atlassian #' @importFrom ggplot2 discrete_scale #' @rdname scale_atlassian scale_fill_atlassian <- function(palette = c("categorical8"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_atlassian(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "atlassian", palette = pal_atlassian(palette, alpha), ...) } } ggsci/R/continuous-tw3.R0000644000176200001440000001057215120434214014614 0ustar liggesusers#' Tailwind CSS color palettes #' #' Tailwind CSS color palettes. #' #' @param palette Palette type. There are 22 available options: #' - `"slate"` #' - `"gray"` #' - `"zinc"` #' - `"neutral"` #' - `"stone"` #' - `"red"` #' - `"orange"` #' - `"amber"` #' - `"yellow"` #' - `"lime"` #' - `"green"` #' - `"emerald"` #' - `"teal"` #' - `"cyan"` #' - `"sky"` #' - `"blue"` #' - `"indigo"` #' - `"violet"` #' - `"purple"` #' - `"fuchsia"` #' - `"pink"` #' - `"rose"` #' @param n Number of individual colors to be generated. #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' @param reverse Logical. Should the order of the colors be reversed? #' #' @export rgb_tw3 #' #' @importFrom grDevices colorRamp rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' #' #' @examples #' library("scales") #' show_col(pal_tw3("rose")(10)) #' show_col(pal_tw3("rose", n = 30, alpha = 0.6, reverse = TRUE)(30)) rgb_tw3 <- function( palette = c( "slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose" ), n = 10, alpha = 1, reverse = FALSE ) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"tw3"[[palette]] func_cols <- colorRamp(raw_cols, space = "Lab", interpolate = "spline") mat_cols <- func_cols(seq(0L, 1L, length.out = n)) alpha_cols <- rgb( mat_cols[, 1L], mat_cols[, 2L], mat_cols[, 3L], alpha = alpha * 255L, maxColorValue = 255L ) if (reverse) alpha_cols <- rev(alpha_cols) alpha_cols } #' Tailwind CSS color palettes #' #' Tailwind CSS color palettes. #' #' @inheritParams rgb_tw3 #' #' @export pal_tw3 #' #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_tw3("rose")(10)) #' show_col(pal_tw3("rose", n = 30, alpha = 0.6, reverse = TRUE)(30)) pal_tw3 <- function( palette = c( "slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose" ), n = 10, alpha = 1, reverse = FALSE ) { palette <- match.arg(palette) alpha_cols <- rgb_tw3(palette, n, alpha, reverse) manual_pal(unname(alpha_cols)) } #' Tailwind CSS color scales #' #' See [pal_tw3()] for details. #' #' @inheritParams pal_tw3 #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_tw3 #' #' @importFrom ggplot2 scale_color_gradientn #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_tw3 #' #' @examples #' library("ggplot2") #' #' data("mtcars") #' cor <- abs(cor(mtcars)) #' cor_melt <- data.frame( #' Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), #' Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), #' value = as.vector(cor) #' ) #' #' ggplot( #' cor_melt, #' aes(x = Var1, y = Var2, fill = value) #' ) + #' geom_tile(colour = "black", size = 0.3) + #' theme_bw() + #' scale_fill_tw3("slate") scale_color_tw3 <- function( palette = c( "slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose" ), alpha = 1, reverse = FALSE, ... ) { palette <- match.arg(palette) scale_color_gradientn( colours = rgb_tw3( palette, n = 512, alpha = alpha, reverse = reverse ), ... ) } #' @export scale_colour_tw3 #' @rdname scale_tw3 scale_colour_tw3 <- scale_color_tw3 #' @export scale_fill_tw3 #' @importFrom ggplot2 scale_fill_gradientn #' @rdname scale_tw3 scale_fill_tw3 <- function( palette = c( "slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose" ), alpha = 1, reverse = FALSE, ... ) { palette <- match.arg(palette) scale_fill_gradientn( colours = rgb_tw3( palette, n = 512, alpha = alpha, reverse = reverse ), ... ) } ggsci/R/discrete-primer.R0000644000176200001440000000501315120434214014763 0ustar liggesusers#' Primer design system palette #' #' The Primer design system data visualization palette. #' #' @param palette Palette type. #' Currently there is one available option: `"mark17"` #' (17-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_primer #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' GitHub (2025). "Primer data visualization colors." #' #' #' @examples #' library("scales") #' show_col(pal_primer("mark17")(17)) #' show_col(pal_primer("mark17", alpha = 0.6)(17)) pal_primer <- function(palette = c("mark17"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"primer"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Primer color scales #' #' See [pal_primer()] for details. #' #' @inheritParams pal_primer #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_primer #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' GitHub (2025). "Primer data visualization colors." #' #' #' @rdname scale_primer #' #' @examples #' example_scatterplot() + scale_color_primer() #' example_barplot() + scale_fill_primer() scale_color_primer <- function(palette = c("mark17"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_primer(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "primer", palette = pal_primer(palette, alpha), ...) } } #' @export scale_colour_primer #' @rdname scale_primer scale_colour_primer <- scale_color_primer #' @export scale_fill_primer #' @importFrom ggplot2 discrete_scale #' @rdname scale_primer scale_fill_primer <- function(palette = c("mark17"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_primer(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "primer", palette = pal_primer(palette, alpha), ...) } } ggsci/R/continuous-material.R0000644000176200001440000001077615120434214015703 0ustar liggesusers#' Material Design color palettes #' #' Material Design 2 color palettes. #' #' @param palette Palette type. There are 19 available options: #' - `"red"` #' - `"pink"` #' - `"purple"` #' - `"deep-purple"` #' - `"indigo"` #' - `"blue"` #' - `"light-blue"` #' - `"cyan"` #' - `"teal"` #' - `"green"` #' - `"light-green"` #' - `"lime"` #' - `"yellow"` #' - `"amber"` #' - `"orange"` #' - `"deep-orange"` #' - `"brown"` #' - `"grey"` #' - `"blue-grey"` #' @param n Number of individual colors to be generated. #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' @param reverse Logical. Should the order of the colors be reversed? #' #' @export rgb_material #' #' @importFrom grDevices colorRamp rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @references #' #' #' @examples #' library("scales") #' show_col(pal_material("indigo")(10)) #' show_col(pal_material("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) rgb_material <- function( palette = c( "red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey" ), n = 10, alpha = 1, reverse = FALSE ) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"material"[[palette]] func_cols <- colorRamp(raw_cols, space = "Lab", interpolate = "spline") mat_cols <- func_cols(seq(0L, 1L, length.out = n)) alpha_cols <- rgb( mat_cols[, 1L], mat_cols[, 2L], mat_cols[, 3L], alpha = alpha * 255L, maxColorValue = 255L ) if (reverse) alpha_cols <- rev(alpha_cols) alpha_cols } #' Material Design color palettes #' #' Material Design 2 color palettes. #' #' @inheritParams rgb_material #' #' @export pal_material #' #' @importFrom scales manual_pal #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @examples #' library("scales") #' show_col(pal_material("indigo")(10)) #' show_col(pal_material("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) pal_material <- function( palette = c( "red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey" ), n = 10, alpha = 1, reverse = FALSE ) { palette <- match.arg(palette) alpha_cols <- rgb_material(palette, n, alpha, reverse) manual_pal(unname(alpha_cols)) } #' Material Design color scales #' #' See [pal_material()] for details. #' #' @inheritParams pal_material #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_material #' #' @importFrom ggplot2 scale_color_gradientn #' #' @author Nan Xiao | \email{me@nanx.me} | #' #' @rdname scale_material #' #' @examples #' library("ggplot2") #' #' data("mtcars") #' cor <- abs(cor(mtcars)) #' cor_melt <- data.frame( #' Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), #' Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), #' value = as.vector(cor) #' ) #' #' ggplot( #' cor_melt, #' aes(x = Var1, y = Var2, fill = value) #' ) + #' geom_tile(colour = "black", size = 0.3) + #' theme_bw() + #' scale_fill_material("blue-grey") scale_color_material <- function( palette = c( "red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey" ), alpha = 1, reverse = FALSE, ... ) { palette <- match.arg(palette) scale_color_gradientn( colours = rgb_material( palette, n = 512, alpha = alpha, reverse = reverse ), ... ) } #' @export scale_colour_material #' @rdname scale_material scale_colour_material <- scale_color_material #' @export scale_fill_material #' @importFrom ggplot2 scale_fill_gradientn #' @rdname scale_material scale_fill_material <- function( palette = c( "red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey" ), alpha = 1, reverse = FALSE, ... ) { palette <- match.arg(palette) scale_fill_gradientn( colours = rgb_material( palette, n = 512, alpha = alpha, reverse = reverse ), ... ) } ggsci/R/discrete-bmj.R0000644000176200001440000000444615120434214014246 0ustar liggesusers#' BMJ color palettes #' #' Color palette from the BMJ living style guide. #' #' @param palette Palette type. #' Currently there is one available option: `"default"` #' (9-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_bmj #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Hui Chen | \email{huichen@zju.edu.cn} #' #' @references #' #' #' @examples #' library("scales") #' show_col(pal_bmj("default")(9)) #' show_col(pal_bmj("default", alpha = 0.6)(9)) pal_bmj <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"bmj"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' BMJ color scales #' #' See [pal_bmj()] for details. #' #' @inheritParams pal_bmj #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_bmj #' #' @importFrom ggplot2 discrete_scale #' #' @author Hui Chen | \email{huichen@zju.edu.cn} #' #' @rdname scale_bmj #' #' @references #' #' #' @examples #' example_scatterplot() + scale_color_bmj() #' example_barplot() + scale_fill_bmj() scale_color_bmj <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_bmj(palette, alpha), ...) } else { discrete_scale("colour", scale_name = "bmj", palette = pal_bmj(palette, alpha), ...) } } #' @export scale_colour_bmj #' @rdname scale_bmj scale_colour_bmj <- scale_color_bmj #' @export scale_fill_bmj #' @importFrom ggplot2 discrete_scale #' @rdname scale_bmj scale_fill_bmj <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_bmj(palette, alpha), ...) } else { discrete_scale("fill", scale_name = "bmj", palette = pal_bmj(palette, alpha), ...) } } ggsci/R/discrete-iterm.R0000644000176200001440000000541615120434214014614 0ustar liggesusers#' iTerm color palettes #' #' ANSI terminal color palettes sourced from the iterm2-color-schemes project. #' Each theme provides normal and bright variants. #' #' @details #' Preview all available iTerm color palettes in ggsci: #' . #' #' @param palette Palette name. See [iterm_palettes()] for available options. #' @param variant Variant of the palette. One of `"normal"`, `"bright"`. #' @param alpha Transparency level, a real number in (0, 1]. #' See `alpha` in [grDevices::rgb()] for details. #' #' @export pal_iterm #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @references #' #' #' @examples #' library("scales") #' show_col(pal_iterm("Rose Pine")(6)) #' show_col(pal_iterm("Rose Pine", variant = "bright", alpha = 0.7)(6)) pal_iterm <- function(palette = iterm_palettes(), variant = c("normal", "bright"), alpha = 1) { palette <- match.arg(palette) variant <- match.arg(variant) if (alpha > 1L || alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db_iterm[[palette]][[variant]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' iTerm color scales #' #' See [pal_iterm()] for details. #' #' @details #' Preview all available iTerm color palettes in ggsci: #' . #' #' @inheritParams pal_iterm #' @param ... Additional parameters for [ggplot2::discrete_scale()]. #' #' @export scale_color_iterm #' #' @importFrom ggplot2 discrete_scale #' #' @rdname scale_iterm #' #' @examples #' example_scatterplot() + scale_color_iterm("Rose Pine") #' example_barplot() + scale_fill_iterm("Rose Pine") scale_color_iterm <- function(palette = iterm_palettes(), variant = c("normal", "bright"), alpha = 1, ...) { palette <- match.arg(palette) variant <- match.arg(variant) if (is_ggplot2_350()) { discrete_scale("colour", palette = pal_iterm(palette, variant, alpha), ...) } else { discrete_scale("colour", scale_name = "iterm", palette = pal_iterm(palette, variant, alpha), ...) } } #' @export scale_colour_iterm #' @rdname scale_iterm scale_colour_iterm <- scale_color_iterm #' @export scale_fill_iterm #' @importFrom ggplot2 discrete_scale #' @rdname scale_iterm scale_fill_iterm <- function(palette = iterm_palettes(), variant = c("normal", "bright"), alpha = 1, ...) { palette <- match.arg(palette) variant <- match.arg(variant) if (is_ggplot2_350()) { discrete_scale("fill", palette = pal_iterm(palette, variant, alpha), ...) } else { discrete_scale("fill", scale_name = "iterm", palette = pal_iterm(palette, variant, alpha), ...) } } ggsci/vignettes/0000755000176200001440000000000015120434234013354 5ustar liggesusersggsci/vignettes/ggsci-faq.Rmd0000644000176200001440000000646115120434214015666 0ustar liggesusers--- title: "Frequently Asked Questions about ggsci" output: rmarkdown::html_document: toc: true toc_float: false toc_depth: 2 number_sections: false highlight: "textmate" css: custom.css vignette: > %\VignetteEngine{knitr::rmarkdown} %\VignetteIndexEntry{Frequently Asked Questions about ggsci} --- ```{r, include=FALSE} knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 3.3334 / 0.618, fig.height = 3.3334, fig.align = "center", out.width = "65%", pngquant = "--speed=1 --quality=50" ) ``` ## What if my data has more categories than the number of colors offered? Although it is recommended that we do not encode too many categories in different colors, in practice, one can still create an "adaptive" color palette based on the existing discrete color palettes in ggsci. See this blog post for a detailed guide on creating [adaptive ggplot2 color scales with color interpolation](https://nanx.me/blog/post/ggplot2-color-interpolation/). ## Use a color scale consistently for multiple plots in a document To apply a color scale for all plots in a document and avoid repetition, a simple solution is setting the two global options `ggplot2.discrete.colour` and `ggplot2.discrete.fill`. For example: ```r library("ggplot2") p <- ggplot(mpg, aes(displ, hwy, colour = factor(cyl), fill = factor(cyl))) + geom_point() + geom_smooth(method = "lm") + theme_bw() p # Set global options options( ggplot2.discrete.colour = ggsci::scale_colour_d3, ggplot2.discrete.fill = ggsci::scale_fill_d3 ) p # Restore original options after use options( ggplot2.discrete.colour = NULL, ggplot2.discrete.fill = NULL ) p ``` ## Customize color ordering in a palette You can customize the color selection and ordering of any discrete color palette in ggsci by using the following function that returns a custom color scale function. This method is flexible and encourages code reuse. ```{r} #' Define a custom color scale #' #' @param pal Name of the color palette, as part of the #' original palette function name. #' @param palette Palette type, as defined in the #' original palette function (optional). #' @param n Number of (first) colors to fetch from the original palette. #' @param order A vector of color index (optional). #' @param alpha Transparency level. #' #' @return A custom color scale function. scale_color_custom <- function(pal, palette, n, order, alpha = 1) { pal <- getFromNamespace(paste0("pal_", pal), "ggsci") colors <- if (missing(palette)) { pal(alpha = alpha)(n) } else { pal(palette = palette, alpha = alpha)(n) } if (length(order) > length(colors)) { stop("The length of order exceeds the number of colors.", call. = FALSE) } colors <- if (!missing(order)) colors[order] ggplot2::scale_color_manual(values = colors) } ``` Use `scale_color_custom()` in an example: ```{r} library(ggplot2) library(ggsci) set.seed(42) df <- data.frame( x = rnorm(100), y = rnorm(100), group = factor(sample(1:5, 100, replace = TRUE)) ) p <- ggplot(df, aes(x = x, y = y, color = group)) + geom_point(size = 3) + theme_minimal() p + scale_color_custom("d3", palette = "category20", n = 20, order = c(14, 11, 13, 12, 15)) ``` ggsci/vignettes/ggsci.Rmd0000644000176200001440000006514715120434214015127 0ustar liggesusers--- title: "Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2" output: rmarkdown::html_document: toc: true toc_float: true toc_depth: 4 number_sections: false highlight: "textmate" css: custom.css vignette: > %\VignetteEngine{knitr::rmarkdown} %\VignetteIndexEntry{Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2} --- ```{r, include=FALSE} knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 10.6667, fig.height = 3.3334, fig.align = "center", out.width = "100%", pngquant = "--speed=1 --quality=50" ) ``` ## Introduction > My eyes were finally opened and I understood nature. > > I learned at the same time to love it. > > --- Claude Monet ggsci offers a collection of high-quality color palettes inspired by colors used in scientific journals, data visualization libraries, science fiction movies, and TV shows. The color palettes in ggsci are available as ggplot2 scales. For all the color palettes, the corresponding scales are named as: - `scale_color_palname()` - `scale_fill_palname()` We also provided aliases, such as `scale_colour_palname()` for `scale_color_palname()`. All available color palettes are summarized in the table below. +-----------------+------------------------------+--------------------------------+----------------------+ | Name | Scales | Palette Types | Palette Generator | +=================+==============================+================================+======================+ | NPG | `scale_color_npg()` | `"nrc"` | `pal_npg()` | | | `scale_fill_npg()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | AAAS | `scale_color_aaas()` | `"default"` | `pal_aaas()` | | | `scale_fill_aaas()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | NEJM | `scale_color_nejm()` | `"default"` | `pal_nejm()` | | | `scale_fill_nejm()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Lancet | `scale_color_lancet()` | `"lanonc"` | `pal_lancet()` | | | `scale_fill_lancet()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | JAMA | `scale_color_jama()` | `"default"` | `pal_jama()` | | | `scale_fill_jama()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | BMJ | `scale_color_bmj()` | `"default"` | `pal_bmj()` | | | `scale_fill_bmj()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | JCO | `scale_color_jco()` | `"default"` | `pal_jco()` | | | `scale_fill_jco()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | UCSCGB | `scale_color_ucscgb()` | `"default"` | `pal_ucscgb()` | | | `scale_fill_ucscgb()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | D3 | `scale_color_d3()`
| `"category10"` | `pal_d3()` | | | `scale_fill_d3()` | `"category20"` | | | | | `"category20b"` | | | | | `"category20c"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Observable | `scale_color_observable()` | `"observable10"` | `pal_observable()` | | | `scale_fill_observable()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Primer | `scale_color_primer()` | `"mark17"` | `pal_primer()` | | | `scale_fill_primer()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Atlassian | `scale_color_atlassian()` | `"categorical8"` | `pal_atlassian()` | | | `scale_fill_atlassian()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | iTerm | `scale_color_iterm()` | `iterm_palettes()` | `pal_iterm()` | | | `scale_fill_iterm()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | LocusZoom | `scale_color_locuszoom()` | `"default"` | `pal_locuszoom()` | | | `scale_fill_locuszoom()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | IGV | `scale_color_igv()` | `"default"`
| `pal_igv()` | | | `scale_fill_igv()` | `"alternating"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | COSMIC | `scale_color_cosmic()` | `"hallmarks_light"`
| `pal_cosmic()` | | | `scale_fill_cosmic()` | `"hallmarks_dark"`
| | | | | `"signature_substitutions"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | UChicago | `scale_color_uchicago()` | `"default"`
| `pal_uchicago()` | | | `scale_fill_uchicago()` | `"light"`
| | | | | `"dark"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Star Trek | `scale_color_startrek()` | `"uniform"` | `pal_startrek()` | | | `scale_fill_startrek()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Tron Legacy | `scale_color_tron()` | `"legacy"` | `pal_tron()` | | | `scale_fill_tron()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Futurama | `scale_color_futurama()` | `"planetexpress"` | `pal_futurama()` | | | `scale_fill_futurama()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Rick and Morty | `scale_color_rickandmorty()` | `"schwifty"` | `pal_rickandmorty()` | | | `scale_fill_rickandmorty()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | The Simpsons | `scale_color_simpsons()` | `"springfield"` | `pal_simpsons()` | | | `scale_fill_simpsons()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Flat UI | `scale_color_flatui()` | `"default"` | `pal_flatui()` | | | `scale_fill_flatui()` | `"flattastic"` | | | | | `"aussie"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Frontiers | `scale_color_frontiers()` | `"default"` | `pal_frontiers()` | | | `scale_fill_frontiers()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | GSEA | `scale_color_gsea()` | `"default"` | `pal_gsea()` | | | `scale_fill_gsea()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Bootstrap 5 | `scale_color_bs5()` | `"blue"` `"indigo"`
| `pal_bs5()` | | | `scale_fill_bs5()` | `"purple"` `"pink"`
| | | | | `"red"` `"orange"`
| | | | | `"yellow"` `"green"`
| | | | | `"teal"` `"cyan"`
| | | | | `"gray"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Material Design | `scale_color_material()` | `"red"` `"pink"`
| `pal_material()` | | | `scale_fill_material()` | `"purple"` `"deep-purple"`
| | | | | `"indigo"` `"blue"`
| | | | | `"light-blue"` `"cyan"`
| | | | | `"teal"` `"green"`
| | | | | `"light-green"` `"lime"`
| | | | | `"yellow"` `"amber"`
| | | | | `"orange"` `"deep-orange"`
| | | | | `"brown"` `"grey"`
| | | | | `"blue-grey"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Tailwind CSS | `scale_color_tw3()` | `"slate"` `"gray"`
| `pal_tw3()` | | | `scale_fill_tw3()` | `"zinc"` `"neutral"`
| | | | | `"stone"` `"red"`
| | | | | `"orange"` `"amber"`
| | | | | `"yellow"` `"lime"`
| | | | | `"green"` `"emerald"`
| | | | | `"teal"` `"cyan"`
| | | | | `"sky"` `"blue"`
| | | | | `"indigo"` `"violet"`
| | | | | `"purple"` `"fuchsia"`
| | | | | `"pink"` `"rose"` | | +-----------------+------------------------------+--------------------------------+----------------------+ ## Discrete color palettes We will use scatterplots with smooth curves, and bar plots to demonstrate the discrete color palettes in ggsci. ```{r, message=FALSE, warning=FALSE} library("ggsci") library("ggplot2") library("gridExtra") ``` ```{r} p1 <- example_scatterplot() p2 <- example_barplot() ``` ### NPG The NPG palette is inspired by the plots in the journals published by Nature Publishing Group: ```{r} p1_npg <- p1 + scale_color_npg() p2_npg <- p2 + scale_fill_npg() grid.arrange(p1_npg, p2_npg, ncol = 2) ``` ### AAAS The AAAS palette is inspired by the plots in the journals published by American Association for the Advancement of Science: ```{r} p1_aaas <- p1 + scale_color_aaas() p2_aaas <- p2 + scale_fill_aaas() grid.arrange(p1_aaas, p2_aaas, ncol = 2) ``` ### NEJM The NEJM palette is inspired by the plots in the _New England Journal of Medicine_: ```{r} p1_nejm <- p1 + scale_color_nejm() p2_nejm <- p2 + scale_fill_nejm() grid.arrange(p1_nejm, p2_nejm, ncol = 2) ``` ### Lancet The Lancet palette is inspired by the plots in _Lancet_ journals, such as _Lancet Oncology_: ```{r} p1_lancet <- p1 + scale_color_lancet() p2_lancet <- p2 + scale_fill_lancet() grid.arrange(p1_lancet, p2_lancet, ncol = 2) ``` ### JAMA The JAMA palette is inspired by the plots in the _Journal of the American Medical Association_: ```{r} p1_jama <- p1 + scale_color_jama() p2_jama <- p2 + scale_fill_jama() grid.arrange(p1_jama, p2_jama, ncol = 2) ``` ### BMJ The BMJ palette is from the [BMJ living style guide](https://technology.bmj.com/living-style-guide/colour.html): ```{r} p1_bmj <- p1 + scale_color_bmj() p2_bmj <- p2 + scale_fill_bmj() grid.arrange(p1_bmj, p2_bmj, ncol = 2) ``` ### JCO The JCO palette is inspired by the the plots in _Journal of Clinical Oncology_: ```{r} p1_jco <- p1 + scale_color_jco() p2_jco <- p2 + scale_fill_jco() grid.arrange(p1_jco, p2_jco, ncol = 2) ``` ### UCSCGB The UCSCGB palette is from the colors used by [UCSC Genome Browser](https://genome.ucsc.edu) for representing chromosomes. This palette (interpolated, with alpha) is intensively used in visualizations generated by Circos. ```{r} p1_ucscgb <- p1 + scale_color_ucscgb() p2_ucscgb <- p2 + scale_fill_ucscgb() grid.arrange(p1_ucscgb, p2_ucscgb, ncol = 2) ``` ### D3 The D3 palette is from the categorical colors used by [D3.js](https://d3js.org) (version 3.x and before). There are four palette types (`category10`, `category20`, `category20b`, `category20c`) available. ```{r} p1_d3 <- p1 + scale_color_d3() p2_d3 <- p2 + scale_fill_d3() grid.arrange(p1_d3, p2_d3, ncol = 2) ``` ### Observable The [Observable 10 palette](https://observablehq.com/blog/crafting-data-colors) is the default categorical colors scheme used by Observable. ```{r} p1_observable <- p1 + scale_color_observable() p2_observable <- p2 + scale_fill_observable() grid.arrange(p1_observable, p2_observable, ncol = 2) ``` ### Primer The Primer palette follows the data visualization colors from [GitHub's Primer design system](https://primer.style/product/ui-patterns/data-visualization/). ```{r} p1_primer <- p1 + scale_color_primer() p2_primer <- p2 + scale_fill_primer() grid.arrange(p1_primer, p2_primer, ncol = 2) ``` ### Atlassian The palette follows the categorical chart colors from [Atlassian Design System](https://atlassian.design/foundations/color-new/data-visualization-color). ```{r} p1_atlassian <- p1 + scale_color_atlassian() p2_atlassian <- p2 + scale_fill_atlassian() grid.arrange(p1_atlassian, p2_atlassian, ncol = 2) ``` ### iTerm These palettes are sourced from the iterm2-color-schemes project, which includes 400+ color schemes (list them with `iterm_palettes()`). Each scheme provides six categorical colors with two possible variants: `"normal"` and `"bright"`. You can preview these color palettes in ggsci on a dedicated microsite: . It renders example plots for all palettes on a single page for fast visual comparison. ```{r} p1_iterm <- p1 + scale_color_iterm("Rose Pine") p2_iterm <- p2 + scale_fill_iterm("Rose Pine") grid.arrange(p1_iterm, p2_iterm, ncol = 2) ``` ### LocusZoom The LocusZoom palette is based on the colors used by [LocusZoom](http://locuszoom.org/). ```{r} p1_locuszoom <- p1 + scale_color_locuszoom() p2_locuszoom <- p2 + scale_fill_locuszoom() grid.arrange(p1_locuszoom, p2_locuszoom, ncol = 2) ``` ### IGV The IGV palette is from the colors used by [Integrative Genomics Viewer](https://igv.org/doc/desktop/) for representing chromosomes. There are two palette types (`default`, `alternating`) available. ```{r} p1_igv_default <- p1 + scale_color_igv() p2_igv_default <- p2 + scale_fill_igv() grid.arrange(p1_igv_default, p2_igv_default, ncol = 2) ``` ### COSMIC Color palettes inspired by the colors used in projects from the [Catalogue Of Somatic Mutations in Cancers (COSMIC)](https://cancer.sanger.ac.uk/cosmic). ```{r} p1_cosmic_hallmarks_light <- p1 + scale_color_cosmic("hallmarks_light") p2_cosmic_hallmarks_light <- p2 + scale_fill_cosmic("hallmarks_light") grid.arrange(p1_cosmic_hallmarks_light, p2_cosmic_hallmarks_light, ncol = 2) ``` ```{r} p1_cosmic_hallmarks_dark <- p1 + scale_color_cosmic("hallmarks_dark") p2_cosmic_hallmarks_dark <- p2 + scale_fill_cosmic("hallmarks_dark") grid.arrange(p1_cosmic_hallmarks_dark, p2_cosmic_hallmarks_dark, ncol = 2) ``` ```{r} p1_cosmic_signature <- p1 + scale_color_cosmic("signature_substitutions") p2_cosmic_signature <- p2 + scale_fill_cosmic("signature_substitutions") grid.arrange(p1_cosmic_signature, p2_cosmic_signature, ncol = 2) ``` ### UChicago The UChicago palette is based on [the colors](https://news.uchicago.edu/sites/default/files/UCM_UniversityIdentityGuidelines_2-2020.pdf) used by the University of Chicago. There are three palette types (`default`, `light`, `dark`) available. ```{r} p1_uchicago <- p1 + scale_color_uchicago() p2_uchicago <- p2 + scale_fill_uchicago() grid.arrange(p1_uchicago, p2_uchicago, ncol = 2) ``` ### Star Trek This palette is inspired by the (uniform) colors in _Star Trek_: ```{r} p1_startrek <- p1 + scale_color_startrek() p2_startrek <- p2 + scale_fill_startrek() grid.arrange(p1_startrek, p2_startrek, ncol = 2) ``` ### Tron Legacy This palette is inspired by the colors used in _Tron Legacy_. It is suitable for displaying data when using a dark theme: ```{r} p1_tron <- p1 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_tron() p2_tron <- p2 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_tron() grid.arrange(p1_tron, p2_tron, ncol = 2) ``` ### Futurama This palette is inspired by the colors used in the TV show _Futurama_: ```{r} p1_futurama <- p1 + scale_color_futurama() p2_futurama <- p2 + scale_fill_futurama() grid.arrange(p1_futurama, p2_futurama, ncol = 2) ``` ### Rick and Morty This palette is inspired by the colors used in the TV show _Rick and Morty_: ```{r} p1_rickandmorty <- p1 + scale_color_rickandmorty() p2_rickandmorty <- p2 + scale_fill_rickandmorty() grid.arrange(p1_rickandmorty, p2_rickandmorty, ncol = 2) ``` ### The Simpsons This palette is inspired by the colors used in the TV show _The Simpsons_: ```{r} p1_simpsons <- p1 + scale_color_simpsons() p2_simpsons <- p2 + scale_fill_simpsons() grid.arrange(p1_simpsons, p2_simpsons, ncol = 2) ``` ### Flat UI Three flat UI color palettes from [Flat UI Colors 2](https://flatuicolors.com): ```{r} p1_flatui <- p1 + scale_color_flatui() p2_flatui <- p2 + scale_fill_flatui() grid.arrange(p1_flatui, p2_flatui, ncol = 2) ``` ### Frontiers This color palette inspired by [Frontiers](https://www.frontiersin.org): ```{r} p1_frontiers <- p1 + scale_color_frontiers() p2_frontiers <- p2 + scale_fill_frontiers() grid.arrange(p1_frontiers, p2_frontiers, ncol = 2) ``` ## Continuous color palettes There are two types of continuous color palettes in ggsci: diverging and sequential. Diverging palettes have a central neutral color and contrasting colors at the ends, making them suitable for visualizing data with a natural midpoint. Sequential palettes use a gradient of colors that range from low to high intensity or lightness, making them ideal for representing data with increasing or decreasing values. We will use a correlation matrix visualization (a special type of heatmap) to demonstrate the diverging color palettes. ```{r} data("mtcars") cor <- cor(unname(mtcars)) cor_melt <- data.frame( Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), value = as.vector(cor) ) p3 <- ggplot(cor_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + theme_void() + theme( axis.title.x = element_blank(), axis.title.y = element_blank() ) ``` To demonstrate sequential palettes, we use a random matrix: ```{r} set.seed(42) k <- 6 x <- diag(k) x[upper.tri(x)] <- runif(sum(1:(k - 1)), 0, 1) x_melt <- data.frame( Var1 = rep(seq_len(nrow(x)), times = ncol(x)), Var2 = rep(seq_len(ncol(x)), each = nrow(x)), value = as.vector(x) ) p4 <- ggplot(x_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) + theme_bw() + theme( legend.position = "none", plot.background = element_blank(), axis.line = element_blank(), axis.ticks = element_blank(), axis.text.x = element_blank(), axis.text.y = element_blank(), axis.title.x = element_blank(), axis.title.y = element_blank(), panel.background = element_blank(), panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank() ) ``` ### GSEA The GSEA palette (continuous) is inspired by the heatmaps generated by [GSEA GenePattern](https://software.broadinstitute.org/cancer/software/genepattern/). ```{r, fig.height=4} p3_gsea <- p3 + scale_fill_gsea() p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE) grid.arrange(p3_gsea, p3_gsea_inv, ncol = 2) ``` ### Bootstrap 5 The Bootstrap 5 color palettes are from the [Bootstrap 5 color system](https://getbootstrap.com/docs/5.3/customize/color/#all-colors). ```{r, fig.height=2.6} grid.arrange( p4 + scale_fill_bs5("blue"), p4 + scale_fill_bs5("indigo"), p4 + scale_fill_bs5("purple"), p4 + scale_fill_bs5("pink"), p4 + scale_fill_bs5("red"), p4 + scale_fill_bs5("orange"), p4 + scale_fill_bs5("yellow"), p4 + scale_fill_bs5("green"), p4 + scale_fill_bs5("teal"), p4 + scale_fill_bs5("cyan"), p4 + scale_fill_bs5("gray"), ncol = 8 ) ``` ### Material Design The Material Design color palettes are from the [Material Design color system](https://m2.material.io/design/color/the-color-system.html). ```{r, fig.height=3.8} grid.arrange( p4 + scale_fill_material("red"), p4 + scale_fill_material("pink"), p4 + scale_fill_material("purple"), p4 + scale_fill_material("deep-purple"), p4 + scale_fill_material("indigo"), p4 + scale_fill_material("blue"), p4 + scale_fill_material("light-blue"), p4 + scale_fill_material("cyan"), p4 + scale_fill_material("teal"), p4 + scale_fill_material("green"), p4 + scale_fill_material("light-green"), p4 + scale_fill_material("lime"), p4 + scale_fill_material("yellow"), p4 + scale_fill_material("amber"), p4 + scale_fill_material("orange"), p4 + scale_fill_material("deep-orange"), p4 + scale_fill_material("brown"), p4 + scale_fill_material("grey"), p4 + scale_fill_material("blue-grey"), ncol = 8 ) ``` ### Tailwind CSS The Tailwind CSS color palettes are from the [Tailwind default colors](https://tailwindcss.com/docs/customizing-colors). ```{r, fig.height=3.8} grid.arrange( p4 + scale_fill_tw3("slate"), p4 + scale_fill_tw3("gray"), p4 + scale_fill_tw3("zinc"), p4 + scale_fill_tw3("neutral"), p4 + scale_fill_tw3("stone"), p4 + scale_fill_tw3("red"), p4 + scale_fill_tw3("orange"), p4 + scale_fill_tw3("amber"), p4 + scale_fill_tw3("yellow"), p4 + scale_fill_tw3("lime"), p4 + scale_fill_tw3("green"), p4 + scale_fill_tw3("emerald"), p4 + scale_fill_tw3("teal"), p4 + scale_fill_tw3("cyan"), p4 + scale_fill_tw3("sky"), p4 + scale_fill_tw3("blue"), p4 + scale_fill_tw3("indigo"), p4 + scale_fill_tw3("violet"), p4 + scale_fill_tw3("purple"), p4 + scale_fill_tw3("fuchsia"), p4 + scale_fill_tw3("pink"), p4 + scale_fill_tw3("rose"), ncol = 8 ) ``` From the figure above, we can see that even though an identical matrix was visualized by all plots, some palettes are more preferable than the others because our eyes are more sensitive to the changes of their saturation levels. ## Non-ggplot2 graphics To apply the color palettes in ggsci to other graphics systems (such as base graphics and lattice graphics), simply use the palette generator functions in the table above. For example: ```{r, fig.width=6.67, fig.height=6.67, out.width="60%"} mypal <- pal_npg("nrc", alpha = 0.7)(9) mypal scales::show_col(mypal) ``` You will be able to use the generated hex color codes for such graphics systems accordingly. The transparent level of the entire palette is easily adjustable via the argument `"alpha"` in every generator or scale function. ## Discussion Please note some of the palettes might not be the best choice for certain purposes, such as color-blind safe, photocopy safe, or print friendly. If you do have such considerations, you might want to check out color palettes like [ColorBrewer](https://colorbrewer2.org) and [viridis](https://cran.r-project.org/package=viridis). The color palettes in this package are solely created for research purposes. The authors are not responsible for the usage of such palettes. ggsci/vignettes/custom.css0000644000176200001440000000562615120434214015407 0ustar liggesusers/* custom css style for Nan Xiao's R package vignettes */ body { font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Roboto, "Helvetica Neue", Arial, "Noto Sans", sans-serif, "Apple Color Emoji", "Segoe UI Emoji", "Segoe UI Symbol", "Noto Color Emoji"; font-size: 16px; line-height: 1.5; color: #212529; padding-top: 25px; padding-bottom: 25px; } h1.title { padding-bottom: 10px; } h1, h2, h3, h4, h5, h6 { color: #212529; font-weight: 700; } h1, h1.title { font-size: 30px; } h2 { font-size: 24px; } h3 { font-size: 20px; } h4 { font-size: 16px; } h5 { font-size: 16px; } h6 { font-size: 16px; } h4.author { padding-bottom: 10px; } h4.author>em { font-size: 14px; font-style: normal; font-weight: 300; } h4.date { padding-bottom: 10px; } h4.date>em { font-size: 14px; font-style: normal; font-weight: 300; } a { color: #4582EC; } a:hover, a:focus, a:active { color: #1559CF; } a:focus { outline: thin dotted; } a:hover, a:active { outline: 0; } pre, code { font-family: SFMono-Regular, Menlo, Monaco, Consolas, "Liberation Mono", "Courier New", monospace; background-color: #f8f9fa; border: none; } /* float toc */ .list-group-item.active, .list-group-item.active:focus, .list-group-item.active:hover { background-color: #4582EC; border-color: #4582EC; } /* figure */ div.figure { text-align: center; } p.caption { text-align: center; } .footnote { position: absolute; bottom: 3em; padding-right: 4em; color: #4287c7; } .remark-code, .remark-inline-code { font-family: SFMono-Regular, Menlo, Monaco, Consolas, "Liberation Mono", "Courier New", monospace; background-color: #c8c8c8; } .remark-code-line-highlighted { background-color: #fff; } .remark-slide .title-slide { padding-left: 340px; padding-top: 110px; } .title-slide h1, .title-slide h2, .title-slide h3 { color: #585858; } .title-slide h1, .title-slide h2 { font-weight: 700; margin-top: 20px; margin-bottom: 80px; } .title-slide h3 { font-weight: 300; font-weight: normal; margin: 0; } .dark-green { background-color: #789d57; } .dark-green h2, .dark-green h1 { color: #fff; } .dark-gray { background-color: #585858; } .dark-gray h2, .dark-gray h1 { color: #fff; } /* Two-column layout */ .left-column { color: #777; width: 20%; height: 92%; float: left; } .left-column h2:last-of-type, .left-column h3:last-child { color: #000; } .right-column { width: 75%; float: right; padding-top: 1em; } .pull-left { float: left; width: 47%; } .pull-right { float: right; width: 47%; } .pull-right~* { clear: both; } img, video, iframe { max-width: 100%; } blockquote { border-left: solid 5px lightgray; padding-left: 1em; } table { margin: auto; border-bottom: 1px solid #666; } table thead th { border-bottom: 1px solid #ddd; } th, td { padding: 5px; } thead, tfoot, tr:nth-child(even) { background: #eee } ggsci/NAMESPACE0000644000176200001440000000624315120434214012566 0ustar liggesusers# Generated by roxygen2: do not edit by hand export(example_barplot) export(example_scatterplot) export(iterm_palettes) export(pal_aaas) export(pal_atlassian) export(pal_bmj) export(pal_bs5) export(pal_cosmic) export(pal_d3) export(pal_flatui) export(pal_frontiers) export(pal_futurama) export(pal_gsea) export(pal_igv) export(pal_iterm) export(pal_jama) export(pal_jco) export(pal_lancet) export(pal_locuszoom) export(pal_material) export(pal_nejm) export(pal_npg) export(pal_observable) export(pal_primer) export(pal_rickandmorty) export(pal_simpsons) export(pal_startrek) export(pal_tron) export(pal_tw3) export(pal_uchicago) export(pal_ucscgb) export(rgb_bs5) export(rgb_gsea) export(rgb_material) export(rgb_tw3) export(scale_color_aaas) export(scale_color_atlassian) export(scale_color_bmj) export(scale_color_bs5) export(scale_color_cosmic) export(scale_color_d3) export(scale_color_flatui) export(scale_color_frontiers) export(scale_color_futurama) export(scale_color_gsea) export(scale_color_igv) export(scale_color_iterm) export(scale_color_jama) export(scale_color_jco) export(scale_color_lancet) export(scale_color_locuszoom) export(scale_color_material) export(scale_color_nejm) export(scale_color_npg) export(scale_color_observable) export(scale_color_primer) export(scale_color_rickandmorty) export(scale_color_simpsons) export(scale_color_startrek) export(scale_color_tron) export(scale_color_tw3) export(scale_color_uchicago) export(scale_color_ucscgb) export(scale_colour_aaas) export(scale_colour_atlassian) export(scale_colour_bmj) export(scale_colour_bs5) export(scale_colour_cosmic) export(scale_colour_d3) export(scale_colour_flatui) export(scale_colour_frontiers) export(scale_colour_futurama) export(scale_colour_gsea) export(scale_colour_igv) export(scale_colour_iterm) export(scale_colour_jama) export(scale_colour_jco) export(scale_colour_lancet) export(scale_colour_locuszoom) export(scale_colour_material) export(scale_colour_nejm) export(scale_colour_npg) export(scale_colour_observable) export(scale_colour_primer) export(scale_colour_rickandmorty) export(scale_colour_simpsons) export(scale_colour_startrek) export(scale_colour_tron) export(scale_colour_tw3) export(scale_colour_uchicago) export(scale_colour_ucscgb) export(scale_fill_aaas) export(scale_fill_atlassian) export(scale_fill_bmj) export(scale_fill_bs5) export(scale_fill_cosmic) export(scale_fill_d3) export(scale_fill_flatui) export(scale_fill_frontiers) export(scale_fill_futurama) export(scale_fill_gsea) export(scale_fill_igv) export(scale_fill_iterm) export(scale_fill_jama) export(scale_fill_jco) export(scale_fill_lancet) export(scale_fill_locuszoom) export(scale_fill_material) export(scale_fill_nejm) export(scale_fill_npg) export(scale_fill_observable) export(scale_fill_primer) export(scale_fill_rickandmorty) export(scale_fill_simpsons) export(scale_fill_startrek) export(scale_fill_tron) export(scale_fill_tw3) export(scale_fill_uchicago) export(scale_fill_ucscgb) importFrom(ggplot2,discrete_scale) importFrom(ggplot2,scale_color_gradientn) importFrom(ggplot2,scale_fill_gradientn) importFrom(grDevices,col2rgb) importFrom(grDevices,colorRamp) importFrom(grDevices,rgb) importFrom(rlang,.data) importFrom(scales,manual_pal) ggsci/NEWS.md0000644000176200001440000001345515120434214012450 0ustar liggesusers# ggsci 4.2.0 ## Improvements - Synchronize the iTerm color palettes with upstream (#75). This update adds 8 new palettes to `iterm_palettes()`: branch, No Clown Fiesta variations, novmbr, One Dark Two, owl, traffic, and urban. These palettes are now usable by `pal_iterm()`, `scale_color_iterm()`, and `scale_fill_iterm()`. # ggsci 4.1.0 ## Improvements - Synchronize the iTerm color palettes with upstream (#72). This update adds 8 new palettes to `iterm_palettes()`: Hot Dog Stand variations, Matte Black, Poimandres variations, and Selenized Black. These palettes are now usable by `pal_iterm()`, `scale_color_iterm()`, and `scale_fill_iterm()`. Additionally, the color values for 40+ existing iTerm palettes have been updated to match the latest upstream color specifications. ## Documentation - Add the [ggsci iterm palettes microsite](https://nanx.me/ggsci-iterm/) link to `vignette("ggsci")` (#70). This microsite helps users preview all iTerm color palettes available in ggsci. # ggsci 4.0.0 ## New features - Add the Primer design system (from GitHub) palette in `scale_color_primer()` and `scale_fill_primer()` (#62, #63). - Add the Atlassian Design System palette in `scale_color_atlassian()` and `scale_fill_atlassian()` (#64). - Add 400+ iTerm palettes in `scale_color_iterm()` and `scale_fill_iterm()` (#67). ## Improvements - Add `example_scatterplot()` and `example_barplot()` to simplify discrete scale examples in documentation. This reduces boilerplate code and makes it easier to maintain the examples. Also improves graphical appearance of the examples by using a minimalist theme with alternative data subsets (#61). ## Maintenance - Refactor the logo generation script from an R script to a shell script and move it into `tools/` (#66). - Use standard static imports workflow (#58). # ggsci 3.2.0 ## New features - Add the Observable 10 palette in `scale_color_observable()` and `scale_fill_observable()` (#41). - Add Bootstrap 5 color palettes (continuous) in `scale_color_bs5()` and `scale_fill_bs5()` (#18). - Add Tailwind CSS color palettes (continuous) in `scale_color_tw3()` and `scale_fill_tw3()` (#19). ## Improvements - Move internal color palette data from `R/sysdata.rda` to `R/palettes.R`. This change enhances package development transparency, reduces unnecessary indirection, and simplifies contributions by avoiding the construction of the palette data using the R script in `data-raw/` (#42). - For continuous palette examples, remove the reshape2 dependency and use more compact grid layout to reduce output image size (#45). # ggsci 3.1.0 ## New features - The BMJ color palettes are implemented in `scale_color_bmj()` and `scale_fill_bmj()` (thanks, @huichen99, #32). ## Documentation - Convert Rd syntax to Markdown in roxygen2 documentation. This simplifies documentation formatting and makes it much easier to add new color scales for contributors (#35). # ggsci 3.0.3 ## Improvements - Detect ggplot2 version at runtime to determine if the argument `scale_name` is needed for all `discrete_scale()` calls. This ensures ggsci always works regardless of the ggplot2 version installed (thanks, @flyingicedragon, #29). # ggsci 3.0.2 ## Improvements - Remove `scale_name` from all `discrete_scale()` calls because the argument has been deprecated in ggplot2 3.5.0 (thanks, @DanChaltiel, #25). # ggsci 3.0.1 ## Improvements - Expand the FAQ vignette to include a solution for [customizing color selection and ordering in a palette](https://nanx.me/ggsci/articles/ggsci-faq.html#customize-color-ordering-in-a-palette) with self-defined color scale functions (#23). - Fix "lost braces" check notes on r-devel by using Unicode characters (nanxstats/ggsci@a91faf1). # ggsci 3.0.0 ## New features - Added three Flat UI color palettes in - `scale_color_flatui()` - `scale_fill_flatui()` and one color palette inspired by the logo of frontiers.org in - `scale_color_frontiers()` - `scale_fill_frontiers()` (thanks, @clarajegousse, #14). - Added three COSMIC color palettes in - `scale_color_cosmic()` - `scale_fill_cosmic()` (thanks, @jhrcook, #5, #7). ## Improvements - Use a proper, three-component version number following Semantic Versioning. - Reduce output figure size in vignettes and `README.Rmd` by switching to the ragg PNG device and using pngquant for compression. - Added a new vignette on frequently asked questions. - A simple solution to interpolate the color palettes when the data has more categories than the number of colors in a discrete color scale. - A note on using a color scale consistently for multiple ggplot2 plots by setting global options (thanks, @DanChaltiel, #13). - Replace `size` with `linewidth` in code examples for ggplot2 >= 3.4.0. - Replaced the previous logo with a new hex sticker logo. - Replaced previous CI/CD solutions with GitHub Actions workflows. - Fixed broken or moved links in function documentation and vignettes. - Removed the `LazyData` field from `DESCRIPTION`. # ggsci 2.9 ## Improvements - New URL for the documentation website: . # ggsci 2.8 ## Improvements - Use system font stack instead of Google Fonts in vignettes to avoid pandoc SSL issue. # ggsci 2.7 ## New features Two new discrete color palettes: - JAMA - Tron Legacy One new collection of continuous palettes with 19 color options: - Material Design # ggsci 2.4 ## New features Four new discrete color palettes: - NEJM - LocusZoom - IGV - Star Trek # ggsci 2.0 ## New features Two new discrete color palettes: - D3.js (v3) - Futurama (Planet Express) The first continuous color palette: - GSEA GenePattern # ggsci 1.0 ## New features Eight discrete color palettes (2016-04-01): - NPG - AAAS - Lancet - JCO - UCSCGB - UChicago - The Simpsons (Springfield) - Rick and Morty (Schwifty) ggsci/inst/0000755000176200001440000000000015120434234012321 5ustar liggesusersggsci/inst/doc/0000755000176200001440000000000015120434234013066 5ustar liggesusersggsci/inst/doc/ggsci-faq.Rmd0000644000176200001440000000646115120434214015400 0ustar liggesusers--- title: "Frequently Asked Questions about ggsci" output: rmarkdown::html_document: toc: true toc_float: false toc_depth: 2 number_sections: false highlight: "textmate" css: custom.css vignette: > %\VignetteEngine{knitr::rmarkdown} %\VignetteIndexEntry{Frequently Asked Questions about ggsci} --- ```{r, include=FALSE} knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 3.3334 / 0.618, fig.height = 3.3334, fig.align = "center", out.width = "65%", pngquant = "--speed=1 --quality=50" ) ``` ## What if my data has more categories than the number of colors offered? Although it is recommended that we do not encode too many categories in different colors, in practice, one can still create an "adaptive" color palette based on the existing discrete color palettes in ggsci. See this blog post for a detailed guide on creating [adaptive ggplot2 color scales with color interpolation](https://nanx.me/blog/post/ggplot2-color-interpolation/). ## Use a color scale consistently for multiple plots in a document To apply a color scale for all plots in a document and avoid repetition, a simple solution is setting the two global options `ggplot2.discrete.colour` and `ggplot2.discrete.fill`. For example: ```r library("ggplot2") p <- ggplot(mpg, aes(displ, hwy, colour = factor(cyl), fill = factor(cyl))) + geom_point() + geom_smooth(method = "lm") + theme_bw() p # Set global options options( ggplot2.discrete.colour = ggsci::scale_colour_d3, ggplot2.discrete.fill = ggsci::scale_fill_d3 ) p # Restore original options after use options( ggplot2.discrete.colour = NULL, ggplot2.discrete.fill = NULL ) p ``` ## Customize color ordering in a palette You can customize the color selection and ordering of any discrete color palette in ggsci by using the following function that returns a custom color scale function. This method is flexible and encourages code reuse. ```{r} #' Define a custom color scale #' #' @param pal Name of the color palette, as part of the #' original palette function name. #' @param palette Palette type, as defined in the #' original palette function (optional). #' @param n Number of (first) colors to fetch from the original palette. #' @param order A vector of color index (optional). #' @param alpha Transparency level. #' #' @return A custom color scale function. scale_color_custom <- function(pal, palette, n, order, alpha = 1) { pal <- getFromNamespace(paste0("pal_", pal), "ggsci") colors <- if (missing(palette)) { pal(alpha = alpha)(n) } else { pal(palette = palette, alpha = alpha)(n) } if (length(order) > length(colors)) { stop("The length of order exceeds the number of colors.", call. = FALSE) } colors <- if (!missing(order)) colors[order] ggplot2::scale_color_manual(values = colors) } ``` Use `scale_color_custom()` in an example: ```{r} library(ggplot2) library(ggsci) set.seed(42) df <- data.frame( x = rnorm(100), y = rnorm(100), group = factor(sample(1:5, 100, replace = TRUE)) ) p <- ggplot(df, aes(x = x, y = y, color = group)) + geom_point(size = 3) + theme_minimal() p + scale_color_custom("d3", palette = "category20", n = 20, order = c(14, 11, 13, 12, 15)) ``` ggsci/inst/doc/ggsci-faq.html0000644000176200001440000235120315120434223015621 0ustar liggesusers Frequently Asked Questions about ggsci

What if my data has more categories than the number of colors offered?

Although it is recommended that we do not encode too many categories in different colors, in practice, one can still create an “adaptive” color palette based on the existing discrete color palettes in ggsci.

See this blog post for a detailed guide on creating adaptive ggplot2 color scales with color interpolation.

Use a color scale consistently for multiple plots in a document

To apply a color scale for all plots in a document and avoid repetition, a simple solution is setting the two global options ggplot2.discrete.colour and ggplot2.discrete.fill. For example:

library("ggplot2")

p <- ggplot(mpg, aes(displ, hwy, colour = factor(cyl), fill = factor(cyl))) +
  geom_point() +
  geom_smooth(method = "lm") +
  theme_bw()

p

# Set global options
options(
  ggplot2.discrete.colour = ggsci::scale_colour_d3,
  ggplot2.discrete.fill = ggsci::scale_fill_d3
)

p

# Restore original options after use
options(
  ggplot2.discrete.colour = NULL,
  ggplot2.discrete.fill = NULL
)

p

Customize color ordering in a palette

You can customize the color selection and ordering of any discrete color palette in ggsci by using the following function that returns a custom color scale function. This method is flexible and encourages code reuse.

#' Define a custom color scale
#'
#' @param pal Name of the color palette, as part of the
#'   original palette function name.
#' @param palette Palette type, as defined in the
#'   original palette function (optional).
#' @param n Number of (first) colors to fetch from the original palette.
#' @param order A vector of color index (optional).
#' @param alpha Transparency level.
#'
#' @return A custom color scale function.
scale_color_custom <- function(pal, palette, n, order, alpha = 1) {
  pal <- getFromNamespace(paste0("pal_", pal), "ggsci")

  colors <- if (missing(palette)) {
    pal(alpha = alpha)(n)
  } else {
    pal(palette = palette, alpha = alpha)(n)
  }

  if (length(order) > length(colors)) {
    stop("The length of order exceeds the number of colors.", call. = FALSE)
  }
  colors <- if (!missing(order)) colors[order]

  ggplot2::scale_color_manual(values = colors)
}

Use scale_color_custom() in an example:

library(ggplot2)
library(ggsci)

set.seed(42)
df <- data.frame(
  x = rnorm(100),
  y = rnorm(100),
  group = factor(sample(1:5, 100, replace = TRUE))
)

p <- ggplot(df, aes(x = x, y = y, color = group)) +
  geom_point(size = 3) +
  theme_minimal()

p + scale_color_custom("d3", palette = "category20", n = 20, order = c(14, 11, 13, 12, 15))

ggsci/inst/doc/ggsci-faq.R0000644000176200001440000000341315120434223015051 0ustar liggesusers## ----include=FALSE------------------------------------------------------------ knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 3.3334 / 0.618, fig.height = 3.3334, fig.align = "center", out.width = "65%", pngquant = "--speed=1 --quality=50" ) ## ----------------------------------------------------------------------------- #' Define a custom color scale #' #' @param pal Name of the color palette, as part of the #' original palette function name. #' @param palette Palette type, as defined in the #' original palette function (optional). #' @param n Number of (first) colors to fetch from the original palette. #' @param order A vector of color index (optional). #' @param alpha Transparency level. #' #' @return A custom color scale function. scale_color_custom <- function(pal, palette, n, order, alpha = 1) { pal <- getFromNamespace(paste0("pal_", pal), "ggsci") colors <- if (missing(palette)) { pal(alpha = alpha)(n) } else { pal(palette = palette, alpha = alpha)(n) } if (length(order) > length(colors)) { stop("The length of order exceeds the number of colors.", call. = FALSE) } colors <- if (!missing(order)) colors[order] ggplot2::scale_color_manual(values = colors) } ## ----------------------------------------------------------------------------- library(ggplot2) library(ggsci) set.seed(42) df <- data.frame( x = rnorm(100), y = rnorm(100), group = factor(sample(1:5, 100, replace = TRUE)) ) p <- ggplot(df, aes(x = x, y = y, color = group)) + geom_point(size = 3) + theme_minimal() p + scale_color_custom("d3", palette = "category20", n = 20, order = c(14, 11, 13, 12, 15)) ggsci/inst/doc/ggsci.html0000644000176200001440000744751115120434234015073 0ustar liggesusers Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2

Introduction

My eyes were finally opened and I understood nature.

I learned at the same time to love it.

— Claude Monet

ggsci offers a collection of high-quality color palettes inspired by colors used in scientific journals, data visualization libraries, science fiction movies, and TV shows. The color palettes in ggsci are available as ggplot2 scales. For all the color palettes, the corresponding scales are named as:

  • scale_color_palname()
  • scale_fill_palname()

We also provided aliases, such as scale_colour_palname() for scale_color_palname(). All available color palettes are summarized in the table below.

Name Scales Palette Types Palette Generator
NPG scale_color_npg() scale_fill_npg() "nrc" pal_npg()
AAAS scale_color_aaas() scale_fill_aaas() "default" pal_aaas()
NEJM scale_color_nejm() scale_fill_nejm() "default" pal_nejm()
Lancet scale_color_lancet() scale_fill_lancet() "lanonc" pal_lancet()
JAMA scale_color_jama() scale_fill_jama() "default" pal_jama()
BMJ scale_color_bmj() scale_fill_bmj() "default" pal_bmj()
JCO scale_color_jco() scale_fill_jco() "default" pal_jco()
UCSCGB scale_color_ucscgb() scale_fill_ucscgb() "default" pal_ucscgb()
D3 scale_color_d3()
scale_fill_d3()		 "category10" "category20" "category20b" "category20c" pal_d3()
Observable scale_color_observable() scale_fill_observable() "observable10" pal_observable()
Primer scale_color_primer() scale_fill_primer() "mark17" pal_primer()
Atlassian scale_color_atlassian() scale_fill_atlassian() "categorical8" pal_atlassian()
iTerm scale_color_iterm() scale_fill_iterm() iterm_palettes() pal_iterm()
LocusZoom scale_color_locuszoom() scale_fill_locuszoom() "default" pal_locuszoom()
IGV scale_color_igv() scale_fill_igv() "default"
"alternating"		 pal_igv()
COSMIC scale_color_cosmic() scale_fill_cosmic() "hallmarks_light"
"hallmarks_dark"
"signature_substitutions"		 pal_cosmic()
UChicago scale_color_uchicago() scale_fill_uchicago() "default"
"light"
"dark"		 pal_uchicago()
Star Trek scale_color_startrek() scale_fill_startrek() "uniform" pal_startrek()
Tron Legacy scale_color_tron() scale_fill_tron() "legacy" pal_tron()
Futurama scale_color_futurama() scale_fill_futurama() "planetexpress" pal_futurama()
Rick and Morty scale_color_rickandmorty() scale_fill_rickandmorty() "schwifty" pal_rickandmorty()
The Simpsons scale_color_simpsons() scale_fill_simpsons() "springfield" pal_simpsons()
Flat UI scale_color_flatui() scale_fill_flatui() "default" "flattastic" "aussie" pal_flatui()
Frontiers scale_color_frontiers() scale_fill_frontiers() "default" pal_frontiers()
GSEA scale_color_gsea() scale_fill_gsea() "default" pal_gsea()
Bootstrap 5 scale_color_bs5() scale_fill_bs5() "blue" "indigo"
"purple" "pink"
"red" "orange"
"yellow" "green"
"teal" "cyan"
"gray"		 pal_bs5()
Material Design scale_color_material() scale_fill_material() "red" "pink"
"purple" "deep-purple"
"indigo" "blue"
"light-blue" "cyan"
"teal" "green"
"light-green" "lime"
"yellow" "amber"
"orange" "deep-orange"
"brown" "grey"
"blue-grey"		 pal_material()
Tailwind CSS scale_color_tw3() scale_fill_tw3() "slate" "gray"
"zinc" "neutral"
"stone" "red"
"orange" "amber"
"yellow" "lime"
"green" "emerald"
"teal" "cyan"
"sky" "blue"
"indigo" "violet"
"purple" "fuchsia"
"pink" "rose"		 pal_tw3()

Discrete color palettes

We will use scatterplots with smooth curves, and bar plots to demonstrate the discrete color palettes in ggsci.

library("ggsci")
library("ggplot2")
library("gridExtra")
p1 <- example_scatterplot()
p2 <- example_barplot()

NPG

The NPG palette is inspired by the plots in the journals published by Nature Publishing Group:

p1_npg <- p1 + scale_color_npg()
p2_npg <- p2 + scale_fill_npg()
grid.arrange(p1_npg, p2_npg, ncol = 2)

AAAS

The AAAS palette is inspired by the plots in the journals published by American Association for the Advancement of Science:

p1_aaas <- p1 + scale_color_aaas()
p2_aaas <- p2 + scale_fill_aaas()
grid.arrange(p1_aaas, p2_aaas, ncol = 2)

NEJM

The NEJM palette is inspired by the plots in the New England Journal of Medicine:

p1_nejm <- p1 + scale_color_nejm()
p2_nejm <- p2 + scale_fill_nejm()
grid.arrange(p1_nejm, p2_nejm, ncol = 2)

Lancet

The Lancet palette is inspired by the plots in Lancet journals, such as Lancet Oncology:

p1_lancet <- p1 + scale_color_lancet()
p2_lancet <- p2 + scale_fill_lancet()
grid.arrange(p1_lancet, p2_lancet, ncol = 2)

JAMA

The JAMA palette is inspired by the plots in the Journal of the American Medical Association:

p1_jama <- p1 + scale_color_jama()
p2_jama <- p2 + scale_fill_jama()
grid.arrange(p1_jama, p2_jama, ncol = 2)

BMJ

The BMJ palette is from the BMJ living style guide:

p1_bmj <- p1 + scale_color_bmj()
p2_bmj <- p2 + scale_fill_bmj()
grid.arrange(p1_bmj, p2_bmj, ncol = 2)

JCO

The JCO palette is inspired by the the plots in Journal of Clinical Oncology:

p1_jco <- p1 + scale_color_jco()
p2_jco <- p2 + scale_fill_jco()
grid.arrange(p1_jco, p2_jco, ncol = 2)

UCSCGB

The UCSCGB palette is from the colors used by UCSC Genome Browser for representing chromosomes. This palette (interpolated, with alpha) is intensively used in visualizations generated by Circos.

p1_ucscgb <- p1 + scale_color_ucscgb()
p2_ucscgb <- p2 + scale_fill_ucscgb()
grid.arrange(p1_ucscgb, p2_ucscgb, ncol = 2)

D3

The D3 palette is from the categorical colors used by D3.js (version 3.x and before). There are four palette types (category10, category20, category20b, category20c) available.

p1_d3 <- p1 + scale_color_d3()
p2_d3 <- p2 + scale_fill_d3()
grid.arrange(p1_d3, p2_d3, ncol = 2)

Observable

The Observable 10 palette is the default categorical colors scheme used by Observable.

p1_observable <- p1 + scale_color_observable()
p2_observable <- p2 + scale_fill_observable()
grid.arrange(p1_observable, p2_observable, ncol = 2)

Primer

The Primer palette follows the data visualization colors from GitHub’s Primer design system.

p1_primer <- p1 + scale_color_primer()
p2_primer <- p2 + scale_fill_primer()
grid.arrange(p1_primer, p2_primer, ncol = 2)

Atlassian

The palette follows the categorical chart colors from Atlassian Design System.

p1_atlassian <- p1 + scale_color_atlassian()
p2_atlassian <- p2 + scale_fill_atlassian()
grid.arrange(p1_atlassian, p2_atlassian, ncol = 2)

iTerm

These palettes are sourced from the iterm2-color-schemes project, which includes 400+ color schemes (list them with iterm_palettes()). Each scheme provides six categorical colors with two possible variants: "normal" and "bright".

You can preview these color palettes in ggsci on a dedicated microsite: https://nanx.me/ggsci-iterm/. It renders example plots for all palettes on a single page for fast visual comparison.

p1_iterm <- p1 + scale_color_iterm("Rose Pine")
p2_iterm <- p2 + scale_fill_iterm("Rose Pine")
grid.arrange(p1_iterm, p2_iterm, ncol = 2)

LocusZoom

The LocusZoom palette is based on the colors used by LocusZoom.

p1_locuszoom <- p1 + scale_color_locuszoom()
p2_locuszoom <- p2 + scale_fill_locuszoom()
grid.arrange(p1_locuszoom, p2_locuszoom, ncol = 2)

IGV

The IGV palette is from the colors used by Integrative Genomics Viewer for representing chromosomes. There are two palette types (default, alternating) available.

p1_igv_default <- p1 + scale_color_igv()
p2_igv_default <- p2 + scale_fill_igv()
grid.arrange(p1_igv_default, p2_igv_default, ncol = 2)

COSMIC

Color palettes inspired by the colors used in projects from the Catalogue Of Somatic Mutations in Cancers (COSMIC).

p1_cosmic_hallmarks_light <- p1 + scale_color_cosmic("hallmarks_light")
p2_cosmic_hallmarks_light <- p2 + scale_fill_cosmic("hallmarks_light")
grid.arrange(p1_cosmic_hallmarks_light, p2_cosmic_hallmarks_light, ncol = 2)

p1_cosmic_hallmarks_dark <- p1 + scale_color_cosmic("hallmarks_dark")
p2_cosmic_hallmarks_dark <- p2 + scale_fill_cosmic("hallmarks_dark")
grid.arrange(p1_cosmic_hallmarks_dark, p2_cosmic_hallmarks_dark, ncol = 2)

p1_cosmic_signature <- p1 + scale_color_cosmic("signature_substitutions")
p2_cosmic_signature <- p2 + scale_fill_cosmic("signature_substitutions")
grid.arrange(p1_cosmic_signature, p2_cosmic_signature, ncol = 2)

UChicago

The UChicago palette is based on the colors used by the University of Chicago. There are three palette types (default, light, dark) available.

p1_uchicago <- p1 + scale_color_uchicago()
p2_uchicago <- p2 + scale_fill_uchicago()
grid.arrange(p1_uchicago, p2_uchicago, ncol = 2)

Star Trek

This palette is inspired by the (uniform) colors in Star Trek:

p1_startrek <- p1 + scale_color_startrek()
p2_startrek <- p2 + scale_fill_startrek()
grid.arrange(p1_startrek, p2_startrek, ncol = 2)

Tron Legacy

This palette is inspired by the colors used in Tron Legacy. It is suitable for displaying data when using a dark theme:

p1_tron <- p1 + theme_dark() + theme(
  panel.background = element_rect(fill = "#2D2D2D"),
  legend.key = element_rect(fill = "#2D2D2D")
) +
  scale_color_tron()
p2_tron <- p2 + theme_dark() + theme(
  panel.background = element_rect(fill = "#2D2D2D")
) +
  scale_fill_tron()
grid.arrange(p1_tron, p2_tron, ncol = 2)

Futurama

This palette is inspired by the colors used in the TV show Futurama:

p1_futurama <- p1 + scale_color_futurama()
p2_futurama <- p2 + scale_fill_futurama()
grid.arrange(p1_futurama, p2_futurama, ncol = 2)

Rick and Morty

This palette is inspired by the colors used in the TV show Rick and Morty:

p1_rickandmorty <- p1 + scale_color_rickandmorty()
p2_rickandmorty <- p2 + scale_fill_rickandmorty()
grid.arrange(p1_rickandmorty, p2_rickandmorty, ncol = 2)

The Simpsons

This palette is inspired by the colors used in the TV show The Simpsons:

p1_simpsons <- p1 + scale_color_simpsons()
p2_simpsons <- p2 + scale_fill_simpsons()
grid.arrange(p1_simpsons, p2_simpsons, ncol = 2)

Flat UI

Three flat UI color palettes from Flat UI Colors 2:

p1_flatui <- p1 + scale_color_flatui()
p2_flatui <- p2 + scale_fill_flatui()
grid.arrange(p1_flatui, p2_flatui, ncol = 2)

Frontiers

This color palette inspired by Frontiers:

p1_frontiers <- p1 + scale_color_frontiers()
p2_frontiers <- p2 + scale_fill_frontiers()
grid.arrange(p1_frontiers, p2_frontiers, ncol = 2)

Continuous color palettes

There are two types of continuous color palettes in ggsci: diverging and sequential. Diverging palettes have a central neutral color and contrasting colors at the ends, making them suitable for visualizing data with a natural midpoint. Sequential palettes use a gradient of colors that range from low to high intensity or lightness, making them ideal for representing data with increasing or decreasing values.

We will use a correlation matrix visualization (a special type of heatmap) to demonstrate the diverging color palettes.

data("mtcars")
cor <- cor(unname(mtcars))
cor_melt <- data.frame(
  Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)),
  Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)),
  value = as.vector(cor)
)

p3 <- ggplot(cor_melt, aes(x = Var1, y = Var2, fill = value)) +
  geom_tile(colour = "black", linewidth = 0.3) +
  theme_void() +
  theme(
    axis.title.x = element_blank(),
    axis.title.y = element_blank()
  )

To demonstrate sequential palettes, we use a random matrix:

set.seed(42)
k <- 6
x <- diag(k)
x[upper.tri(x)] <- runif(sum(1:(k - 1)), 0, 1)
x_melt <- data.frame(
  Var1 = rep(seq_len(nrow(x)), times = ncol(x)),
  Var2 = rep(seq_len(ncol(x)), each = nrow(x)),
  value = as.vector(x)
)

p4 <- ggplot(x_melt, aes(x = Var1, y = Var2, fill = value)) +
  geom_tile(colour = "black", linewidth = 0.3) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) +
  theme_bw() +
  theme(
    legend.position = "none", plot.background = element_blank(),
    axis.line = element_blank(), axis.ticks = element_blank(),
    axis.text.x = element_blank(), axis.text.y = element_blank(),
    axis.title.x = element_blank(), axis.title.y = element_blank(),
    panel.background = element_blank(), panel.border = element_blank(),
    panel.grid.major = element_blank(), panel.grid.minor = element_blank()
  )

GSEA

The GSEA palette (continuous) is inspired by the heatmaps generated by GSEA GenePattern.

p3_gsea <- p3 + scale_fill_gsea()
p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE)
grid.arrange(p3_gsea, p3_gsea_inv, ncol = 2)

Bootstrap 5

The Bootstrap 5 color palettes are from the Bootstrap 5 color system.

grid.arrange(
  p4 + scale_fill_bs5("blue"), p4 + scale_fill_bs5("indigo"),
  p4 + scale_fill_bs5("purple"), p4 + scale_fill_bs5("pink"),
  p4 + scale_fill_bs5("red"), p4 + scale_fill_bs5("orange"),
  p4 + scale_fill_bs5("yellow"), p4 + scale_fill_bs5("green"),
  p4 + scale_fill_bs5("teal"), p4 + scale_fill_bs5("cyan"),
  p4 + scale_fill_bs5("gray"),
  ncol = 8
)

Material Design

The Material Design color palettes are from the Material Design color system.

grid.arrange(
  p4 + scale_fill_material("red"), p4 + scale_fill_material("pink"),
  p4 + scale_fill_material("purple"), p4 + scale_fill_material("deep-purple"),
  p4 + scale_fill_material("indigo"), p4 + scale_fill_material("blue"),
  p4 + scale_fill_material("light-blue"), p4 + scale_fill_material("cyan"),
  p4 + scale_fill_material("teal"), p4 + scale_fill_material("green"),
  p4 + scale_fill_material("light-green"), p4 + scale_fill_material("lime"),
  p4 + scale_fill_material("yellow"), p4 + scale_fill_material("amber"),
  p4 + scale_fill_material("orange"), p4 + scale_fill_material("deep-orange"),
  p4 + scale_fill_material("brown"), p4 + scale_fill_material("grey"),
  p4 + scale_fill_material("blue-grey"),
  ncol = 8
)

Tailwind CSS

The Tailwind CSS color palettes are from the Tailwind default colors.

grid.arrange(
  p4 + scale_fill_tw3("slate"), p4 + scale_fill_tw3("gray"),
  p4 + scale_fill_tw3("zinc"), p4 + scale_fill_tw3("neutral"),
  p4 + scale_fill_tw3("stone"), p4 + scale_fill_tw3("red"),
  p4 + scale_fill_tw3("orange"), p4 + scale_fill_tw3("amber"),
  p4 + scale_fill_tw3("yellow"), p4 + scale_fill_tw3("lime"),
  p4 + scale_fill_tw3("green"), p4 + scale_fill_tw3("emerald"),
  p4 + scale_fill_tw3("teal"), p4 + scale_fill_tw3("cyan"),
  p4 + scale_fill_tw3("sky"), p4 + scale_fill_tw3("blue"),
  p4 + scale_fill_tw3("indigo"), p4 + scale_fill_tw3("violet"),
  p4 + scale_fill_tw3("purple"), p4 + scale_fill_tw3("fuchsia"),
  p4 + scale_fill_tw3("pink"), p4 + scale_fill_tw3("rose"),
  ncol = 8
)

From the figure above, we can see that even though an identical matrix was visualized by all plots, some palettes are more preferable than the others because our eyes are more sensitive to the changes of their saturation levels.

Non-ggplot2 graphics

To apply the color palettes in ggsci to other graphics systems (such as base graphics and lattice graphics), simply use the palette generator functions in the table above. For example:

mypal <- pal_npg("nrc", alpha = 0.7)(9)
mypal
#> [1] "#E64B35B2" "#4DBBD5B2" "#00A087B2" "#3C5488B2" "#F39B7FB2" "#8491B4B2"
#> [7] "#91D1C2B2" "#DC0000B2" "#7E6148B2"

scales::show_col(mypal)

You will be able to use the generated hex color codes for such graphics systems accordingly. The transparent level of the entire palette is easily adjustable via the argument "alpha" in every generator or scale function.

Discussion

Please note some of the palettes might not be the best choice for certain purposes, such as color-blind safe, photocopy safe, or print friendly. If you do have such considerations, you might want to check out color palettes like ColorBrewer and viridis.

The color palettes in this package are solely created for research purposes. The authors are not responsible for the usage of such palettes.

ggsci/inst/doc/ggsci.R0000644000176200001440000002421615120434234014312 0ustar liggesusers## ----include=FALSE------------------------------------------------------------ knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 10.6667, fig.height = 3.3334, fig.align = "center", out.width = "100%", pngquant = "--speed=1 --quality=50" ) ## ----message=FALSE, warning=FALSE--------------------------------------------- library("ggsci") library("ggplot2") library("gridExtra") ## ----------------------------------------------------------------------------- p1 <- example_scatterplot() p2 <- example_barplot() ## ----------------------------------------------------------------------------- p1_npg <- p1 + scale_color_npg() p2_npg <- p2 + scale_fill_npg() grid.arrange(p1_npg, p2_npg, ncol = 2) ## ----------------------------------------------------------------------------- p1_aaas <- p1 + scale_color_aaas() p2_aaas <- p2 + scale_fill_aaas() grid.arrange(p1_aaas, p2_aaas, ncol = 2) ## ----------------------------------------------------------------------------- p1_nejm <- p1 + scale_color_nejm() p2_nejm <- p2 + scale_fill_nejm() grid.arrange(p1_nejm, p2_nejm, ncol = 2) ## ----------------------------------------------------------------------------- p1_lancet <- p1 + scale_color_lancet() p2_lancet <- p2 + scale_fill_lancet() grid.arrange(p1_lancet, p2_lancet, ncol = 2) ## ----------------------------------------------------------------------------- p1_jama <- p1 + scale_color_jama() p2_jama <- p2 + scale_fill_jama() grid.arrange(p1_jama, p2_jama, ncol = 2) ## ----------------------------------------------------------------------------- p1_bmj <- p1 + scale_color_bmj() p2_bmj <- p2 + scale_fill_bmj() grid.arrange(p1_bmj, p2_bmj, ncol = 2) ## ----------------------------------------------------------------------------- p1_jco <- p1 + scale_color_jco() p2_jco <- p2 + scale_fill_jco() grid.arrange(p1_jco, p2_jco, ncol = 2) ## ----------------------------------------------------------------------------- p1_ucscgb <- p1 + scale_color_ucscgb() p2_ucscgb <- p2 + scale_fill_ucscgb() grid.arrange(p1_ucscgb, p2_ucscgb, ncol = 2) ## ----------------------------------------------------------------------------- p1_d3 <- p1 + scale_color_d3() p2_d3 <- p2 + scale_fill_d3() grid.arrange(p1_d3, p2_d3, ncol = 2) ## ----------------------------------------------------------------------------- p1_observable <- p1 + scale_color_observable() p2_observable <- p2 + scale_fill_observable() grid.arrange(p1_observable, p2_observable, ncol = 2) ## ----------------------------------------------------------------------------- p1_primer <- p1 + scale_color_primer() p2_primer <- p2 + scale_fill_primer() grid.arrange(p1_primer, p2_primer, ncol = 2) ## ----------------------------------------------------------------------------- p1_atlassian <- p1 + scale_color_atlassian() p2_atlassian <- p2 + scale_fill_atlassian() grid.arrange(p1_atlassian, p2_atlassian, ncol = 2) ## ----------------------------------------------------------------------------- p1_iterm <- p1 + scale_color_iterm("Rose Pine") p2_iterm <- p2 + scale_fill_iterm("Rose Pine") grid.arrange(p1_iterm, p2_iterm, ncol = 2) ## ----------------------------------------------------------------------------- p1_locuszoom <- p1 + scale_color_locuszoom() p2_locuszoom <- p2 + scale_fill_locuszoom() grid.arrange(p1_locuszoom, p2_locuszoom, ncol = 2) ## ----------------------------------------------------------------------------- p1_igv_default <- p1 + scale_color_igv() p2_igv_default <- p2 + scale_fill_igv() grid.arrange(p1_igv_default, p2_igv_default, ncol = 2) ## ----------------------------------------------------------------------------- p1_cosmic_hallmarks_light <- p1 + scale_color_cosmic("hallmarks_light") p2_cosmic_hallmarks_light <- p2 + scale_fill_cosmic("hallmarks_light") grid.arrange(p1_cosmic_hallmarks_light, p2_cosmic_hallmarks_light, ncol = 2) ## ----------------------------------------------------------------------------- p1_cosmic_hallmarks_dark <- p1 + scale_color_cosmic("hallmarks_dark") p2_cosmic_hallmarks_dark <- p2 + scale_fill_cosmic("hallmarks_dark") grid.arrange(p1_cosmic_hallmarks_dark, p2_cosmic_hallmarks_dark, ncol = 2) ## ----------------------------------------------------------------------------- p1_cosmic_signature <- p1 + scale_color_cosmic("signature_substitutions") p2_cosmic_signature <- p2 + scale_fill_cosmic("signature_substitutions") grid.arrange(p1_cosmic_signature, p2_cosmic_signature, ncol = 2) ## ----------------------------------------------------------------------------- p1_uchicago <- p1 + scale_color_uchicago() p2_uchicago <- p2 + scale_fill_uchicago() grid.arrange(p1_uchicago, p2_uchicago, ncol = 2) ## ----------------------------------------------------------------------------- p1_startrek <- p1 + scale_color_startrek() p2_startrek <- p2 + scale_fill_startrek() grid.arrange(p1_startrek, p2_startrek, ncol = 2) ## ----------------------------------------------------------------------------- p1_tron <- p1 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_tron() p2_tron <- p2 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_tron() grid.arrange(p1_tron, p2_tron, ncol = 2) ## ----------------------------------------------------------------------------- p1_futurama <- p1 + scale_color_futurama() p2_futurama <- p2 + scale_fill_futurama() grid.arrange(p1_futurama, p2_futurama, ncol = 2) ## ----------------------------------------------------------------------------- p1_rickandmorty <- p1 + scale_color_rickandmorty() p2_rickandmorty <- p2 + scale_fill_rickandmorty() grid.arrange(p1_rickandmorty, p2_rickandmorty, ncol = 2) ## ----------------------------------------------------------------------------- p1_simpsons <- p1 + scale_color_simpsons() p2_simpsons <- p2 + scale_fill_simpsons() grid.arrange(p1_simpsons, p2_simpsons, ncol = 2) ## ----------------------------------------------------------------------------- p1_flatui <- p1 + scale_color_flatui() p2_flatui <- p2 + scale_fill_flatui() grid.arrange(p1_flatui, p2_flatui, ncol = 2) ## ----------------------------------------------------------------------------- p1_frontiers <- p1 + scale_color_frontiers() p2_frontiers <- p2 + scale_fill_frontiers() grid.arrange(p1_frontiers, p2_frontiers, ncol = 2) ## ----------------------------------------------------------------------------- data("mtcars") cor <- cor(unname(mtcars)) cor_melt <- data.frame( Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), value = as.vector(cor) ) p3 <- ggplot(cor_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + theme_void() + theme( axis.title.x = element_blank(), axis.title.y = element_blank() ) ## ----------------------------------------------------------------------------- set.seed(42) k <- 6 x <- diag(k) x[upper.tri(x)] <- runif(sum(1:(k - 1)), 0, 1) x_melt <- data.frame( Var1 = rep(seq_len(nrow(x)), times = ncol(x)), Var2 = rep(seq_len(ncol(x)), each = nrow(x)), value = as.vector(x) ) p4 <- ggplot(x_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) + theme_bw() + theme( legend.position = "none", plot.background = element_blank(), axis.line = element_blank(), axis.ticks = element_blank(), axis.text.x = element_blank(), axis.text.y = element_blank(), axis.title.x = element_blank(), axis.title.y = element_blank(), panel.background = element_blank(), panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank() ) ## ----fig.height=4------------------------------------------------------------- p3_gsea <- p3 + scale_fill_gsea() p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE) grid.arrange(p3_gsea, p3_gsea_inv, ncol = 2) ## ----fig.height=2.6----------------------------------------------------------- grid.arrange( p4 + scale_fill_bs5("blue"), p4 + scale_fill_bs5("indigo"), p4 + scale_fill_bs5("purple"), p4 + scale_fill_bs5("pink"), p4 + scale_fill_bs5("red"), p4 + scale_fill_bs5("orange"), p4 + scale_fill_bs5("yellow"), p4 + scale_fill_bs5("green"), p4 + scale_fill_bs5("teal"), p4 + scale_fill_bs5("cyan"), p4 + scale_fill_bs5("gray"), ncol = 8 ) ## ----fig.height=3.8----------------------------------------------------------- grid.arrange( p4 + scale_fill_material("red"), p4 + scale_fill_material("pink"), p4 + scale_fill_material("purple"), p4 + scale_fill_material("deep-purple"), p4 + scale_fill_material("indigo"), p4 + scale_fill_material("blue"), p4 + scale_fill_material("light-blue"), p4 + scale_fill_material("cyan"), p4 + scale_fill_material("teal"), p4 + scale_fill_material("green"), p4 + scale_fill_material("light-green"), p4 + scale_fill_material("lime"), p4 + scale_fill_material("yellow"), p4 + scale_fill_material("amber"), p4 + scale_fill_material("orange"), p4 + scale_fill_material("deep-orange"), p4 + scale_fill_material("brown"), p4 + scale_fill_material("grey"), p4 + scale_fill_material("blue-grey"), ncol = 8 ) ## ----fig.height=3.8----------------------------------------------------------- grid.arrange( p4 + scale_fill_tw3("slate"), p4 + scale_fill_tw3("gray"), p4 + scale_fill_tw3("zinc"), p4 + scale_fill_tw3("neutral"), p4 + scale_fill_tw3("stone"), p4 + scale_fill_tw3("red"), p4 + scale_fill_tw3("orange"), p4 + scale_fill_tw3("amber"), p4 + scale_fill_tw3("yellow"), p4 + scale_fill_tw3("lime"), p4 + scale_fill_tw3("green"), p4 + scale_fill_tw3("emerald"), p4 + scale_fill_tw3("teal"), p4 + scale_fill_tw3("cyan"), p4 + scale_fill_tw3("sky"), p4 + scale_fill_tw3("blue"), p4 + scale_fill_tw3("indigo"), p4 + scale_fill_tw3("violet"), p4 + scale_fill_tw3("purple"), p4 + scale_fill_tw3("fuchsia"), p4 + scale_fill_tw3("pink"), p4 + scale_fill_tw3("rose"), ncol = 8 ) ## ----fig.width=6.67, fig.height=6.67, out.width="60%"------------------------- mypal <- pal_npg("nrc", alpha = 0.7)(9) mypal scales::show_col(mypal) ggsci/inst/doc/ggsci.Rmd0000644000176200001440000006514715120434214014641 0ustar liggesusers--- title: "Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2" output: rmarkdown::html_document: toc: true toc_float: true toc_depth: 4 number_sections: false highlight: "textmate" css: custom.css vignette: > %\VignetteEngine{knitr::rmarkdown} %\VignetteIndexEntry{Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2} --- ```{r, include=FALSE} knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 10.6667, fig.height = 3.3334, fig.align = "center", out.width = "100%", pngquant = "--speed=1 --quality=50" ) ``` ## Introduction > My eyes were finally opened and I understood nature. > > I learned at the same time to love it. > > --- Claude Monet ggsci offers a collection of high-quality color palettes inspired by colors used in scientific journals, data visualization libraries, science fiction movies, and TV shows. The color palettes in ggsci are available as ggplot2 scales. For all the color palettes, the corresponding scales are named as: - `scale_color_palname()` - `scale_fill_palname()` We also provided aliases, such as `scale_colour_palname()` for `scale_color_palname()`. All available color palettes are summarized in the table below. +-----------------+------------------------------+--------------------------------+----------------------+ | Name | Scales | Palette Types | Palette Generator | +=================+==============================+================================+======================+ | NPG | `scale_color_npg()` | `"nrc"` | `pal_npg()` | | | `scale_fill_npg()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | AAAS | `scale_color_aaas()` | `"default"` | `pal_aaas()` | | | `scale_fill_aaas()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | NEJM | `scale_color_nejm()` | `"default"` | `pal_nejm()` | | | `scale_fill_nejm()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Lancet | `scale_color_lancet()` | `"lanonc"` | `pal_lancet()` | | | `scale_fill_lancet()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | JAMA | `scale_color_jama()` | `"default"` | `pal_jama()` | | | `scale_fill_jama()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | BMJ | `scale_color_bmj()` | `"default"` | `pal_bmj()` | | | `scale_fill_bmj()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | JCO | `scale_color_jco()` | `"default"` | `pal_jco()` | | | `scale_fill_jco()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | UCSCGB | `scale_color_ucscgb()` | `"default"` | `pal_ucscgb()` | | | `scale_fill_ucscgb()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | D3 | `scale_color_d3()`
| `"category10"` | `pal_d3()` | | | `scale_fill_d3()` | `"category20"` | | | | | `"category20b"` | | | | | `"category20c"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Observable | `scale_color_observable()` | `"observable10"` | `pal_observable()` | | | `scale_fill_observable()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Primer | `scale_color_primer()` | `"mark17"` | `pal_primer()` | | | `scale_fill_primer()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Atlassian | `scale_color_atlassian()` | `"categorical8"` | `pal_atlassian()` | | | `scale_fill_atlassian()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | iTerm | `scale_color_iterm()` | `iterm_palettes()` | `pal_iterm()` | | | `scale_fill_iterm()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | LocusZoom | `scale_color_locuszoom()` | `"default"` | `pal_locuszoom()` | | | `scale_fill_locuszoom()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | IGV | `scale_color_igv()` | `"default"`
| `pal_igv()` | | | `scale_fill_igv()` | `"alternating"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | COSMIC | `scale_color_cosmic()` | `"hallmarks_light"`
| `pal_cosmic()` | | | `scale_fill_cosmic()` | `"hallmarks_dark"`
| | | | | `"signature_substitutions"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | UChicago | `scale_color_uchicago()` | `"default"`
| `pal_uchicago()` | | | `scale_fill_uchicago()` | `"light"`
| | | | | `"dark"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Star Trek | `scale_color_startrek()` | `"uniform"` | `pal_startrek()` | | | `scale_fill_startrek()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Tron Legacy | `scale_color_tron()` | `"legacy"` | `pal_tron()` | | | `scale_fill_tron()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Futurama | `scale_color_futurama()` | `"planetexpress"` | `pal_futurama()` | | | `scale_fill_futurama()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Rick and Morty | `scale_color_rickandmorty()` | `"schwifty"` | `pal_rickandmorty()` | | | `scale_fill_rickandmorty()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | The Simpsons | `scale_color_simpsons()` | `"springfield"` | `pal_simpsons()` | | | `scale_fill_simpsons()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Flat UI | `scale_color_flatui()` | `"default"` | `pal_flatui()` | | | `scale_fill_flatui()` | `"flattastic"` | | | | | `"aussie"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Frontiers | `scale_color_frontiers()` | `"default"` | `pal_frontiers()` | | | `scale_fill_frontiers()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | GSEA | `scale_color_gsea()` | `"default"` | `pal_gsea()` | | | `scale_fill_gsea()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Bootstrap 5 | `scale_color_bs5()` | `"blue"` `"indigo"`
| `pal_bs5()` | | | `scale_fill_bs5()` | `"purple"` `"pink"`
| | | | | `"red"` `"orange"`
| | | | | `"yellow"` `"green"`
| | | | | `"teal"` `"cyan"`
| | | | | `"gray"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Material Design | `scale_color_material()` | `"red"` `"pink"`
| `pal_material()` | | | `scale_fill_material()` | `"purple"` `"deep-purple"`
| | | | | `"indigo"` `"blue"`
| | | | | `"light-blue"` `"cyan"`
| | | | | `"teal"` `"green"`
| | | | | `"light-green"` `"lime"`
| | | | | `"yellow"` `"amber"`
| | | | | `"orange"` `"deep-orange"`
| | | | | `"brown"` `"grey"`
| | | | | `"blue-grey"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Tailwind CSS | `scale_color_tw3()` | `"slate"` `"gray"`
| `pal_tw3()` | | | `scale_fill_tw3()` | `"zinc"` `"neutral"`
| | | | | `"stone"` `"red"`
| | | | | `"orange"` `"amber"`
| | | | | `"yellow"` `"lime"`
| | | | | `"green"` `"emerald"`
| | | | | `"teal"` `"cyan"`
| | | | | `"sky"` `"blue"`
| | | | | `"indigo"` `"violet"`
| | | | | `"purple"` `"fuchsia"`
| | | | | `"pink"` `"rose"` | | +-----------------+------------------------------+--------------------------------+----------------------+ ## Discrete color palettes We will use scatterplots with smooth curves, and bar plots to demonstrate the discrete color palettes in ggsci. ```{r, message=FALSE, warning=FALSE} library("ggsci") library("ggplot2") library("gridExtra") ``` ```{r} p1 <- example_scatterplot() p2 <- example_barplot() ``` ### NPG The NPG palette is inspired by the plots in the journals published by Nature Publishing Group: ```{r} p1_npg <- p1 + scale_color_npg() p2_npg <- p2 + scale_fill_npg() grid.arrange(p1_npg, p2_npg, ncol = 2) ``` ### AAAS The AAAS palette is inspired by the plots in the journals published by American Association for the Advancement of Science: ```{r} p1_aaas <- p1 + scale_color_aaas() p2_aaas <- p2 + scale_fill_aaas() grid.arrange(p1_aaas, p2_aaas, ncol = 2) ``` ### NEJM The NEJM palette is inspired by the plots in the _New England Journal of Medicine_: ```{r} p1_nejm <- p1 + scale_color_nejm() p2_nejm <- p2 + scale_fill_nejm() grid.arrange(p1_nejm, p2_nejm, ncol = 2) ``` ### Lancet The Lancet palette is inspired by the plots in _Lancet_ journals, such as _Lancet Oncology_: ```{r} p1_lancet <- p1 + scale_color_lancet() p2_lancet <- p2 + scale_fill_lancet() grid.arrange(p1_lancet, p2_lancet, ncol = 2) ``` ### JAMA The JAMA palette is inspired by the plots in the _Journal of the American Medical Association_: ```{r} p1_jama <- p1 + scale_color_jama() p2_jama <- p2 + scale_fill_jama() grid.arrange(p1_jama, p2_jama, ncol = 2) ``` ### BMJ The BMJ palette is from the [BMJ living style guide](https://technology.bmj.com/living-style-guide/colour.html): ```{r} p1_bmj <- p1 + scale_color_bmj() p2_bmj <- p2 + scale_fill_bmj() grid.arrange(p1_bmj, p2_bmj, ncol = 2) ``` ### JCO The JCO palette is inspired by the the plots in _Journal of Clinical Oncology_: ```{r} p1_jco <- p1 + scale_color_jco() p2_jco <- p2 + scale_fill_jco() grid.arrange(p1_jco, p2_jco, ncol = 2) ``` ### UCSCGB The UCSCGB palette is from the colors used by [UCSC Genome Browser](https://genome.ucsc.edu) for representing chromosomes. This palette (interpolated, with alpha) is intensively used in visualizations generated by Circos. ```{r} p1_ucscgb <- p1 + scale_color_ucscgb() p2_ucscgb <- p2 + scale_fill_ucscgb() grid.arrange(p1_ucscgb, p2_ucscgb, ncol = 2) ``` ### D3 The D3 palette is from the categorical colors used by [D3.js](https://d3js.org) (version 3.x and before). There are four palette types (`category10`, `category20`, `category20b`, `category20c`) available. ```{r} p1_d3 <- p1 + scale_color_d3() p2_d3 <- p2 + scale_fill_d3() grid.arrange(p1_d3, p2_d3, ncol = 2) ``` ### Observable The [Observable 10 palette](https://observablehq.com/blog/crafting-data-colors) is the default categorical colors scheme used by Observable. ```{r} p1_observable <- p1 + scale_color_observable() p2_observable <- p2 + scale_fill_observable() grid.arrange(p1_observable, p2_observable, ncol = 2) ``` ### Primer The Primer palette follows the data visualization colors from [GitHub's Primer design system](https://primer.style/product/ui-patterns/data-visualization/). ```{r} p1_primer <- p1 + scale_color_primer() p2_primer <- p2 + scale_fill_primer() grid.arrange(p1_primer, p2_primer, ncol = 2) ``` ### Atlassian The palette follows the categorical chart colors from [Atlassian Design System](https://atlassian.design/foundations/color-new/data-visualization-color). ```{r} p1_atlassian <- p1 + scale_color_atlassian() p2_atlassian <- p2 + scale_fill_atlassian() grid.arrange(p1_atlassian, p2_atlassian, ncol = 2) ``` ### iTerm These palettes are sourced from the iterm2-color-schemes project, which includes 400+ color schemes (list them with `iterm_palettes()`). Each scheme provides six categorical colors with two possible variants: `"normal"` and `"bright"`. You can preview these color palettes in ggsci on a dedicated microsite: . It renders example plots for all palettes on a single page for fast visual comparison. ```{r} p1_iterm <- p1 + scale_color_iterm("Rose Pine") p2_iterm <- p2 + scale_fill_iterm("Rose Pine") grid.arrange(p1_iterm, p2_iterm, ncol = 2) ``` ### LocusZoom The LocusZoom palette is based on the colors used by [LocusZoom](http://locuszoom.org/). ```{r} p1_locuszoom <- p1 + scale_color_locuszoom() p2_locuszoom <- p2 + scale_fill_locuszoom() grid.arrange(p1_locuszoom, p2_locuszoom, ncol = 2) ``` ### IGV The IGV palette is from the colors used by [Integrative Genomics Viewer](https://igv.org/doc/desktop/) for representing chromosomes. There are two palette types (`default`, `alternating`) available. ```{r} p1_igv_default <- p1 + scale_color_igv() p2_igv_default <- p2 + scale_fill_igv() grid.arrange(p1_igv_default, p2_igv_default, ncol = 2) ``` ### COSMIC Color palettes inspired by the colors used in projects from the [Catalogue Of Somatic Mutations in Cancers (COSMIC)](https://cancer.sanger.ac.uk/cosmic). ```{r} p1_cosmic_hallmarks_light <- p1 + scale_color_cosmic("hallmarks_light") p2_cosmic_hallmarks_light <- p2 + scale_fill_cosmic("hallmarks_light") grid.arrange(p1_cosmic_hallmarks_light, p2_cosmic_hallmarks_light, ncol = 2) ``` ```{r} p1_cosmic_hallmarks_dark <- p1 + scale_color_cosmic("hallmarks_dark") p2_cosmic_hallmarks_dark <- p2 + scale_fill_cosmic("hallmarks_dark") grid.arrange(p1_cosmic_hallmarks_dark, p2_cosmic_hallmarks_dark, ncol = 2) ``` ```{r} p1_cosmic_signature <- p1 + scale_color_cosmic("signature_substitutions") p2_cosmic_signature <- p2 + scale_fill_cosmic("signature_substitutions") grid.arrange(p1_cosmic_signature, p2_cosmic_signature, ncol = 2) ``` ### UChicago The UChicago palette is based on [the colors](https://news.uchicago.edu/sites/default/files/UCM_UniversityIdentityGuidelines_2-2020.pdf) used by the University of Chicago. There are three palette types (`default`, `light`, `dark`) available. ```{r} p1_uchicago <- p1 + scale_color_uchicago() p2_uchicago <- p2 + scale_fill_uchicago() grid.arrange(p1_uchicago, p2_uchicago, ncol = 2) ``` ### Star Trek This palette is inspired by the (uniform) colors in _Star Trek_: ```{r} p1_startrek <- p1 + scale_color_startrek() p2_startrek <- p2 + scale_fill_startrek() grid.arrange(p1_startrek, p2_startrek, ncol = 2) ``` ### Tron Legacy This palette is inspired by the colors used in _Tron Legacy_. It is suitable for displaying data when using a dark theme: ```{r} p1_tron <- p1 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_tron() p2_tron <- p2 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_tron() grid.arrange(p1_tron, p2_tron, ncol = 2) ``` ### Futurama This palette is inspired by the colors used in the TV show _Futurama_: ```{r} p1_futurama <- p1 + scale_color_futurama() p2_futurama <- p2 + scale_fill_futurama() grid.arrange(p1_futurama, p2_futurama, ncol = 2) ``` ### Rick and Morty This palette is inspired by the colors used in the TV show _Rick and Morty_: ```{r} p1_rickandmorty <- p1 + scale_color_rickandmorty() p2_rickandmorty <- p2 + scale_fill_rickandmorty() grid.arrange(p1_rickandmorty, p2_rickandmorty, ncol = 2) ``` ### The Simpsons This palette is inspired by the colors used in the TV show _The Simpsons_: ```{r} p1_simpsons <- p1 + scale_color_simpsons() p2_simpsons <- p2 + scale_fill_simpsons() grid.arrange(p1_simpsons, p2_simpsons, ncol = 2) ``` ### Flat UI Three flat UI color palettes from [Flat UI Colors 2](https://flatuicolors.com): ```{r} p1_flatui <- p1 + scale_color_flatui() p2_flatui <- p2 + scale_fill_flatui() grid.arrange(p1_flatui, p2_flatui, ncol = 2) ``` ### Frontiers This color palette inspired by [Frontiers](https://www.frontiersin.org): ```{r} p1_frontiers <- p1 + scale_color_frontiers() p2_frontiers <- p2 + scale_fill_frontiers() grid.arrange(p1_frontiers, p2_frontiers, ncol = 2) ``` ## Continuous color palettes There are two types of continuous color palettes in ggsci: diverging and sequential. Diverging palettes have a central neutral color and contrasting colors at the ends, making them suitable for visualizing data with a natural midpoint. Sequential palettes use a gradient of colors that range from low to high intensity or lightness, making them ideal for representing data with increasing or decreasing values. We will use a correlation matrix visualization (a special type of heatmap) to demonstrate the diverging color palettes. ```{r} data("mtcars") cor <- cor(unname(mtcars)) cor_melt <- data.frame( Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), value = as.vector(cor) ) p3 <- ggplot(cor_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + theme_void() + theme( axis.title.x = element_blank(), axis.title.y = element_blank() ) ``` To demonstrate sequential palettes, we use a random matrix: ```{r} set.seed(42) k <- 6 x <- diag(k) x[upper.tri(x)] <- runif(sum(1:(k - 1)), 0, 1) x_melt <- data.frame( Var1 = rep(seq_len(nrow(x)), times = ncol(x)), Var2 = rep(seq_len(ncol(x)), each = nrow(x)), value = as.vector(x) ) p4 <- ggplot(x_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) + theme_bw() + theme( legend.position = "none", plot.background = element_blank(), axis.line = element_blank(), axis.ticks = element_blank(), axis.text.x = element_blank(), axis.text.y = element_blank(), axis.title.x = element_blank(), axis.title.y = element_blank(), panel.background = element_blank(), panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank() ) ``` ### GSEA The GSEA palette (continuous) is inspired by the heatmaps generated by [GSEA GenePattern](https://software.broadinstitute.org/cancer/software/genepattern/). ```{r, fig.height=4} p3_gsea <- p3 + scale_fill_gsea() p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE) grid.arrange(p3_gsea, p3_gsea_inv, ncol = 2) ``` ### Bootstrap 5 The Bootstrap 5 color palettes are from the [Bootstrap 5 color system](https://getbootstrap.com/docs/5.3/customize/color/#all-colors). ```{r, fig.height=2.6} grid.arrange( p4 + scale_fill_bs5("blue"), p4 + scale_fill_bs5("indigo"), p4 + scale_fill_bs5("purple"), p4 + scale_fill_bs5("pink"), p4 + scale_fill_bs5("red"), p4 + scale_fill_bs5("orange"), p4 + scale_fill_bs5("yellow"), p4 + scale_fill_bs5("green"), p4 + scale_fill_bs5("teal"), p4 + scale_fill_bs5("cyan"), p4 + scale_fill_bs5("gray"), ncol = 8 ) ``` ### Material Design The Material Design color palettes are from the [Material Design color system](https://m2.material.io/design/color/the-color-system.html). ```{r, fig.height=3.8} grid.arrange( p4 + scale_fill_material("red"), p4 + scale_fill_material("pink"), p4 + scale_fill_material("purple"), p4 + scale_fill_material("deep-purple"), p4 + scale_fill_material("indigo"), p4 + scale_fill_material("blue"), p4 + scale_fill_material("light-blue"), p4 + scale_fill_material("cyan"), p4 + scale_fill_material("teal"), p4 + scale_fill_material("green"), p4 + scale_fill_material("light-green"), p4 + scale_fill_material("lime"), p4 + scale_fill_material("yellow"), p4 + scale_fill_material("amber"), p4 + scale_fill_material("orange"), p4 + scale_fill_material("deep-orange"), p4 + scale_fill_material("brown"), p4 + scale_fill_material("grey"), p4 + scale_fill_material("blue-grey"), ncol = 8 ) ``` ### Tailwind CSS The Tailwind CSS color palettes are from the [Tailwind default colors](https://tailwindcss.com/docs/customizing-colors). ```{r, fig.height=3.8} grid.arrange( p4 + scale_fill_tw3("slate"), p4 + scale_fill_tw3("gray"), p4 + scale_fill_tw3("zinc"), p4 + scale_fill_tw3("neutral"), p4 + scale_fill_tw3("stone"), p4 + scale_fill_tw3("red"), p4 + scale_fill_tw3("orange"), p4 + scale_fill_tw3("amber"), p4 + scale_fill_tw3("yellow"), p4 + scale_fill_tw3("lime"), p4 + scale_fill_tw3("green"), p4 + scale_fill_tw3("emerald"), p4 + scale_fill_tw3("teal"), p4 + scale_fill_tw3("cyan"), p4 + scale_fill_tw3("sky"), p4 + scale_fill_tw3("blue"), p4 + scale_fill_tw3("indigo"), p4 + scale_fill_tw3("violet"), p4 + scale_fill_tw3("purple"), p4 + scale_fill_tw3("fuchsia"), p4 + scale_fill_tw3("pink"), p4 + scale_fill_tw3("rose"), ncol = 8 ) ``` From the figure above, we can see that even though an identical matrix was visualized by all plots, some palettes are more preferable than the others because our eyes are more sensitive to the changes of their saturation levels. ## Non-ggplot2 graphics To apply the color palettes in ggsci to other graphics systems (such as base graphics and lattice graphics), simply use the palette generator functions in the table above. For example: ```{r, fig.width=6.67, fig.height=6.67, out.width="60%"} mypal <- pal_npg("nrc", alpha = 0.7)(9) mypal scales::show_col(mypal) ``` You will be able to use the generated hex color codes for such graphics systems accordingly. The transparent level of the entire palette is easily adjustable via the argument `"alpha"` in every generator or scale function. ## Discussion Please note some of the palettes might not be the best choice for certain purposes, such as color-blind safe, photocopy safe, or print friendly. If you do have such considerations, you might want to check out color palettes like [ColorBrewer](https://colorbrewer2.org) and [viridis](https://cran.r-project.org/package=viridis). The color palettes in this package are solely created for research purposes. The authors are not responsible for the usage of such palettes. ggsci/inst/WORDLIST0000644000176200001440000000055215120434214013513 0ustar liggesusersAAAS Atlassian BMJ Bioinformatics CMD Catalogue Circos ColorBrewer Fi Futurama GSEA GenePattern Getz Guttman Hanahan HeatMapImage IGV JAMA JCO LocusZoom Mesirov Morty NEJM NPG ORCID Pettiross Pruim RStudio SSL Schwifty Thorvaldsdóttir Translational UCSC UCSCGB UChicago UI Winckler al et ggplot iTerm iterm jhrcook js pandoc pngquant ragg roxygen staticimports ggsci/README.md0000644000176200001440000001143715120434214012627 0ustar liggesusers # ggsci [![R-CMD-check](https://github.com/nanxstats/ggsci/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/nanxstats/ggsci/actions/workflows/R-CMD-check.yaml) [![CRAN Version](https://www.r-pkg.org/badges/version/ggsci)](https://cran.r-project.org/package=ggsci) [![Downloads from the RStudio CRAN mirror](https://cranlogs.r-pkg.org/badges/ggsci)](https://cran.r-project.org/package=ggsci) ggsci offers a collection of ggplot2 color palettes inspired by scientific journals, data visualization libraries, science fiction movies, and TV shows. ## Installation You can install ggsci from CRAN: ``` r install.packages("ggsci") ``` Or try the development version on GitHub: ``` r remotes::install_github("nanxstats/ggsci") ``` [Browse the vignette](https://nanx.me/ggsci/articles/ggsci.html) (or open with `vignette("ggsci")` in R) for a quick-start guide. ## Gallery ### NPG ### AAAS ### NEJM ### Lancet ### JAMA ### BMJ ### JCO ### UCSCGB ### D3 ### Observable ### Primer ### Atlassian ### iTerm ### LocusZoom ### IGV ### COSMIC ### UChicago ### Star Trek ### Tron Legacy ### Futurama ### Rick and Morty ### The Simpsons ### Flat UI ### Frontiers ### GSEA ### Bootstrap 5 ### Material Design ### Tailwind CSS ## Contribute To contribute to this project, please take a look at the [Contributing Guidelines](https://nanx.me/ggsci/CONTRIBUTING.html) first. Please note that the ggsci project is released with a [Contributor Code of Conduct](https://nanx.me/ggsci/CODE_OF_CONDUCT.html). By contributing to this project, you agree to abide by its terms. ggsci/build/0000755000176200001440000000000015120434234012443 5ustar liggesusersggsci/build/vignette.rds0000644000176200001440000000043715120434234015006 0ustar liggesusersuN0$-$/x2RI.cOpuTb}|?BH@q@p]I紪L%ۦuaC}aۀbO7c/X:#%jd2YPj|Y  -QTF(p1/Ӥs5ǰ9gAxtd#Xxe\@oXq{rrt xy Ҩbvi?lzL[۶D`Oä`~T_VÊggsci/man/0000755000176200001440000000000015120434214012115 5ustar liggesusersggsci/man/rgb_gsea.Rd0000644000176200001440000000234715120434214014163 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-gsea.R \name{rgb_gsea} \alias{rgb_gsea} \title{The GSEA GenePattern color palettes} \usage{ rgb_gsea(palette = c("default"), n = 12, alpha = 1, reverse = FALSE) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (continuous palette with 12 base colors).} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Color palette inspired by the colors used in the heatmaps plotted by GSEA GenePattern. } \note{ The 12 base colors used in this palette are derived from the \href{https://modulerepository.genepattern.org/gpModuleRepository/download/prod/module/?file=/HeatMapImage/broad.mit.edu:cancer.software.genepattern.module.analysis/00032/6/HeatMapImage.pdf}{HeatMapImage documentation}. } \examples{ library("scales") show_col(pal_gsea("default")(12)) show_col(pal_gsea("default", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_observable.Rd0000644000176200001440000000162315120434214015366 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-observable.R \name{pal_observable} \alias{pal_observable} \title{Observable 10 color palette} \usage{ pal_observable(palette = c("observable10"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"observable10"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ The Observable 10 palette. } \examples{ library("scales") show_col(pal_observable("observable10")(10)) show_col(pal_observable("observable10", alpha = 0.6)(10)) } \references{ Pettiross J (2023). "Crafting data colors and staying on brand." \emph{Observable blog}. \url{https://observablehq.com/blog/crafting-data-colors} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_gsea.Rd0000644000176200001440000000262515120434214014477 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-gsea.R \name{scale_color_gsea} \alias{scale_color_gsea} \alias{scale_colour_gsea} \alias{scale_fill_gsea} \title{The GSEA GenePattern color scales} \usage{ scale_color_gsea(palette = c("default"), alpha = 1, reverse = FALSE, ...) scale_colour_gsea(palette = c("default"), alpha = 1, reverse = FALSE, ...) scale_fill_gsea(palette = c("default"), alpha = 1, reverse = FALSE, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (continuous palette with 12 base colors).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_gsea]{pal_gsea()}} for details. } \examples{ library("ggplot2") data("mtcars") cor <- cor(mtcars) cor_melt <- data.frame( Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), value = as.vector(cor) ) ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", size = 0.3) + theme_bw() + scale_fill_gsea() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_lancet.Rd0000644000176200001440000000143615120434214014512 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-lancet.R \name{pal_lancet} \alias{pal_lancet} \title{Lancet journal color palettes} \usage{ pal_lancet(palette = c("lanonc"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"lanonc"} (9-color palette inspired by \emph{Lancet Oncology}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by plots in Lancet journals, such as \emph{Lancet Oncology}. } \examples{ library("scales") show_col(pal_lancet("lanonc")(9)) show_col(pal_lancet("lanonc", alpha = 0.6)(9)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_nejm.Rd0000644000176200001440000000174215120434214014510 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-nejm.R \name{scale_color_nejm} \alias{scale_color_nejm} \alias{scale_colour_nejm} \alias{scale_fill_nejm} \title{NEJM color scales} \usage{ scale_color_nejm(palette = c("default"), alpha = 1, ...) scale_colour_nejm(palette = c("default"), alpha = 1, ...) scale_fill_nejm(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (8-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_nejm]{pal_nejm()}} for details. } \examples{ example_scatterplot() + scale_color_nejm() example_barplot() + scale_fill_nejm() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_jama.Rd0000644000176200001440000000201115120434214014455 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-jama.R \name{scale_color_jama} \alias{scale_color_jama} \alias{scale_colour_jama} \alias{scale_fill_jama} \title{Journal of the American Medical Association color scales} \usage{ scale_color_jama(palette = c("default"), alpha = 1, ...) scale_colour_jama(palette = c("default"), alpha = 1, ...) scale_fill_jama(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_jama]{pal_jama()}} for details. } \examples{ example_scatterplot() + scale_color_jama() example_barplot() + scale_fill_jama() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_ucscgb.Rd0000644000176200001440000000201215120434214015014 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-ucscgb.R \name{scale_color_ucscgb} \alias{scale_color_ucscgb} \alias{scale_colour_ucscgb} \alias{scale_fill_ucscgb} \title{UCSC Genome Browser color scales} \usage{ scale_color_ucscgb(palette = c("default"), alpha = 1, ...) scale_colour_ucscgb(palette = c("default"), alpha = 1, ...) scale_fill_ucscgb(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (26-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_ucscgb]{pal_ucscgb()}} for details. } \examples{ example_scatterplot() + scale_color_ucscgb() example_barplot() + scale_fill_ucscgb() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_locuszoom.Rd0000644000176200001440000000162315120434214015274 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-locuszoom.R \name{pal_locuszoom} \alias{pal_locuszoom} \title{LocusZoom color palette} \usage{ pal_locuszoom(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes based on the colors used by LocusZoom. } \examples{ library("scales") show_col(pal_locuszoom("default")(7)) show_col(pal_locuszoom("default", alpha = 0.6)(7)) } \references{ Pruim, Randall J., et al. (2010). LocusZoom: regional visualization of genome-wide association scan results. \emph{Bioinformatics}, 26(18), 2336--2337. } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_npg.Rd0000644000176200001440000000145215120434214014026 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-npg.R \name{pal_npg} \alias{pal_npg} \title{NPG journal color palettes} \usage{ pal_npg(palette = c("nrc"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"nrc"} (10-color palette inspired by \emph{Nature Reviews Cancer}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by plots in journals published by Nature Publishing Group, such as \emph{Nature Reviews Cancer}. } \examples{ library("scales") show_col(pal_npg("nrc")(10)) show_col(pal_npg("nrc", alpha = 0.6)(10)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_d3.Rd0000644000176200001440000000321015120434214014055 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-d3.R \name{scale_color_d3} \alias{scale_color_d3} \alias{scale_colour_d3} \alias{scale_fill_d3} \title{D3.js color scales} \usage{ scale_color_d3( palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ... ) scale_colour_d3( palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ... ) scale_fill_d3( palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ... ) } \arguments{ \item{palette}{Palette type. There are four available options: \itemize{ \item \code{"category10"} (10-color palette). \item \code{"category20"} (20-color palette). \item \code{"category20b"} (20-color palette). \item \code{"category20c"} (20-color palette). }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_d3]{pal_d3()}} for details. } \examples{ p1 <- example_scatterplot() p2 <- example_barplot() p1 + scale_color_d3() p2 + scale_fill_d3() p1 + scale_color_d3(palette = "category20") p2 + scale_fill_d3(palette = "category20") p1 + scale_color_d3(palette = "category20b") p2 + scale_fill_d3(palette = "category20b") p1 + scale_color_d3(palette = "category20c") p2 + scale_fill_d3(palette = "category20c") } \references{ \url{https://github.com/d3/d3-3.x-api-reference/blob/master/Ordinal-Scales.md} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_gsea.Rd0000644000176200001440000000170515120434214014162 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-gsea.R \name{pal_gsea} \alias{pal_gsea} \title{The GSEA GenePattern color palettes} \usage{ pal_gsea(palette = c("default"), n = 12, alpha = 1, reverse = FALSE) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (continuous palette with 12 base colors).} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Color palette inspired by the colors used in the heatmaps plotted by GSEA GenePattern. } \examples{ library("scales") show_col(pal_gsea("default")(12)) show_col(pal_gsea("default", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_rickandmorty.Rd0000644000176200001440000000143215120434214015746 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-rickandmorty.R \name{pal_rickandmorty} \alias{pal_rickandmorty} \title{Rick and Morty color palettes} \usage{ pal_rickandmorty(palette = c("schwifty"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"schwifty"} (12-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Rick and Morty}. } \examples{ library("scales") show_col(pal_rickandmorty("schwifty")(12)) show_col(pal_rickandmorty("schwifty", alpha = 0.6)(12)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_futurama.Rd0000644000176200001440000000205715120434214015403 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-futurama.R \name{scale_color_futurama} \alias{scale_color_futurama} \alias{scale_colour_futurama} \alias{scale_fill_futurama} \title{Futurama color scales} \usage{ scale_color_futurama(palette = c("planetexpress"), alpha = 1, ...) scale_colour_futurama(palette = c("planetexpress"), alpha = 1, ...) scale_fill_futurama(palette = c("planetexpress"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"planetexpress"} (12-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_futurama]{pal_futurama()}} for details. } \examples{ example_scatterplot() + scale_color_futurama() example_barplot() + scale_fill_futurama() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_frontiers.Rd0000644000176200001440000000137015120434214015254 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-frontiers.R \name{pal_frontiers} \alias{pal_frontiers} \title{Frontiers journal color palettes} \usage{ pal_frontiers(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Frontiers} journals. } \examples{ library("scales") show_col(pal_frontiers("default")(7)) show_col(pal_frontiers("default", alpha = 0.6)(7)) } \author{ Clara Jégousse | \email{cat3@hi.is} } ggsci/man/pal_primer.Rd0000644000176200001440000000154215120434214014540 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-primer.R \name{pal_primer} \alias{pal_primer} \title{Primer design system palette} \usage{ pal_primer(palette = c("mark17"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"mark17"} (17-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ The Primer design system data visualization palette. } \examples{ library("scales") show_col(pal_primer("mark17")(17)) show_col(pal_primer("mark17", alpha = 0.6)(17)) } \references{ GitHub (2025). "Primer data visualization colors." \url{https://primer.style/product/ui-patterns/data-visualization/} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_rickandmorty.Rd0000644000176200001440000000212115120434214016255 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-rickandmorty.R \name{scale_color_rickandmorty} \alias{scale_color_rickandmorty} \alias{scale_colour_rickandmorty} \alias{scale_fill_rickandmorty} \title{Rick and Morty color scales} \usage{ scale_color_rickandmorty(palette = c("schwifty"), alpha = 1, ...) scale_colour_rickandmorty(palette = c("schwifty"), alpha = 1, ...) scale_fill_rickandmorty(palette = c("schwifty"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"schwifty"} (12-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_rickandmorty]{pal_rickandmorty()}} for details. } \examples{ example_scatterplot() + scale_color_rickandmorty() example_barplot() + scale_fill_rickandmorty() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_igv.Rd0000644000176200001440000000243715120434214014346 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-igv.R \name{scale_color_igv} \alias{scale_color_igv} \alias{scale_colour_igv} \alias{scale_fill_igv} \title{Integrative Genomics Viewer (IGV) color scales} \usage{ scale_color_igv(palette = c("default", "alternating"), alpha = 1, ...) scale_colour_igv(palette = c("default", "alternating"), alpha = 1, ...) scale_fill_igv(palette = c("default", "alternating"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. There are two available options: \itemize{ \item \code{"default"} (51-color palette). \item \code{"alternating"} (2-color palette). }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_igv]{pal_igv()}} for details. } \examples{ p1 <- example_scatterplot() p2 <- example_barplot() p1 + scale_color_igv() p2 + scale_fill_igv() p1 + ggplot2::scale_colour_manual( values = rep(pal_igv("alternating")(2), times = 3) ) p2 + ggplot2::scale_fill_manual( values = rep(pal_igv("alternating")(2), times = 3) ) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_bs5.Rd0000644000176200001440000000354115120434214014247 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-bs5.R \name{scale_color_bs5} \alias{scale_color_bs5} \alias{scale_colour_bs5} \alias{scale_fill_bs5} \title{Bootstrap 5 color scales} \usage{ scale_color_bs5( palette = c("blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray"), alpha = 1, reverse = FALSE, ... ) scale_colour_bs5( palette = c("blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray"), alpha = 1, reverse = FALSE, ... ) scale_fill_bs5( palette = c("blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray"), alpha = 1, reverse = FALSE, ... ) } \arguments{ \item{palette}{Palette type. There are 11 available options: \itemize{ \item \code{"blue"} \item \code{"indigo"} \item \code{"purple"} \item \code{"pink"} \item \code{"red"} \item \code{"orange"} \item \code{"yellow"} \item \code{"green"} \item \code{"teal"} \item \code{"cyan"} \item \code{"gray"} }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_bs5]{pal_bs5()}} for details. } \examples{ library("ggplot2") data("mtcars") cor <- abs(cor(mtcars)) cor_melt <- data.frame( Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), value = as.vector(cor) ) ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", size = 0.3) + theme_bw() + scale_fill_bs5("teal") } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_atlassian.Rd0000644000176200001440000000235015120434214015532 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-atlassian.R \name{scale_color_atlassian} \alias{scale_color_atlassian} \alias{scale_colour_atlassian} \alias{scale_fill_atlassian} \title{Atlassian Design System color scales} \usage{ scale_color_atlassian(palette = c("categorical8"), alpha = 1, ...) scale_colour_atlassian(palette = c("categorical8"), alpha = 1, ...) scale_fill_atlassian(palette = c("categorical8"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"categorical8"} (8-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_atlassian]{pal_atlassian()}} for details. } \examples{ example_scatterplot() + scale_color_atlassian() example_barplot() + scale_fill_atlassian() } \references{ Atlassian (2025). "Atlassian Design System categorical chart colors." \url{https://atlassian.design/foundations/color-new/data-visualization-color} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_observable.Rd0000644000176200001440000000235115120434214015700 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-observable.R \name{scale_color_observable} \alias{scale_color_observable} \alias{scale_colour_observable} \alias{scale_fill_observable} \title{Observable 10 color scales} \usage{ scale_color_observable(palette = c("observable10"), alpha = 1, ...) scale_colour_observable(palette = c("observable10"), alpha = 1, ...) scale_fill_observable(palette = c("observable10"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"observable10"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_observable]{pal_observable()}} for details. } \examples{ example_scatterplot() + scale_color_observable() example_barplot() + scale_fill_observable() } \references{ Pettiross J (2023). "Crafting data colors and staying on brand." \emph{Observable blog}. \url{https://observablehq.com/blog/crafting-data-colors} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_frontiers.Rd0000644000176200001440000000247415120434214015575 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-frontiers.R \name{scale_color_frontiers} \alias{scale_color_frontiers} \alias{scale_colour_frontiers} \alias{scale_fill_frontiers} \title{Frontiers journal color scales} \usage{ scale_color_frontiers(palette = c("default"), alpha = 1, ...) scale_colour_frontiers(palette = c("default"), alpha = 1, ...) scale_fill_frontiers(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_frontiers]{pal_frontiers()}} for details. } \examples{ example_scatterplot() + ggplot2::theme_dark() + ggplot2::theme( panel.background = ggplot2::element_rect(fill = "#2D2D2D"), legend.key = ggplot2::element_rect(fill = "#2D2D2D") ) + scale_color_frontiers() example_barplot() + ggplot2::theme_dark() + ggplot2::theme( panel.background = ggplot2::element_rect(fill = "#2D2D2D") ) + scale_fill_frontiers() } \author{ Clara Jégousse | \email{cat3@hi.is} } ggsci/man/scale_material.Rd0000644000176200001440000000462515120434214015360 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-material.R \name{scale_color_material} \alias{scale_color_material} \alias{scale_colour_material} \alias{scale_fill_material} \title{Material Design color scales} \usage{ scale_color_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), alpha = 1, reverse = FALSE, ... ) scale_colour_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), alpha = 1, reverse = FALSE, ... ) scale_fill_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), alpha = 1, reverse = FALSE, ... ) } \arguments{ \item{palette}{Palette type. There are 19 available options: \itemize{ \item \code{"red"} \item \code{"pink"} \item \code{"purple"} \item \code{"deep-purple"} \item \code{"indigo"} \item \code{"blue"} \item \code{"light-blue"} \item \code{"cyan"} \item \code{"teal"} \item \code{"green"} \item \code{"light-green"} \item \code{"lime"} \item \code{"yellow"} \item \code{"amber"} \item \code{"orange"} \item \code{"deep-orange"} \item \code{"brown"} \item \code{"grey"} \item \code{"blue-grey"} }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_material]{pal_material()}} for details. } \examples{ library("ggplot2") data("mtcars") cor <- abs(cor(mtcars)) cor_melt <- data.frame( Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), value = as.vector(cor) ) ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", size = 0.3) + theme_bw() + scale_fill_material("blue-grey") } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_startrek.Rd0000644000176200001440000000202715120434214015413 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-startrek.R \name{scale_color_startrek} \alias{scale_color_startrek} \alias{scale_colour_startrek} \alias{scale_fill_startrek} \title{Star Trek color scales} \usage{ scale_color_startrek(palette = c("uniform"), alpha = 1, ...) scale_colour_startrek(palette = c("uniform"), alpha = 1, ...) scale_fill_startrek(palette = c("uniform"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"uniform"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_startrek]{pal_startrek()}} for details. } \examples{ example_scatterplot() + scale_color_startrek() example_barplot() + scale_fill_startrek() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_npg.Rd0000644000176200001440000000176715120434214014352 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-npg.R \name{scale_color_npg} \alias{scale_color_npg} \alias{scale_colour_npg} \alias{scale_fill_npg} \title{NPG journal color scales} \usage{ scale_color_npg(palette = c("nrc"), alpha = 1, ...) scale_colour_npg(palette = c("nrc"), alpha = 1, ...) scale_fill_npg(palette = c("nrc"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"nrc"} (10-color palette inspired by \emph{Nature Reviews Cancer}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_npg]{pal_npg()}} for details. } \examples{ example_scatterplot() + scale_color_npg() example_barplot() + scale_fill_npg() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_jama.Rd0000644000176200001440000000142615120434214014153 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-jama.R \name{pal_jama} \alias{pal_jama} \title{Journal of the American Medical Association color palettes} \usage{ pal_jama(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palette inspired by plots in \emph{The Journal of the American Medical Association}. } \examples{ library("scales") show_col(pal_jama("default")(7)) show_col(pal_jama("default", alpha = 0.6)(7)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_locuszoom.Rd0000644000176200001440000000204315120434214015604 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-locuszoom.R \name{scale_color_locuszoom} \alias{scale_color_locuszoom} \alias{scale_colour_locuszoom} \alias{scale_fill_locuszoom} \title{LocusZoom color scales} \usage{ scale_color_locuszoom(palette = c("default"), alpha = 1, ...) scale_colour_locuszoom(palette = c("default"), alpha = 1, ...) scale_fill_locuszoom(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_locuszoom]{pal_locuszoom()}} for details. } \examples{ example_scatterplot() + scale_color_locuszoom() example_barplot() + scale_fill_locuszoom() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_iterm.Rd0000644000176200001440000000202715120434214014361 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-iterm.R \name{pal_iterm} \alias{pal_iterm} \title{iTerm color palettes} \usage{ pal_iterm( palette = iterm_palettes(), variant = c("normal", "bright"), alpha = 1 ) } \arguments{ \item{palette}{Palette name. See \code{\link[=iterm_palettes]{iterm_palettes()}} for available options.} \item{variant}{Variant of the palette. One of \code{"normal"}, \code{"bright"}.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ ANSI terminal color palettes sourced from the iterm2-color-schemes project. Each theme provides normal and bright variants. } \details{ Preview all available iTerm color palettes in ggsci: \url{https://nanx.me/ggsci-iterm/}. } \examples{ library("scales") show_col(pal_iterm("Rose Pine")(6)) show_col(pal_iterm("Rose Pine", variant = "bright", alpha = 0.7)(6)) } \references{ \url{https://github.com/mbadolato/iTerm2-Color-Schemes} } ggsci/man/example_plots.Rd0000644000176200001440000000146415120434214015265 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/examples.R \name{example_scatterplot} \alias{example_scatterplot} \alias{example_barplot} \title{Example plots for discrete color palettes} \usage{ example_scatterplot() example_barplot() } \value{ A \code{ggplot} object. } \description{ Utility functions that return simple ggplot2 examples to demonstrate discrete color/fill scales. } \details{ \itemize{ \item \code{example_scatterplot()} creates a scatter plot of large diamonds (\code{carat >= 2.2}), mapping \code{table} to the x‑axis, \code{price} to the y‑axis, and \code{cut} to color. \item \code{example_barplot()} creates a side‑by‑side bar chart of diamond counts by \code{color}, grouped by \code{cut} via fill. } } \examples{ example_scatterplot() example_barplot() } ggsci/man/iterm_palettes.Rd0000644000176200001440000000047615120434214015434 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/palettes-iterm.R \name{iterm_palettes} \alias{iterm_palettes} \title{iTerm color palette names} \usage{ iterm_palettes() } \value{ Character vector of palette names. } \description{ iTerm color palette names } \examples{ iterm_palettes() } ggsci/man/pal_futurama.Rd0000644000176200001440000000141215120434214015062 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-futurama.R \name{pal_futurama} \alias{pal_futurama} \title{Futurama color palettes} \usage{ pal_futurama(palette = c("planetexpress"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"planetexpress"} (12-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Futurama}. } \examples{ library("scales") show_col(pal_futurama("planetexpress")(12)) show_col(pal_futurama("planetexpress", alpha = 0.6)(12)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_flatui.Rd0000644000176200001440000000162315120434214014526 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-flatui.R \name{pal_flatui} \alias{pal_flatui} \title{Flat UI color palettes} \usage{ pal_flatui(palette = c("default", "flattastic", "aussie"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there are three available options: \itemize{ \item \code{"default"} (10-color palette). \item \code{"flattastic"} (12-color palette). \item \code{"aussie"} (10-color palette). }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by the Flat UI colors. } \examples{ library("scales") show_col(pal_flatui("default")(10)) show_col(pal_flatui("flattastic")(12)) show_col(pal_flatui("aussie")(10)) show_col(pal_flatui("aussie", alpha = 0.6)(10)) } \author{ Clara Jégousse | \email{cat3@hi.is} } ggsci/man/pal_cosmic.Rd0000644000176200001440000000262515120434214014522 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-cosmic.R \name{pal_cosmic} \alias{pal_cosmic} \title{COSMIC color palettes} \usage{ pal_cosmic( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1 ) } \arguments{ \item{palette}{Palette type. Currently there are three available options: \itemize{ \item \code{"signature_substitutions"} (6-color palette). \item \code{"hallmarks_light"} (10-color palette). \item \code{"hallmarks_dark"} (10-color palette). } The \code{"hallmarks_light"} option is from \href{https://pubmed.ncbi.nlm.nih.gov/21376230/}{Hanahan and Weinberg (2011)}.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by the colors used in projects from the \href{https://cancer.sanger.ac.uk/cosmic}{Catalogue Of Somatic Mutations in Cancers (COSMIC)}. } \examples{ library("scales") show_col(pal_cosmic("hallmarks_light")(10)) show_col(pal_cosmic("hallmarks_light", alpha = 0.6)(10)) show_col(pal_cosmic("hallmarks_dark")(10)) show_col(pal_cosmic("hallmarks_dark", alpha = 0.6)(10)) show_col(pal_cosmic("signature_substitutions")(6)) show_col(pal_cosmic("signature_substitutions", alpha = 0.6)(6)) } \author{ Joshua H. Cook | \email{joshuacook0023@gmail.com} | \href{https://github.com/jhrcook}{@jhrcook} } ggsci/man/pal_nejm.Rd0000644000176200001440000000134315120434214014172 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-nejm.R \name{pal_nejm} \alias{pal_nejm} \title{NEJM color palettes} \usage{ pal_nejm(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (8-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palette inspired by plots in \emph{The New England Journal of Medicine}. } \examples{ library("scales") show_col(pal_nejm("default")(8)) show_col(pal_nejm("default", alpha = 0.6)(8)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_tron.Rd0000644000176200001440000000133115120434214014220 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-tron.R \name{pal_tron} \alias{pal_tron} \title{Tron Legacy color palettes} \usage{ pal_tron(palette = c("legacy"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"legacy"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Tron Legacy}. } \examples{ library("scales") show_col(pal_tron("legacy")(7)) show_col(pal_tron("legacy", alpha = 0.6)(7)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_uchicago.Rd0000644000176200001440000000276415120434214015346 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-uchicago.R \name{scale_color_uchicago} \alias{scale_color_uchicago} \alias{scale_colour_uchicago} \alias{scale_fill_uchicago} \title{The University of Chicago color scales} \usage{ scale_color_uchicago(palette = c("default", "light", "dark"), alpha = 1, ...) scale_colour_uchicago(palette = c("default", "light", "dark"), alpha = 1, ...) scale_fill_uchicago(palette = c("default", "light", "dark"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. There are three available options: \itemize{ \item \code{"default"} (9-color palette); \item \code{"light"} (9-color light palette); \item \code{"dark"} (9-color dark palette). }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_uchicago]{pal_uchicago()}} for details. } \examples{ p1 <- example_scatterplot() p2 <- example_barplot() p1 + scale_color_uchicago() p2 + scale_fill_uchicago() p1 + scale_color_uchicago(palette = "light") p2 + scale_fill_uchicago(palette = "light") p1 + scale_color_uchicago(palette = "dark") p2 + scale_fill_uchicago(palette = "dark") } \references{ \url{https://news.uchicago.edu/sites/default/files/UCM_UniversityIdentityGuidelines_2-2020.pdf} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/figures/0000755000176200001440000000000015120434214013561 5ustar liggesusersggsci/man/figures/README-ggsci-flatui-1.png0000644000176200001440000006161115120434214017743 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$9PLTE(aU:,_fCց_Y~th]ONN  IDATx읋b:@;4MKL9Xs2C__b *JSUw% = @d O%%ouؚw W5> ntqvּ  Pvlߗ]>\׵=yk|+s2Vz]gwA@ #na_&$ @!y@cgڲ % >B-%}7c +mͻ|Ε_[.@(8CٰW{y %{e/}@d % @o)U x9:.U @NlN  ]f!  o xM1TA_[  d?:D,Sv!' @ x0iC_)˳]9ےg.:_1]p5@>j LM[ S <)R;Ӣ_ӢbTo%_LqU/<2~, ]l1^h/]94ӂHvL[ PǏ/!,,~p/#\Cӽoho c{#<Zol" 4 X& lkaxQ=Z؅,lד\ikaxD?v! @ x[  @ !`. % @^^"dQإAk @  = @ @WuWW:6J@`W(뺨k%HyX; 62@/֚6;JHU=YGBHhW'[ d0(5ݍ l;C@SU55T7L|63_X=Q{0 O9G {c\6ÇZ1 k]=x@U=G86Mv!4cU`9Ǟv qU@UJ@~.NO1#+!c0fr+OxCnxlzS걧\>p)NM N@+H!*npMrcp[5rjΦcMˬPWqA MҌ"y3*Xy @m{7E4׸tޑ(>s=XJՐ|7*ݷ\y`? ກqeh>ԉQh|f.gׄ$@LlBjˠD4O'5{:xH?fiBM}O\Goʧq^1R"ơbEvE0oOh@܀GA(@\9w)iN(&ah}Ny@sǡz_`aPVw864''\- lwFp!r>E+|/ nq X@EROj P.}螺sGр`7n"P⦉*Ot-sH+x=zپZsୟB" &.*oV{D1)`SVPSӼzIߴ hul?z?)$2 `d+9C1Qb@" *RU1Hn 1)$ٯ2ikS3] VcSqWލ~1VP{e[Fjܶ& G{e\/4.0%ּ ɧ$Al pl33NjZȶh] el65s `. VnUfE:.e+~BWӯU3NH7lg_vޚw[K&E;u bo'><iʵ_~ajJd=ٚ3,'?^T~ȅ]CxY@?6 8֘ ;aeţKuGkw ,ply?wt O@L6@?Rnߗ蕨eu<;97YY͟@|s~#g.2ًW_a)0T!0~p`K1KcT!  u<n+9Cxd m#yd9X,,{!S ,|J Ǫ&h3>Fd k i2%o&|y7\lDX`P'Q1n]g%O7@>B5GthغmA*ŒVg╥'~/>@ {3Pi b0꯭ץD~/\ }>}ƞ2!`79EB0G%[pN/%@vA>b+oK0j_րOy@8Oa}좞AƜ@yOD,z zP60a,n(HHDCm5!dSEcqC!-\E"#(qJ/>gV2B,wz4G3:mJqЭ˴xѽ.8 @ ĝ2XI?dIT|d)2kpzPZ8;ٴI(}ʳ/nkbxJПG ~󑳱UBU,8 2 ɹ5f}Ț9EePc73m”I?w*MsW0<=@U/$Dzθi&x^Y :#e7a/7wlfRĘ![vۗ iRYBJ=$/ra`G$*K@ŜߧnivRP= ^vЪ0yP2[@ @/S_v 8UMQoGА_j7m5 x+ 6I`BH'c, "z^@j)[E]>U92}C:Vpp׷ߨ^":)`'8;_@F `Pݤ{e8w|1WL5!L r t  nQ GO @*t1 mܤgM{[zoъa:f!c+>h2U?pя *wPOO YDjɺ:q#4oydp2q USCtDePB PVD #JGr =«=}o[F}m\2aPp=Ps_zj< @kb* W9V5*hyJw;#iJ@ +$*P|B)= _76)r͟d?ntv@f^ g<{7?k%"&湪IZSO̡}+kug[3_|Oo "Fq"87[ v3cc~Ծ4v&%\䑡gx+鏼v뿫7pU]&1\>9&cLÌ(Av) CJB8|o]'Ng'@+j8â WˣYqip@FL rO*؈!W8tThwpg0p.;כgB@@mT+2fUr\Ń0l-ie<;umN`vg3^OU?1lKCz&o& > l߄7 Iu]"H(f70 _E@ ;(`' # 75>I0c[Mw5f,+pR.e\hwIytώ1q6􇅀$p$M"!Ч큨m- VQ2$=h9?OCXmj_T| R w6'ݳiKPwc?`4 S$ ~pwi>g3^#s>+&AvhVyڮ62?5wG]kPWE Wg% aT )cyhaW\L3qp=Є9^ObM&-](M `18u>q~l{oi ʞȂu*3VcF"B@˗+ vs0ҞgQ# .;uud@N~^Nik7_65^I@M b?ҩ|_@S7G`~9܅/ 3xG¬(s%6<m]e$E22[18{i-GDY))l"AY xof!8?oyfiXemĢl辇@C]c.q!8#}H=?(c? BJ91+Q!*Od= H=7L&m.bVh_Qþ@s9߀& ll6*@,wʗR_M s XkhN4oBϕUP)6w)LXuEB7 eg؎vfq{@\V,@thd!O%A1000=*kE0>= S$n*N8b{OekL@"?Ɖ[. ţ,@\ @ /QJDv:?qDIșH[ʓPi4'~wk9Q`? VLR' A\=1˒!p/߄ gHMF "^gSF9N"6@f4^[u3Orߦnu+v$$Q_zŭ =w؋0 x/+޼Λ!IФ!fM9 ru*",tWkgՃF2PQxڋѻ{?] 0).dE KBߴavy7'MD*Q9@$)qdfm[H:fX P:F\s zlA! XmznE*B W .^6Y[{ 7hiP*#+/ JoDz-CHUTW,;H(٦ 3TP#PJp<i;@Z蛗`C/s\*D@g΄w&&} G <`h@޹A;iKU]C}WrͰmWV$-Fҫ@¤L9`Ӧ `TﳀvgugnK|lml+ԣG8PoX: @;[eZ>Tu>]1$$}+a e,0۲-V 9Ҋ5_`+w~_õ|?yjDl[>(ONJͻv=uāu <^η.sQ/F=:\>t`'9xHȄ s|u)1 |-_3ISpf25{ Dy2x0p#{XzpՂ;z=M)迹0S%_H".s"C@$hZBfY9u":d@5濜L x}1H|P%Wޚ󹶆![ "eO/CWȠq"IA6Bqlwkme[rn\2_G警F#$kOhI`Y]y ̏6(q1(:S3Otl.ɆBmķF0/^u AS4,Ϧ{1H~=Qsr.IVǰQAEk5piyFߥ/OBG4QOZ}&l!^h43/u߼[y8 " ?1MtР^= We}bp>po'?30<6} 8D(#V~ yZ&>QCs}껳[Lc@rG [I,t6 XT ;xxݽ);.'Ϥr#dy1pN3oZ 6F+Օ%̜l;000k"DiFG\;d5pV|"D%eA.NHD5]6 4M-]QE %uvbh+R<^6uRR9tFƠ_zK?rU(Og.&&4f%~iPq17Z37!vqCv&+ɫHjWN?.q?Kb|n+09m 7{?*.>y?+|ζdz?Hn|}jބ^G}Yv;`YP3?-dž.&徂os4@Dp-Txdg&&&w*?IjWu^Z ۿ37>{iENM֛5?"`0Z eETQ9l1BP@PHaY3O?300V2XuL&59wp?m[4=?bw0n3/׶0Hc`\;aɉ l GI_~Ơ>\($Mv[3Mjk ҃Nk#/Flu0 ldl ,D^ { -)u &⫙^jW1Dq),kM 1Gh.ݜ/ܡB4IVBِ-:͡""맀 %!6@-&*f|o㐧D x?Y֣c?0_Nvu-FCb5i9UMB<H5F$_?BBR"4]KUMl/ JH g5"!@S=0}}s҂C\eYRxi&&&~NЫaku7#}?۫.j}A Lp0z@u QS*R"z{yǕ՝h9ӓ"4zէ̇F2000 ) Brӌ:o[H_vV?`*\zM(VddƩ*!3G+AJ@ch@3o^#m[=iq]w.v6!nqBTzPj4yUrL2000|Я d$uoZ fNW_5Xєg"I(n:!U9DÇ> $6rsZ fqLL$p?a;/]]$0Se';$&[zH6*P+HHUz2{ ) wR@ @wu30B8$JO<)BH.V*NxM|+3W!̗̋_( agMB9 a0.HI)T- Pڗ"ƦN]10:8 $*i\"py RmK._bʔ- F)fD#;L2]gdF Mճ $~A(Qrz,|^; }âx5ߚ p @ !KW5|mHz1Z0< m#Npx#$q*U@-u;.&d-ۛ77De2) M`QF$lh?56L\}uXV m)zOM>bSl$ Ե>W`nt 9~-ꎻ 3!+)h]& &y7ݯݤK\0qTÉiKq]ѠrX59 Mv" @qE?@C:̄(j.0Y7~!jD 2sq9.==8B}i oߙ4fıV/A`! T5=/w?~v>5>lyra#D"۬]I cv`x)3 H # R bwzp|}; CS(y"?Rnq 0/f/[:ROQ=4KҡYAyT `vZi ŰQo@Xnz?\{z{_ p-tkt" -+ӦX6&:R qj)Q; mOi{֭ήt} \)voꦂX_L˜a`8% BGS)sEJK?.w  5vpEC3Ο[TĻ06 Tܵ^$JPa( ?#S@L$S/[Atc:(YW[ I"Y'q^>(d%,SfI":"ke$dX [TU&1VF|n_`+jas遀9hpN8$:g?S&5G_7k9J }za7jS&(bh)@{7Ûfp'vc`xhWAcP冩6lyXõ D!}m@@ z{?SDO3]舭6оѬ:u(<1Yv(> ؁_+#ax^;= #YCR$𧻓P5LLLLDR߃T"R=,Tx3@04hYv VՉ``5=n~%  ,FŲa 1$ U:.ơ0r.wUVDFvV+D 㻤RՂ$ڐ H*+'WVlڭм/]3+;-5a M%aK.\'.:9[8_OVsB@Q"@ Qx fC}oaaoLX(Wj3p#Yk" p"]@TD:{Q.\ łFs ONg;vܛY;=-K#; Ctg޺yDH h6|)  9g^wB@ݮB4z} iwoDfT &$+Ko*'I7bkx}DI "8@3D#hSG%,gu?sf?bFrbȩ0PoZ,ᓄo`9TVjKb/p.l[2ڬRgK2W/d@߸ Hgj w@+{z2@ p+gZbBoJ?%=ߩ,!elf; @zBD,O܉LdioJӥ@z&+Oa}+J@qT^ ˟kc*Jy.[:?;9C% T2[?_ /s@ 8gRAûuDy,@("t*3qXU F>a-x2E@$@TV`~u gD]_[֛ |G;;1p3B ^אC@4l 5LZ !]JZ|)u/sѼ' |iP918.A? @<J?|v'D fsˑtG! "3~hMD46OˀHïBCikBӭӜåHL`o0xIol}{'i d]y8p)|Y$7ޝ_i{?xגRx'0#87M}@(YP`Sڸ I Ӱlj˝Cs%gZIO}F0'FTVPn IDAThy$$W߃c =[XbEj ov@Lr O t R/FJͱIlW= Pu jy?< h u_}gse˃|x< [?xtzXزѩfKuN,OL\Bv}e@\ -i9KbTHwÍ@U /6mIeFO媀"@g`9(?Y}sυi2ZlO!gH"Z~qX-eL@9łF'RsV:5sHWI_YzXS0΅I- {` ̮}Tdc*]Q):+"6>/XFd45Rs%/V!C=cX QevZ KR,"lt ɹ^vW<57ݐuzY<c>zW!W~5C1%Y:7UD<R^-)4$z 5}kIq7; ?W=J r[m?wטkhH.BPNGk"T sϡr*g=$OX!5co4q?HpNe0B>xwp F` f@|+.HP̆G$2)V4kO f Ym_*F*ROZ@ L"o Z=aI eD?J?}/5鶯t ͊‘pzW5.ք*-oB[FO J 9#q27IoԓU G @| O%b?Pxe>6:UtЦj[V>R#!/ ^][v+ǀ+7T4h2b^nDzRL'y֞X  `7~l'@;,+Ѐ?2#ckQX='B@_+@ue| Нno3eSF!L134v>dt.& k]C@-P9>sXP~d P)) +֑R}%@&p ;8cz:njGՓ=+|KД_I^=eK{݄@ N7*s< 9Pq~bh ʫ2 >0 j ޹7 aJV4R}]@4P~tQ\R@I7@w"S(,; 1@?Ũ?qo3oH P `nJq/r<&p, !Rإ7@CHCq@tBbzHuAȱx}ycsb VR['c?nD|,' M\)XC< dmZlu w- D2@-pn'p+\'}Sd9H@]l;jZu: !=;[sN)?FH]J-Q)  f[ >>t kI``d7r,";Ϸ l @,2BM@F/ ̇_CPIQH|SQqKl.eƭJv}߬V]RXaUvU^3) @ zCJZɮ[?\PBp:E!w#ۊ} 7@)':v!L0v6ЪNrZ6O|/I. &ߔo݋^NJ ,W=cF z 4ӬeD-jI`UpQ )V,~eVBMUug'DlTen#Іx;N#6ѪY@}|7`)@(WR8:v+ CM3)[BУZJGZН\v@MM"p2@lʇLҹq t& T|lqaT̼Y s^Ry}n}pDM@iB@>n_,pI{#TԛNRAtx"d|Ii7vg+ uD( H}#C\q 誠|ܗc⏐މz.i/D\AV@T= h}|7 &tIJ7|9dp=nѮ!}),@7.pc!Ĵ0 4#`?EPlA<Tx4;4(bJ6 `6Qe42EG XMor- 0)%pV)8)p'0Mrbl|'0 P4vk};@6h| 0SvYH؀<>V?}(>$&5 r %  ~<\M@eJ99J!>N=KWUoe^ ŒzCwIv @TU,ͯsR[ X!+8t}J+c@VP^wc%IsL7-U|58{qر_#W)y.`6}%osNbN@W[ n]* tW5-އ'm6ɿ%rR .F@@kzCQgG~3u2sc[x|IJϲuW@n&`BPa/4ڬ`Zo鉪Kjf:ơ`Pۆ$`/m4I{=ǡ;& ՅnĄ' 6gg.ꇨuOR<*H%H  \ҫ 4 Hq葜gw Mj> L̴50p J19Jx={URyr,d촷Q?ts:9^/]l%$w0uPV507&ʤܒyη@)pN AhOm? ux@OL@4K㣀^R[uH{E4a@ۋi* t\~ ikmyB]p=И@SFRMwn JK#'@PeE<0+ *o"m `D>/Gt0P iܢ T_ _/Z -YB^:  4gP@_| nos%x46Krܡ$L؟ WEM@mS869Sz tШ +1m .Y<`kkk{}H~ 84b; 7h{kԟ-R&azvFóf|4Y#Mh g@8 fffN nh 5_#eZajgX'Im!%_'0|hg 5wౡe/`J1e,LD  By%!@; 'NV?@DYb{ K3+ Ql( &E7@INN/! p[$,R`%p KM_ODI@&V&N!?j @0p=r𿽳]T2+9g[ڙ8}F%ǔB#2"I%DPR{E6 "'ƫoPh!^IA`gyzq$P 31< @M 7R0ݽX3t5Z@ @| j^:@^ mp㍲2HZdG"<@-ó~{?/- 8wYu߹  am j"8wM܅OJ@k^ p%P j@Ҝ&[$nUԋ@4)^Z@xOr4Pm:}`*89W)<@W@N­{r C  @ %@  P@ S  PZBڻoD"N rvvgI?1  Nvu2  ߎzs۽3o3@s4uu @lFyF*G@%,$A#- p1Fc~^PC/7S@i`σDZ @~!soND_,x4RP~@i2v}VJM*(3W]TT 6Ozr]h}+A"$@ 3=]m`70[Ħ^Z@ ._uON#Fǎ@ G ~@k @?Vap"R@$}ҝAw'ѭ @| h!LpHumsebzi!@197wq{P @?g3"VEv@@| v;qhﴀ +l]p(N;:@?Q4/@? DOBHy|Qz<J  PPiOl?Ng|F|ݘ  $>x~tmИ@AIFڶ.j-  9 6=TP&dq WҴH!=m:p5*@ ").,8xc "ZK  8I傈{S\6@ `)""[ d@@P6@2wHj@Aۇ;@o&e  AmCo@@ެ9=:T!PyЍ5@p jQͻL|4@q$@C7j|p@ Z@QDA#*7f5>$7dg9g}d9-aK1C J?]+Yݳ3ˁ>U_@h&5SJt @Psa o8y Pcǁh@WJ7I7@h~i W-؋P - 8Kmw2:wǠoWF#O1 .H#*сʎW ~R}~>A{ F!#)v;if‰*?H?S#S*B6ۆEF|ͱu9酪51P@)IcBG7bR %oOrKͨ(܊LJºP $Ⱥ `'m.ź 1ESo6 9a " Zu ٵ,R 8높S$5 575V"?lV ;..@eXw=m-˭Dln(bxY^+y utoD(o^{ܺ` hB܏-x 0Wţ"E&Hn `F*z+ %QC}|'͜Q4Tep@|Azo_ͼ,Z]v;i pYJp&8ZW̯R)l(玃)Pl)b;wɝ4 + YMUo.3^AU )/'\pUf*!IENDB`ggsci/man/figures/README-ggsci-atlassian-1.png0000644000176200001440000006122415120434214020436 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$PF)Z6{ԟ@u8RB'geԟ3;첺?5x'>JWiY[4 @y@N HZN`@ hc۔RvQ !Ιq.lg?|Jwue|ԥ xg  2  ,p^~/@ KdsJ@|Ym   @@{bR!@?[^^Ѹr78s H.]Wl;s Fm9A hqbjCǷ@`=xwѝS%^4[aZOwt Ff͏Wr?dڛ۸y)~0xzލ5_ ɮ/]V7nZٰm w|~?nuUΩ?)h]̽1d W^}, 4 O9*c ;e0P@Q8۷;s ,2@kMh?>0K(Q & B  - @  - @ @#J@DآIj; @  - @ @)J@DآI{ @  - @ @/J@DJعr1S"RN̋Md x Wo- #z/ #ݫ}@^F=393㽉` )FG> XRvyK;1Sӣj& ;9g90t<A`a#wL m߄4 |}"s^. \nd΍KA,(5 @l>Uj/؟[yUw|{u(UT?%5>{#>w|U4w#@IP%ЇqA:o&lJOVCFDqņɭrro5i䩚2| gS­¶rqIP3gq[IucG泥3ruJ!  "ϿjȇоFwk@Pŏj2 w;˅&]"H [Lh[C+D"n C|OB] $1辴K^..Q5@V1i>aj]рL >.f~I굀+ʩ50_K{eR&AɘfU>(f_S gkEc+=FB7{IݼjXq9<*@.hKݾ߶ۨ`!qʨdJy>+?*u3u67bprA'Ҡ[].J $ }2 (a2A@3]&/w!<;W-_-NnpI0D[z3HoثeԟzU7ƷL_D2vA ^ww{pM(ծyӺq\އ_;h{4;(KIPŏ ̹[to|opY ?O pl;48"_.bs.I|vSxGzKV/wv[(s1q% Z:JCK`6# c:s޹h'Ba yw=Zcvڥ33}wE>t@8!8yЩ <BL{rZVm@4 {WB# e<y_ayizlbm ;q`/ck;$0aѧP5xw*Zl0q iNJ  e,4QEgX<sL8 ?_@@G2*9ۼN/OU\Hz˺)4S~*\4'<; ( ̰dUJ `*i= @.J{ r[;@` x5xNYi{W"|E$B@G+î?}f_Njp "GAxh1w=aR5$M! k>o*XڿXJw}*z$|gu'IsXY)aF2i~RsGx:7C?/2$ ;lA\Dxomn̚'Jw Ґrve@@t@r#d,.{A"`!g_Cd ɭ9B?B9{@C&'W apEq(]pؐP,ìi$; u(O@_΂uTf'EѷH>7&P] UcIwJ`J #σe$^Vo&C2L~}@l+(Ma4{dkFw4U@9 PE~N3O"ϖ4.tBC@4ڟ{a9Oq1ICPRp ?.ttDr0iaЖ1<9@}~ƂYb7 t(0G\G=O,UtT]iPUV\ ܁g7r:ӹ:'?fN]4Г:/'c٨IrNckS 2 Aό_m {NP.# M=iq /oB `?B@IپeF h`q_KxF/10~̲hS&nr"TMzԟyb*ҽe  q ?,4;p!vIh;: IIsg*۹_W֙/؏xg4T y<7Rpe_ WקaOHg. %YqsޮjO6ȰL?ܺ!q(ܤ;In".['B8U\糬O.]%tn_.`o^{H=?J hT،{v9HN ЫZ ䷹@i3:|in&j?+g:9@X@dH7_rvƷ *wPsq`JS2e\4#G?nV1]G.chLQ$ ?hB$h*n Ϸm[#4/jKuq_uך]39` N͝ю @C > @gbH Lq\ aT Fy<JҺWODg 93ړؓ!~C }}t /Pw?`Dςs"aA+E!QSs]Z?-a֧qi>X'݃;~4/` QݎwCzST1][fvZY y0,('qe[̄In05k ~&1Hn(HuOx'WZ0877E5p :ϫZKttj?ӿr5[=[@x? ݥjF]u_GWB, | ❯sїX>гCbO$4xvv M 8P՟׭uV2@gޕ"XT- &@OAs-e]'dM#0?[ ^\ClNq L>EzJz]Viȷ7N`\]C)0,j\I7@JÂxÏZ\Owe3 (,}gRa@x$ E" w (voB^L!G '"8coea۶FRLhZw}dŦFy X hP0Eg /w3,3 1z>'x8H^0kkz8jRc]SIBi-H%`th;R1 #pK~b SkEWz\'^t2dZҫnt ^npª>`%aZ,Kc;SA gv''zu@ 8h0PT3DcIuuZI(?U=V9(Z7ݫb0<^FzSz qB:aDyoI?U~PWugPK L#\o6GaoQ)b~yS`e<=_#D̟cWF@Hmv`0xL=q`Xȳ}DC-5+Q">f4͈ljlFyU6 kC^4ю`RCAk̻,$ׇ3VY]O rNf9L=q`?}T,Nwa43}|4XԔeS= 1$dd`GDW`0 _IIezB(`ύZ2/ IDATO 9`9* d֑ }f&/xВ+k |:r$h'Ih [MdžXsUHD4Ӗ~q)ndYWhsW4 poh9 v ݍNWɨMW>Ш;͙6*QtbԽn1NbiO0?|Qq;e@(ux[K<l*2+$'ȐxZ`Oʾ+Y\Sx+_BWɋ*}U`x_"@ɾVmp0 rfN0IPE5 +2m3Cf-Ǿ5i6w;JB`̗SڐgkERaf_T*@"  u}'p9%d uD)T?Tyn>0cMsw?OÛJR#E: q`s"ũ*җu~;N`/vi}M"~or}=jUjTށBK<'Rcca.Ijt_H{#RUE~' i)䨜=Kw iql,[Yܤ8#_YNїzF0F5Fkkތ6&-ʂY57/6`OL Y!U~ hok|p%o^zk +}3@^ߊ:u gK[_=SWr_^ (ݼ_u&,& ] >=w/MFom !@5 p&MrO7h #Fgx_D߹ M=  wEMs$M!QVŊq8l5Ez:kIʋ*i8p<]u&CȕU/'~P7>7ݧ6j]ߚ5ϧ '_KާUterE(4΄mL4𕟋[#i*I_LE:/*13P` o:@Gϊ|e /wd/ Zj~ $&GQ4t`n%d5eX01so~{}Tkܱ2M|O{p|`nU~z KMv̸m^}t"y-X!=&Mu FXP+}Q~ *?E=m‘uţȔtK͗ٔ&=vF\Z @:S=tTMBb8 8f?G`lIr?FS+UBLbЮ] 9x Pxý MB}{::;@-_^1 ez p?'<8M ,H@_S9?Ѝ`p`i%WD<TGdIG<DƼ8t+|_cphp0/~@P^WOv %&!@Y2bq@3 @ !_R#Z׬D;!p D~YvS߽h;C_>z'xLWݶz' mZzLuA@( I1S&YC˿#b)|vӌO1Zw>_"S (wQ+tWlua4A2F RCn(&d } BnEj?BwFT!# f{|~L# m|>`u4ns`Ȳ}[|8#1<T j-ZWH&QTQm &|@i5oP^Vx퉖9:@0= ;eC|JSNš>X9M@C[ @텬!0e7L8/.DzPCP߅_[ك1<#1?`9Y @i!Ԡ܂|;Vu@Gٷ2h@!g}Bo3pKf687:kg&5]$@ږ H ~n 7L(Z5xPtUx˧%-L " p]>Ot(d%g"aCg|a#@n]u؆0 @"tۭhZLI`NoΩH%l\.BJ .~!@f{ sU$Aw^W{0iꏐo MYyd*+f W?U&Tl (3$?Sch^ Q@t) @p!"^OV&O&[ׂb| @wVFRL- rJs3%nzS#$k t\ЛZ!_:(2#jEjd@ ?*-!F_mFvoz . U_94MTuP@wjiTҙY0^ fu7[ э &I7o~,'XV&-b$JRcC\%^͎͕s+Υoo ?pz^MŬr7Oe0n`(2?EB&L`-T" U\fS{;h< [6F' SS"NWs['+~o|o>No'J:6Dz3um7g2 ;`AZ-|yvfu㮮Ӹ-@ (,_Z/ԎS{hW©5-;J"urEfflDP?3_䴪>UKS1(ݙkTM.xf#U^dKmܿI[-_N-12f K{}Exk |d? bpcE4/ADҎ ΖHK? _@_n)\.#PNmoxjg}&.YwM_̹.=Ubv c1ОlvՄIiI_o$ay_#n/``a쌃`=9`>3.>~כvv)NS G>)8JW> Re`3}VtR*K)n_B8?yd ѯ} \ xG%A@`Sw Tm (o &xxcw˕b,'6XZuc&^lJfpE* LJ= A ם<ǝ-?p$o - 4@9 F3)[ lp;<(:2j9Y բ_MRMu}4p9Ъ^Pný⧤ xOpAjYA`j ;#õ02>).a~;]@ʡ0554{c8`  ;뙝N0@2WyrF۔?> oT-i"}ݱ`K T 7G6$@HJQrJv3ߤ7mX,SE=s:11K4ێYB@ xWD¢c4P % ؤ`cD<m׭4?ʨJW;i @ x`A+PX0 L#@K?렌q7ԁC* 9@ _I@#p %:h4%:_ D ()ԉBQaX%&.O>xJU9*3N(ɱ@GBIS;FRKهǍ|!n h @ D_zvYDe}e#lsÒjf \ s/ X']h?@ H;lMJ /rwB*zR"a9@a3'nEZ}\@^X4+6oɚ ;i4u(@  lOzr҈kт+pRd0,h1{Ȝ"[ -BP_<_ŕEju*Pw\|X)IJ]\Wڧ]@@ p =Z-Q2\ 0m6Y6-nd:/TOİ/\ 16I@ p= 9'f"x!'h 0W$?@ \%S` T*"[ +Oa&a[.0C#YwC6΃"L!@l{, :%;My wFoi.KK )٪,oؖ=ag'r4 R.`+8@<JAt~)yֈ(F[wZ9@OZ-i<iGTՑg0f OR@_!\@f|I{= (܏jiPzv}%]tyu) SkHF z$w@> Zy^0q^vr5Η\Jf- &EVܖKMh4ŖcY@qi @ O2Y@ .+.JmqY j'/iJC<Ơ$ @nŀO[i. IVeQZn]dĿ@$?n?n5ڀݐp >7OYWj Zi++dUd2͈v]mJE+:!D[E]\3ZzDg=27{ifK`f狙!~Yܾ9>_+ - WBRPxk" [ G++]@ Z[Ir(E,OGq/Ueۑ#':jCP—Qo]"lChbJ`_WjO{TSٞ6$BP`ᩕSm\+Ӳ^Go߯KhZ،@|VqB:Hp;:F. Ke Z~(^p%cnnL/e= IDATgb8[x:zOj&{0|? vN :? - Х? "ܧES81v|,\dέI㪇],lt/|Uu#^1wY.U9Bi;VgA(p 1.Yz{Bqɏq-pE3e uOȵ- `Qwkv^fu9nG楂@|at^[]@]#Ot<PeL@͂.?hPt7J0d! 7dX0΁Vw o(t e-ɍtng87L%p4kGYg7aRd45Rs$0 q__@](ft&?( :oG|tX@ phԜjH<h,:O5Ib mjcLjo;@/賶OB"|eBߴ:6 6tL8 [>v{S5~~"Xy-Xߓ Pl94PByb p@1B!FA`fE7X?c&p9 񆃁 a8x۱A྘Ϸ*`Y ?i Q?l]A_)ԜVG'ܓ(xNh+g\^i3ȣ72'X_bSOc,@zٟO0g$C:Y]>{Ϋ@0c,k, f+sm nt* L ;,*J"7  ɋ?K6ԊL n9*I ^VuBc #.gBaݛ7$;>x{ stϡ[ρJVN=8O1\[ut ${l@@ɖOD23ۀ}Go @ $8m_ = st bgA$RA@i])]68o x/=m ҫ778y_#1<(qSu&"(R4PKh8q<m: Pе.y> 'C3 tN?'xP(_Uw68{8^_MfپF[٨臉q;nzp1l<`NZs?C@c$ Ĉ f*?'N4@c `61sLh] 9 l ٠YE*GRAO܄q؂_^8jxn"T7mbӿpiѮv:ceѼW=~ #xʞ5% jz|VܣgAP ɶ/}dp"2[:ekr>l " &sYäxyuO!\8c? ’TI>~e*7|?T{m<\X|9fp%D(D$DB,&~Ad=0w1 x|2@ Wccܧ*D.ː}ԝS?5X8]?,WuQ1k0:{㊶P pzX.@JщEl .$n,K)Iw"h,d> hx\7.^x r`| %s:wS/QW?I 8&Z@#mN#0:_PKs,$?$"~N->So=Ot/DI ]?'x$1 HN(b,O(nPRW;BhSA;~m9\h5oacu!](2ngh-%`-Ǯ uSc *=oI@k ٽÍ탌[]g?ɽz㥶h#AcfNҘ0y)|5%w%'g62Do}2ڻp`jO-^vMnn~Pzb[ռب[Fy-Ǯ$wJ+> PV3x^.x}ot8pAg j6@n Ye ݤo[%ھPBmHR9 T&l9vWY@i/Y%c tX`A" SAH/?<x{y!W82ނ/@0o]x\xD +xO(&,Kp+P[(]8^J|C@+VU{!QHoAMD GX ;aP H#5@P`]$ @*ЬvD+<A(h+Afo> ( ./pArX$LM4FOZ|#u]߶L(,KBh e Pkn HciOk;Xc*zSsAob3e@tuszcД{j`O4^zlWu\%9Zu-ۭ. enƪ} 7@vuidzخX-DH[3G6ƭiNDMV8пh1;$0@ꧪm$ #dԞ]@6XmH *[JjpKV[!O= c vD|%jll[C(0~s]݋p3@ ^[]F F TE=ߩW Ȕ͢q=MUUY$e{*k'i1Y@9@bWV"p: c&g-Ml?b2IK g$ #"Ea@nh$̓7:p&dD6lFs90]nVDe 'a}8uP ܽ{fe$@%ڶiZ:мJ]@G"0 wo@qzBh-I*-"8I}__K|@{NIhޒ_@ OXk}ڼ}nɩ 'l7 R@z²iv1Pq&P jhvEIdr^@^@k e1 8jlkgg*88Wq(<@>+ -9q @r@~d BT/ M?o(KT @PԜoX[@Psx @G  -TBv|ox @'S wV*-P ^B`G!iLk_"0@7wmЗзwFG^맯ƔC_B%Z@M U/#*x9]6~?쌮~!Ϙ##,bW.v?l 9p.^N0q p6~wFk7P?p>|&sf/۠_bg:ҍ"^_mЗ5wa >pJöҺtu/#r풯O<cq6+ۍ|m5/d>OtB?Jl7c9Prxi=lsJb4FĈ>R@vi9Ϩ6L^o?yfn=erQ,r2e'=8^Ҥ@H"Tz༝ N7OR+˵crF1TFu/ܽLp*%٧PatX"Q, Q\eL`?'v; jv 8 fnzS6 3DHj#*_6a1*[~45Dަ8c Garm (4("dmkj@EޛQ+{?]"P <ssT ~(u Qb+[mo@  kxC|Y󁒺ʕ..yOp[/ށ)f0 + R۷`:Pr8QM-E,~l Gpm<+8]hF1'\smV?Oޗ~N9IENDB`ggsci/man/figures/README-ggsci-frontiers-1.png0000644000176200001440000005630315120434214020474 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$EPLTE{= YNK9Q KNMMI\yzzx蓓)5X` IDATx읁v:@CP8O}IqL@QʽVعIHv;ȿb/x+\@]]   2 c@xgغl 4FΆpwЋHpτ@ιl Өu}w65@q4MS\e=n|ecvią>55~;:>-!5B'ᓖdEdo(:6E%a̧\m|McwiBvָ !!ܳ=q 2@#"2 @d} kx;X/y! ! pc''2@@H!FP|?]E2@翭~JDekbxDs ]Oh&v!@ <9Tv]M|AKc @ 3$xZE B^Ka75 ;N2KE(6 x1!Ɨ5kNvS?,ts N/W s﫸UCm ?>&\U4V7S&vEykȣ@LQ 3}&v!' @ A)N]!o X%2@ x'JB6)2@(2@(2@(2@(2@0 N2- @  - @  - @  - @  - @ |Y"d `!`!`!`!`!CY s g["E]1xgٺgaf{F~J'#S u:z"P7~2@~puUƛű:V:ƅfp*kEdy]hMHU}8SI.si E "?cŸUC!QDC'3 ޭ@qkvGiog 8zg @ڽS@C?Ͽ!@@0/څZ>Shλ JMoV;k໯6Gh&Ȳޫ>$I'u7@ߗcvIț2'D`ჾSP+GoЫVSDH_SyJ֗}A} *=:ef>r߼.xZW4 @lVgF=it9B9"S=9 ড়;e Z|/C@KL4+7-9 lFfz - ,,xK#l?Z#2~.Sr䒈*|>5 YwAFPW 8#S{O'ϑF{5=AQ!PGɸ$C(x`!7K@ 2?lek z}@~4(NiWW_gOdm$"a:K[yAwoS 0e!_]`N6r:bEb@de(@ѶjPu?RK@v + }Vq x$v">Z'gӟ.YڴS~Y4yNY'MKBGN T.W0u <ćNCOsez?LGf^,s K@@,"]w:L?{gب acIN$#; 2uf٦k[6}x|'}mt&8 )lz7,aȋ<uV/g7J%TȅF߃x=4]Չ|2mFmKH @ɮESih|5=DF 4 [6Qz͢gT>=.h2PϼdCuآ,[> J! ݤKc˿<@Lr)CB?_C@-"=?")F=!2ٝauQed^ng> :N(ت{uO#?;ݻ>kXz ẟp1+ ^`bIfV8 b5n ֆ.5gL![,O@eT+A /4}&w#>@m 4oU6\!Dt ^e % ^f=0{?=-U@o @wOB@^ˋp7`u\TV|t>5w[&$B>[yw9myX ~ڪn@: .G]oh`p!GtN2FkLQraڰǐWx ~ zF0o.ap"P:@% o3Q,/>̄Nor^Ymj[ua V,H4UNL{ѷ6] Hi_%Ɨl)'D` `qCլDDE_I(W&d!B" d}8D1 U2-U@vnB0{gN{ ~%AzGl*!ˣ t 56Nx72?{݅kBV r/:9i59|KYap^9p']  Z9_;3y?>>85ed? (q(9xKAE;? 0M ~\ Ӫ,?` ~W<}h4~.1f #8WĉxY<B@("Awd?u&1Z2n^h}ȴg5ъo_ּQ- #N4j"Ng]oQo6~3{,lkoO^\ GpX6k}X7RʮL<7"~"fpыF|`PVrb`3lV?C |o_oH@PH\n=9'"nI[ `Ύ,=..p՜a! ~K<T(@F h09m\8gP4_4 {OUtBp5`Aݹ<|Y@_O~<+H?1||я `*w0yF5hE%trƱR;lN`L-MwŊ}@M~ze! s^J_z@ `^`F*`LJ6 3U O~vS@mџW1" #~=5d5E\-QӪp'QV3rNl`p2  0)59F}]._0vÙv8]dm@0JW;>[ ]\o*M2zVaYm>_9ӿ]m?v <>Z`6g M`mЬ̳c;|D`e< =] V\ԈEd?"vxz N턈! VܜeH;h?BdC6!@f96Oꟛ)fX"_\ՠo.@؝v`}!C&V{UM]7>i8C 7 (iW{6?Q@gr2R [srIa`_כHԅU@"vZ Y7<# 8##bU#B:C$7z* WpT|Z*6zjiҴ$]Ԓ,lsOƤmcLJi"Bܵ/?cOzL?l\qp9۵-IEöt4_} 6I] ?yj6Mm_Hw3Sy0 Hp*.pO 8xIl)-,T_VabA]tn@mW]cq@i.4NQ]o*sG-f 5qk\ ?׌{>+64+P#`.EŒg>ڄ5W94ԁ.?J[<2~Ւ8g!TۨAWoSp֚F(A'0A'@Ӟ|!3Z<r>;cx4S5mOI`3 LW(]?|7y~  Z+*)^5U@*4 '@; bS0ٰ! f6a->.Ut5Tp|X iT8/h ^{ߎ׵$q ~œiesP 1Q﴿e )ۗ? Sm@~r읋b8[dr'@'ݥ=,G\@S S<'/`s#z5½ 1/UW$jS C߳˴90[lP-& @}Aq&y l![?%pna^Nu^*D;$LXq|!@oCTZ.@\fKD}9>Է., ?X_mW['(KSQ@h+($O6 Psd^csúP$ϠLkD_- #HM``IOPK;@ th Y@ zU~żL+J 5.KvTbrY񽧧^F@TwO#^0_--*j8߁ZZi{NZB]4!ϙ!E殢īz`$_(@ l)vW٥n_xtYM1}Mf6Hp7#@GY@w|hw}FlM̛t:Idf9׍Ɠ.#M aD=t}L BEx.ZA;9xB i?)a\/4&s~`6ϰ^ 0e9f6l6{Lq`Ѹ^-l~tw o]dOl* 6>RUy qYv)ӭv$6c˿IdqHc@ > aԽQ2`Jk!fê<9m2{AwMdgKJ˵0%<˅xd| c mMA&vBe{0{)YU3OF~K5 +Ŕz OѫN7zpq6\E䤡{՗O|ҠAa e*;~:Su~隀`Q=@x= ز` Y7B(J[Ҥ'O@0цVێ@ ^:gt]/y.G]Oܛ#ͭtqCYt-e8U2^*)Cgb] @( 9fe~*>)!h{o>E 5׫ĵ#1!{N+vZ/%6j}"Z&O|@^7` & >[6&@&N!Inu[mA7cl[UV|nW,ۭimGw>[ XLQ5Doe:ݨ?4ޅ@}*R!W%lP'dm!D&SMABp7=H݊Q!q܁Vp.a+(A=9s U`e3 P7…d1k~IB%m^w-!'| ίFo׷u =rn,R]z :쪠 1Xҙ1YõƸ,`׾M\++g#wOܗmL w^z=."vr=ύPҗwU@Uj{,r&,^Kk3#&aX I&*P%o=("0ЩBlsM 0 pj(|\ū< |x4%X>|IQ|E\O#dE>n2) >*e`\o?%Pl^ l@q.l%pL24hk݁`wnHlF"J`~TJS|hοum՚&1\TgQ˴3F@0[U!=Y*ۘп(XvXs-@ݕ#g1W! 㑈Xqk!4}4= jc40v&LjT[}4DdqZ2~ڝ &= ]A^듟 ?H|b 6=dUKayr<^DZ-N<#gWde,~pWZp] c:g$?؇H%DoY8|,Maˆi Vyb.U7qQ3j6[% "@i>^.e]d*~i="59!m)?ӥA؛b_t&J-Z3&M7:ya)~~YeL wk]@`~#RɂNGAϘWa@. AݾW)t'm8{_&Ą>Dk!X )L1@;+E?aF'Dyn @V \T0C@ zgДOs]=?猯TgFBYGrW'?-1ojرSDiQM@Q:fe\'b83ީq a`2:@ <:ވwuoJbD\{2nENPlXQkDTI@Q8p9Pq]X&p|9E$X4@xj 0WtCPx\ ^lP1hf(Dc#?~ ~{e) KW܊WXɔǕ0@_DNi4![;Q6\#aJ,uXƓ5*6P ?΅=Q)! NζVfGX _oH\ ]8u@+m/AJגƒx\Pg DحHɘ?bcxv4X"öYb0~@6/\p5F7= @V%>O甮-HN?IXb/8zy\cUC= G؝ T/ V=%_mr h2vC&?&<%?PyuDQa=do^xh iND@D MF~vNAaMNgר‘- ` 1`0o-P.oIb?ɫmtLnSt"KPHݗ?1J!D f, 9(p5jߧTҽSH[ _`Ěc63ҾEfT4Z1 Q`0~I$&b#m3$+[@|AGp@J߼~`,J%.Q8`0~DUg}O92lxbXJ`h&V&CNu`.b@ 1ve07`?pc)t\y+[\f8=܇ H-΁0! hN }z p^\1s@{t7cz"X weqD6g8 V'Dڇ='v~Onq8`#4/t{t? `}| wKw^K Hʵ[IP^W#wjh+)(_m>NPL ,d(`0&IS*{Q0K}dR|JuL="$ b~!p@] Tsbl _W$OtVXʗ$b" 7Yh!uePT`BԹ4zRnxc PKۤ _gnhhnh ]Su7,<QY@杠TE+Bw.n Eøqqlf)sO|bnO` .fx`Wӷno품gT/sT,"N8//s2n8unvJ3`|Ǻd zy>ڜeg[yJݫPRl&P@Y6%"%0 w`/`g-(lMS?3y"X1Vy9\MHH`0 m\Ų¨v4l82#c~n5Rsw̡`H1|=  H[ΛG%6()'eK [ ;`0vmiP٢7#Y;<Ǧ\\A Zu:KB||0H`px)tT9"[EĀO-d ,ЧD@s@]--z3Z~HDb&Tu;@=(,kʲl`(R 9!@cO0&J0 Fo`:m7^~kc VN<ZVl5|p(co L3D,_b~<8jr;|hn<טtS2Ķcf~ NqrH:  _ ,Q<0 ?.|rzte5k 2Ow< !Q)WEYvFqP6dxjTeU#) ]Ql@@\u'\~JlLbw0b >q~@ahըImrUzSH/JXA3* ] *"isƒ2l6m:ZeQ`-UIۚoyeS@ g]%6A@>qhimW1˖@"⅓TOg;dwWu6z]jSӪ鏬c -@u3behMwUn_ );}p♤h*zɥҮ. иՌf[80W`6& m:I;_]$♤؏|]uC'K_jn5I U98p1uS# :lK*R/@ 9@Pv`ޥ)L|#k#ch8__I(u[ ߹9H.//s=@oz~782Kh+ QS9f)#}Y@ J >h~<)UMɻtq;b=@n7$}t e:n΃fpk԰cM$lA@,,i?/?My^abG@’qJ(ng`:*1oCĄ%=<a pϘXOyH"p]?`Ct9-Uo)O J@|,3Y k}yhU?o2ѮW4tϾ N "PYA$I}6Qiv?6mӧDvftU#9o:h#_<~mB?K@ ;[~oL$Ϥc]E2fۆIЦ,ڿqi+`}T(I>%oEfOqx]l]@M:4 $9>W )ӿ 9x ?Gh /\g{pCN,#@Ӎ>QaMvwG@dYJo|W9pנ ם-u"pU؉ !Sn{?@ r@VwQa?H V;z3Nv%/Ͳbtu+lzQQ# aFKt^Z ^WeB1y e˫@"bF8GC`  3`5je@ёSA 3H˙蓳r  "ԌyГ6GB8{d^V%k}^)^"^V<ъɡn#)`ބtI>$Ofw @ۮ2qKV%>`n#>{ V_-mc޺;pp& ^9`tm!u#6[&ϬЫ3@ &vzkwlHvx#b{NT0lV+j $h.\wga1sQ; h>zյPx< ,H>3Ljd%P t,ҿ55pl~u{bMq>koū, e Ќ&4*(_70ʒӅi&V"K8;@'Vw瓹=(f2!۳L'I ; R7 oc>Yyz&$⛤}/|92WN7d:d"p[^y{oW񚀜CxT(wS Xx*G df3yj `Fӷ`gAnO:~ މ`g29vA{rMgo! vrEZxj-iowkd8:BXâ3+GP6S$?lڽʞP 6l]E @u!Fv0l m6·FvmV@yk9}qoI9o{w,v]_n5rϛ=REg1NЗZ+K](]_n4=O< ZO}p7@&#VSdU nwW]? ~ @|}}h*6 ,Oc;Α70h@|Th˥6[\nB}8+H @?See!f, `DϰGΩ!uOM@+]ˏ2R[]ZbI*_dZw{f&+p V.RF}Vx=^AEv E}T_p}=@̾X.YSAԗz!8f<A_WX0tkSw"vmx]@Uח~KA0᝺6@sY>lm= vG[ hۯe @$@7@<'A e @p}P `6HRHTlr%-G[5yo Tm'؝uG^LHr{Y? DJYMc;]T!H>@4/cş B[{]W{]tͭ]n D"@({W:۷oTI}4O|# ܾ*Vu!x.2zN^K= ?Q[]IJ>S̘ + p Z-y.d\lpNs:Oz{@ofS8r3@/\ {` k@@JoK穿N`*>([g0Sa^C4a^=7NmL6{>Kvҵ\8߲ PP$^`t5mD'ˊ!Hpqw * ,6O=/`ͼ̓`HTs*UTSsEї HgL䦘 `3L$B, O@<;n @*1N`D9 $ @k_ s ܬ7 c2bx "YZ1 iwO"%@< @3(#vC@O l *X 1pUT1Ϡll%wK׊1 >lgP>E~̭ d-{C`5x91Yq4L7P<۟m{yNN ly5ϋuOt'}]3Ry CFOGkph׾SIP#0= *?wsqLA@O}xgk**x@ +gWrn :!TLM빧 ~Eỗ| ?ɽ/Ev|G, @wCִο^::@>7TY3O<Mg#`72"/>?MDDA@;8@@Wh/; >Ԕ DyWb~`|rTa`~̓IPPl`@XX$ *xc; aM#Py*0}>y G9j`bXߔR?ʫQpb"GY. z!\7ݩ/ kKb=(?Z.@gE%?0QI42誋f'Q D 32:s8_Les=t*.!p9sYi#no*FImj~| k|KKRCo[/xaz]%r^)(r߇OlE#xUޒMuQA ,⭡‡XIM@T+ RMkT/$}xƏ<,bpu+RNjbvK@0&O.E:Pr3bzv"rǏQhah "[a/TUUH\F 3(k6cQ便9HM #n in& n޿٢;ub @@W0n\2+("HD%R $Ѥ%LZ< #'QT[D7'*Ty Hʼ(LQA4F1nSm]t_#I`=PHXEi:!w+m- ]!MS;V ʺeWX_@I8x(bܷIW3QQo~tgNMMtt y6q IDATx읋0@IlIx-TԺrʦ.*;7{Z!־[ayJ@{E 5[7?|;O 0\;Q;*^ͧ|xk,G 2#{;| Bh(6G)@dGJƖ*G󩋷X_4 "2i[ G[1 U[V}kt4@i-@d  #yU x%l|u# B B Dž9RLG  d?ӂiID?N! @ vX9@?(37Sq.,op*Z[d~8RU}{棅SGl;r#8  ~\-B}5zw$לܴ.ޟ?`P}1@r!z<MW tsr;%nbP}H0Zd U+c\~?86Hnw36=fI:@ )ť01>zoB'pMuyRq+ӑ!jH x,U& |&714r.z>r37>lQj@nB)֚"'&M%|37wYy*Agsw1;yr-+wJYʣztkَ_础ZNDQHF}l@^ W5 yf5>2؇]m@z70Km~ƧyGUUJDB#؃CÊ|j@J%cA+04נ9D\J"2_ @! ]}$KcJ į\RvS; l d3N'[r ;u}GV+CڧzïS//515+7uO3u倾*inӊrt(P\IS@0~@m}|A~UU "EYg  &Ʀ09x[% mO"+'.E 9 {X.lzIs>֦g(GC!؏=HiV Y|z;<' U e7p o/ڈYQ_ n\Z9npT"ff2(sN=8sW~0St}̮h@\(ĩbnlsWqM(Tm^:^ ?w: ^x_*eզ|mܱHjIrST}4y9hu6 1iOAގOWO3rV!_k-<8K@(My{\okM\ܑh> A;GM? jM c8 4 lR+RG6% Ud=xlwƴYu;\ ^W.DQCeܬ `Z'c?X`v}m z'БsgMnXK6~ xU@c20ͧs ȍ@ !A*jyt<4F hFhR]?S{c-f/*x9ۭS\ۺ&qzڳzB'jAjq%|DmYnE3meiSKxYU6G޵MxɄ@JN౜FG <~|Zb\QZ7|3, hV$}U+i=#Yѧ? v |.^1MP*0 c qVoۑ|@2.«9@]Zǟ?D/*]J\V xT`S9A>G}%~u!aX~46iA^wog-B?8= @f@ {gH\(vE4]0s*g cr{pLGs }:YHz|8*^-%kGSb@o/7tQŝ!U4EXCw?7IvM-zXȣ)1sP33Q(sn֞`:A3o=Nl/Yc[W {؏:;r?o?B:{4{af%eˣ)1sF6U,w. N9ĄaV?q `*LB?g=1؏@g2UǺ /$G?mB@*]~wGBI &PqP竀R+hJFP `%57AF/O$PeB@{AZB嗊>>5џ AOWev<)@[zp ݙ_R(8)x z?(%V Ж x 4VӨO@W jpwv|Oatt{˘o0;eTX`A`~a1T)͇4 w  t@7B|*` ZmacA$S>n3(xbuad_ӜNM\\9rX>/BUgk;0$b7yCPO?I'p4NrQ#~v[U@0!c@UяDx MTL 2L `0ri[&Mn@ܐ,Ng&ָSfm[ bP[qУun!0SAhx.H6GE$$&ks ʷKx c y8xJ4a=7j|NVTOM/YdLib?_v>rhϾĻpFNtr"qIN-hɨm|;᱕/BfI T@ 0>s0 3\>xf}!q\@d?:&@L [zNZY@3pšݏ\B¦c'=ЉKxPy`Կd? *~KR'4[b;Nָwz{wn4$B> aR >@;Lv 5<v/cغ[dp6NA-U{}f є#2P+?)=@L  ɍ` ľ sG G]k]}~]Q] R8kqP"N@N8b $.οprI^7Փ,^Jci7 ~K'@P Tzfa];J*Ocl^x]L^.-S}zTG?(T0zaBW1 ^[E*wЎNˠO`*EϽ VϟNsQ-Ƿ+O瀍`6l*~Pcoikjj /A &QԎ@[oC h@p *taz@}R͐?Uo_P.^])pBi@ȧ+al8 L .S5(P2Wav]/ZogC yM[Ɛ?/84 n}PZ`0kmSV~zxx>^ | 6J|>HBި[Ur_y L0~[k @#q;RbNT05O9@ PјI(y8.'A!WqXmUX7!6'z 6Ǜ 1KA1D[7 .r-t[ udv33H I FC ?q #*;rzY.uhPZFԣB D4MzZ2+qԧ b 6N U0(7\UU FQ@S-)^) 7Μk[0{`O~-@?;4?W6fuJ=إm1FRe .:Ӊ.YN?fx!]garc/1*lR[?@w)muLwm:`w&jmJ,G3p{}ن3 .iyg7F-nraFi7>7mfIVZ!##gs Xʘf&Q  ۄL(v%w ,zZECuLKTaR\gνCЋXgo04 1 AϭjU{ð nS8b0.>"YOcG@ޔQ5iIMsћQľw:$elZI{y{lqHjĥ)_5yLB1 R@Pܑ5T6 hO1.3[;9==CóG(v 7 Џ>,€쥌8\`0x]\_6\s3ZCcAyԺ oZmSlߍiTГ!iZ*l#WLġDu@7{3XF>&s }o}}v{PFƗl٬x#OH_kj b!ekSd3J1 ^o".i0Y3qz4E LOY9<,΃hҘcOr~Gu)Oз 4MT4}BtWe1Qӧ2`7 :C#?Pi)  O@U;uo~3TېٞF EQ(HpTBOBϥ}&#`0x wc;RzЙ"c>*IۦU+5_L&H@7E; h Žu"P mk/iҦ 4VփedJӥsR4R `: Fxw8Z>=8fȏZ}r]X)|tXG4?)e\;D2 @Yx. FI1 oumq`O-UچeU_>z>Mٶ`{."`8~1`AI b0 _ToK__OZ&&ۚoE'0Ir< IDATf;1ICJFcf0ԩVP5ID  0g+ݚL_c^9 H=XuhV޿(j"`0?D求Ь F%Z`[24`QuWjM"2IZ,P2^Q ;ca -dBb3afC^οnCEz&OE`7o&w6 @U  ЙjX1Paf i]N["5OJ *'}j |&$ p.[q z Qh/M,Q豏xP3鐈jn77ԭvOcbAI3Q=ᒦeoR'?~ _kOV7V\V\f8Og_}ߝ+L!lW@!Pe؄% .nnjC+qmxqArbe zXMr1: QHFXsGQgS_dJ3dH@^{ Q@;9u _!EP3t(kU@\DL^>砜D6& Kt/Wn+ƃ `֍irǵWfHS\}M#S Q"s#Fp 6p E x= SͻoqO _؜uq}N8H_zBBes ]THQZZ8? e+H\I#H Hf@d0`6N0pٞbW2n7[pkjQ؎9snD/=V-oJ"dz9/7wWzfgYg}f6xٱbM E&BLiǎte"p{%p>'ﰫgq|vȬ8`e x"x/ԮN#JfO3bõ [mk%\m7vMv>{iUy)ۚ i{"`8~ZBAWuz|4ps)kxp'o.)wK"Q&|ްkxAt2 B'+&T0NLVǗQrdyu|N N &LOxn x͞ wL?T|!/\,-R'8oPŎsDzHT^GfEl)[LHF' o~UUCP|  ]};_~Rkʼn6PxOAԠo͞ w?E7|h A+<[8uaoSz_4k""VYtLͅbݹgAq 5#5uƗ}c) 8@'ҷ~@lS4E۠ K# Zޤ]L@5` }*; SJ͟>+X4OU?`|k Ɇ9z|[j'@2h9icҘ1Kȍ@O]܋ n[ (W7)4x'{W05V9|xo^^<mDꆢ?\ջwD%r 9̠5 Mc>}CIK dLA XR !JԌꜭF[~ʬ$-Kp UVznSf_9)ps0*oOбfPW9ȅ& ҦT$7o 8ᯒ:֐)v26y$70 ""-rQJT2(~2qU9ZV(omnw]X $,d 4WPdOibW@ł %C~_V^%+|, @U(ƋR,PF˹!~=[o>wo-<T'Ʌ+(&a7Go;q c̨c%_[L}TtvCyMD 1<9<@7 NQ4?ڠ 53@d2`@ wMcl7)Q2NL'SPI<* /sm T}:=χ@[B]T!?29P0{PoXW{@]QqY~$dǀ.zCY 0kk~ng@qJ?VaAN/. G ae,$p906r/zTtG;qf%YAtz6? O>kzR'ѵTxJ39탟oҸಘ_)D[AV]1T+:pyBG6Rxs#CP֕mW &ɶ]cN#&0WH؎͛+m7ͥ/De b`1 X̴@ 6we(!\֜5'AZi7t*=^p^W9M#tOfy7XW8ol@n1%t{yL#x]Bp5|u?ra [Tgu]|Mn=ř~.|!VVw)J@C@ 4pC}3@6a˞ LWdמ;3/l D B_m&ɱFzv.3T5A@8`_D 5@n7(V`+NǛl\}I'o@0 )ѰZF +GvLw"&PJ W>vn4T\gN??KlBvN7x&~ ChSj dٱԴC3h&TTˆ`R}@ |'}:Q0yʄI.`ueb8#*S?kYm 9Rɿ[՝Ԃqn J$Y1h{MZ[uQkNϟg 3}vK%[f~x`"\K󴪣Ъ2p@[V׋@cJZ:[1i$^V/8 b)(>Wb tG9"@\<j'B0oL 0I`8ٲ2m@6JkkП_WcrW05hiNb _RuWX1euScԴ[MMz)Nn>~԰ Z?*K/ i n'j> N.Rk`-W^^W`Ekwl'(>uG DL^iC gn&2kՔB@N*hCuN(j 9GauPI.@!0NUϛ;Mǁ; w& ҬZaK jVn70 kw, űCøۤZp!O 1`VO#'@=f@TD 47Fm6Q  GveL]Jc84ѷˑUXSԂv˩/@<'R@i [Pb?=NbfO%Ku)xdP B4l015KwR-xTl!&׽ɵ/vFɵ|^9p( $Y'@AY6srsk/Fm_>n|N@G4E8l]lçm(`m^;.Ųw#zx>]&ݹ,S!(G]@LncY`J s\+̩zxlVBfZ@9 7Js. mV:Z-7o ;ܣWGz+{;]B}g$ZWxNIS?0 8x@؄aU;_4߯e^yVOꭼx~Z-}x $Ojܷý@nfKal'f9k=LБ,Ѻ P".+~,icPUH.>!x;Cp8&T6GcvLm*rV!4T^ol}G=~+;?Ruv1S[ކEwG+}q$t@Ypl ,9;N]8pc+"6La!IE-e v7ψ6>BA`)$U7G#,gy?Z0`VS@YO |lHss@_h>SP|R@PcjIHz1 ?Eaz)UQT v젏%ծ=ܔCF ( ʇ _RsH7 !`q#w+/5^5XuN0LJ;L<;!@%F"@P\I)uPYKh iuh:CER=g7nP$ ~&`VG@w@׈~Tlb^$K k>:<`{RM $?T=zOE['} \hmELлo5;B@m*WHPKHvRʿ.xM2G})Pl_X/@K,7G6Vޙ(&CaS! 78Υ֡ @,T*+?@A` <\PR)YZzK HT=X@x!P\:67Ʃ|F " *E#߯~$ޘD&AJ" JE)yl\ 9v)nd( _0c8Uܫ"M*Jf_HVV&ɔ~&&\ f{\IDp>pV 9`pRL٫U8G\MGsansV )@ɠDY$u͢r < -}UC2@}H@d~l1(F}>w?n2 ٸpfeFD@lˌ}A5V*i?U@k?rZ>5uh" V X3 %AƵ-c(:p81eؒ-ĵkdMȝ 5\.b" 5Љk<rwO+ƻ9s~)uL0\7 (RSsG񾌜-Sq "kM\kT\ e-uB ݼu@ WpAE(1Ҽa )-Q.`1ΙFN 6RP ͬ0HwDAyQ{1Dү2Pj!LQ}\,Ia(c!8-bP/ E- S_TEЛZ$B8-}q*?> Lsu<_PB3X"wqVkj! 0 C#vCn@*hzm~(4Ir]:d<Tc(N%TKJQ wOjF$(С)~^Z??$,ji}%9:J&ƀPtƑR ya4$a`2:Q=(@} "V.έIMjBGʗg % @;l*XGJ8* Gg`U:f:c~U~aޯ]jM8}beؙ+|byjR4ȸe*VG,k9u8οW(Tv*bmVy/ SbA{gJNwmh} N7W3H̸6៿4. #s7Ǻ>ᙿc`ywI|`iö QL&!q.LN`)maw.3e^48'4=B1ڿga*j&6RzڗY|6o'm u8W.n 9U@4Y{pI!£tOƕ x#\Mo/F1luY@:#$? I`yMP< R?@|Mu*cQ>Mn 4_Iֱ=FzvTkUs-#M@!>o@/ ifҞ_g>Kv:Y KR>ؼZ U@ X5ԱbJ"W2/8M\q>`I?g8U&PT j;H q@':`.iqv>JHt #CU+ K,ołH l0\ 0!ϑK`>v̬}T,ضv4THV\0>pj MR0eg>0D(0 $~Mɧ)rvj͎ OA@O'Q`CS&՟hnx!xڅzs_ro>g'y% h_Du?>LT!W_&Fz.ܞهux6Fs{ y.fo>nkh6"rpǀ[ؼQ' LJWՈ1 %_ :] ~ 67Bޖ…^foT A.~8B"Sq)ΐyu v$/sȘ[IJ b!@`A;@Vjs$q^/(陡e.T'͙}@|WԃKw?ՂpDH QeR%\T'rC`7LM,ruc?Tn J@XI{Fd߯9ɀ? 9X~Z\Zh&k4.Cn`I`:Cnp`Cl(^nQPx:CIC- #2))O&{r~!0o*6_`*Px́2 I>䄨=_JCo/ a7ZPP, mY8ޙ(8QTBn0HQ\rg1vg+Vj|uf&{#o""t* Pն@ko[_p7Lv. l]^'L6iW4MP)u@0'xh0[y=o?dB"@י?f[UpOւ[U[^Tg5?*添߮*i&]uؔXD^:TDD|) 8`Sb6r@;`b8#"^g_z8x(TSH*o?xA'~6豐M[JoAp?  t]TÍ$v|`* /[թE?ƙ~? cV)P!Xԁ8Rwj/(Tt'uwc 0ס 8G?\-nZIZg8[3>ux2q] "! a/?jG7 kfDt&pj7(|8n_ 69g&9h  |"R%ay.$~#|xղ 88b_~ 5%~z,GTY(3kUy[/UG@%%(\]6<9-`}Ž㺣χ$(\ vPsx>T܂eW |Ho~oͻ o5@,o@$Duɓ"#v>C c6|zg(;xEPuvB e~B4LPd\J.3Bğ$H&1GٱÃ%@,B!d@S B s@$OyH,~X%3g8wbpn p0·OSS$"WpAlIKGNX8YA9һsm DgF۫gl2 cCP^+ZCI `{p NjyF*w($/XSuá)Sq(=PmwkW3y=f wX9}$?jHJ<[[!J_NuHRx*%-ǡ'! S[Ƭ^bd;qmq^DZJ!H{ӳ}-ǡ,ԩQx2e$c.@1h/ЫNeKw{':;#*^r=wD^(ӱۏQH9U8p٢q"%0~P!*Tm DrvoeIc+އesB8ʭXs?R*pSG@DڪDUsWdS謌":q }{Ntzχu"9n`<6XaZ8p=x\0#/UZ@UR* 8pF}R{)`18m[Bj{V]<q=wW {`xt<@x{/^w,*x>u Q0_%r QU@ ƱMd(FvGWօ[r[8x gՂNF[l}M-rbAg nU'lT*`B@uJ(洂_T+IJK\w @`%@e .+ j@vP3@W WD*p<6p!D]J@8T`)|7~Pk?H$T^sk::d]s0t%@H_Wڶ m OFu+@oT'! (MhV=Ҋ5ضL֯߇(u>6Sk:Ma\_a.F-S HϥZӡ`> 'ZD)Ou%r>aD0(T.P (;aBsﶸ&4@*Sk:R,'D bW[J`$db覍A+Sk:r0.'0 @oA+[JZ!myyMpE-@WLC3P u{ϭP1<|5646̲9KrJP(KIa\;;᪵"L$ "r L~]sbh(@E-'!/38%." yW=cSx(̋@/0Ph} # ""B$ ̱7@5t]d/3 B1w-+ ȏ n.O0F|!Q ~>KWZ  @!,qBr7 <? ;:b<ܫ~sKL(Ú _;%GU dA h٭cVӇmou:VR {wT @f_@.}hj$@ A;wz &OTx@!T _ĞTIϏ @>@f.d a̞d xARgaKȘ[AP@pDrli%@ @y xC=zH(e?^@p"|=q/! y@Xf\hnTT" y|h @ni|؛  =Af&@u5td@|GuV)06@|3-<+PQ$@.P{9-=7 'd P  o   qz;I P 2 cAT   P`#*wuxAI.=!HKu($E?Y@ǘ Bs~a->@? "o@2_PyD87dJrI'Ɂn[kXYϼF׉rDgb@O/)l߇xm7@ / @Ps#Xj7=OQ\yr)3=*@g7 L 2M @8_3@TpZ}쌎cw4A;#*83[~rK\v߯mз~;眯[}Cgtsf( ɭ46r׫Z9~ B@(6[}84FQQ K26z@[M}Y69w[Kպ,Qlι?W:C`4׬WX jP3m(& "sI 7W2+c.`3 ( `?WIENDB`ggsci/man/figures/README-ggsci-bmj-1.png0000644000176200001440000005662215120434214017235 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$9PLTEr#~\.oЕ|\źAUUUarc\ IDATx w*F{BL c_z$Ľ3x3i=#M1GQwH] H/>M&Z4x H$6Qh<ixBo39O |e߾/bk?9S"kR~lG) >ƙ/eP(~ t? |MxƎ?&|hY͖^@xC#v<O i4߿) ǵ]U8 ̓ !iٴC3`SE$   @H0Xa%  G| $@N"n$@>08 IOE~͜B/si2-xhJihxDHf}[LfN!@\*'bhxDH%Fxx̩  R5M)¦l ߤG2ukQ]Pwk^#bw'$3UaY/N?~]续N@Upɨ @ N wwlתOѭ R? *V~6? GSp.~(V#Oc#i1h< _?>tзSn}K7L{&Z@~oT12w;?@drz4qLGBy[еcZ0`a_ , -sz`a=_,Ȫs<>J ?J,. zۘx l@n,]5n m _R5D_]1/8_RB]?Mw0]@Enx4$k `/Wi~R EwhhgɆ1ދ[Qk/oj;tA?|6& kFp4v0~2! dZh_@ju-(\]=B~ia7]ρuߍW~}'b@ b…y~qApS ?t,y'vSRncWz\SQvک_W." SKW*v@n G @.(̄~<9X ip.\f[G]iSW=,{0>xj}S&Egg׷D1qñet9jtY52$a4%l̶in hXaިNkNYWќxCòw,/ IhC;`ԯ>۞"#v:;}LI4jygLϡ@ LK˳Òz/_@(@)2}?:z H-=~[5xУr'|)&F| y{_ɉx϶d`bkc?d2k<.k%z (4`.jG3u39G\1ԓZ:!?xxZ &@ a@pO(< )k0ɇדA t p>9aG Χ:X<(dzE']p<4B@,c0fп<ō_3>Ϟ&{HMU@ =}q;t0màբy7Xɑi>p-AR:l`BБ7.r"~ fPj[>Z2'^ϾsY )i^ r!ZI)Ÿ܀r^6?2+z+T <} 2Z9]M].᭧do~7&;ݤ{e'tL9EXw? #?AG L -2dqO8Cs,_u c<2m|{V|6^Q 7``/Q!JY >ٓu bQ @/ /9˜У;s@ѐufh=O߬"`^@ 'Q5&U괆*.6m׼fHk9>m&-1T./M @F zLGs1G!}֘V?|N+djP\㽵 ^~ Xau(_(_%.=w( B9y*;3;G{+E+m ʳ߉k /cْT(AW{r7@:8o@ +=oT>-i }Sz[giST&=7B;~`.|B@8Mjǹ)=:<Ӱ"vW__yaR—__䛔o+im9_yZl\].@x?{zv[3`VDg%d[q&5>RG_p@z^%v`K exzs3|l iz _v)[] i2m%hxDqfx?V  I<^T\̱x.G<@?Kƥ]^6x{O!_{/tKNW&m"d& -- MZ t1'i?Pt$f13~gO Z`+}<8C3 DmNr/~!omqfj=^-i)soQ7xw*˅`@x{7{q&f\꟟6X¸8XJkњs< ?}/z }f ] H^MP> Pr0G("N'J;.wNeBşoƏ Z4Ц3 {|& {p/^L_ƸOcKYzs{.lۙB#&MYݹ:}?ˆ,e h˲# /!൝r~2h,t@&veT>G[;V!VM a, -92[Xo F$-NeJxbvݴAXwC[궈]sD籶w=Cjr jXm& @9.f~Q457(`Me>c{+nX4f`\u_V m&@@%k+u"zL`ZAbJzQ1 ݿly%_SkP~0LEKMps3G:4Fg@Y6@5%KmOSCEߗ]\8-(72F[ø1*5-e_q, Z.X]}~QXV\w o!@lb%6v6&`z{n="$MO?J#MX?:]x ݀n1E@ڒ.ib|t'oQ"?)w&W^M5TؖI%l1ҬM˚Ys,ҟܧ<ʂlu &GcT0 )1S FF*I墖PsqnE]%;_LO9MDG0ΟUDAs_&D_w{β99 0Rţ8F^|X1m62T41`e2& xLjF'Yf//NA |qwŠIh :: }Jԕ˧CfcK~t/6?Vξ5-hJ a(("d"9%6s"vؑW@!7 ֠Ћ-śQ[ %6\k;yb(L9mb$߄ GH@,/yB =QpZ Uo:p4)q?X(O`y`Ҁred~d-sa\y"@@KJrRM}d?`Nq _(4/{-:W2:~?΂A-:o`7@St%.P0+(M[;A`,Ofg%Z Vw"^LII^ʽŤߓ!@?ľڀͣ w@ D.KTl4l0WB]wk,nFϷvV** {ͩt ^kciVy?R>o IxU[T8 u+9{ gfS'5>-5iNB`<PyYƫ6kzyI׼Ɋ.mn7B CŽ耀_Hxx<pݠۑ*}; }3ݒjgxYvony-ѱ m+yX>T~7?Q{{+[J0jƖ={(iKJ֐46 O`E]-*$!vQwxlϛ)tz{,ӹM x['.%Att],k\K 좇\}:RP?%V  % .֛FVV(Z@iqZD̰c3S{ֺDTL׫dk; n4?@xj URoH'YMt]ȸtM۫~h`Kpw$_4T \R#dQ#eDk h8+SXkM], ?Ъ #gq(n{*9 x L2H.`y6^TK|MV#r6*'irťখ>%gU@M-<;*)oܷ$- 7pWl7z'PTUd,9 VP3-m O5[bpz|<Y @ [,EF?lmp!DPz1` -SNl`o)nq>@XYuA^ Gϵ4-x$*y<yWPpehC!S@.@C-9!e87-b0[u]Aߙ wVs?'?Ҡ)@17_X]ƽpV`,ΝзhpA4L 8R@$L3V p$rH +}*9ϻ =1nSfdbGoq1f8đ:@py)Tq\ZʄK#`@k- vg2V޵@MTВΏlʘ_Ѭ딯(X"('hk(jA <z=A?+\;ghW?Ԋ1eŭϚ:q ݇?4]<@p5ֿS 0 \q2 dNJ }sM?Ca tb-}bα 6;&* 4|w\#);Xo`w1`@p1}X_eGqiXP΀]USN`2 ?]I:pQE, h0`"p}(}$r+^LӺ',|B l[%> In  aL1ޣm*º(7&$2L#@姾; Ea9"*GKge@A3@ Nd-)~fA-қ>d)꧙3C=tfo:$P h@ @0?!Rr &(2݌L Yϣ$H̸<؏aҗT@a-8@DW BKcRU@ @vKXie|eAɨ+k\X@p)cQ駲M/:(JLž@fI3#6*aȮ0`&$?E`f .. id߭D7q[ ~؎@;{s ʆ~oLRwopD,翨RJ#*"y7K+Yr~qIG)Idg” y{mF l\nVLvݑA1D'?>F"XBsnOK TQ6ÀpEo[\ xO2BbG@[55Te/[жxK;qޚmiՉZPMf-b0$ NJE:@[p;=wy*p1sl[ lZ ]B3QSx|:ufk*""B0CoDx;v:0ӓݏ>-swyj}pGxpZ)1j}Tu/'6轜'況_v9GqdB,+,i{ES߭ AD{/`M!e!K!zAX*Y1~2<tLZ.cZ|ȥaЊPPKV:>n!jnz|~./i9+?Lj}):c˶߬nD'͂`_:V)CeS`FG?2]˃KNS@&KAǩZi P>~D HHoV9 t~ 38F{,?&>V5W)$jzZ_c?۝ ~I o _p`X6{+Ȧa39|3X>8+f[GlEk5~ J?>KzZ\6wcdC<_3{-W0 1j( cv!Xj8 S"Ml3Ț¾>9o>ps>* ;׽cv}޻F5عSLHVW1[X {4| Po {,^:hp`fF,RUylT&菆ߤg]D˿ .T@yW*1 fpP^Rb] ]N"q/P`fH4@4<Њm=+@0ɇ P_WKvݳ?ɝwg@dA@  O*u&&&c0A0p{ubO@uddA@ EPj IAk(\R'͟&'@^ jdg6e /(D Xs6hZJ>'m ؾbʕ933: P@F4c Q.aט">/;H~qV Ը@NW(X 1zF>VP%)6e?&8Ktl ] j+@F@ W !Uu!o}駎p?f"G?hH;ny:#w> L{Sa}>a"<:N]Π4#uF@D(n-T%kfF3|!C>0}1W}0gf/Vs@K)n\`.HG|`<- /Hl!E3X/R!@}Op|j%&Bqs|gi+E b!ƥN(f7zca0e>w_i@-kjU.GtaR ۸|3DG)m!}@~&-}2Pck܈ZMi$ Ui--M YlJ O3a_mVouks 07 I#"bp{~ pcc\E G P"cO>Pbp׮5Mq>'O{{ r@cH8 ',EX|)?8+(|ZADp8:@ggt ^LYD7V K{&0mDgk)a:gxct&tNTo kT7 j^,XH?ᐂ+ N%m9_/휟j?hg']&dd#@+|ʝ.P!ϾJc@fA ֩d K;Awd[mMqm7 ,t@ Wب Wic/$oeQ)dm:(ЁuDrGKΰť.%yj6v-9pv.`F1cWE0D[zՍ`^?n2{R&)+4P4!BfH,bY/t08%. }w _BhO[$ՋϠeH N:, `L+i|.Oh cYmQ=]D:, )p&hM̲?Sҏ\ne~^y\S_GY5QSJspxNfIN0o̓pzߑ?Ҿ@}8esI›4@v%׻]i3^uǂk:*?# .JlHB 4`7}9ʹ1T,V-ʙukY[+0Pkpg:_?K@@ GeNS%0Wx,B_Ź`&Dʩ4Tc$} <>m&; _:͊U^krЙiv[7 oYх4YJ5EB ׳mߖ+l}?QB;VxrgHYWw>O|ֶ&:Ju{ M.fo^.@GcTĵ %zA(`c*ZwY]@wvK-e p^,F$Ҿ>:U՛-HC+StAz81Z0?[cl&@ 3Y#\#a I>,D|E t@ - n L,Z߻Sm~k#Voeu(Hed',K9tt4B 0gKGOFm4z@ ʹp(Hfv { 4:N!TS4Pb3Q>|z;H#Ƞr[} sO^p0&>nk h_y9k,-K-ENe_KL0~ r 6>3:Q8hɜ)~{֘"ցeSr_>L4@VC=%b%p~ϔ{ >dcY/2zn1 qp @ 5f07Fkgzb( h{j)oR!{:3:Co>&,:kF=r?Z>VC%0i@~ R2Ka4B _i-ܽ/z[JJ`kn}"yVnUv;4~iͧ !m':QqN F*kO<쀌K4l pf[7 Nip-2ݕ~}AQ |+8gv_&/T[ L/u]e0c$+tLD NoVi!F<_2OMNT*5ʭ UfUTvI@W=2 Ǟc%3I` {Ir\7 z V$YHO3Y3rB-!/'n 0}8). ;*> #wr Y,n [,)(^BM%o7Jr3Gia4| 1 %l/YEogy/Y@$z(~)@"ZiL_Rm;E!L^-l ,N?&/ehnD]>H"N+/|#MǍEBnqPF[dyKem Kw@ۏk7}aZgWřSF@H@SEF3NE,f& bzmzYhPZgwnBw07WP )WF3KPo#Uݛw`G@z;f0A (wBPWx<kGwn=}T D_5k1nà\u5`;*Fmmhw+xR?g5 `ij/ #& z6.:-?uW_mV'^1!~\( D?ϫ_%@B͡ftR-CI2 ~&`nڶW\6B$EP_@[۟CM5_xdX^֊-@b i?S7usWfnI>(({Ȼ{}}-mz"Iȧ&@Aț{P*k ByT;kWiW< Mch 5ʵ[jQvNd!~&"2 ``nEﭮqt|o``8iev~86^*Y0AH5FMg!f|\w=Y}q_&xԖS `m??һ Hcʹ#ptxo}60$OHJwcDW!8 ::v~ LWʝUuZ ­g]u롵5] @AX薁-!ҝ U@ 8_9B!F6Uҽ#mۏwW~0u< {4-mqz[x@xo.ŏv'ظv2pi¢G/ْTưW#"<D9c"?N3 4kP?Gy ~|}gNsf D/ P 0s! XJ5v!!6> pY9V[V֪oH(鿌Z9lhHӞL,! ld6 _5T@>6NbF n5 (P8zkq Ho4?۾;fChV'Y-ɬz=ZWxzX/ D6 Ql@jzX/us`_@I`t;MzX}7?te8%@r @,DA JV֤ʵs6[2pK] Pam:oE^$qx}\=n=5%P((AA_j_@>*]ׯk D?I`5^0* ޞZaF>p`XY=]=n@wg"~V&fD;FUc x3a8x}P9Yw*-ޯEo6Dp+N@mlL!o:kb ʇD &&/͚DŽGpDȁ֦ seoe@q N#`[7:j&FoG& 8$2ˢT<=M_;|+E"*buwhGfNc}rS,)[Ys9I/7c2wȭ=W!ԿWAna3;@a-qMxsF)8Q (ElVߋv#ƋʞT 8fCC@Ig6Uhx R - 8pm e*eil`@7޿6Ib$ =?R5g?6ye JƁ 8(/U ld6 L k ST&V6E? .ɯiڄ @@\5Nݡw [lc\?Ȱ0 ^tj`/1FUov`SX{#2r`tzz?32#Rw;  @خׯW)9ocO8Axе=%H,Y!^Ի5]|4Pepi_.ﭺ!YVMDTeqT[{ h~'p^v ezP*8#E&@q|>8~Bc@b)8 Vk_W¿ (- 6Htp@ yWc$5{'BD#pv{W7ƪSAH>Y=;Q p ˑU@ƉO|! `M^ϗpqĎpy.  WbsNN5sHTB IǘPVXm7 ;l2@nw>^z͹ dhmb(m@0"87I43C Y /!@\OJnfh([@@>|rɑ@JbyHJd -DE՞G   DS@B@OIFQd_@u)PqT`2sݸ@GC:d @x!    @ @6@BzM_i@ iv}@8ΨҀ@2hZ#2XG2ޘ~[kdt #@F `.q yA#:p n (z i xx{@< 8a $Gnhп& mПm 3+ ( |҉Qۆ>4IC4gb3o_mTJ6 `F?g'v5Ѧ~w=kKW0r@% ϥ8xݤWκ lyoNYidUfɿf\JA X^@d  n1afz&Xv aC>2C/ *AO_WF' #3X=Cߩ8Bզ z2V^vYtɣ,!8=hT*TFK*d 0^|GgzO+a'X=Cϯus?=ʠzٕUNRA ƹaS=C2:yQ>bA)8ˁŒao*F[+j~6tyljVaE`+u9^4;$J6 RBQsOl,FFt**oI IU'wƗOk @#[>(釼ÚF1!z]_;$ͦQ !7gCFoj2scxo̴7F1 _?IesR0 pp*⁒kJENDIQ D`+,%z28@epbz{UH' D1S=öwJ ib6;Z{U+ԍ֑Vp hIp(iDk9o yh[$͇+2]u۝W7OLE˂(0= $JAH q{a)J'cvE- |b*[xpIENDB`ggsci/man/figures/README-ggsci-nejm-1.png0000644000176200001440000006077115120434214017416 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$3PLTExv"O(t>+əWoynm]PON p IDATx읋b*@3>`|M9uma R/Bz"WK\pW@tPJIm Rmk vҷܚǭi aæak @ (yk=ִ am[#L[.@hm~SMwkiGAiPCoʹ5z|9: <}sKϔ`8|@.VQ} +V]> 6ֆ@;L[.@ `lkMx |(k~o 2{ p@/@ G\p`sJ@m   @!5~ECGG @kZD.$'Va:\Q~qkfx[r řnۥ1/qktvPw.OT͇fv=(T_+yf.cU<.<2ybxt}oʹ5[+  <̮?(v? B6پ5^RHkz9ucY8*Ӏ`!vܚم @ 550fv!  q n;h_!!lޚم @ % @AB%  K @% @^^"d\Q$P B  K @% @^X"d\QTPU B  K @% @^R"d\Q O Kw=u]|_G"w@L]Uu" E]?G,~> 9d] ă;(̎DZ|5 \w`:ݴ]]E }/| ;Ǿ@eZ qCUUXEO\~w#]gYE[΋Mj@/ ^@9^3{CrJ@>u RX·u^ IX%?B^@ 3bqoi] @TfQPmva2ܗ}8]5jbAz_Ta]6T߳"/!eA$[,^/=V\BFWv52R0-i)k2 =&7ۣ gܘ5#$ gIcK, 5C{d(?R#z2@J5?H-cڄ> ߹IE?7qmw};g `(K@ `({@'EPx 1S.$\-,Z]pyl ]e.[t]ծ  k0w,v=^Nx@w#?LTs6)5 @Qb-\oC M%({46Erw!W%!l(- ޭkkD.'}'A\]< . !aT==f`COtu#'.ȼ@9o @p ,N>+8t4jZڮ|F_HP۲,6v ,LJ:e;Gk eռ3hpnlP@?h*U%5> %@p;W dFP/ +|X`/O)0\,"3JK [4*INN)D#D @1.뫉N-l6oئVgFx}/Sǟ] "}" LG=omh7Q\6 dɧ4.|Ɔy{SZ4睎/ j<dyJ^vAGi luH߾/*(,#Zeo|.uW^+sFw_}{#G$1 AMT7~ڸs!rp(duiU /nCmOٶOƭi 8AGzicT7kBaQ_Lxm. 6H&>`ZS&Z ^{O.=c8+Aշܚǭi X/SDg|{ V s|.狮n@g(_[ql4#&j싿KxxWvc5@R܆`&|@'E#u;mчQn[F3injVjx7DEKB (oØm]/X9ۢD0,L3 t+cc@aTK$ KV!8u;F3H7l]^M @Rqc&)S@eu}~wU$Z%L?9/nVN'ؚikx<pߘ`B; q-"c)O-- -:OOM71;PyNQ'f"K@tj{r>g? 2Qa x ;[ c$$`;df(A?Ǜ;t:F*S L=㖞)}F&j/z~%H"Dx?rG|6 ?̖CqώN…+@>6ՃCΙ7t#x\+W C>}3QL0x][C fv:ݖ%l7?xRx em;8U?:Z=?$.0(@6ʗbFc1 k̮ƅM^2̧V<9M[=$37 āv~ʗb@0;cIPN"~&-D ,?@`!벺w%+b`8m t#:1FC-ko/I+Gd茅?$xȯ T`t/bV';3 >W'3켆@j2O[F@ jO05 |gvPFxdЎ$~L1t>?Mfże,{I*3U9M*X9WI>] ~pĹ<`Vmz';`Tc/@=;/~(i4r=%?  `C| }}.A ńe>`X]B ߄Ѥ0 ngO?¿T_zN/vK~ك1C,No_HgoخFA?/pbP:}#Q!L4y]vNfC]6P[@n]nj]X2+@3a98mt@"{- `{[uۗO5|vDIN 7}O$F:/۩~ %yt Z}I&گm1 ]}}`,y_^% bӡ ʎ )^ ۴\(ؼ8SsL @&%@L 4(6Mk]}n&nR h CzfET!$bu_9l3r=A)U@<Њ%䖋C9+G Q+هYx 3@ 3@V[$K@S#ګ?}\.eY/&5/@@bP0<.4E^b0! 7ۈv`տk3~ &+< ~S H{>P{94P&XF:*ܾng]PT$&v :U@#Lf6dQU_"% \1g$qB=ǣb4*U@ ְ>{>kmSXU]|G $;ߓPPb[[EzS%גNGetaq]]ݽ5oٺסHw#Q &&4r+ N9lg"tOls$Bc|f(~fs=[| .R{HЊ ^Cs?@05K[r 9?u>oCU o^?c%ה4%H<< HO8LTgh*BMWE*Ch5eBh`^yyI0yxmdϑ(t h^|#X1k#꬟ebvY q I3T]w :@!9e6.R?pE4 ܜuwꧩ` /`b\ ԟ}) Tŀ@-ְE"8F,fh@,ZhRl]}hF(l]؟Q~> ~T HB@OOYi<~}qHτFw-v\/6@m&KP&Ʒ <'=>>ۥv ̬z>F4.n@ZtCɟBAu:A|lkI8g'<uBP\慆qqӎP`Cn &n벥"O?E ,$'@U6KR?UZ6NJWtFZW *F? ?I?@ yLlh0m^gkv>Y ||iY0,jl JC4 0PT/F˃uKf2"PdՠHȩޚkl^29F7lutҏ0MSy@ _0th+* kU:6>OO!zf9R%2r.N6y7 "pb>Sᦃ8?;폏2,h~wSrn]?{ s o4}reP"h,-/kS@4`d>&3 C8塴aptR(V~ kr *Oe@x.]n4-1 0I'\ϻw`H7}I7WLaA!@Ot9c׍ĭ^TW: >?e $3lP=9B yD?؟~nZH#Orxi@9m]5B/2h1U|O<3? CSs~0)|#AF}XE.Sye*۴lWW1=[؃7j9^`A3B@QɑI^S?soݛ_8N煾CiFXN4Jvz ym]~U25(EHҷ| H S͛Q\ HWdyuN8Y?=ZV{@3/…3!WjML?m.|l6>T%4<@ O,hr@r g쨮y5a-vPId5u;ǩ& CsUG:!L b$E/;C?i EY:iD10~3Z}eډ׷ϫ'Ȩ{U.nGH:X @z h0%U闧s2kA?j Xbhr/8 .=,S4XM>lMLدLV=~ LTur{碞8QZ91vKH~[v7ehc~* Y Fo~/ń|`Duk,}.NsW0O Y#7rO@n@i<D5(_mUGIVv$2ÌypDjr``'k>YoY) <$^lxZz!MeX ~GMcWc4N94cǗ"E ( 5"kv `X0mFu܁t@ <ېb4I0x_R s;q`opUq"; [< WQ9R*w?1]2-oՔQdei r$L:2q7U! NͿS5U p@]֟_|X^na:Xߘ  pO }t"E K*6:#suatʙngr$ R$[kzɕ'tK#0P"!>?}kJ I~]H"!g žMev?Lk$$I&i=W  B-__Z骛_hј q6~mg9;%jB[/&~jínJX1k8<|l lkFQ꡿I]0]ma+ɆB֣P gPZ ~u! j (x ONk+_0c HEBQ 3(cQ_U-Pjǧٍ NiE(Xvq@@ߺ-־ GE}d[qC?1UMk#DY`&Cy, c}Ohf6_WI_Ӆ=n A%0}7+VD7_WEv@^M jѴGb_3[q~bQgu֐DV~fjH sΰpc0/=pӿ2];Ʌ`~`]_ӌEw&SyN.GA*׶02*~;a7S\NAW|%%6;`fV;͈1!7&=^ݧ]]Oz Z܊U1sr~~5E_f Uabp$i9h+~n#s/w[b7*=Z/|+d ]uM[ܸ%CwΩ[j:8牿c uѾ) 8dD'psƷ`'ypgW"n'Z\@awj? p6_&IFu7*t|yΝrLǦKG5?u-KX1n#W8:^4`<ܷ o:ESN=2P7?ٶ6`[|Y x!x y%Br@@P|~Pj '\Ra (n|a`` DexeiWh\N_~Gzv+= Jr@Fm?z$5@=aWr0;w枩NqfҶ:+nMJ}!)Ăݐ26iS) ȶrٞGO Tٔnn7?aqwKsi@6j)<y&ŌyfX(VB]ue:9 dϯ52S =à1\me~j9RץR$*q }r'̱ /=R{΃4+pW޾;$mh߹4vZhJ޸+Dq3K]~ڡKro۷ īZ}{Ev<ƓH >VB=ΪXnKH{碘FDQm*5& ";^xܣzݺwD!@&WC27,+M˼˗gE!Gxq c'1\ Yb'W laS,8b]\L@+XӜU[EАՏ7GCzَf0nO֨eZ\t7*xR~\6%A@hm]ࣚ^V 4zCr olל2LK$e=}e'{#:s}Rl@ިJ^xUmIAH,`KI4["OdR@;8>6.Wa#Xvaù' c ~H da-YAoHZ@w#=UK\TL'a\-*w7)^.+8LƖԺõi<ДCy^q @?EӖ[_렝W 2%BNFa`קL|Mo8R5$ j-) -~@(jW+(dcn \%Z>{}rhmBN " _+4hHdt GY-!Ļ?tfp"~g˫vʆ6Ѓ}v2K+Ƴ}.te F`(-ԊuJE' Vl ?x@ Q/ֈ:S,~ U')l?u RA@F` HP1֨2)`9:|6GTm/Ri,@i޸x~ha.b,U-/Yݭ@10~[aV!mUg?Djb.( vAڢYb@wOwx +?n.XB37E X՜;#| )~?[ဆJcX,_Qׯm=2nɌ HjHRe=0 -c"yt;ݍ@E`&HCDmi2a;$2~32)U1>l (#;9`' @̆Hh+[5 2zY9N; ,{~r_#o{8fG?j@uI8Yj hNB_ (o_WZX>b%T3P>q50 IUu+0g2]ir/vS7$#PL&F?ΏdZ\kXpT16au / h]htMK|uYx?"i&T'@vW1e$ @jv0O`r; r'Kqe@') ˧5b=@Mx.l]/5kgݞ~m!BUC T$50  2nR;€Ms[%?M XOS@]cjdד"? X5]a r_!Nqv~l-`g(ׯ_?_h Bۼwn5j.%Dod)~@AQTMHU&lrZϞSWBژ%*U Б~ UsI^@T7<aCh˯啾p's@">Q 8!aY£7kYC 9" H>V^Ysn ZԲ/aPk`/I @).gaڂ2:FcP] orQ=O R e?f a~,c4Y;Db2(m4И>oSOwxZ&4?'t >qdiP5[,7Z//97B-OIrM Q _Zg0Y,DxXss}@g]@~Mw` +f@RdN?3 %fQxA?hp O}C@phO? :hg=:adp S-EI 6+!$Y@sm!A*4Sf@ ~Pus[p eClQ5KDWS;}更A6g[pӔDmK}zҘ.0_oKE7gZ |o:CӔea lg2Qc4?lem? ' @9tmjYu j, /D@1ӿĻ0<* l?Cm Jk\pTUP̐`.X3e+ͧ;&_d(Փ!Ɓ0LP @6(j#P~a!bfʣb<vm{~`kz$QFJ *!@WR@5.>ozqfEk$Fs>ɝs?T̘G7`h@ x/`[QR$Sn.w&  p>ElBPC+СPM+$eXhiQ Zdcx"0L~ː*ZהuÒfɾ+X "TK4꼐4ћe<@tK" (8  \y@ Np X`%GMM݋Y@S}=2WKa6TDaM%\s8s^7UH {*U F]"U~N8XJ``W㵁d,T(&e3 %,] ٨m RD/`{~//\C V)dԶsm@0^CbI }&@ ڜEl?]Ku:@Dš>P;GRJ:B]^JWc,RN2.uSV(,},fEno&U=;& t|cu. 4C{RigX\]Q*mܠ)Pe: h5^rINGw@ ^eR~ +&#G[,F.Gic)Pa(@7tB>Kb R% 9,U\ S#zyˎ[= u{ X:ow4[TL90ZʌcļDZǡF >['-8N&_M˿XfE^=CO X]O0[N nn o yaE%>,K. +DHB ;:nksKL nBgB(x;_͑<,KV?Gm 2\p!az& ` `b&"\@8;)/Nm66ӊ (w 0݃ToYt$qp3 (Q@Rm|T3%9*i|cwԆaЦ87' $< ѾwKਟH |V  ʤ9O% O&`?1-I4jVli="nCɭ$#N+Myu2bd(`:,ӥCG@ JG"r#,֤Ρʦ,>mtߤSuޣ^9pèS9B'Ei>m+spЎ AdHOr$u+ց 7eNK-7F " HP11Mm=ڌ9ۺ IDATg<o}T[p[ cl n0X蟏'(G}u[߶\P:5sZ;T rZA`|حeaF7`AR0FQ?d>W.*)rXP)@jV_ߋPD WDv>wFOU ^iʁ9zMd3@?뼛BZ:ei\`op!)D.)X14pON`yH=TLfΏ5x!FAaC?J% in=HPpչ 2FDF񔦙J$K{@ < jzl%aE85j9<Mw^<,.o%c`\2g!2ʹM$ZdvANڼvx@ـ0͂n]l  ~rj$ރ'"?Z+Sb+#9s\ :<gixixn(̛Y5 @ c{X_L A["@~&@YĪD$S1fbdGM³?DȎc.gM{W՞Y |+CfšxIpՇ`o%~ Cқ.H]@|g%δtʣ Y!ep0]yAϬΦ]rdCPL}w k\@,LHNt ,S >#@ iZ*־sG&uG-e합^~.$ \o@/ jepT_tI:˔Kp;i& @D@xy/7LÃ9D,^kf'`q0_n@? R7Q`Ǭ%Pp $7c][գt'NJ.8 zn@5ɺgh|>;0QJ.Tݨ ؾ?gS [f6 F z&/6'b?Y_ו޻lψc-Т_c#?_"hm@@w@V: Q#Kv$&pЕczN(GK/؊dRO޼<ڶnc_HL{`o̵OEsp* Vހr>_ ɤ+'(Z/;ёyU<޷º6X{qeC!9&_hjah.R\u.`Zn?P @D:= 2Āto,(fuy\ le2[ZyR7bP0SOsasT,SzZ^g*"x2]qhax7jlF|= W pm {C@rG ,#KAt_ ͽKeٱ({s+PWZ jLeZ븾 DT*Z$\@qƪm~IZ6ĸOo) c]v< H@Qͮ @$\ @>vX.w\~x^258\jU^]gI(nІ& |>4 ]$k _ fK%ȏdՕq.1y7&6 7E(X ^}hL0I%E1 \,31P+E7 G\[0M2vr+m(I7'd]lYz=r o( ΀ f2#9o 7u!W+_M?PA@Q"bEbp՞j]l;gNxg@͂`s7@u_pWK.4͜|V~쏵?8xfS_C@dqZ9D@7Gi~92&GY6B4po=m͜:=P;W4P2 ъ7F1no՞BwO7+Aʶ.%r]JyXީh60\8Bٟ'G3UTUIx@R?h=SVhғk?.' wZq.mSF t?0Cp.k?g@tk*.\\O7uw^/Kf$M@ 1PH$ \2lhйp44J{!,g@1p> 69\vxrR&Z y5ꛂpu?@$ Z `-ZN5@2xɨ̑"uT4 Jo y'9Jo-ɛ lg2}2*kv`4cbjh(Kݸ,LaPRf@N(PG)tj;{; T-DMh<N [oe& Z1@Y]b, :H ^/94ȱX֟:O[e1r(VuAQti7(PȻ@p4Yhp.mD8GQI!Pgk98лn+w,,;H_$\h vQr3N URӥo&yXIS0e'{mj69Ol70HhCOvh<qz E@pR5>"栅 Sy-wUxRJnaXN%CHsXH5>&StJC, HD9 IJ !Սc 14DxIqNOoޤ)<DK?v @+ z|07H b !]B"X_)ƒ^>tsxE`X`G1ajµӍvHrX(C!~V׊L?r/B@y[ivJ @kX]z6yȼ"p] ! :, qHf|@No*qo Ĉ  x|+ B$$*g\2y`x)p%,7@J$  8=olEVۍ3b"33? ck]Т$@v Ph ۭ $oRz}Gf J Z=[!xk[ ۽3mg% xk>9hבM= @tÆ[*#*I @%3ؑ4n6% @o c q5>puCL4BPv鷀_{E#f3MOo66)!l}x׍% 3IlN6/!@ ߤb{˽..3"t7t2 @@,&7)uls$@@+ LЋ@@tIf+% }KxAqK _S  arA[-@~oYOn`xobkﱍm2d  ȫo<+  φO Co[J@表nC; dp d J p}Cp Þ TvNd @r|sSkv !n7z)!>\7r`o_nt@n.]yK hNn%bBg@@K%aR1-C= $?Kl @,IP:޺G\do   5`M"[:z)! !B5 @o÷7.n#P'!!Ћ@)I J@ =N ; x} '%P@#+  p>K@ =ܦ``fI`Cs! Ƹ‡C?ts/I<@g}퇾3`g yf>7ҿ"[@CviCpcD] 4!\ڠp3ZAeoB)yPmY4>Ơb=gE:?\?y(_Vm?QV7b#}높GÏctga7FiwYt[0?d_N^2<9MsKd1\Fm,|PӱoN}>(wp~ ukȘn8))v2~ytfq[{Ւr4pOA J,:'8ˆīzJzl{见TJuer2X6O 8,l|<2?l0Kp, {< A뱝b hŰT8Yr-@PO^VJؚ,ĊVHΗ >3YN8a kh <&"'uD6CPK@G<<J@x(`~x(_O8^ R(k&_ @|RPx(G<P<@<@<@ ` P% .@R ^ 8۽SNXA<KzW;N,5{Y,< P@ݒǫ;⊠@n1;`_2 `Ne9W> (<q|S kX ]wa}el6#e[r|ЯSxxqE(<\vm;db FPa@h;?s e` Ƈ5G@m#Rx({>d&zx(o"% ~=(G x(<=*@Q% %=*(G x(<=*@Q%  ` أA<إ (o ;?])mg;Zxk@x0(@^ >"(SQ@`  x(]{"({T"(@ 6d(^{oTa/˳8P @diP("&&^/fy^Iky8N>cqXDĈM`hFnԇi,? y/VS2G(2 t`5 u_j.|9,% <\dGTuow=9`'dik67)M^4!W G0P]hz1T̉~)Ʒ,}bzY2@D@%ߥ X~])}3'<}7El΢".B'\+Q4-ܷH~@5FJf}'Eeo}}\ Q6q> ­&@+禣mmUZoS(<UV*} tgՁk}Cv޳]:YZ@k@ޗ7Uok[ dcJ@z8܌/{S/ЅL݆M޶pUT U.ѯQ !w&z `@\ًp  `5D=*5M'׸TJUo^* |&owm_ P dy 'z:lnzn. Ղ1=8%6f %_% )Gϵ $.m&V?AuL1KyƗ6,]i?i]n]VEo*+m;Bh8 -n#uЍ,/EFA>]q}ZB#qNLTШ?_VnFV1,;Y4Uw֢[/o懳fp~4 I7Ȋ8 'чQ=  @ <:T{(^w]uq#k*5$S(J@<ï52GĺkaLU~LGD5֍Gi-0*T `ryEvBc66̂0+UC 'Vq(@U@DO)_XeI208pB80FPx1yD;?B?@B8FDU@TDh3X(cЯC'iĞF_Cx%#Í.47=wtS#)Z6RC!u׃F E5P#,ZPȫ ̏ )"@4U[zypvF ;en@] S 4 Dz[;̪OuDVy3A _y(@ۦ!EH ";rdՌ>侸.=^s@P犦uP)L44ҝr8k* F3e}\ aqC[sa?G.10/x4^8))W @[} :KAC0r 97[ŻU?U~)@@@ c@C^$dքowuj4LL @yy"[prD fG5 [5J-_z Cv֥xoqx#>X 5 p)RWub~ك1N$9$38z Y2T~#Jyɑ @@ = R 94IA"V.nu1c/wqJ_rd3 H*jsr>MCuIBPyl'+#Ukc9m1mx @#B xؓ EFoϕ'I]\@!X)U/[\PY%S(@ }r {movgPӥSЁ@e.\i)S0Kw` KlA@~iGC@V3'P{E-g   @h`f NxIA :G"ꬲ؜[@&wYvr*sϻdiH]=nJ1n䯲d&i)x O"d\u@I6IP)S@T\p}4Cw=`qI߿ۜ;e1-W D"$IH)RD>^ C.zQQG H(?tl*r98VHqBj.vZћ)wp8l|Q2y?Fu'gҹ8^^q rv:H4?)^UZhCJ907np%p!T-dQEn غ` 38RD  ! 5-wkC$v$,+U2Ps^%n!gw%9?HBͼE$H|`;*+tQVMIb$raF+_ `uFY_Ȍ   9Xq!xSDx{Ec0gMpc neyE bEQ0\$޻X+EGZĒ4eM@ʻy{T ԉ k=sP2GpDZ9=.7- y22DsMdv w^sƙJ@cWI?VG@ s rH._o8M@ gFnL{Vg  /?^8K&2.T"RߠXj焜,A)nq Gs۷b`@y_Za>"o g+I@}9Sw(V.TD,Luu)لvI)[Vc(lpMj-H#s @]ܲr pvȠRAtfbjp*}r:_+dB :OhK|U/ιB0dG-kh<*Xorڍ^]h@&y< `lkI;r0$têp$AYfe|_8@]}K2F |wNu^  r']QlhYK 28pc)fxHCM*m.?xn2$w9K|PY )|8`@K8Ѷ&2vpʄɡT86[܇2 *"wf{' N+"Rߒ8`>]PR)[۝6|?LW銅cװ;oz _PЦl7,OP)5*" 檡DD_St.`>\)bH \LMgCkػ4K^n\ -,p 7G3}* } W]F@ιN7@ 癣[<㉤P΀o~o\  `CZd7(L@'px;^Tx|j#5n+VşD/D O]9hW99\0ӱXV/[TjՈUa63cpP.3  <9&f/ 9|K. OF'dp6@1>vB*g Tc֢ǞbIZJPDJPHyhUrœFtܟJ Zz`A9|Ո3kF?v3td@S 9A(@I'6.׀)nT#OnQzdzg毮~8V|Kmd#8S5 _Gޣ<ސBPHv @9`seYcfy9{Xy ׾ g)euuuuCپ+cD RDTD W^]'% ?|lX,+3o jyYO;\?r_dvpFG:o$DW5HA@ rH{8PdRg(-}?Drwuj%O_Au @ub( Јpn(d-"@ 7Gw zlA+)DZl}U0+/70eQmQ$!`CkK !a2p] A3RDD:]b: L@}lȝ4%)xtM@^tڶL,;I[ 7"K^9@5֞yMA8MӅ*%LY0+M@&&)`0fTU4:DO6G;ss(oYraߺx4A ðQ9ʏX+8'p`gZ٠[G¾hW W%(EPFpVEU `$3DVX, aJחJWA)Ϣ{lxb9ŽEԍT VX|0|ۖWF|UfYV׌<f߰}Ky.Te@b$pXZwhdO>F5U {|vnE266Ya^±x IDATE}D1,e>4 B/; PeO3{%ީp:w0 RUX}ә^ס5im 'F`p V?I UxU=(""f ,2]9ˆH `>VRG* z;n 5YUkX~U]X%*9~d=%mbEĒD3 0Cu)+VL>|~/<ͫRZ׎@ V<'ٚ\1ATT@#dgF:X"ؔ+  v"aMdP넀z؎L?#L>H T0ڪHB|HPHc }> >/ \l-8Q1 O6R@eҰ }X U^0+,f]{fo~L\R0#(;%$Ti&+VLިw") j'Ѽ3W@u%H[`?D`P\KU+lD X00x޻jQ0 !%d:H3/yovcFuKmP{l j6fʬ  ɵjYl2W+'p! xCzlᬥuYZgܰTi3ɵG*GP^ }XI!?}96;hx2kˍ:  T@" #ZLr$xJߔ PL` @L 7* x0q.3C/ GAJv'h=%p&Z:w;x !0mvh8u~?w)]#)ࢪ0:K8Ec?X ?% Uq^=3Bc>|nvPP T }g7Dq$fa s*8 OFKeB/P5$v[y=lb(78z {9sE@ij~mV mt?GxkOd+uCE7Ee$Cъ bT* <[  @πO}H:%+RgL]. LM.݅H7, =gxI8}7W*YzI+%o6rC42}m4R]hHZ^Zg߬U:@~1t_$L~݁S8QwfH V:0ě]rݢaD,vYXڴOg6 ` y1>p .~9ڀ3y=0_M+<$TpArdi4frhfw&'>E~t~z]󼴚eA`(jZ- !$Nr;:tRP?#0hVAzo@y:*  n|Dcgj:e&Vv'oB9Ѧ;vt?d />0prEh|D ':[Xo|8 # ?M) ']O&{_KlCқ;UPw^t*}ʙbic4) y:z Zy$} iHg" }/Uϼ ᖿ=CíMGu@Mmlz#DU|[Or7r՝@; |b,Z @&/-w)m'ol31χc >g-a }t)+XʕzQ-˷p ѽs]o"?fۑC1ߩMfӝ >3flR/ 7/竁i Kq .@Fbi [}ulHO:2L2;0E}șZ  e1ca_!_)$^2^ s۹ SB^WlP;B(yxGċcGJ>棾HHsQ)6j9M1⋈H w&)a~ؒyD œJt=7}R5з 2. ?/l{`? ,>zHzM54&G* DBKꆷ15ߒA6e/Ch&!D{BiR@DG1WvN'pO*s?LAݥ]i'nܾ;gM@+p(5bF8;cˑ+m)m)@ W&x)'709axGVm+A<~fG1ܣM"AϙJj`رk$(z+ h"Cu'0#SO"c<6PxS墋_y>Q@Lw  E.BRD_D] 807ߛW;(>Xa~`O{eDz {o}ΐk8 }εb).K"i5m*4Tঽ+FNs}]HF#zS0lTIt1)@5'}R 2] Ù*DL΄=o8^b{Fn`$Z;AQheST K^>&[@Lknׁ.M/R\&ISli]yP-l;_E!͔ wJX,^8bμ V8O%1ɤ*h+t | @wEuho,Gܱ}hI_vq|[|#\h&V/fu` qRre) <@3   Pgo뿛%_kQC x}$m]Jsi=J ?^^g(9YVE|_PBY pDu1֬<W3]] hnl.c@y "]ۑ֫-oN{P I4ʼn (@]z+5+O&ʘ3 BG_K]ή6æȳ@+k-N <0-   ~pv@Q$1 \4wwcQ?9z̹Q]p#qV?1Y=?E_2BoAzEZ>PiOuktypDj 9D aކ H2$$.$%\+PTr]cG1@kj\_{M&-ZSs7[ƴf0q?Gy! =jJCOK3<ՠxj;+IȢsnR-_Hf|v 6-,@Y PJkN@g74BB^G˧)?,lk%k($g\< W0vR!2 u} +؅+aO@+ @uA-CTox _"Xuf>E/{SqT kТ 'yD[;t@`s7e &0s_?jg_4vdNnT"|;+C @<!WOPдeZŪϫyNs sC 2Cs56*/QG)@{ZL*vnBB^7 z+|>7Gk A \(Nb@W6n10eP1Մ$=4QX_7U@g*@4Gf;. #7(l)? 5"=rXTݬYWFx՚.&6(7&b*F@lMݥ6\,> #~#Gۇ %i6OXm~`[&6Du, r$6Y"vJ z* S9]|aMY/o:8Z[BaF.4ۍ7ĭ C[!3yRbXUHi`^@f%B'oxggy5.0  ]7ڠ ! uTaR&\skh;}W|t'PtiФQU(fu=$q1њBiuGaT  oPwP 0Ck2ԯiJz{&b%ߛʹOePE"QݢX"$U7PoPK?J"oZszMH+bn)\Yd:+`e1UN ݺ߱BY6 -qKaAvl]) OJ0, #g ~Ix?S6]@rqKئ]*0*S{  7(kc=9Z[$ Qnɼg2qO41h5Hf`)|{QHDRT؃N% ]ZxFbS . W?mugv]'X.>2s>2@0>kf@0X~x!ЫTu@RxgB~\Lz  k7/͛&@ ?J_.&(t6Йla~k.t&]qe1#~ӲgD2PSLSzvq  (~BJ`N— ]w7TKثj13A_eGؚz8aP"K 3@E9=OdHXc9];5?{$]@PmCf#L"4;m߭4P'a@l7AF 1̪!C`.O_&\9Ae~#oĄBj_:lJKsA-x'zwNe0+q"nD]RVNSRb,v08!~>bf䝹]V0oe]e8`,.ކU DVT>`8[Չ.PP @Q%'[O"~fB⁓9Bo< c9őAO 7\R+8De#$C  @<!uo d}ӻ7Wx3/{LfE&DPg# , @@t JHrI\~0/hy{?K4syLM7#h nS@]@ms@1(LqP /:Iճ.rn'4Dݨ2Pk@@3) P8BͨA?\!>Ont!P3*'D@ژQP,v$ғ! _Gg 4 pV(!Q.';ׁ#Q{™ꏝXjg}u ;Wwt6H.8! OD3#л,c࿣ bg=>0f@a`I n`ξK+L#@PZ|`d&t)9 KŀDS `]u.Rlf]з ٗ6fjF+QR8~2 |u37k."91; T~K7 u}V n"TaǰAg%t .Vέ˂ }[|k `WLYcZ?yf~wyr߮|oS8YiD @t p+X-x}cH/ z o7~ej`=/_;դr+Hae_c_h Y@o:\m0W@OV G.дcೀ'ԉ$Sjzhw@-*I@ W08d:DAz)oTߵlaΗW'@SP,L+b* I(zuRP xxQPIfI^|z@KU; hdw% @ iu]9h4){ɡ&S LF..{ߡ~iVZ |({]R r(Lx t@Kye+S]~8ҝ^F1u;vdI3K,chq"09 T ' Vs'pv7"K}3 H,O׎'ݢfaj;"0=<2̜ӗaF9|&JP E0!XZϘv.WB-U"JR@"t OUwҋf: H`L U@0:Ѷʩ-ϮL5,,fPKV4f@Q$Y{2Y,}!b9c5 5 '[ 1 `$pپԝdtv)\PJ@(A : @Td?Yħg[iE1&O= j&xScXi%VљfcN—}>)ueL/PxWY;9'uU4>lS0> 4hFi.yLDf +|7tqq31|W5h S;8]o(J[O.9OL 5H6fr/u7,zQ$w*}նim̓4)Jv{'Bbp4v*/a.FE< Ʋ_g3P Ο\J,[.#@;oȇ 3N;ļeR^;bp+p7T2CNgɻfݎrbQUΥt IDATi 0OuX?u(TLcZR2e"\7MOrVDjO=4[UdepO`> qX@.s7E8@Tx{"n+'-xAOYzT,Xocꯔ[pc[ma*= ^ $ġKIH)EF tFB:7:E;]$`gu .%=)9@~¥ut 07ןX7=α+Q\1&ܘC@l?U}|OT=RekJ>rc E8V攁QF%-#ǐ8FřpNs ^m]BZa3;:BGZkc?lgf&pOsv dҴm@s V?gj6jINQ:YSff丨?B<A梓if kk-2 bVR4|`?YV/;W_Q#ce`92.vs@WX*@d9XTˌB@ !wIAB {EZWb^,ne&B;i. ɎmnֿabSTe Tbg2I`dwd[ `wIT |Ub7V9h΂& I"*@@S]@@ `(NpFS*b ]yi팔P@8QL| h$2>[MB+)TׯС hAC5t펿 N!Zy|d3Cɤz[zw<Q wfy@2-P&X׮lڭc I!.ҫa@=K^@ׂ)ӛ=~o~s/0$O@FJ>_d@>ygO"'# <{{ @+`K쑜?IH3VU~$Ā8[ բ Hp陸ߛRT+.mO*@_*Y4(`= ?N1n8Q"gpPSiXn`2 5G?"14It0Znxݧo9Pˮ9Z:S(Zv"~@: :y ,D׋ XoC@z`9/gݝZ(xUg,l(,! Fe"X3#,ߛB&r bq _Y2u5jAZ \aL)]F1i?4)"(5eno~62UMQ,dU,TՓ@]:>)^I}/}`#2dG@b% IG!r|(kpd=g&Aɖjw2Mw|2` bp. ȞFAp 5דe'  `{ U6$tV`^4 C/y @u@Hj@p,&3 ` s @PAτ{@6CKb!,ۼJ?hb8CDDv'_[Iβ3!Qysj ];(SlF@G {I2z57īut/L^ |!8?q:ӳZQh%c _42 ̌o1,$ R hH! |#8/?G~$|'0=]m4@)5-$ W͋T? FvcoO j@oҧ!rǼ i'ܘoDSk);'"тYZ%a&99~H5y ` Gv9S& | H H uU?We_j^fl%Q S $2(<؜b%LI4'Zߋ$&p_`ek/o&L^4E H> @ay HF2 `ܙ6u}.27@$1'mB=;7SH$ ,a`B9^@AC@oW2QYbR۳%&p_g\G.hݐچGB1oqԶxO}OM4E|Mൽ7~w$`]ZkSWg@o@k3!\ {9}#_cĦ=xvB ㉿.@;۳ bm Q 3}o&)&sMd<_4o+oE uc.1$`HXE>ѠZa:_aػg@ygxXYoUW27C`hqg&,@Ȑ8w3KÿG$5~Qj_`R?yqŰ֠)M3`P3{o~('* *@( ȲXDvr6 _1ᬷ1Ϩp޶)Nځ0ut'Vig-10@^@7o` :TSG8 >%e!%[h;` k:T@0 ,^M(S@.{SQxWo30S@ǫ>ԯ #r04^MB69Iod@!qpQ `? K<ڐbm\hgzo@::l5)?O|wruD0& V^"lu;!܃2s>}G&b40yviЯi.]3\^]i @G!$w~?&:3l]~2мI`9ikWi/P64¾lD:uڭ<6jʱܤ H+l:nw7oW\}l0Xg+6aڵ&ej<7)li1́3W)G -V7m  ` 2ܓ Ӿ?`v/YVYwL.[nV4|n0|Vvo~BXjvm $3~ 5rxح\`Ϋ|.K; S$;o]`orbǰy?ln 3i0UX  K N `>l?9> E3s@S@!ADp l2b (Z0QPL8"nF%՛Uf@46Ye1!Y_=8]560)!XS2704^^@6zk2OD`(tzx ``6X{rtt+=ө ) nF ].7Wl`z<0Mis"Vfk2!@v"o<]=x̋XwNcq(h?^0+7zC L#CDxU< 5p)i1V^Qیo`3ΡYW?UET:" `3\BU-X CU@j`r -,hNЉ) rLDdaU[TfoJOW93aD~ )wˆvP{f& `o4b}HN8bڋX0MPBJNCʈ!=@bKIR"V"ʶ d0ߵ 9NSU?UU&b$#Vh@$6UvB/82I0C@j)3@uwq(<YBǹOm;.@ ࣪#V`/ϳ'O摺ji\:`` ݨ:f~l!00O1–@ "V" 0~b:H Bۜa2Pk= V ),UJ]ƋY-\C8鶂 `$;IԄ:}/@`N_+ < V 0/g/*#ػ0 BU}0e! p޳f@R|00=wRK b| 9:ib}`N7 =ٌ;h.@Lv`O/d`"y+7JSFa 2FUua?X^#6?49?9`'q/g/#C#  gb_DQaS]}/C:th$f=@uGPaDF0|'>P1}ɝP`OcZ$}YGt_ʷb+=k7gt  Dx 00+G@w{/[gIJ{gCQ\iּ HD٧2.me˕89MܷkHznxM,n8Mߗ'I_ `$p%{'/@2jyA9)pLܖx-*:`|: Ox4pVtuBHX cW<׵x3* y/]U}Ylp*qH@xY@~#,pSH#p%sVΥ_ S@p|96 J={{g0OS@8@Z!sq/_p@! t[YWeNsv/9@2Md?cw;:/ϑ8 @yzZ ;_`{l+f8p89woEY>v2% P b8Vx/;p GK+A_ C=4~P@`@L9;@ƙ8ߨ.nx;q fv%p82Sp@n p8Q@ZVh־%0qٞ: 뛴p8Auz@CE[HÍ:=*xq8*N{VuL`? M(@&;}pz}Z׈q^8@g?@R͹7IxI0,8/;q ϶RY(mC. KCwif_ 9Rp*j0.w>~wCchCNCCE-2h(q6ȼ| syDIDAT_^d|VC:h|TE 冶<4`U@8$pa |!{ `| Y[ p ) ^p!yUJAs8~/;@5P8r,p#z$Xh:m^ L \}2:9 ~;]/K i@ێSz r8 p8Tmp2s=讼ʡ8sNSUU.UUp (#EMH s呂p@S@99p@(>C@h>+ПTF-&TЋ;^Zƙ(PPkH-Zj 5ϴ?d#؋GEqQ<2 T'tlZCԊ}/W݇R R@\cpDqB)|xkuP[6ƔZkH`f!!BB-(iy{qj]Zetknط~j< xB oVS)R䪨Oywxf5bzFaov]{уQ )%u R@~hT&Qo79_IQH (X{c@II^h zq5L@ucdŃ)0(5>n [wr,{J ӁZVf9  ݣJK  rw?¬5m [/dFf (A l ZO{4?ދbXDTzx 1"-IE~r{}6$pYԶ0=.,Z\;$]{|)>&8WnSvq󁒖]kmGm 4}¹_ |VnNUFK0ki{۸z>KA DzS@[B!@!BB!@!BB!@!BB!@!4Q9 DIENDB`ggsci/man/figures/README-ggsci-npg-1.png0000644000176200001440000006246415120434214017252 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$?PLTESoIxwV9v-eYK+;'3yp8'`PƼBg*| @&rm]~[ܚw@ eݸҖmּ  "~l6zTj[.@dBJ|ʹ~ޚw@ AyO|Ҕ%@l@dzϴeq O'0Y4V]lͻ>r3ak6K7LKA[.@'J@@^(.ׁ~{p攀x?e2@N  um)F n ?n]م$EU:|5m]م$A=/yo|o4m]م#r L-c1]p{ 7m]م""UhM[f?O^ӗ?I'ׯ[O7w"摿 m0 ݛ7DSgں)Ri g򀟐 ۗB_/{q\Dž1> V[Wv!G @W RiJuex"O=yo}BB]A.J@|x(G @)J@|" @)P @(H  @,D(G @=RxY(E' @!@>Rk @)2@>Q P% @^PJ`x^iߵwU;O  oeY.x_U]>̎۽*#$UEQ )GRwUNDwdEl$,Ŧ-.>RUuTc:n6;d{OJsΠOdi]]~)?e{E[rkI u u@b/,f0;^b4Dus7rds%S EoڴʦI^o14@۲򷨗X% TkM*giU՚ߗ}% wfc@FPK-bq @_B)*ssp1+[da0+`]0%&4Uo.}cW491& x `%X-Asr7'/0_ f.4 8zH x PX]4өrH4Janx@'GO[ & x-~ <^ p 5WP[=ﶗȾ>8R@l @.Grq]]BQgp@oJ=;pQ@Y m!eq)zo:o#<LuC7HeʾnWf!@pO-:jMb Tϡ 礈 64̍?&7dRw[ o QzTa%|չsZma-O(\-n9 0zCw+ @qe|8G,CzH/QS1 GJݼomiRWP1dɱg}yC{l2[@}j1‹% S|3ZX +uQ18rp Ltܹ;uÉeQ8|ong2k uӇ}H\mK MG| ѓx/.6XEi\+S !Cm=F8ʸhȗC$QW]Ӥa<@t 2K{_9X8=уJ@)Ds}/" 9rWϗ9<'z̷s<^ ௖GS )XeLJt <'|6NYQu U%j_}%E|<;-9`${o  X(T#򍸔gih%:)Oxh=;u,s %@}p.v![#"UPQOq3 _%Fų;/i9hםA#nXa<0 u;ꜳs%w{J?>Yt^[co7H~N`@Uӝz:t!:{5]uKLRq$r1qqA&<|6Kcۜa׆ ]D溉z`i\|4b `|RsC5x̘T ~@t?*' p{ ~p ^ft5mͻvl\G^yb[32.>Nbӭ;Ƹc01!uwzjZZʦOTP^+B@Wik#t3?ȝ}mk$Q*KTIU =ge1jI@w#wZ^9+> hZӴ~)^rmzsUj[.@l\mUCp>8ƢC<`^/Z%ҒbpJdH4 {o"6j^mM@l5a% wZN8;,)x7be-kPH<\E:#yKUT}gĜnښw]^p;]KQhbk}Zu[:vwL^;p /~(3e(e2R^&3>:~Rta4J)S@ _ wlq Ge9 1fē#5A0I?0FyjzG anP8qtbo39|H6R@d@ +`Ϻ$w-VaBx{PrFg@v6lh & AU?[\#u6` d8^~jAiFP'Z9AND9- q?bWBǯ/=Z"#母 pd_cb4N4wѽT# '7q>7ߛW`'B7J\@@Ʌ倘x4t@NADɏ֧d@0JXU a0:nEJT&S? ? ; @u'}\ߋg"w], ң)2khFj6uUr@j)p#!YVv/8'5OBd ,%&@Xz<0j툺ny;j 3#e@ Ul;O #} & 8|߶5[߿j݃'d? m?}mumZ%n @+kVgK?cLa /ĸSb ͷś@ }? w|# ,w6٠ ƛxAX"E[;Sp@!8y+5wNǍ|==@_bjOn]l(ʥ٣x (xiI >HxtS@Hc(LQV@R?8/*~@+@1ulMzӥ"Pw_^xY#47n .w/Ln?؋/Ұ.f&L"0HNc<ZS@=im~eή9@'@(v!Z zQg@Yb`YY>N5D #R".}Na0HX(1c#yOE J6:n넖Kۦ)DF 3e`瘥8ZA WaP8YSZE@~#7c#X>4A >ۉhgD K2up4|'8h'[!Edwg1ã߈a27NaXΚ=.?Lrܣr]c&Y;%$ara 0`@@F u#}"NIy-tз:6LT(7I8,3Ԫ_`D0V~7JyM}` q P'tL(9\qq^a4sIeBK߸CE,R@d?VU-ιWe !NcP]DY,1U)Y;p: )E?ZH uLX > h`\e< Rfʐ?Sh`>Ϗωbӟ'd@{(>f/MyĤEPŏ䀲2sxō B[m^@4s봿(!dhY fF0by¶9$|&R ̌V lwi/jo~.8ZuG8lR?IM(᪇@؝P #T5rـ6 j~g*n&FhneRi0`rn@@u1P+²د^l?7Ϥf;.>iZ`H``.+,E:[x,KRH}k+QY{ @؛ !Z»eL;#}l<Z#>W[΂CGf_ߧ絺Dy_?Ri ,ODޞ%v KC?j=9#ah;J+T7h>,XuG efF K&(L^@j]cN/CE) C 8d |T9@!MoLʤЯ9j1nB q7wi0D|Q LQZ 6IU_] <"b{{zS@I UF@5A̽ɋ"}VR[6&*!5u$_?y s__ʠ"N^Ȍ.zc.Aސ9AS@(H02fȷx-B{_nu'8p; ~PiئR}0{C`!f`Wort@@H;)Y}i:JPMbbϫ7M[xS RgHM5c[5N`fܯq0x?_R { ?΅!q^ Öhz&mzmr+U Z ܇yW> lN%8lWJ`_SG5+ VRnf>!](C3etp,@VN/!ŋ ׮}ȣI@Q2T!Wz=)}abbMso<$(: P.@T `&A_) P: _/VHITe[c>v✴hkZúJn ?zQ.s 2NB{TY@Eje:l=@> +Bn )Knf]>b7 HT|lӓ%WxI7bY)~L\6E+XlCj7[)Tzp،boD-C&P͇! g,q)1 'PZ _iiш0}RjkwB+$Rb9GTo!``y 013`z ` p;%7> {d+;ۇES.wz?' N~sj "J (%K['n rcz`0^٦vZuYKf"wŻdx}w? 2̛^˄K?\TgK tMRH>iE]bhڐ!`z2 c'_9y#B_ϨtlW$Tϑ0tb0FzS Sח :Qm>1(ndM2^/$m+ˀ cQ) f6C`UO~K[~YY^ /RjA " JP `0~ TIV*%f* HQ5y GR; p8 -3- ^ rokhg^𣏕O^ZJ&I.'WO0w1V}`~Dz IDATZm9ֺNq^ Jڪch٢)l5k'7 hKVLmvlp?T\4j mg8.HXbe ?]5ot@;iblv`.&gnv[4W4ic9Cϋs);][(`w*w?QJțS"@6>rVٛwU B@1 t(۷0NY@7>_.t;f1ax_g] _*sj*|c_@@a~?їu@#筋>4DJE p( 'VEQ dzW+/5ȝԷ^tX/ _z{(W=Xw: #9w*ν8L;zH.NgY(r? [.sA[)0e}˲tY@^.Q 10s-NsofDOZ=JugU Eݤ|+=v r(:i8$ L۴>M~gA퍎~CFN[" N83_[_A|K`8pMݺgضMCvEl$%oa LoP5=wq$TZՏG`#Es%4X =3>^vS8x:b)έ{,5'ҧkHa$4N\ &U=Fؗ>ߥ@Gx{]>pFH ϙ.M&O;>9G Gx0A`Z 8BƌZӮXvgtIJTɊ~,m>3?@k8g Aˇ{#6`luv;Ot%) .ҿ!~ Wio͜ #bϿ&^oxyH·Liϝ@CsġuwvS㯲3kPYHDz=li_FEK8.m,Ъ v EiLF4T I?V%vgK̮Hr =m";Y*?mYk8wt]֡"ǙѾf9 |H/ WAQ?t&ЀIf s ?Õ[lƮ"ph$j*Y :P@Ktt2"Ǎ1BLH~B<˶g!!!S@t @rz5*y23XXpM,i/΁]ocµ)gPaY[[LkT3-  "Telts'nOF W?~屆qI)<;F;x׉X1 PO(4MwO/d^< j!!jP]@-s{ٛޞ2GYB"d4Eud &UzA|A-p6 >YLg ۶ gǙCTN1#`W  $eBBBr|_ (޲WS@ef$]$*_S}0<~98 An 3Vt-#1@'XnJu!d"|za?A`?~Ӭ9<(WR/ ?’ρvsnl 1Ak?U #@[xXCz    Qok}2pqت:kש#-\F/l,W`U( D=8HqV?uk^>8PH18o[0Y; T[;V>rc=~5?(0Mb  I@5 > T DLh@ il4J}Ʉ50-`=޻f P>dZ-vPzQAU;3U:~\OH"Y쇛tQb 8äFK3w=Kڀ6 :\~flJH _ƪށ߂BB6h,Pumrmn2+ Hl `<_jc8pa2 (I1/i'P؏j?+hH-L7!5` hm[gxV]& e)|**5P"lS3    =R {ϸѹeMf`1Pˋ["uR?'-z`.bXi9`z!!!!H'꼪IjF),e^Ղ)^+b7:xՂTqQZwRcb*]Wɵo"GW=OY@@#/SEc#byzW&Xerc# Zj)/}1@ NSB3VNuП{'>} S<,u6Æ'w8\ 6+mP=v.G" PiS m!W4Pk~8v8atsT^& Mu{n">ݓDq#86ǁk1?l6=? eNWW+Xe056 Jb#`wz)r!!w$_#_Ar!W^\nmgO>[ Y'*#*;\1m|%b&@g*۬_\ZW5jݹ,[: OI 54EU* GW[84:- 3~S6800*1@f̳bH5EoSxU;3uPn }qNBxKx6Pk?,LR%(e-tݰ3xG0;~$]63jxq5}k3%'2@a+/e."~'`bҋ m t@ޓ!(`&iw@{j#޹'aؘ6K.Im;VxƔ/,&SlOT4C >wkHE`'@,/(uf=gɎ^@Rp܄dj7}.4*Kk5>\8.Y ([ X)0^! `U(xGz(|L`~/B9| K%m0Yaiv(jwTH,.]z$Q oRNhXv?E!rI~i?D!x?Lc]0?@ Z@ՏxŠ^(B9%2Bqq kԂg_{RJ~t Hn$" @ gz`)[x>#ᅠz>鴬_keL=1 ?k":!,,L,}~U=@ " 덽"rd[Bq(@[NM{$UHQvB4g;@ Ef@t9Ӑ ha;@ ,Q ba*=!PD9/@ n1PH͇) DLK0( @ ~OK=8uPįJ֨4Xo[9(1hcQw9ɰl+ 8z"6lRg#(JJX7F-T?VZr?>\dV {tŠ]PkNP.r$jgyJd5tb!!* +OS@'yŋ^ B@A)P eVC xHG"B}hO.:P*篯XRd$E@]*@v`ݹ(5:fdX`|G]Z@Mx ɬ$kׅ2d@ 8$8I"]!L)uYeNz7L"RѦ' 6(,$S3(N&+C '{Q DzBX2@ T&>j"JJs+$&%&@#{xBȯbX˗ j4^:+Prt=w PVӱowrz'T]e4M3gRkdy^C m`V`;e:^Ό) nvݶv&,!e8p@i.MK >@#Xw{ж!zd 0h Jg7l]i4 IDAT5'hS혙'DL #C@Ti-;  .j{S`&ץtA`^}m@!pF垚?LKg[.>z#/Ӥ/OIw`̛@LLӅ#oXmMC|? "˼.j/eCb;^IOX{~(K*{p9O|O ,Urj<\Jwb\ɱ8`P =cX;ʏ5{¥7lC wf 77y`Z__zP¯S%/ZQn )Jʽ6kf]1  X׼Wp[{&@%>`"wJrrDK뼭E= OB@Li3\lH[?d=`df- !d>IC%i\%}Է;C@H>wWS%* ?"7B{Sа^B?|JH? z wQ*,vQ}Ʉ.CxکUYTi؄UC@^_g.e3j@.xB@?1AeNxn/'O+ 9l؆"##Js}ʇ1 *|U@W8<7MXlsrPC`GަPK#:{Ax-E 4@N=4R#`7 Y{'S=į- ˥W"*1} @45Du fw{uSBĊ?:/_rg,g[z&6ivx JJQ5uհ;V $S{ʼf{ޙG;Jޙ(& av usqIA?ݶH%_f2u۪#p`0\W`E97muQ@Sf [~kh@Imm/y[֦k俫W// R\F˳ڿ1G!E1D;U hk5:t]hRr{MN~1}vmP|y_?/E򯢀n2o +&J]rY=YJpv䝧Ɇa׸jMPnxI{ىּO>$E06)v ,[$b@" }v( -r_ Q6,{@;- d{e.lIm $ALȔʂi t~K8\@W`u@Sȇ/ a7O.*.`1ݐIe0[0,bi`6@ҧpQ FOdAlAgzk˖HbPYXȚ.V[. &,hhţR:hp)0qcZFVְ J4_c6 (Cԧ^yLQbjzDi^ ak0W8O/0QV~f=wG Yr9n +"$ۥÒ6͝^o tb`6|:/ ڜfiD,>9LS,&!d/ǝ(04s݈x?JB1UNAs'D8iK?(|Q߶* LX՝]OЯ|5#D4SM0 Yf0Qd:㣋JaTV  ~{rT/:yTpz%SHퟞ,<ɬ_© ȧU߿H`œ`;Y(`*6X' `2: Z_ l?˚sȳihAP Ze}@U/@P=ԙyzBT:2<>.)_OF~ )r.}7NHTޤ>[5/Jr#? WsDb CP> @bl*U!;|O /0pJ׃OZcj/bTB良| n-`F@ZVR=S2$'Xޔ^W+ GAh/ APUz,#*atoon?j? ~.gMk7&Bk-p  q3Of$X3JY׮~O2ۥG8 `XU _M۱']@Yޞ7w tĉkjZ}Ane߽;8v_;)Ln6tk'WyReG(KҬ?޷y⌒M#Gޜ "8 0ԅx]8(QH/"DDCx7*' .'@HxAygr[y 5*|8IrtQjj F~˱ Х#/"Z I1R$)[]g- xA@eidG>r:: hi]yq05y]5ROHEo9vBj&PW [-ia˱kpsg#ٸx۷Bg꿊a]bk]@)ߴol\2؋ d,3':+}hWJ{DlAmNhk4z}1ض/mky9ngfx՜?Qo>i9_2"(4[*  bm a@ luDRK(E,W@j@]Q-QrQGB A*X8o -Ǯ*uՙ:=O EZm M{*۹^T w )}އn˱`sYu{TQ$#v]UES. xI2]@Nһ[#UUNt~}-)~p` QKHF@apD_WYo: t'QF98@ޒ_͓P8p~\bv GF4'*l< ݝt ~(3% #X;4tI`r,–!̖ФNtr@{0xa.~  $A@x s ?4 GLnO*>Bz 8 4UoOTxX>|w3 H*_ ßwڒ~:adtmw 0c|G_O^(;.GQ%Fm= w^ &~=CRV1@@5T 1mR@@@%(UH i!Nz?>@E^!@`P) |N˽p i :KP6A'G]Hc @w,1Ps(v&.F0+?V*A0br'gLEm"@H Te>"J=[~azZF@&36G#at!(7^R's>@d_ |z WVu*{΢@v&#̚j} c^  skǫ-PV=Cӊ97"%3TC;}E_4^s^4 {r #]de`3$;ۏ^=WЮ'1PE([GG]&a c@8foz ʻ^&a8;ېžםxz7ٛ?faBKVjq˫-Pտ\a= ? w3_% twjC{)H"GI. @[ו sP':v5a$bD(t]!g8s`uݦ{ dD(U2nV߾ "peK G0,0ͿUXG\)< @#|hL;R97__/*S| 96f4~Bl֡u$]cI;l.)-xDިey3UM ,|Z0z˟?Vx,P;"8Om7/n?6C<}BOj%@| 9Znn>K bYN62ε7vyͶc @y#i7C$5gc~oK ]I@7eTӄo"yG{ 1B_$w|D7p ؎zrD@#@&#)@S"@\QˈS@xS@ /U%@ 4 4F7u: шzO  x QH{}D1n/I/@ (ͫC_t|1. ӅZI^s+4Ӻdz_N5c/)3iI\y.D)OTgPiN2-@wIDAT Rʲ,mq޿M ObID: ;@$K2ЗfS| Ք'Hod7 @ B{) ֹ7Bg84V) Cq(ÓDſ!Q3G)89H!BB :+4ez!kn}A_롻+dGɓG2:8/H!jDSU Њ2k=_*+)u:}Xq˨dAUpr qQkzv׈Gz%߳C_@_xqkb j8j^kp7#eB*Ya(ʠЩBוhcOezTFG!B!B!B!B!B!LeVv"SE{;ib_/M1G" 4O"|b}uo}ԅ: 1ByXfR+,WGptBꮍsN6O %S7.m͊kԊɎGsL9 "S>UY(u+_D5mH@{6< fh(ymV+&כm'bF! I R@2h(9{L)bz_e$@w[ À "w *&UzXhN}0D,D\>&U׊V,߼Lku e|? 3$2Cn97VD;28miT]/h"ɮ:A!1;i  'ۻa aP불#`4|&iVc݌sǴ3ˎ̤yY_?w Goa $I(YGz0DmEeGf-VϺRkMͪR5͊T<ζIENDB`ggsci/man/figures/README-ggsci-observable-1.png0000644000176200001440000006055415120434214020610 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$9PLTE>Snĭr\DjՕҿn֟ NNNv}}z IDATx읋v8@=̂;$C2Rj9yNpB~&(0yJ@G@ 2@phL E4@afz{2ݖC>K1ܔC> 7MW:C>}8 4n.͇|7{[zK󡛷|?hDd617n.͇no>#p[5Ad"Υ 2OO)͇|9c"J!@dgV{oѼe)@p  2@  /  ~s# B B džPߧ'#G @so]X0,hSixDs]}oMixDCe͆׹pF"d%-6C xMwK nbT^a7xMi_ \~/Coh߸C_jpl ;~߅܏"]Xx]̵~+ΥC0wVGq,rSZ8-y 5WmW,lߩpMPpz 06]eL"%*%o  `%UXUC1ΰ`BoG(]X@yΦ%F?7fGk+G6|w NIWX/ۼ;X/E-v  Y& x*;M2 k\yN~XpwO0;wQ"@^H+0g|WF ЇvwG Go lINƮ#gy y~M & wN3 #Y|NLz&Y]3YRU_G=; = c`[HY] 30e7qpY@9v.eg98;H xd.Zp.._> j?$8ȕ%bp[  `t'p~:uw8]} nI*w` {+ @7qe Ka":_\E?e<.Ү EaؓM@SE0Km~|gYtvw!djXwsQ$3x:2Ua?6s]g݅aSeXw2k .w E1Xy\b'ѓe=j,T.zIX{i;2'! 6w9L&Y wO _6j]Q۵ŀx(4DT`@U{W`u=Z}xZW4 @I,dV7x>Zԯ ^ zawkB/g@O~oM3gEB}\q. >gaC;=zסϐ^-Uqh]CW*{ {~omL6CT'L*ϫ)jf wYP4V=e7:V1vt]p+b:;c('4q%tǦcUXV+z߻$b}.Xz}RjP˾^3bT`}'Eq}WX填OF}%<\XRuaQ@eh[.ŒZ_" c7MJsK!@l\m^ɉ`>Лq>Pӯ}ᄾ?~kHE+kjm(*F|w`|1~dC k'ð ;צ6|;hVg#׶u;_p,ږq:xg>zͥ |!~bWvl? t:kϠM |e@WB]eVi[k߫5_?!pd'M9պ!Ük [ЏQq2-!~ֵʿzLO [qHM'}&E0XFp`vϞafT!s9sèSׯK!@Ha_r>V t>7,&\#w&Z@ERArlǎvVtW4d8}ƼYji8>pw6TIɮI\WCdk}z*ȭYws~iK,p@ÿ)%U;<iN~WCd !>#_@?(վTWK} MX#R 2@ d nĆy2ꠈ}H[i8E&( eי@?M Aל!~H>gjJ5^~K@@ _}7=8[mcWc?6 y' L:Ym/Iy'+"{1XCygpޝ`TvG}G xaxAOX0TOs`% ;>g>0\WXeG-4_o@3!.8'yd1=joS{:E5>z REWU]~Javҧ4WF/Mn"C`HՓ* 'L$;ys 36AK 9 UqP2E ~0hw{qCqWOd6EX#olT/SF ~7g#@q_os4Inܦ #[*j0/Cf/dU"?O#nxYä8I1<݃}dUbç~|k=swOUrMM۝|V5 2 m"@c"@_+M(?~*&=!=K^Ek\-Crc6=63F0 I{pK`ePQoӾ7"&z`2owC@{Ę8he6Ьб9I`ƋvZs.E/S@ (0 Vehq"W=B#rENO /A Oຈ(ξ` ͗j/ep;ai]NSYLZ?fbƼJ] g"Ϸ!2 ~=X'#W1 G7^<K"xr! NZB+Y@<3 jҮ  d/+#*E[+ -v#3~*2mx^ߎC*DXU7_[AddS@?Wp^C('S,ZMؓu{Iu٫t<(6ڳ@V<`?(텛 *eYϺ'Uk~hM ,6-}PV{ Eȯf_VS3 JsÔ* W9Vɋ?z_)J@pZ4AHh5#!!HtxVwS=GJYI׊.2W n_iTbx0?͖1[o|bHFI7&Ea蹞r͎$F3]`HW8uSbZ E Ջ7^I/[{t\Ppx'眀5"#8?Q2zn7,Hڜ|k<-wO>({Pv!L-Qem 0?2mHp(bYhj?{7u'Li S6]G_./CJm:K7~V:F_8dd|n7e@Pdf? FU|RIwߩF ]&F\0tvAYcWA Iky1 ^5S.KǦ穥hD7ВQK< & FuqٳwNHbߣAքۺÜI@E{VDOWPnVG+{=MehS#_[/kYү:п@c þ2ܐ5Z a nLi_xd"JjgihzxuT &;jwу낈vjƎ?H4rԉ 뙴n|"2ۨ}?fh0. RY'e0K]}E1!f]\QyZ t T ?d}򶟴#^ΨZ+[1tK8ӒGTLLL~]z>{0ʳ(Ks/  tw&&&^u{e dLtJGZ42UcbY:c PS%U@̀B-LH?~:ſ~nՒ?F gцN05 4nBB4?!KKcA!yv|}5Cȼ$Fͬ:\Xs}4"4%ؐߦk@ EAvT@7 &&&&Kѽ9*V,2B^Y3g^R2>:|tg.YwKǽ?]U-| (@LM'P* x03KO__y^ "V6[:Ry2 Sί_5u.9ՋYSH1@Vf7SLLLLxvښoSA/opunlGq.XS&}\%(````5PuS,bxVB8fcjBS螨Sը\:p/f c%M*KtT&TEWgRhr?ݿ#c```8e38 vxG8嘝 S \+VЙQ }3D $?Աw IDAT+C41FQ PzD0o,1'62OLmKL0sՒr:όIo}Ȓ V$e@Н[\B]WF&Aɛ_ZrpRaX!*b]﯋Zr&$lM2E3H57.Ag>oOUڅ航߈>+am_G5L3B 6{O mkN9!wbyopAPޣ!87ǃ5-oݙ`(*InWЀNWddB Ca)H/Œvd ο|2xB{r#!1exik4y,RYJXsR?xqFy";\ v_o`%ߪ@=)@~TP89z;el e{@tx2Q>>F1`;A`,-a},AcN;mdI--!Oz[C]44j/K (@B>(O=^Ͷvq☞(%qPTw 0GbHL``OfP5~|.ʯ4 XҒ(< vv@p7ٶ6j]O]g&&gFK6OOQVZ%I߁IFei RgB& -@,-HʶݐfWPu#4`:T!EЂ@ĘF067```^OžR:wdLL^s_@ܶ;aYt4bJ|Hp@s+ŖiD_| P 'mZ hʄ/\M=2'BK5߬F\؛(y,wowqnnWo=;LLO) a\S r+4 YD=UH%̧t%&Tl7JnBfϖ9jXTX@QCNf2#*;ifpa)x/~f`x<])Gt nui࿄<~T:QpvZu D9 Ϩހts*HZ#q]gu[gU.E «өyO,|,#Kgh޾ʧ菺2wW?"9x90@3 )ɛ'));'Tﵗ+ 0c#ՙ$IfU^A.Nmq/d pips[6RzHƋVT^U)WՀl` kMA/k( ( @K%$= "0V_$U,ДoTEB~^O?̘_ Ohd'nǿ @;ꥀ `sO5kTY%u1uM|>OTcל [<ɔm>$͂DTũR@ڌZ].6^<-~3alǡatÑ7@Q;I} ^*GժtpneX#߮tq0pifVǢ~ =hefljtG]JIkQoqe Թjt]1N)-#@ xi?@ekq:}[<o~,Wmktsw-/|| F_O @z1N 2D]ZpDn 7^Lp@\kDCE.b9`trGf?W/FG-+r D&S* 6ئ3@ Д$h}ɓ&$hd'9 bdk\H>jdǹ$vswTSiJ2 SL `Dhnl `/GMEZP$\ օPq悋B /@? F 8%Np?:^r6]&{}x }/Ӂw"CgLWM@d2~>ׂ˿R0q˩o`?E-E pڙ~"I`KDi5W`}9n P0@Z6ttߍBi\jL}{ )u6O;>k4P9gZҖגmGvrNo!*)F &P`vBbYm7u\ʗp=`O )5PY Y^1ƫ JUé2< ۵mؕ,Z@VA R?m/.̛PkM0}/{R )#hu{Ƞ۩uGQi͕'ُlxv +2KL'g \&΂š蛩)F8`twB0`+"Ou\)9R@P&x+c 606uw+}~]a-]I-StW,Ȯ UbU${@%܂/.W*Ͷٍ`%lw{:|>҃)%5_k!O:z Jyw z]&2AY} EN{2Aoi miN)'D??Ӄ) sDP[bc<n'xJJ Effx4F,.ۺU-EL1l5}1 N)wB HSJ 8e E>y^Vuh i'0.+ S\*oi?f {H`EYv&SUl5lQ{9_.T!v7=OI @pvm9ol=/^1߈{uc? S\f+9w{{:u|&@u%jiߢox'.wm98.GS-ά]`Ef4th 9 D]7kbќDfߊl Dh4Zd _kst ̧.^9=p}F 8'pZ\/d-h?I?`cfX!N}?dr"{&H=mlEcT(Lw3@ fpj.4a~[g9&erdЫ}"{6LjnY53 dZ zidF?`@/ r=̋Иv0 \@| K@JD@ <[[P=!,j#.ʞ;_f?Cؕ1]@] &:՛b!`@#hdc墟v:b ý}ya՗CJ4Lu@ke!~6$u+H{#u WOm\qCF/%6K"9/=n%\  vQFq YaqnsC~Cⷃ?rv7/)ZKZ@]  5@w@Lۀ^| 5v`:YEGz (k @@{4,𚔽/&5nXzO-GNrU _IfwMf ..VL^+.s7@1y 2&hW֓`Y%܂?B"urB ^9cBF 7y z8BVEH @2@D㳚pcbiqỀ.VC+Z-V4hYZ~LXv՞41 (FX} s^o-N7;5F Nj;FU(K2+p@m2iVfc\\[jrID9@\Y4ږcJer(iXbĺvnk_ uXj# zHˏ;lÀq{\] TҝnPʫX @<$eڈJo0hG)OcWlَ`u% 0n5_zP "~IiW04@)HۀjT*cV("nJfn1 HzgU9SAD[V ƄGƒ= ٴDD4ڔ72l 珵<E7i=#%`s錬k4̶6pKy>k?%E 2ams~qfY;\I X3@<ҕ}wJZhO}RLe `y ٗ R8%'Q%*& D$!SM@H,[h*5sNvf+5,t|w}$]]B,'dh6k{ٯv~j ^$S R#K-rqFurH @p_.\oV̭ dMP AW~R@ d^u?ftYV>m宇Y. 4[^(uaT@yMD2]6 zx*^O"L@( !5P,Ѭ_6>ƻp%4|d(0Cx|?g2'"lo`Yu Pw6f{l@VF8/n p0`~Px/ *!|,Rz%m&l;ˑߎrbA힤6i` Kt_zV70WG[#r$6fp]VU)eGuC A~~FGIN$fO5ȅ @ܔ67?V`7'ËW˞'&DwMf wV%u6lDLYPM-^d3!j*Y+֦b 8 T0{ zc6s/̍f }C@ my@pND&m ?IS6 /w@(D0ѵ!4(Ї!XJ o L@Q D~1>;P:[{FY^`ӲKxMH\P47ِkH>5vQęqn&9nx_pt#?,M1 gZs\/| 8똦b0 >K-*vR 'l lM`p$t(KUN,{@|-g`51e f.uR${W]2q<-GڮcޕL4E%| ,"y b)e LإG9 U* L3XH/6"z'%-'P|ms\5P"|NjOdޛzm*@ >VDdo|?x.D* >xG >94 drl}@`mBeZw/;,2xxClln>@ GeMvN nNg$0FK $}* 1_ z>Po>@nњdPOg4l؞i( lC `D!8Xv6Oֵ?m [^eivUSQ $pCWE@j.3(p!C=7T~z}Dž]݃ [JqT) w:',(*jѪ[pPFj\wNI!L*?RܾBxBg.Qq{ A}qPgxP$fOK MuB*  #^n (Z 墿 ևPZzzyyYw{{_@eR20^l~fK(W[`W_@dM/_ /V>wP8>boGH/zl:ƌ ӤuǗ!pv@t@Uwצ[,TQ,.@SzY& K0M冎$l}@i|)|;#W 'h-T./@S~' /4/]|2fC8"gvA<^z-V @m/Auwu8@ @ 8޶%(& "b45o' /L`!-2RE+eKG"WIy H @Q@ @6 es20mrB~KKUGH~NZ] ={JJ#|~ $v?J* ":˔A`[15iH bDTl@|>bW v[@jkDmHŻOU?@Sx~(K oyKX%y:RC~DF|-@LͯMQ Ta; ԁ@_ ޤ P i6_<ZjrHHn˟<-n@͟V_.Mg\E(,MtÎ jQ0Էڽ~NUQiPJԝʦǕ_to+ Lf6 + O1YbG >3[-/3Xd;R=_:@Քv(ˆ^fx^ W@!зPsG RE*"bA+㞴-f/> \I@+;13"zdWyK_oKC]oc-#4f4pz  p"`4s*ɦho~x&\T$0@# M񲦋z |s!~f%9N>PX PߗOU3cԪq =\5 (hmflxUbGgfl`&Xqe59k0c @< O+l|e]"% VߵьW@f@T:0yH+p4گ|e/K[-vsZA_(Ƹ9{O+sԞ![O%$8JQ6G B>`-TEX۴_O }m/kʲR.Iv+\ x 럩g5DqSPpx/,C~I,X3U@`2|př؂@!+ցJTJx{AMpp+O'o3K ‚4@rw'o+ _;j5| ax+Yqt sod<$jU4U^T bSe H7ĩ p[a`;qT񧣉S }m6P85Ɇ?d&N]-y p-r *nh% V[bߐoT @ 64Mzzo޿goqP|WӟM}36}PṪpTp7 Y_ ޾*&N=fOO @^?} % CRͼc-ߡ>Ӟ~ dn ~8(^4MZȎW[mD%{ oE~3,+e*˂ڞ#(\g$?K({:8u$LũbDtiX8FRMJ}J]~VWBOAJ(\(e5mP)fp4qZyy8eC3~*fTѮ {U2J]1 b@ : lh-(围& Q cp P?[QP}5^]d"@G'ܿu}'Ba (d ;z/ XtȐ؁^C; LXl=з Pd"@t F!e! `!0q r'k?{@JQ@W*yP堯 {JٙX_ F5{ )ح.@3:E@p(B+3PnmbToO$zD)EF蜷Z@@Xi|AUx>Oh,뽷8=<̑qTyo% )3e+ XƣGO $|UfTx4ء>pq@|VXpS[p .o;8ޝXtRw&sDY(ĬTx }r3徃DԏgA3Т'B\fw[b}'X@v]10&C@}ƗƣrM=sμQgta \5h<#9)0 w=@- w8O|O=}[Aܟ k'u mF Rʠ~2BX`PHP–Z_#@Po ,B@ʝz   &Br?}* H$@ /89 r k &| OvnA $J g"p @KYlR Q@. zu]**?~@@)9n--7 rCrZ{y^@ @&7@8=u4Mܛ   ")@ DFM@ $ Џ1g(HA@7@+ @ @4@l  BqȜޭAT "6>@PFT src]<@d_5>=M"o@J PȄS06s4@|ӄv N]_5g@`oC? ^P}/^ΒTg,2OdkK$,"*8Fz}/Dgb Od'|M_/o-.j" @Pra - ({(μl97%`*ãr4M`*$3~oD *3V+@T tt72sYZ.!*8tKΘ۠з;#*82Zڠз;#*82<_ڠ\׵ 뗶XyƔЧ(>f8 ӕqNm~tFW (zk8[4J5UIdOA_"pIA_H7DcsC:NRa/FjSUdj(tuN#zl'΀ڳ$/Dj~Fa;裻=z!((Tb=4F1|Tcs輝^R_~r}ӜD0@uCɱelu_{'ͬQq g?KHc}bR+뱟l( @keC)8Da~ڭZ(c@)gv(N v^f 4YV"$Rz{bX @@EȺrj oSh_ ~=-% i $lR-vΈG{NHv[iXQ|h洡S%D!0z;if7IDAT@4̙֔u (jPR >@ef%w hi׼,?a`6˽~ǡbubK%[A<a B\k `8o: k3=_|IENDB`ggsci/man/figures/README-ggsci-d3-1.png0000644000176200001440000006157115120434214016772 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$ puPЏLW{!@doGC霌5=Cg^_T "2xh;{ x<`|؆8 M0yo> S.C C\ Pq|!6?"30@dk>@/;']ǁvț|! _] @DأD@duUT4}[8$!ņo0a1N{  BK\"{=}_-B xpWX{ s BBy޼8^ps(aU(ʍ-e ѿ=]S/;)b=I2@F*seYX;Goj `bhCђ`lUNO58. خ _mRτ `%|P۵t3f)B-7/;dyh6< yZ?\inW"k=5PT'n4dK.AE#$ ?\x>D+dWAn/ld `r m%GMzm-͘U7ɇ -{Ħ$~X@ `|U '1 .av"7~2@7˽ۤԀRrJ"S)BG:@#$JP70;5zzmV-SOJ'?5lZvju2t17uߢ]ƛlC-ϧ|6!`'nr\)R9lW  Ou/#h,q259DT;=& (Ny^@[Y|VLʳ= ^ R]xϑ_JЌNzV9e2Vk<%EW],vYzS0ppE&pxUTCN 2X3_m=1pGBW %Pz8h `*E }npLKEFLqoJ7&yO}VopQz3*>FM{uVkʐT!xʚ PWٗ6U\ 9LlЅg>\@ }$b(j\s@&Z ^źtC3͇s^|jN\1sxj\4^^1Q~:^ջgZϐ Oj Q~Ȼ(3<>|\/+ѢeK/Z G-۾ @`v}Qk BWwjgT7 |2NAZȯ"b7N8|z-ozѺ8 d ?U|q>QPOMb,|/DEwu1_:;͇op\olV@XI 4+dA#zM]&!)B-Rj~Z`s^("FW{>Ex˄@R' j\߽&[;${Us5*}#+S뽄5˟9W_l/U|e`~U:\ cdK?(Z_ [0sYb:辆@橙~z?M۶3< pdNG@>/ -e.*6u,YF/%w?[mx5-)RKlBds ;W;͇67k?7a(AOsQL$U°4@}w=ٓJ&1u_Nr&z0IT`7,[~~d~S <uvH~Som! (~p=ɱC+8@8;0^׉Vş8Hxd&rdx^J϶hcà7YOsM$nTaY$μg1 l A A3p{g }=@{l<I;`NuWDUk=J?@1t"> "n5a&-A<OsgGA о{l:j*3]!d3\E\oN;#3d`@<=XGxcrc4گS&y@u/C/7g;)7ag7@/W&*]^4o4&U@q0"rcx~ #Lɖpo,8?Yc}]H1?[vYAЕGm#$ r|hq|PĀKe,2꿸򗵧U%`5aXZU]5%3>)|S EkzˢXVOH/rLn !J FE @0/"bg4+ auoP> KG%A2\h=G@L&u _2P>M<@" aިO8NHv;  aF5_$%["$c/>pYVG"^&@Cw<"ϟ84k}_G^P@cPϞgNY[K M;s^+@*9 2Mq$:75QB] Sa0糂pO_/@o3yO SxQHJپ铪? `i6* ^d~s0d@ɫ| @ H ћeN،13{G `!TwahwO61?W@.a ZHܜπBڬz!`6Qқ!Di 4Gt0mI%e\MLB@Ђ{d% O69otp"X[osuv8|¸ Ɠ>OB h L[4;,+!'=f3soR8܄ 0[#b),F R ! #wGA䏝<ix|rWB.Hb' s?7쌴0Ϫ1?rէkڍ2ϔb7Gm@!>@AQuY}:]GWi '@ZkQ!t4^_F_q!Rqds&?*߽@]9S*">^y:1:ypmo'9T&= a>3ٵE!#Z#h;-.`I<. 4 t "KOGt.3֦LxDBY]@C >@gf19UgWhoRa] ^>F$[mvHMow! V~C{t~t; >c:9XT* @4S@su|@E)?ϵF3Hgc@? }ШnGzS1 RW=RfՠxVSxt]ze& ,` hkXS TM;0Lb<2E%|J|h oxƗQgG~y'~j%P@vx&C@H4Mf5q ưa@x:oT:V=,}4H0Pkc@Y|{@`Tıw`7)c@$LcɐqVI'gж0ӊ._[[RPoJJA>Cuy~Pa|#=~v#v`;z`Z4Gms# L#4/c;Z^j?+2慶M>ȯqo a2u ME/g;j~ƙϋI`%V=0=;mBZ@퉿y#"üQz45 hz9V]<8:,s:&7Ujs.Zs =s /)kg!b@eƥ3aلFsUH IrYWY q'UA'`=@8g<b* S~bA@_/@FF9{ʜqh O0;_@ ?Gw?6yգ ΜQ(5vȳ;:lD-"/ @#Pr9m;@^ԮHaS*8_fޙ5`Į&oiRfB)!0үy=mqC)7M%7$4P='Yƽ[u}(_iB*$ S_B=sWDڪhmѾözDIAx5ؤ;~T$.C;71 $@ݫ9YU$8]sx;''b3G)PhRUNݢ`0xPշ;ܦ(y)"pl"19^0l{_C8vdw%0"Z~8S K SC@.Ih5N`U3i)/Бq|.y^K(j013 ! `\ h17`zʺYR אU}pfGYZ]1d(>~)CAEBEudLӉk c)f~K+v9!dY zVVV6G 6]h8L,o.Y' _2!0Fcm* g`YiY :E0 ^ϊm657EiY\p֊53+KVƻ2>MLyM! %Yx$0P/%^p8ikojE+B|׵!_et(44BE8LP4r`Pd[>7=,>DaU$ToOD 4whEzRAV b0~- .:7M/̿TQ]`"Tk "'T.DO#׺? f a"->4!v|VVcjдI;nT/:tE} uZcl>`0~~Y ϱ2%[ 5mYoשnCa`n4Rfb":%p'qGiD0 o~S5/s,\϶Gn|Or*f^ew+ʤYJdjSb`0~|7t!сpa';|x$S`d[F_N +H]gL~KGw"M#\s3U~ [GAHE UvgSw-ZZ/] ~B_UGm= Qb IDAT^@p)/X5 WPG@~U:*aU`0 _r@c%y_ݖ<ീtC++ &% jG!* @`{*:D i :sŮ7C ;n?iN:=jQ t(&$cߴyc aJHU!U@"yx`0"dO ZafŅ< }dR@h&< 5(@$@z6Tث S;{W`0_@J۱0Ydו奐鷹pd I\WFTZ2Ͻa@<!w`0LggJB@\j!o/Ghr-9FvF_eREծ0r gz &ϠCmdGTıOt 0]j@椵,`^;qX}zU'x8? H ]uzB v4S0v%\u:O} h9P7~~r7Clp,=CƟl5!TO.:f.#*@)xѢ|)PՄV}"$Ø@6z o{c0yWxm;q'䧾 >TǾ7_Q6ju7ay/G U (XPÏ_`mb@A`Fk9H+hU:EUG1bR?4ߘW{Gv߮J  =S<ޢw1@+6zN.gW>_a:~Y mdWWH~` d-ݞ쎘Fd u $I@6O4ЮY7]S|x$xW@B:O}5oG94hH.UexDn 3E 3 lL"oQ#NtY  $h6xj֢E> G@#Fȫ h*v;>]*0lIsWǀvIֺ .XFc g8]:Bmy7%Yl&*;e s=VnȳՂ,ee}8523 ߣ* k>`qpٞZHA_o =wj?3<9C= T'Tx N%,E!†7N.;52/a3^xn DTƿMqWwo$*P3*X pөy>^`|?f<4Ry;Z [;5_:Q@QBӢbUߜK5n?!Q-AK#5JXb"@S.TrjAM pA3L@rtꔼujNꗬJ~d @VmWd+_!vZ@uܐ< ڌk5s@s~EY* ]uȉiW`tMƫb0m`0Ojv]Q47mw-iJ!"*[0^+iIzNzĮ3ܣL>?{~wcɏZgJy؉D哪V5nCO9 U{v5&$@@sOS$ѿ9"@V:5QwO NY$k% -_uś8l3MʧJK )jh5 '1@N +h-ƀ"Rk';>pѻ5d tNWYL6F>o]f-B>g&&&OgH_:̿qf$ZC@%fA&Ho42]QLި 9[ hJmWE V"/!zq7 b},a˼ ;Я:4N25 }XMG- Oz* Qup`LaNTK,r܀[;A0 [1 < }D \u"NAh5/ ૏wf ծ;nؖ\D5DV'Nbĝj[/tż) Qסeڢa/@j[@5R^@5 )e$&xT5pƁT@=lԩH42 .\Ԋh,/ ۾drLLLL?^ߞu&H\ҡv}!Ɨ_ߜ}wvTztq/L. mx=@J 0ȧIF1f` {=(\rgI;n,n3!L e]߆!r>7$ak]R3EJD ^l@5h{LLLL?@ VMRniI[# .̂5_+Ifud@вn\h% * p z/p!NԺG=%P n hj9 D<&uv.՝݁2;׼͆{B  ; @4+JDϥ ,r;ST&hCsޡNT=!U:*7Lz;0AKU r w hW*u 37cK,V7b5u"=*|% Y>σLg+j}|&4 hjk@ZV%W$X#xck AP hjs6"Xh:`% Î7pf`8$o(W ov\FqZA'ntgdb+d5>R4:ꐣJ4NyXucb`ps% Q)_^y/DeƤ LUHf#0ć_7nAM"ʵD Y1$b z3EJo81 M`ѳrUm%P+p l\5a݁K&W͵P]/~]H,=qRÉzlgep3oׅn/Gŭ9?OnI?-{9: %Lymܜq Sa>m'Bwdz'9a H#hf);q)h]sz䒏t'tEOǴ~OpH8*RDQy/di'M\47̚ VoA$97MU9ݬҠt~ @#e@R֍)`U &ja|0dgL$c/c X9.6R@9EPSa@#vZЗK+̍[:ˡøF jH\@SDFP`~r6?؟eLL%z@aE7F $~ `A{ٻ; V~*W} RpRr@ęde5rE'S`W BA~˙HǸ,'\J@m4 m Z HT rw pX>IsץCw}t[  u(]k>Tz>?6? =CS5 ]`kd3,E^ aXV <|<Sz9=@uI nMPqe mr~vOqT* eK >=&cfU.pضΪpxA'Wϱ l fTB%? (Aj?) #}ݖ%Q(w dOȓ0 هr?bA3C6²IbI xΡ p#_8'Pg3ahZ+F.YIvЯ] @0V ěN5-F=i B(1 @*p NG_3Io =>Ѫ]ɗ.P8jc4@ @2ԠOwx*fpLLl PvS=q(0VM'}v7ywN_:%&굝9VL!"ڛ^P]^-}L3000VᨍF9iNDm4rrI$ެ\e cJi?=hyշ4ߊ% "S];>vBs^"I4&UR78bUtWM@)L=c```B hzM `wh|S_`sY΄:I#_TuAB}C`NPHk@E`q^@z-Ə?Ok,B"?,^ B\{g( ab4mhh(.r.֊Z|WDU:ؿE IGijJ%Ť()MbJzY R@u*0Y>ht2I/o_I1sQ3nS|GL[@M#@@F0b oD_p6OEh \D vy((y 6FM H~(aP4x]ͨ|*[*  M̯x?VS"G~)P-{(HP %\" b7ՂEsHx}`?Z.#ۼT?-౼]nlIJjpE 9p8~=Og hx3+t~=O縪uB*h Mo>LkXUI p*RE@S##pƙ Q lUG |u>C{wZ?957$x%4+aR?ȄcX., *hתJ-:3wH\)P,BF1M?,.bn.=J/~Fit@1UZ@Z-tЂqJ9D&@(xPHҵ}H`a@(!T.٤Y*2 .5+T*4P*dg0V$F`^CKyf;,a*ќ}95 @L*Z tLqGj]J)1bruDA7\b5*aEiGvMj0s* T&Ufj0MnDpYp/x _mOJ@j~rX(@ X^\Ch_;&H*_@*12Lx(?")CTm0# ^1Ury4a*2Mo*[KT(GJE7(F:u:ʆಠmfpsb$|XI0I1,k{bs^x .IWcnjxVq:QWH1/kHo"p^3U (Ih Qz؁y+z % >GzK< O T*3`y@~Bs*R2Z{(uoAc?k5n5{r3.\T_Ljb7`kx6GGu婠vUb cHzYvaye({-rh-O`{^s2zHw̖Wc #D?#ݸ/8'q^,"X&Tϒ*cϓ}l}y}XÊKI`[E;yq.d0rcXк 8߮WkqG4o zH:5b7R@<쿍 Aƽ7!Sp Y@T2hDv_bmѥɍz:OZ(fsy;yb)-km0b{s%뗏KְLR߫>D8~%HaeSB;<-wZ&4?s IDATT֛R_-tuQ9C@} .^J*Ă^M%jui"ИFx%X|iЧ5ŭ0=/692>H0L8ajVIf^8 ^i1.+\+=*Ă!M<$1\Pzu`..j:r#^6#`8Ŀ"plܙ1p. KzF0>@V#p ~2C.{ 5Tl[!ѯ`Zݳxn;X .gUs* d;3qm )*<vz(!Ȕ]Qxɿ6KE 82)^-^y,k̻M܉Nܝ8'`Ж=h6쇪K|凛\_TqbIJPf E@&,{eեѲQlpxo I@yPbm+[UϺ)_1-@s|hgʤԀ~aʊ`rZh]Рr;Ty:R TN7X{v@ئp,$?m[!F <y>( ZhnFIh4ݐ#wrU3dV7gg۸RH?Z+h F}K 'H-Ԁ(n {}nγ-)hdڡ3_dGxݠuzU4Z5&$Gq%<%D>#%cI%_  U(u> /M[_k:q8v%}{,/3I ^}(NtK'{͙{09:Uة99g݂uurxCk9v48ڞ@3~3rь`.O6:9] lXP׽Vx>>0!4tޙ{c<fINzi{y&z?]/o&`lC`@L3{ɷLZQ$R" bIž7Z26Gr<'bD4 {;Tz=ㅂi:bo>R9qK+V|&7 ɍęV`R2M=CG`Oo4gPp@ԃmULR,Rr!Rto#  |*87$]3{ a(dQ]+eM5X _ϑMxx.zM4I~ 2x- 4~ˊ7 gxk嬑o <ߨ?q{ >vO8dţ;@L7׍$kn0@3v->fүN!0_w)fSԦä[iZ4:i:g#Jej>.PC7+"\3`v3iڐ.#LHQߛZ )~U 2$@glZ{FʼJ_c~ xUT_[s44Y#2499z/ӈ0NQ{jr|Yo8 4=#R#;> #1+M{'ZU6@œ}jϳt98\FT,y'!WdE?MыpQ`/2 d=]kY0PIC`9'>ęEɿWN]sEBCKJ`Vnv< xo'0߈$[28 Tg^$I). cM=^XbmM`L;bS!˝Pڔ$3i*6 n`o{"+W2o [D@0С+@+BvȤBm*ZDgD(7BeK4T GzSkyA Gu۽tPTA0q2 5i`%ah3bF`,$=ĊS0*fO!4Z-Di"/s9YM'$$]*hVpSP7 ,{Cw@Sj+:&k`^nW(˲wQAr Y(֕]@RJi)E)j6O~Z> D$g߳NZhx[ƿ?fƎmk[lӦیpFWZ2pXt6IHڂw4k58ZLcs`<Nh]@YMm]"15fe;,>V_O,6p: [}rk,4lc^Ui!R(Ir ' mH+rJ=ˡ @8vk*LS~E-=_JdJQS Nt?P˻ \zC(L{DѦczʹ`dzTѮ~^V#ƿ]g9tzj]h0s J@VL{zDc8pȼ)R. (]%;ZJҏBp.6Ѿs -*yBl B06ր=#|B"r NR[Ln 4`HZ=ju?Gl#?P]UK)9 h@6Jo]67QOPA? ,/>{%LK⠹gC\9A?$8ǒ6f9L#@\Uok؋OU5W" N#!SWZ& nei`ڵY˞{^@n`(˗< /  bg6ZAp@ÚqMsoF^@æp-@{o@+\I$@9;&"oF@ 뿳4ۋ$@7Ixfp}D0ѷ & ?MII  `.@8{oO'8ˑޫ  o e  29~_w9!!VK@ lFS@/˳)}$Y>րk˿1L&  w/&\l&A@ sF"iһ@ ?*F؅@!|#l=#Y-H tb:gF  @,Qx^@|W՛O7>=@@?ۣ:G]Z[)C@ !Wy@M# 6 @^@<t]V^O|@e!OT}   dx},s@S!/SxDj4US@@<ƫ'"jg% [h?ux(nC~G! \+m @׵֯  qi0-H8f/i(J`C,&0@@E5$W 2  H6o 0ʷ!B9 #7 dWH B!J/  H9@@@A @ @O˻VRQϠݏ#@P;!@ `sCWmA!O/ B@ z#B$?گ[)y@9[Ȥ̽/$$jw@er(䋕B8րg \rQ@}(6K$@<H@7N> ԛiN=D8;"8 ap~@ToxNW @Bl@@$@ܑP4浯ڹHp6j">A_owFG$83Zڠз;#9~iCwtFG$83ڶ5 yJЧQ1pZ+ eXpi+|9C5{]b$hp)gQ=ĸ rXڠwFgxMS<`_۠wwFYLFGZYHk6k?t:\inì!IDAT}Ngt" %mۛL= qk[#znO@}f C#u@߱[wMߴ^ju +MwI+ҎBFDXϽ{'ͨĈ6mm?u YHӚ0Q @R,wå!ZtbR,޻[ν{'ͨ| c`o6И @N_l]' x?tEsI3(힙JBTk/8 R,JF6IGѕ[ܿ줙`C! @]MeX6O)e@ bH-( k $|ni `$ˠ BҎBw*i&_s:~1$I!"CmsmģPg~摣PD5v d%@>֪䣐SK4>{NGlN-7,Tz f7 %a馀ν{'ͨ(Hi@/7̷ڪ^`|xg0m()S>ew=wʝ4@@&fDf^$)xaLJitCdKS @ |Dt)u5f`?Ձ?IENDB`ggsci/man/figures/README-ggsci-jama-1.png0000644000176200001440000006306315120434214017372 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$9PLTEyGEޏFۖ$ 3þ~[ փC$~{H\˰k=8@z1*vt$5~+[GhUlkNzphj׳^21>ﮥ$ЃPDR7qk}eG)/b>kyE1 h5S "ׇnLZ}|, ;~ʹмb @}m jXo=8DxOup+j"$SahS`@8 0@ `Y@m @DH'C ` @|4&W 0 1O!$# 0xLbi @DH7@  B HG4`P\Œ 0 1oo @h"$k0BUI 0[aڦ$xmHrK4nm iR[_Q? 08Lc,={s m`2!;L{&@-ٵ֗KѼ.QV=7XUgg߲VO3 I͗xziN3 q[Zb.Dbw0ApZ_{bgsG5ZUb `pm@%D":t5-n 0xf?*mR3{ k;׵Ul7Z )?ō |LH9)v5 1Y6sh_ga"2`"k4Lyg1Z_^ x&zKpzVnL- )oL}=ѷ0֦'SxfYk_#lPo 0x!Kj5*2wQ"nbON_~;7[s:8jk $lXruR0}j6 !דsecB.,x(o*ޠS?SS$ @Pؐk9kU5}Kguc۴UN @ߗTg=Ƿvh'&MH<J`pX#eyd?S(}>L鞅~'d\v=Qh*L#iEwo3u ihXj?z:0&n#΍j6Go<:,}X`1_ES<˳{RtE sj Wzx8dYAL3?&q{堣'Dϐ OVy2 wH$~b}8@nR#@ah/Mϝ &,7Ta%1R`Wn?g,|4~[CqC@x%5--#NPݴ ݟg6|4ayX"\ȯ}q3,HtbKX?9i9sN]°Þ CuZ͌n]ŧ[?۾ 8 )4KqiXGwh_ ߏx`h$p#qН\u,i*MwTn`Kd8ܣ9Z>nWS c;B;` USXK$dX] 7@nqZ! x ]hҭzsgZ{)5V7.-U^g% }Tl{ }P7@a$bÛe% y6] %c$0`y`G`PӘ:r?=6Sgx3~i0'?f% {@ɮc7 |KdP}WL#.6}] fEKᕁVwxㅠ(Q=Ob\pv8o[L?۾DF {Qojx}=e͓rs] ` P{`HE݌nug 5&&ą<zjl ؈o4U^mpܬUY0^C> lbCdTw8(\ksZ-IЫjM*KIo2l`g$1-nQ _l0;'b0!4š)Lq @1VכHOŵQ.e="嚉,n ˼Y  _viI U@ +HY1Y ]»ثLa@Y2n/ /2YHHlLoyU{c\;@ah.{CFC@Gk0}s`dyY_<3#N'93)HwӤw&U]X@2Pzo]-]~0=~{LbA7 ~$!15Yhb 7MW_bZ[o;vU@q~k v\#4^M#p?3c%eC_.c1K:@z; byxҝJ \+FE@MMb%Zk@5puf1^.#\7&u |d@k;@Q,:L}/I!e,.(O]Qko)gB B x x,^>` (D8|?7y ;nXħɸ1W02Ф}) }`܋7̌(xYU)Яpş(@8gU?@}7@lHYVhtt"#)ޢ h/fErAŚ@f}c<;'3^=۠0zHFָnc(R֝$AN'?dBD/n{ %p6; K%yQqHb5$9@}ܺ58.F"Oo M4)]`πY)Y"?l9\ oI 'p뿡7Q/V!V#rn-s`>] @k3Ȋ[uEx%N./ `}p/@8pOG{Y T!jc V[(b>:*x+*>o!?"* 8PY`׾N Nxo7R~aXoO-e DzP_UЫeX'C Wwq28q§GxI_o'p)Om$@9wDT[Av]""wuuBKr0!`4Y!}#: '^M BOaABG鳸h*gPh r0GB}y tKv3&WRR'0 8ώp@HIFCٮU)U W^,!̕ATk%P-apapj.|zp6z\n(v @AM \FMd?k`W@ alV} ! wS*޹5o`TN_,IB3-KZOqW,xߞDrJ@ {jZ l6-a '֊\@ Mo{/kƛ ,vqihV2@P\v9X[;,JB0"b)%ؽ ,e.ݨ_ LSS Nê fY"jQ-!%@\cQ( CV[]gl`|Zd .\IjWB_OVqk"C+'lᬹHTܓ=D"kzwN#@ zZ<1[*{@pʼ',jUDĎݷsAdݺv'=8is Wg Zcu;&!@ zl HC&~bŝSg~g{8GaI6V0ja`HK!C@W HY&kl ޹4-QE=m HS6gѲК5Rn*<3/>x>AWYΩ w/a`' 8E!(Poلq)JvN`_|UPI@>04ǵtt ;"^D,U;b 4 g`bA?417@S(Z*(UKjz 8&"D hw YHyT_i+"XvJDPuڌ/sk]')pʦN:N h7plo*y?V*ϸcYRN+H%i?C /ݩY }~v5lgbZI3_m-HV\lB6=uVJD_Np|tQ+t:'޵Ϳ滩!< ZIf3mыcfQDg\z>eA@~jy?ph"B(lY1T@<'\gURTsbG©Q~(a xB*h!"A,Yf "ZV: pNcIOwO)?QMj vBêJ1O|jkD[h}RS5#@ ^dM<. IDATgBiKM!aۡS:/: ^+t!&) 10VUP`K XHr bvǽkvLXU`TjNUg5sF a˲|pWIklFĝ5N+7;6Pb@ 4x(xώh`oX~n_]OgM  MEZF8O_ݎ\S7|'YNPj\~_$ GjA|,U(< I! J/,Extߛ@ ޖbp?39 ʸF58DixŞcK/BQ-(% N_@@53l5P2-c'zt  #"rfqjEX) Wv$6_=*(~%jmw;VT*L)  g+`^9S9ss 3ꩃ6#Shj#@ {q&0f?1foA*QXjj\4ƂXmٜ#N|/="@_kQd40>@VeS6 I`V+"_s7IV7etI /Z396KLSc ]9C;2y='-FpfonC`7GPM.YTT+:s>r @=̚b-% zӊ"B 7/CDxAvpͦ h6yֈ(.^E,IMF d@NH?<[EF%!T}& ab֦3u6p;-+.C=?]D lț8azV5fN=<^ꉰHepO׭y>]L |'^w'm%W>kUPVú O$i쇁I'=bK!eM@meȨ0~?yՁj-{N 3=7+l*;eK=]+X7cK`n&A? DXSLJuMZq>ZygN_ ; ׺:~r/U5JA7\n7/7on;Ng[?0]1Pâ\4QgdA'b ~& ?R6cg5 ruc7|"$*'_ 쿨[(I@U8wׄ- Jn^z$t%\@,hJj9ڟ̲=$zrM7+T! K 5NԦ*v?@U6#}=]Ǟ\y`heW3Def>+2Zz z f}U)Ƀ>&Jy A)CP 7tfPO"k+Q~񂠃 {ez\Kf?~X-SXN6\ǽ mJmSNG!9x XѶ,Zv5HGr)t6*7M;1"$gwm\c0uNTMp`0:=2A;yoI`\ @Ϟ~ 鑐s @ 8B Ph |}J pb`|@TR`ܵ NNKyNF!0xiiЊ`ElB"G if`|Y-lnRu\!XI.' $P3˶oLqJ1 K6'zZ!0 :eRԣ`` 3j5D) -)s%vtl}Em#8ly)m}F] -  jÏMihCF4ִIcU? )`i~|%L$QwB9SN 3 yRv8!{DG:=j/aCn`SwV3o䄼ĬnW`M/!l|$pD[#) \Ŷ#޷)Ķ`9kax9R_r] ouwU 줡fiw/(-b߳mJWr">/p8},d}*8#α?D! ݟn'iR1 1๹Vpt|IL]%f ] X/WMi\ ;~Y!e(0@xI\9IOI93Z@* gγq'س&W]X7A ..'>R߰#rЊhe>~x>U/XVT⋳6PPB'C@gW*n*`]2ppjbT yxqLQq<\(=쨁oG V}pXSaz%ϠknjV!J^[}iY)˻>ӯr'ጫ')G@8PzGlq3K BfiF_dƁ"uqo6Rhkxr%dǠT>K 1: ZU+?P s ?dI2Fhiohz Le;mڻ1@\=M:RiT + کڂf':6yN WzP˳@}1ܞdFuV'?1(ARMo\u?{%ο#j Rێ]<["~'hP/ѧʴtK'f4 I(y[읉b:Eb Z}8}}.bf'Z"@@(]CBZ,^:u3eJo1ˊ'gFm733&B fE!;ҡ`ZE=G&P3*@7 dPw P͋h( cJWLLC@  &);N5ZPZ@2E7\9=Td ΋8R6}e@  tհ-I*`!˴L6 w7S`j&r !! $^T i! ޺Am^' Ȑvk9z9v2=d@JzyD ԭ.8/%dk1h4)!u @ o@5V"k4k 9ĔN*B}'Hv[jK Jc?vP%恥s1#Q`^2,?½/ ם8+w J{8ֈs;o@0J jnF-@9s.zl菬<Ǩ H(%O FiiP;O=?nͿI`miUq^S! Qs}Q1RrK(Khx)]ogQq@)"ء 5B̪s8/J?((y:\w:)дwSǥrq w.!Y(J]56@6 МO#Nh]8`{W)v5Pr[*_E~scmMjrqETne@U5PiY[j&*@@<7U2;*].TLo֬)}9m <&bD4/@'G n9@ .WdPѰH@ꄪ}Dr* R&U˭`u9=* @44| =t i00aEZ'dVJM?gEt3t^: =kՄr(M.@s$`N>|jN%m8+IIϮgd3Xg$D *!-0aI@z\Ŧ]ά`4pLB޻T{)Tk?ɯbIĔe皙ڤǓ"!  L=3Ɩδh.5E^sW}n+{"kS3+/T_F@T" *~̾2@hIV@2Q}}`T֣<ϛr-/#P~g9`J?K3_0vEiE\ZexJGc+?fsH:4byP0aiiyZ=<ٝO:zh0&[.VT hU ^>4hk[7 OW["7BAm7nzi\L\r 1H9[ IDATP@nD6Ɇnd:1O X9Ϯ Ng=S{$'Lŀv 8PtM'An "Z<2t)p$7Ɖ`$v4F,tz?Av@bAm6K(ҩt_?1><;K xO0Y3g=<0/ml>3D@n"LhOԭs&YW=W +VNA,vv/c =e#q?ltɞ oX9"0REMo TWˣʏU@yސ#8ުfX;vʁ>vGgrS7Ч̚]zlQA oXx&t3m0/p [ItG  ҩٖf5T SJ_y^n ~Lp M7:'z3NLp0|o@|8&*^b@CObYmW'pgZНy`_:5C[4$me XɲtHS;0M*\` sc뿭Œ:@YL!7= ˂ M1[ҳs/syoH!vL 6h,Up+Z~~;Q{WUjB= %F ï4xqw u-ʭZL@e_f& 4ɂ/t^e 0:8X7@j6(jGWgaO 1 ߬W`5p/۩h S g} a$ &G?:̡vYؠcU+(3MFs%3;DJyJ h+bv@(@8MkwYmj& xe 56պ?4$_E18HGBB~[lx4$aojhCRE@|KDzP]S$=csJ<3mWTW=`CCҶ3G;7p,p1k}tgyB^WX].|`׷pz 6@=QF9!x"S;06sqL/kx%,9:!zQ`[m/XUJׇ '1LC7,>`8D&weO \#"ޗa;k:xSR6%Z2Y[׿@r+•oŖ nïxKPuC I'G)VdJJy0wȞ =nebS0 <6 4Pb n*G)qU^dڹ쿻g+G-ɍIZx2&ՀJAbg$W3+$TtL]hMcy2VRe} .ߧрj.q!"|L9!TS7".XXew4 ^SLVflx'dMCߐИ8vf5:P4k5Ȓ{]T[P #xa@'^z;ڜRv-gr}μ5OS B6f񷭩j_=:27ܵk4ЉǨW+0BM:2` l\ H^eCo+  pm:@`K ]<.m!V>~y|~ X% `f1>MQcFNiͮU?ߪ}2%m+B t `U*~MdGl\ ; `$ EJ Mq֯o@{j@6#3j/D`ěܫ߂` tq5/ h' 5c_uw`3\WR^!Ɵa Bwm}g`,ZxZ "3k>$@ fC e'E @xjaDV Qfk2fznf{[x&d 3zd۽kҽ6(?`b/ѓ_y0; mb&lpg'h8\``؃+Ju})~[ ?Qӣ3z/#Tߞ@(qDp@ Rzߵ&( 1R|o'+u@uJ#e;`_5T@=  w(ak/)'# <5#n}ߋl;V@f~]UJ0+ WU9s#n?%iGF2lV&\ĕOzRO+ ݩW>m. $܄zM )M*=_{ۼg` K0rցm`Jjq XN$b=g%K HY0ZgttMR7VZ 4._ _1!ҥ. 9.uҶ,MY;(CXum]PJ,@Y7" ]!LIV`"=TH4Z%s .tf@'/U<~7@jM;nsMreJ`M4Ub%w.ߣ* %_l@ZFj?ϼ, ~7Ra4H Mڊe| TGp:Q'~ 0+ vzqSJ)%f[lS+','1ڛ]\@Nli\b {$ hICH)>_Dh@rESdA5P`3 j.v~GRxD93\[}ݙhT1Э*Y`$ۢ TfN]ApjKnmz;L5ހr/0GgSe6/}F0`T̩\Xiek k j nTVq89E @ z7[_13) @V4͜ѣO5:0R0x&mfQUpStr<9֟}9}&ܶ`">w]~ww^up \@/2PC);1oБoo| tSCnS̸:͜ <@\͢6v3WH @!xDȦ)/FRDiPllC]_>̩|0RgmD)N@7^$fS}se ]G6_Ӊ̩#0>X/Ku8q<% fƛY5zi/ BWWGJACw4s [59`G @yc;EBW@U{k;Y.R)# @6yh4EBW\^v]꼎5;!@L,#R` H/Z .E ڢRUv^ M}V 'A72_Hqy\@+Q)6,VMwaB=J3~". k}f4r]st'΃[bD4NP~o?K(ɦsX]ʮb6W?Ý'Ʋ@vv 78޴PY9h8;Ngz4o ӭV`;49+88;sNkzV8;w0pEF/LX_`zu[(B;Sq`)? ^ey_0vi+~D^^A7+2W΄cZ+cԬoc/@OLkXdzJ78Y^ `dziooE 0v ko>Gnuz iQR¨Pbn ;!t-"lq+0n+VB0oH3Jd@9`YR]g&.]o}wzpơү3Pvla#]꟯ַ@{"4Bƫ/oIf‾H}z ^>>| <_M_~{PaL7aS@8lw)ܘ~ |Ha,.8ލpTXFƓx>W[xp"1#%ZkF ֏;-c:G?$_Bo<܋ߍm{phww6ǭڞw YviW_,;+ACцk''Hr"zSt%8R?^ tZ884bS 9^(1uЋ=އP8(!|9(5>BYt!V "d 3(ˁE+ȱ^tgC#Xt{w >Jsź~GMA7@` =@Pn_O) =E@=/BnțB[@Xljk_h 7/hb296fp ȆW&m~x@jC~@>ܾtfxM_vCx)fp ވЋ|9f;6 w#X w g$ dg)^=!.j8@8:?wcMC6jBQZors`Z8)qU NDbs+8rh G9X)=L5>Y˜- MoTxK6@n cw E~Kg#8>8ş C hY  0Hj)?< '@] 5s9lI~G%@ +aDR R7gtA{}ܓL/cM{*Po !RI|(C@`Mq@-x#*J'|2MDp/l,v m2j8zJ]6 6*Ы5]b#g@͉Л[tqڋsqtu1pZCz>'p8m<z= u$(zeloKP.qZt|IDATPf,|Ћxq)X ;-oXXN@joEp) cj$`砩SLԀJy|^}0ӸhI 'ph ~5(yچ" -WO6#sOKgN͍8  i1NH[G545E[" 0_HP(^`̻K[r8) BΎU@8,D8aC2PN B/5Tg^]n͜aI- @oJA N9(!T#sB zx{sz2:z{ˠÕ^p.BQe Z=\@y|A_G*8B/"clw[/хt= 'tZwcX\hzF Zw-Ka\e>G:(.?Jng/~:CSt{@|@A_﯌N`zL B,ez+ \`B(q#R}28E9I/8אoezTFGj?^\ʠЩBoNNB!B!B!B!B!GiPR( w[oZEYnX{:u3Iej&:;UsoT2}uZ,J G赨Ջ{w, Fp(芫'L_\T3 ntsD높dht^t^/cIh/.008B7yz$2@N?)'{].RQ<n%-Iܗ^PdFsYu 47k'VҌJv3hc֖H,t]Prx8Lw°dmEάy Ӊת~cP:1^<k BIENDB`ggsci/man/figures/README-ggsci-startrek-1.png0000644000176200001440000006137515120434214020325 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$?PLTE|^̘`J:LMMMھ( yvomung IDATx {:@"a_o^zk ZsvYs2Cl/B~-B+lQ @|(ߤc$ckv[.@dv-S=ߚv@_b،ִ  P;1z$i 2(c[K({hi u m+CִVxu/J7j=  2 SO[Ӯ[ `8|E!P]#?|ִ  Sm>ߚv@߆m ԇvaܚv<P@zP (ǁrW81؜ @'Uf!  o xOLq<t1{B/'0=J7%[Wv! @ x2qC9Wm]م^#ՖRq[bnAۗ@`5@>H׿֕]%^ڣ/}eylM_Z7/O O?vs->Gb|̱ջa @/Vv꨻c=m]urÂ7{ .ѫSӿ!-Oy&U@mk+ n F}㰀q.d`=[Wv! @ |(`D@ @ @[ @[ @6)y(!`& % @Z"dlQؤ @  - @ @g7,dyƨE'P:g\|d!j @1KueW΄ M2G×o @vik*;:D%d`;"T&|z:֝l:I/I_'eg0EL ICshnf P%E Ym_ `&2UUm- {mA{j߷uH ,9_$UWU#Zo#=#tdun @]Y4tfT-0/L%sSvLf?{wЏ /d>p~1[d ;_P?%w!vdqԃ_dh?uE9B*4ÇM 2H r!K+o|$pG_;[p ={uH0_urI0 \V.,)%W Q2b ySM>x˩{?5gvz0Q<<,]' ` 3ɿ8{.xp_]w%%)O4#@\;HfP7a*ɾo7`S% ?FPCV ;p(eJ@IEhKʶmKq{I # S(mX0ЊpWn\\`\dѥn܇4"#oW[* ZtNM&VC@`d)ː2DSH({V ؆fYJK2 ?"te!4ؤ0_I)W|s0I[ ?']~BF 0?.I>erD YPf3La>-/1ǘavĸ5Oef*5@5?U[U]c߇3y<0?"uϑ3e"qD' uGS˸5 Ʃ~bN%( UMvu*Y1 hN.f dPŕ `KڵI!x((c20nMs s Э(K%܇n!F6]bB?S34y]7!W&GTuXBK۷?l<S1īc$i G76/3dzf3dOR+LxC[ fjum%bvQxo|u=hiC?q!m|˄U X(ֱ_u9VHɩ~L\e3|Q豿;@UǁI8iQYFoWzZ;mMp l;4]u}7C@6ɧ/gJ$ƹ>n/H@?΅mJK_`F$m^,.Kls{(҈KrO .;K>qu^=v>Wk!B=O&A,M|K#u5#2#CQHb =C Pf2gEB0rk\hs"^_)>Ik&/UWMbcTL}Qjt8,ѱH: :;gRjW`ISv@-tOvT]h:6 cT=4&⟡-+P`}k6x WMb8-]{:RrٝpIc$$?,Sքщ<7[d'3-s<E,zGݖJ{ݴN0QsxJMIJ}vgt_ &MP/V|~ 5f^iji&J!ll(6')x}-,}<_ck;PO%>mеX=2+&$OmZ̻?sU@`ԤP2l>eAb_ 0 x: Gb ńp"jh5&18OhμVB}.?ĥ1t3htm:C<?% C 5,k- Td@lJJg#̭V|.^}i쥿&.?*߽_@]8S)pő9M 44B;#h4 ގI M\gOs~whN`{м4+  #PO!$AjNh (B(mCY+u&TIz.t_G! (bBe 1@Uh@v y7Y@mPwCK%V_bEPIΐ~(@!?}vn7mn^7oVt@pkЭ=B)hH - MZ 7Gf(歾f3"A̓@UgtŞm"?oǻ9) a((4b-9M1HTm|,&JE1sc,OWU.6Fy_7]fg4QGs0ޘ<վ6N~"[C#Zpt MnPg*R y:#EMO7@`x/5gj }^na4% 3 FٟMw@>t7GA~0~ I:G]Kb\r!d-M[6sܦ*C$1E>5Ъ eBlt0;%Zq5FRt&Wr W{<9BDAY ږKE^Hƥ;0$8;0ʼQZ~zQ Z6~M̎.$ >(jfcpoj*l=@ oħ;8 f```{C@:-R51atl QsGӶl&8q"Xse/CpA=s7 %- f;)M````{%/V{X4']```~cl@ &CBQzu7^3d}b>}O>M2uM *2|0LLLL?+z?= PkyXb2e.@6f& @hHvSoQ< (lH( 4\=O86%NDq@Pؿg60 IDATa~QHVAzo j k!A\&&&&D;X+im\'/ӧSȔJ;k^b'aR@.Q!W[wS vm[i#-Oקfr-f<#ka}Tќ@u+#b```nZɅr: O©_g1000|@Ri" js7L ECP%zPM0?^@+ p1000L`ѝ"dڠCIK^ £(kbQϜ"UyKp,`xJPs>QVP1^l@LLLL eoF4З@~ŐHH,k>$}| 1|TDE*Ų 0YEJOd&&&& @'7 \Cx¤zKQZ72lNU).*?q)%"ǗdiLN?ƪ(* ٝ*/~7rߍ 7B]_yEC?]6ֳ$u$ps,0j)&S9W "E8ָt yAqjsq 6/ @Bu/vWx z-ʭn# /"w[밾WW'=FNҫ4O[ՒgslИn '΀fdF wsHF=+4Gr "z! ec/1PgO͞t7XnLLz{Xle6܃_g @HUstTϤ*`9#S24ǘ=4=;Z]1'* 2+ҖdRW[&$wj_e͚LL$"ߞS <|5;0AkL,)ks qw iPH J{׬86hY`㿐aYlK+Ӈo7_)*eLLotS`9u[lڨE*1; v(+hjR+SIr^tm &Mq14K(1i32` RKLR02R$b6X T'R!TM{RWn'u/6 wJbPll(ۦȘ곣p+a2UaѧeSP?U C "| U%m9&E"@5eJ1tЦo|uh)?K =LL?aF64~DVnZZ `hInZOk6lÙ" p 07$ 9dV4ޣ]K4?߲;+@ S<uZo5j> %yGb y y;Ŝvqfu,[>Fd|79cx/A'G7?~y~Y FP>>Zx ;)KN~g5D7hVb#Ҵ FVx3a[T4H'xx `?a;#@#]pxe?Ϳ]k~-y :^ħ!?ojtĠ }Tp^ @BnK!tPn8h#t0DKChri ^]؞G4Ƅઙ۔M@b-w{;Di-8GAc*W7/al* IZw=^z?-1vgMPu nP@ @wܡǤzL`FҙV+^W9{f߉,pnmnn@ѨJH9tnar}wu'<Ņ0U}1"jaa BB7`mU_gzdڥEPZDC&#1G -hĿjH!W. 0L:M NunʖŇE`Bx"Ơѯk`hƞ@)dTIV!!T6E /.wCIXPpnˈ| Acv|S@ p&Ln@Kb]Pmx,Pu%5@Mў2) w|Ctwb!4Nkkb ]8i/J]T6 8* |O"# È*ehEFSx"X;0v2co^E SSK@8LCE @$ʊ ꀪ6#)-E(NLbɕWL@R+Jߝ͟({K$~.4|3vel6 jB:ԌTE|"(hj&,8طM?%KRXxp,[[yoކ1)WS>``Zpz' _ZhZх'{4h$7{4^o̢snT ?UTȃKl: d%@ ITi?v TIsޮ7`Ezȿ pGz! KK0@8Ak8[/jJsK U9SFo`7[;R@Xy~r9; ȱ9BO*U뒰@ |a "tpܳo};!p逍*#e SuT(RAucV#%8TX^ 3ߞCe#oLDDc_?gZȏ-f-8Cܘ5U 8€/]@) :PqAňiDo3qOOa5uڄDvR@¾t'bSs ֆ_+? 8D@g'20X3+$ 'WVƻ_Y7TF턈_w&@Q#n]4PN*r#Xa\m ~00 ߽2:ONv]?@x6PE1l:xw$%:T#!6АlZl~_V_Ț#lW+Tj{t1X:#~"SQi ՘0qUj`{1x g=r>o!?M x[#(5Sʌ*]@0w`jKQ'_#د0reCIe~=_4 @E<5sV!;="&X΀Κn'yAL"'x>޾eBs<컱gSrug%ZZ6ؙ{GU6Ki :I)W#'j+z0iC޳PǴkt'DwFTv?46/ΓbG2ѦBL'Ad`2 3ee]#\e^w>W|.~C (e7\7 o 78?Va5 zgWf /c? \ S%@s2e> ߙ@&]_ NQw`}wP+mG ]@[OՖhr K5l0y#W<3]\$>f+5Dd|P8W^4UsZA]cs~A xO(#dkt_)Ͱ0b/y=/u>=+R?&b2;+Ņ0H=^0U33T 7b󹗌,!, $j}K; ɒ1kBhsU6PYv@ n}Q+%>G曜|Nk&FPAzbM0"xR@h-#@ |-ߠ؍$Pоg掺h0invxzcL;C5Tk[ U+!~j@"ㅎ—}HYwiw]vk~Q g1RG!  @P܈/]y@Xl-n8` w ufbFj$83nUP @q۾T葉? _#8*'[#߻fY]4=V^$'.)" cL0,w].t dn:TOs@& T#E`Z"-'7J?!@r^qre#!U+Ae @ Iس c1jI kD/<, ?1Ս F|@(ʆd6! # "ʔ~6RjY$JhD2h/%7uHR]vTgԱF  1&NÆEO@͋0Y"W{cGY }\sZ\`+M1Q8-R9.0  +Uo^[󽙝m!'@ 0!ZжWg3D*u_7D JRjq)lPBc=fME  5C%1DpIH O@ _z۞%(*`L/Kx1&S@Xˌ04t} aLC>o7WT]8}6D09U,ՉL۴IlN "t L rrȕp&2JA J0e 3 c t&~Â1q1"g0+ҹMSYȝh˦JЅD7LęB ah뤬i#83&=,=MM  m+Kb*5R?:ʲ e\ +)L|]U&ꄚ(ϢwdJ"i! ׇ6v]+]reEV4o%PU(f&Q6yH9`2cm4rX[*K5@< 8#U\s[Ph{mh P 0- WB#@ 7oC Xn|&>yH i*4MwJlyW mCk\ "D jf eL=#3/Y~=0YZL^zҐTZmv7D@:!/ĔU\`=w _EFv{v<ԩ%'(oiߣJ|cqR}*7_S#*5ďTJAR*&BI8Ծ3wx/wA\f/'`Ӫ+BbVױ8n>w"O>/ઝQG}U@a1 jt(x)); @3W ib臡7q&f$K#wpC|kTWC(? }$<7|).˅s%?aXTU@pem=JN(am ɶj`i-5Ne IDAT#hO;N̜m£<-mO2{/ wWUN' 6ݭ" @?3K{~<P^Z'@ܚ:5x|\nvy@{M,'Iww% s*G if[ @~^ b2 ǫ*֋ӱ3Fo%ՠ+<帳saw$? ŜfV؄>ULw\ 1Ӹ#B@ ]gtz\8x/JZqDP{ Y: +vI-}qеA}=5waRcge wU=l7 VE:KŁ_Tqk߀Ϡ' {oP ݚ-] њܧvM.0_rSzwU}Ȧ@9TlkqoU `f ɡ`g%t:TgF04,1򸤎B;+yTD8>`q8D{AhYu@5nJt*Ղa &(c?)C@*7z5ҕ4@ngqRIXlz%렁@8οk25Qo١] V,9r@± g<PP0[)5'ZP1! bP\ľV^gEep2Pc9CK 4@<w8FM8k!H<->0Ż)%E!* [3Wp3* ~+_h&>?>ءhp'Pe3_4.2Lo *q:#U:J?I7@*bQc8`<'zcalB8%S:U;ufӃ+l79Q1 ґ&2|wvW :M@ WTDTh> |'?: {p+R" *6u5হSϑ ^ O 8| (2}"U[>P:=>g@>?T9p/!RL!"бP#q^Yَ,Q@.qVe4cV+@BP^NW ,Ճ{ 58x+9E.˭+@@# 00 E4g8fpX?j%J =G7/%@_x(Fz1rʽD ЪV¤ڣua9}e/r,Q=eU%WW+@!M\1IX.|!Wj̿b"?]-ZZV*0*NǮ +V`_^inx`=FGË Nt!/c 2M[ɍr՛],+|:}6soݕ{߇V`_^inx`=FGë}-|P6g[hknH#X{=bՍ.x<E(@c iߋ0t{+G,+Р>32La@{:w^~W+1y,^ER?㼤 x՞7v i&t;<%) ERzpÿr[= [z) ّ_Gp#7t'K`7 YW9 ~f~!PpR4w($>eKʽD v`c9~#?@-,h@z>W%p9pN3Pp0NfP[ﺂhE"*yήT?B2gl0]4 w7aTٔ޾$^ZTrzup#͉Djɴ\\%eϗ4Ş-?/GuO@F"J+ %Eh2$Z'ywjES (p?*0b<3z',7d'Uze>i Ի +<36DC.ʊ7Zza@F)0 N.궽iGHy c+ 7-5[ P~o}.Yڝ*_}{*u6)l/YKPv5jod2USV:T% 3RSEo_C̟Eo9 fH\ 2߷;?e}f{o Ŕ @,1޼TU};- 0"@-Gψ$Ȯ+_% }vcZgXzE(NQh~͂Pq5=4K^z\^ `\ Q`/@ĹͼԻ@1G zG01X>ެY@,y%c<rd0N0CI:%ٷ/@;*ӡw>9'@5lCe!WN< z8\(-czڳxj$;_f@i g@f7>2<@e,8n؊=՛v/Ү{R/36™m몪Hq$' 4n˟)&Y _7S3tkix$B}ǜ`?͠(<ӇΦ]'49B@@"8HJ 3StB=g ߜO3<c'2D?e8z'bh.3p;(w"ȳ7ٕb4Igx8Ss_FEp ;M^/k hx]gACqŀB¨(R[gϨENYo2O +tkеZH4I6;wGg _ Ŀϡm4G2RL= ,@>X*DwE#~S\ýi`[\dwOoMTDUi;s@U0P+}a`lY عsn0M@xN}d43{!CAdp}k4)<} 0``Fd9B@W @?.Ko  H@ղ2=M\H~ kqxdRp+M0' tdUi;?isFYu v{DOF 6 ◂z. od<|R)tl۟,n@dΆGSԑLL#-) Ofu 7B@iX J wGSq;[~80 J=fʌGSu8"4LΞGS=fj.…~VM c@7h`F @`G@8zXth ߏˆn@63}v8"o? `>GSwhXxk P6 *{8h,D9 |)I ` F Os00j,ʬ# "$A@U9EPg? @@MhPEsk풫(@%fh3U4\c6g6 8p 78:o:ǡUA8ZRd OBIA87UYqȩ@`oZe\"@D=ת`]<B ]}@"~ @yeq ߗf򪺵Vw'XF c@";׻S[Nм7)BB"Xq|WٯD@f]S@[NtW"ME`@z²m7PGT  f$z@ rH 1 8pum{E୚@`ġ # `yVA vS@ @@ $@ y P R@ @ „` tt e  vMc[N?lO\oJ@w;h c]'>.&UCK xS"|8@$&H?3*WP"@@6@ce@NQU3`_,!؛k |=-Oе*3*@@(6?j9D}e xCP9M`y̬L!lmz^η_X @oWT  >k_X^uW@) Xع0L#S@ D=h7U]XJ  $heԋ@@nD͹?R) \]\  xGB t[ImyuA  VwgC+O[A0f _GsK@@ϐWO|T~* ))9( + )rf'@7< +\^ ƀ$hoU5Z~뵤 | {GWc @'WnT OtB{|UUP6[z@ ѺNn L@.PcXm# p NU| ?D ) @l=@_T X@ Z >XтMye  !l $xA ޽Lry 1 H^H 0'A *@4  >@nw@ ^#* `6ti@ GA/0viy"S@xz!ͪO 2],o @"/-l@8 BLyK @ |c]gX\@C3C)#=,n5wWipp.ڹ+p.T6s?5nj XxBlAI۠зwFO#(H+ Hgys^ڠp^Խ鷁A<(i.u]䱣ȋD1_{IavqnC'h۪^?еԣnj?4mQqP]HQ|f(:1"]ݍmsu|$t K d{_C@IDAT[O@7.h%Z/|f(q4`<Bh$D_(K @Qf:PrH9u5طb&!x> S@އT5Rt3t*%?{(1_4#DцbT$ @^N` 7xd}"M9LQ(Q Qr wgK&4܋]1.oS|MQMEECkŽaapZ_0y5ҥR*rÓ\"\~4F܏vJm `$v%B{{MG1"M1(6 ~jk6(*©{4*("Z}4CFQdjn(]t3(܀XKUy띯$uh*8F4OX@qA5 C&IF{p'DB~5'\hָ˗p$Hu~ii@ IENDB`ggsci/man/figures/README-ggsci-primer-1.png0000644000176200001440000005721415120434214017761 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$?PLTE1H $hoW}[WWgx?Z7EVf쵨.N IDATx읍v<@ kC>%n@Q꽵=,*;73aO? _R@ 1\C/ xLȤMCpo[.  x3l_`ִ .g+gܚv x; [ nښvЋ^z>el?mM U>H f`~? x68|h0~ܴ5:{S.^@z|522wk]9ۚv xٙ~͝g[.@d }=ִ V^@d   bS( @ xCx92ׁ> @  2@plwo-uax <ֿMwDK"uaxDc|~Il.nóbi.Po9kEE BB07žp{l:.C ;< x\Cg* "1,~ųn}9v,ő~^;Zsk_@,y nq.hȽ@\RS*yƭ  B Cq.Pׄy B^@!/ } B>Q"d|DD> B>Q"d|DD> B>Q"d|DD>+ B>Q"d|DD>3jk'dO)*;u̶OOmQON\὜0[圭 9Mc~\9[2@~C@(f `cz&.}89Rѹ- 'F73M -ڲGmJ hM #mgp?|xԴd$zI񿺓,/$Mh ߥZ|lZ6b!*f,`sn.[C{MS(Wj<" ^*3k.C !(561G|y{0 ŖeLd- ~1+_bNO8Wb]kÿNnjGwd S P4!6жj +Q}Vӗߌ!8pa`wn]`~FL.ϥgխѻ",X2:85暦~v.q3ls ܡ>alba& x.%%#~UǦ{9J `<ŷ*5_vwha}`]H] Y.Bã`nrCgRtxRF2P C5F yO\wmQj@@pKE&tN}^ss1yZņxW@@pWV @(SOT;OO!uej ((0Un9F]@pSs!D=ENM*Z~ۨ҇v&bKG18-iUZ_K}lE Z!ȝm@Ӣr_g___j uKKMA2v}~~_xD% |MWP/xve(Uu2' W}$J7`ӱ=Os{L@G yZ}> QL}*/ff}W6 `o Q}рzpW(iR莟j)틠:$ qb>N}§6z'p9(mGu%Sl%qdp!0FԵ>CV)B.!O3cn!C0R` YwTS*F|RѨSnKEqp?3UUq{׾/CFssp&n7v* JUmoȺt@~?W0 macP"o.<s0H?~@a,2?)<~>ovӵ$ƭi x~r?N@xRhNY<Y0DgX $Wv L%?9Nz@Wrߐ)*dTL=nMz\G.gmq `G*X֡;0 H\Bh;.( ` ݟ ]@69[ X\/;`7 -- #TCUb|bo8MUnPhgYth5Lw6xޒDr  nښvk2k- `* @ݢEGL .Eo&;/l&/.UY}C?ִW& wP {wy3 P-:SŚ)vdz#j~/?0n [@l0 b & ^Uun,,>t}mmU^@S" /斃N=Z*vv&A)F_4[P;!s&=#1 {T9=ˮ wFAPfó4j /-4?obh*O/dԞwylk0_pdܕ<8q8C Paer$gM__; c ~3*yhLW¿ȣ :'1|:cmڰ{o4A OkaPt0Rn~ `MUR,7i> <@' HF-]um%p {kSo*e(nUdh--]-\gH}0oqH#H`yd' 6@b164ҤA.Az響x?XzBِ10'irٟ@#^Ѭbѡ8|P! fD9mkjΓ]rd r/:9\mW{Yap34soLfh2T:bqrfۿd (׋@'O@m z,"ަ Q/6Q Ϣj_Q^#l @VtR ;!mcA0eV . Ζ|#9⳦=UHP@ }@PW$p͓0I޾oT6 dNT7^0QTmMAPKD,˲,Vq@oɿo6"8igy q!a]'܀r@)p<@Ux. }n΍lA`[蛪 nLE-s1e7y' > @p@7~YLN)uؕQ9Nؿ2`3ӅoF~ zYMY_{G  #q4;DP4_9N_ kŗ|`mX)OK>қ<ċ&RUozKp^gtd4ā{G?A<}֟SpN AتA0xkK4>o+er@;#W}1zS݃JRY>(K=t@{sfɻ\t Rz!x 0 |j8*%:% ˇ~i4~?觐_n g=}@8 hC\ *:Ѻz]\BrdJweٹ=1? ;@iE%b?r@! 9QyV2 Y6VZA >˪'震9cMg,囈fZø!z_2/W~۫^p>;߼ P;$ E+!˝2f6.Why |{ 3^< Hͣ({zQl gp+GB@X,D=uN x*n:A?$V~Oڝ2}xX?,3w }qwk܌=v3;!>h@C Ny`C# Z[M*m,81]H_Cޘ,Op_f2ͽ5ZA2`<?<Vy<]o@mKoVrGԦUAݧL}Sm!P1Hvq>l{n@ >[tsC"l  =y<jrc _ zcɌ׵hKQ0jqMKaZ\ m? @8P(GG(k"_ԁ؆bȦʚA5-2nsiGX{m8g]/ &7j/Fo&4n`g,>4mY?̼j#! pWo@yv憃3j2^nM&;nB.b{ 4cB@O9|VD?94Kn/|E 6uYpMW6@<揖O@RQIڻ/O-,yd}L{>.-d:5 tnu2SeO5>0ܡvB2%@k\[Db+ؑI@ %&R{ķ ?䀳9 ڴmYז5t%LV~գ5?j$x#PīhM‡ ה!<1D_)P{c7 ; xխj?I>L[Fyi;-嶧 N"tJĬn4s09 B&lOOm337Uyޮq6hj6ͳ)Hp`I@yqrG ^AywS蘆tah~&Gz#b114Ll<I_oA HBZ%:P @4-s6j%MCb|V5J*l;0sA.f7q|6Yw456|4Sg*UqG -}vw `*%*/V&Y*B}\g{o'WhD,bb?I-&CwaeX39, $/ ^Μ@Y 0l)+RPX<Z={C}nHA|2NKRX"X--^ \aMz<[(@ xHkڽd^- *8wzGWw* wY?>xZR< DZ.h+3t=ӞL @ xT < ΗG>z 8.-ߥLܧ GKwh9m9 "3(P @?/n4EL3TD۾pXi7J7wDDĀiٔʪl0͌ @(}+ XgyB?:VaJV*'qimťF$ @,+ j2d?&#{? E \w dI3hOϰ= Xnl3$9a)vpZUg4/BWЃ01/`;C:CepyP\"82@ 4l+ sHpB{CmƃG@HD ?M.gtXY$[%۹ a:JbWIa+IڙQ IDATs0g*{o&/tZ O s?(S%#`R@xN:9%ujR [UgOQ 'QQm-g쳀-0n,8T+f2>/1mA%-yT mV 'j/S-AꆖzEJ e 5d޵̡_(ƕ 1 ]ețs7I*B~6-Jd#: 9V@1!* kj~Hq}*g_'>nq'+z$k)[֣Lk,!Їx\7/vA ߁}# 4dmqHq=V*z$i_"~reO+ ]]G<511`")Z؋aKIYȜ($5^0qؖтo%>[[tOěprVkeʹ`Bx=A@#`m;̍Fzcqgg{ϰ6:n7=p$&:%A4);.yp3pH+Yg%r-:Zg@U+TU& /2x"|ܵy6 qmu /;@KR }>uzFMͽp 4OW /ut&lza'uf -ON9m` EnP1 rb>`4-Ƅ8ӄMo_"SAwJJ{!?&`;ԕhHpoQ)e|1{!z>~DsыTv{ȿ_)zZ2QG A{މC17EO [v^4zX60ٲ`Jy^<5I2MRܑ.'y~\kyeU .W22ѻFoa||Wٯ@V72?@ac}*> ِݏl1SԂ;7rY cuPC'Em1 $3miLoTtŞITt7m&wu|Vs&?0_Swwtsؖ~' \;Q{BzoZ䜇HVt1=;] :#`'I4XSfn@f)`vGݎ4P/πϴٛf:WҠ 7mdI-q@3(lD[t-цYw$Pa Yƭ_2:~(߽zҲo'\j/ ^V$hG3,i/Nt iLJ4V Ml(Ou#: (Yf.5_cP/-2Y@j7rC5J@Prʣ pXiO%y3p?5^&cl-BD >R n.;ChH$ZYCF 5OǬ+j 5F%6tYz4MXRb@stUrNCFHf+.okݧ)2^[-@CN𥚖ɦ%N%]R50@v4r¥T=+5qkbpkD!@OEx!_[IԵ4̘gZ[7.ʖL@}?2`W$FǙΕ4G<hG?Dz:n ƳO%zV;#7ַ~^մ7Yz~fϬu]׋6n+3 06O,n&X} K~wݲqSWo` T|@;k3>s1ԇN2&3KdCĄiƄه5{[㭶P~G\=p@fK?]f_uWǻ̋`an iHxm 0dڙ&CJr~1*ft(@@@D?3"{_^&.tv$Ky/c"}(Zo'WWv%eK;_o(v@:~S  E/UxėEKxL8?3Q`[`Y_>G1dG@ ]@9N IKC݆LGp*L0"YYO ¼@Е@ ["$G@Xϙao`G-eo4t@kic&.(ZJB WJ(fP@vq`@xqn 7Zm#Ube&}Sp #6&~F+#cl_3"+0/e_nAa/ $L^RgèvKkr+ O-!\#lPS(#wzzg ༚\ \T @ oŤyfR@IEIz?(˃1{@S@]pWHV毧Zm(.@ °E ?[S@qyP5o~4ۼ4W@`tk4|Gxi%MgH20βq11ѓ >@ՂfpYye@ )BWpLn^Z12_ hk05Y6XiQ+q 7P<u] [sT">vJg-sl[i (N Plq&)yCkV(|nX俕#r Q d`dPwpm:6W3݁@H|@ĖmkH 7o Ř`u ܑ n< dڡPe_wpm;v6]П pc!τ%A6@=,?ߢIp, P`n_ d upw3ټ G\/.5-mE -n#!1MizXF_-'.bH;K>q  T?m’tZ# 4'xP 屘F2F?8rjOnU݉ e_ J:C5@uE y%A53 79|#X,jCV(bx vҊ? nVmuy&pPYcw@N[o+w)_f秀) Tb )Yxg|X{'ؘ>Ȥ͑/@@ݤa\ƞh vIlnj{r-w"_G#5G6p@Z uɌtG7OTĮb뱘ǂY9s}#o 0LxX, f7Pu<M.]Xn>I{W;KT |&> !okU!ƆD_8 ff:Ʀ_K:&TZc\)L] ;? nw e/ ƥ>h-^@}V'E5L?VӣoWD,v#rl8si5Ofplw?fp.38\5(PǤҺyjٴpk>wb7 _;CKn . mJ 3fp+ʿh0_@H0-F7mCZO%m)Z a,2(Et"8^nyM/#!Wffʈf,o_z }(Ig̔wN`R JVg+iUlUh!dw:osqzoZv}}K ȅTo-mWS O~ۯzƴG {{2m }l_ xTXhCF`J_na\~co&~2,K;6x L\H0;Np7@9Ȼ@s: \B]4o;E/z< vثQ@1.Hd_a}WV֮-&OujXfOT Z8H-[cjԏ)i -r c:5. -JGwr0og ܚuk*/uam6!B%oE('| 7Fo"L  . zrd/V;Q2?5 mXyOhx:85'F/8#8rUf>XRԵd+Uh ʿ^"Yx+Ѓ0#Bϸ ~u7RP]fݵ5d_L 6h,_g\UU0,;xNV+3(J;vYj2f\ !t{$S@ ^Md{L,XcP_}e 0d+ `@] 0hp_K {+SGNYKoy|>Y@ulU k5Wq,jke&d$@'ɂ6, Tzqtx29,z c@c6`_ӎG\J8>s̈́5"vM0=OV(@ UF+0]A1<D`)7@]*;.@0Z( ,n؇$Vn2.Lpf#)<Nj>@1 8VvnPQ]yi +{XSYR59e ~0>%|n@'[ڻ{4Q P=w{ lDdtf]fTZӒ@81c^ߣza#B*cXa<_x%mSxW)4,]I]!UPcYyxp ߠ p(oQyB"i"SxW- z"zJCU7p;?8 {#8@= , ?k6n-{Ml%oM{> tMxON>.due+k=_(~%/Tk +P8@H}OP b|-|d`70^x'TaK[dۜ3驭ӺB kkeVex$ۗj682R ao`H2D$n^~1΁r,ν SЛh ;\s\K֊ٻp6I  '۳$H  @}OD"ܝ py0LjE 'I*mw7y͡5ѫ4@[+Wk0hʂ@80`0Vdrж)Z1n ‘Y@0_cr^44B ]uf6vsA 7u~*wFF [,5XjW3Kki,} t"2؟@H?.٩o^vi5L.4^,1p 6蟹pW`{'~S@]Cf\ݭ[T:XnL`np( p4`ozqO!3 ('p&iM&R3gpյn$$GlR/P,hzw&ٱ9 ` 3Cv@pI8`X?G`8ҙ6T?:S)"=O 9}A2{&/x_)h1>iHlGȮFf<컎]ܘp?_5 Iݞ8bIDATg{ZB !b1\/sS>Rb5f_AuDһ lGbpC?~.Ȓ~oexʄ1(dUוG4m`| \*KN{>qzCy̪}psd7އ! e~/y0ze+֨ .= hbls+.𙹭lݚ+Ю!'yRY`(?Ȓ'$E|ep@ `|w `ſsXP-(.]Ft?gQ-EHs7K~!L1Tk s)z}>._Hr. '# ` {YK48"-ov(wPPbg+PR2S>"Rh ?v_Q@A[ d0RQڧx= oP% QydZn(%/ 9=rZK-z[^,t@ W h|ukrBr&Jz-Bҿ3D{4@ Lg އ@HN$d#BZ0D8 _S vTx5]g?V#P%`io}4MgZcfX0\J%> " (VR{/Z3p9Z(fh/(}x1@h̵Pƭ6-1]UqA 8OI RSݾ Z|¸@6i>e[RaLf}SW:uk3i㚛ѭ*Hj>{@82=W`!&c@ȉ}ߗ^^(A <)D=ٯ @3_뺽^soz$ovqP/BW(]GF^^n # _ƤO9 <آGk|V伽 ٵ/_' K5|Pj׊/,Edz&FaI-B^vW1=I ǟl#B Twc:~ (%:1 _a+BiOZrNjK5.]Ap1Hݤ !LKCKA@4#gO`XDgIY@vg+?# [[4Rv3s``hLNI<7:) ߧ ~9y]wMϫ[q+H{38)w=ovaqwi 6@W N{DYPN#S7 23G*BzOc`@ ]z=-[`OPN$,x&An@;7 pM_8w4|[v e{i90CIE_+`X*n|oٷ_ۙeotE =Pc ¨sh N3LJ ; b4֡%<ڄjLBR -ty, hДJ->k( ?S]4T]?8&;kZ`+8eGB gYDZv25TaP~4pj#@JVk^ x?8 Sot':^vtzWN=|`S?MJ .[~G]З.)'.1Pl WR Km~/Z1*O;.W,h/ [xa @{$_ͫ.|sJ׋{Ln9~WS@J57877LL2~~4r)Lb%T=:q\(iH2X7h p4pjw/ѧ6F*%@!p=2S K {  KTn_< Z?]52P]W+b 0NVᎬ~ڻX S0ph 4ϱ TN`3E96#y! ,z4x,ʛK) 3f 8!~^̥":(.ڻ|_mkLweSfj.j Jwa~sg~) .1`_R["OЊ ڵw$'<ΡbY~:+J,@Hc8D8E lo>gXD+D,0PR4G]]jBv@Mrֳٍ TEK<&^6A_Yv+mr釰6Zᆈh ; th粼-[n_X{Ž~c9_ k_"|z6g8 V!8|<~ HJtrټ`7CmI0(c?Fj}cMLMNgtG?D`V1?d_(;;0tk1r1O ( 0X (R<@tZ92r82 ;K5hr0 kG;1`ZG.>oT?V21&xph oI!w`4P>XcʷyI~C蕾Й*GSW--sSo8;O@,^,kIajQIJxч$֌NMoYx?X&Vbe81@ HMB\d-z9`Wu eC{1Ӄ`81 lmy GS1h;&8i$x# 繉|IRVk45!Z눸n&|p$ 8H EbH%IJ[+@Q4h7/=eQi>=:sE+@qЧɓ@۩MBzq- ubBz%k= 6t_py{j :)o)-Yi7Φ# & i;$ bAmȪe  ) W l. ̣-`' 0ol1OF[~@0 H #×W\[H9lX1<'u-ݻ|q {_gxcy艓 6-?LcyNF7ߝ'pĉ}54b,!i}0xndt8$-䓕#eןk9\W|EO`{` Axr z<}覊f%QV]cy蜌_ 6Ь `/JNfh҉n͏O<3yn| w~*邕*(EPcJm[jE3lٖZbVL-!>PQ2? fxoX>]]rYwm8g|7wJ{?;ֽqIENDB`ggsci/man/figures/README-ggsci-tw3-1.png0000644000176200001440000010064315120434214017173 0ustar liggesusersPNG  IHDR#G pHYs%%IR$PLTE B 7"p]4.@Km$yo8r(r5_Hzޛ7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5fMKwߑ^k>Qؿ{vu6N h16#V$u̘NǴo@?(_[R1 i@w%[HKM!b6f-?~V.K{\g"bwnCF)ψ11ؒ<7/~ZZ<Ƕx#-@?gqN4#&sd<?@rS;5B[h}f'ok).]H(nзj Ŝߜ3S!Y4 z=hR' 4t:r?W~K օB<X2O @8PP@t1<4}[Z@DE8P Н?'   ! `;XTA `;熋WGn0\>o,@A7qE9 S@7/50@1@'r1@@  4d?Z3AuXI\a_o h=)X @1Ojr8!0@Pf&9t&=GPF@v@m?Fm(&BҼ2ط֎3:p@,yX fЕO빴"KR@)NBp$:4Qk i @&R͔ª@6:ArP~m?<5-%_M8dP*0Ͽpc4DJ:q @hHjT`QP/m7p0'< H]L `s]ZL"ÕNH:Q2< *WV .gvyfG?fȚR1,W 2@z WTP`j/ +(Н@ i A@  (z0 *HGA(@,[Aȼ ` Y}14009Ja"@j{g,Sw-@mVW3jA h30L Բ::ý. 8ILgQL@h_ bx2q!D]f~nT/kf. 0u?ﺯ$Bu{X.nF?uBwM2t@'2@z@`j]@e)ԎVWIz? @B׻B ]@Dv1+. Y#qW @HԑPI%с&픩`_s@B>Ly4QIHC -&2\"@zi Ns\@"yIsJ< "vjE !'T0A?n@6p`XHH粺$:=@)Np`C.5$e£KB;AMzVb˽0% J!̬) d@ @KhAE`GmvGyr_pA`G5%r;9 _@*=*3Pz6PJ`y! VZB tK|3N րUיJ`<.zIi Y^ M @TC S"^@J]z 9ζ{2QI– PyCO:>漻5z(aCM#(^@K=` a4u%|z(λ> c"XY ?. uGhv?}E`d?Ď-da | <:^@"ӽ jYpc#_{-'M6ؕcL@, -€),N0# [`7;j0h47Β뷧lGj Oƭ6MoGO=s$@Mzln_ۯRGSd'4 C:˳^h@,ᯤtg|J*мI=MoW>(,߾'ht0g;uu(Z6]A Fz?wVMhGKb:qXhlěh$<}Ρ@BUk[o.|"SxC E-宿@3`Ǯt@$14P t΁#PlxXccL;|_ r?_k@r% \),Ot#~}dc"<7P#6b'bƏåb8e$yj@>WioTP392,LN(w, :jwUxR?O&%V^l @Uq`OȁSI? _8>WFC8|\OGf"jFPOWH :M ϠYa? :@@(pG,g5" P $:> t!9[% GW& . tLU;S!  5tXwLzu @^[$$doJ圹W %@oRjb?)q @EYu*! : AO2pAO+ ^"0Z/jx3kJ(\ ``W5[7W-,@$kI䢋 M#RiNt"3h۾@|#K]SO 8mUQ Œ^hWρq!@\m sA0ypۦ h)LsqH'~Mjkw.m#I%1 c> LE8(Ѕ@ 'dD؃1?o>jN>,0+_/zfT S$]UuDJtZ:fүW0g+P/R֟48 #F, ,fm&u[AxT&p Rv#-[TvT'EtyG!H\ F"Sq^`, P 0~\D K.Y@@3 0p? H%(p D:5%܁vzg 5 hh]8и?_JB5h[,T"4?h!s@W$ KE9JY@m$ T MpSFC.f*) @ޫO,iwJ-3FF! @DJi:/-,Q @ <7^ |3®гn4Pl3;Eɠ[4Pkg>R5}tT@[@ *[Ș?{p5-d)`4 @Y{eI J> PsJ8D݊npVq5 d%hr%7;@o5K!p50WTRH*l Y@: ՛SC$Ȯ] #&සV, KY@C/@p6"mkr' ?|PT)gF a?ZpWE@dX AU@Y@Ǝ(@< p h5`^@7 @l%l.`[͡nir3ksIeXu\3Aj!@ h%_4&M8@ j^`*SPfx# H vUzh "?e>R~-PUD*;:"Azh*ay0М VBBdD0e"|R -<PMO't <-g?BwzPCOiOaϣ|9 [@0}$䄕 P0`KAEWVɎhw 8Y@J5p4@ u+] ux%0t}qTNC h<q&d7_PO%I B@<^ ~VP;mM$9sM{S3ym LZ :@Ȟq&0g4;H_M_nX[B0Q cA;@JH= `PnЉ`j&^N.z(,opOv9DH Y7y>^3W%yŮX_ o>n;媾<=ʛӓg_Yf on?`?Lm[ۺeoѯ~؃q/\ag`IGGw4-WLPF?{~l2=r@W?f1-ϼ_ӎ_x~'xQ.<*+J[vQ}Db?yN<ӷq>j~_wګEjyrScb>".8İ?[G#9phId! [%Gw?[G=<|5ϯ/_\yL1\#Pޖ-?wm['똵IaTqߖbv0%}GrztGv-a(#jqbcNfU7FkwI"{=:ZГ0/}4h]}:88zs }yuUko]K}.dz30@YRQ,@[G~ |]@Kʆ!{Qf5?hp/j`Yw}G pa8#WtO0oI>ŁȜncƟݧyZJx7@f{3UTcF9߆B@}v= vwX<^ l~%}# L@ޟ|wz67ui@Ua@ƽVFMϜ,3LFx`x_Cx!tC-YgwH8OO"`݀8=O:Ed qo.9O{_~|U@/ WX0X'$D6#m?M,{ ]1D #?DF~ DlMQ=w= \dr<e|8њ%TF z/ 'Ld -d6׬ 1 4. z~ch `/{('Б |/-;c_Q`n`Ii@]'?*, s4g'c0:(P4;2uHY@0z>CX ) n3XLE@x6 @@3J 9 a?~BPGE: 7woLgiI&k5DsNK, OP=m62TBhlOr?,c@Au_ `2AR; ?6r_vyPPY@D$4GdH%_ Fea:S AB,$, "LP9 EH `?C˚7ԃ"0 4Pػ؞_dm&& X J1%QfUUvX X : tJq4_!Pm$IZi 2PX)J؃χAx7X+o` Xb@n@T0KU,?.sHHTdx2_O;% Hq w;&B@)>F t2- kKW Rd͔b@)` ³ `1 wD xޭ,  ,%X_FHJp8:y`RXy2A7^@z%0-&Y@ @97ciu#F4q% [/Q&̍ ܲ@&]]+uN,#_)rz #^ ܺ^@Va"ksCsZ pӅD!@"|9 5-} .& V8eM` k=C@:вnk0J]*yL^F<D7idNZg[/2vZ;їv '), 03 ȘV E>`Rh{M@y/zf#-ӜO#@.p5ētįKدt +tXгw]Ag36#a|@>Nh@&0g',sX)37kI$ER$c;6O)ꏕv8,*|%xp,FH *, V^U@?_', IDAT}"?D@m!+ogvԃ-@8"Y?hX`?̗7]{pY@F,ٲ`7[ <ZSPL\%߼H BY@zvcP~w?2i^@ۛ@uJfrzAOg:1̭ |>)`JV`di쑽` ^! ,`nF[S ah=E`]_^JxmtTVۇ8͒ `Ovÿ"mlaN<~}:NqSziwaٿow=nĆcU~c.`?ݛ7pK|!wث5ޜW:czC|CsG7AՈZx8'}8}LrsrHiT%3 W2>]6\p rYe.@go,?܏Hv{G>;_6J=>ax$!m#؟%O}⑄[PE75G|Ԣ_OHۍC@b 9GrnqHiqt`OHۭ5| UUE ʝ<(lb[^_xF?dv&>puQ `$\,;4]0ULHCaɿҧ (D@mWX@Z/ڸI!ƫRzE<hWJ!֜k!;k `O#dv/=!*Ii5h`8$<:M4op95NUvc3c'B *. h"  zN. ȟH |_+K8 U0SPT * `L +,_- hd!z *. *f(Lugy@ X Lk]X> K b?,~y,J!%uM@̖C%0R%@Aqp ]"R%0kU l3@w<?BWbQ żx\J`PPjbPǾ:I h1PW  % h7)TIkD`, UPnh"f8iAJ`MWp1@i{Ph蕕3@n~f˫uv2(xԎNKkd/9@7C:+:AuF;TG* |M T형n_ 8G/8r/ b^pЙWskJ] P TD, ~];hQNK^ ? h!jp׃,SHJQ@GCυnݢ`^@P*Q `M,Xb9 LY@_1 -B`( \`UC"pue3]|G'Pş{`s1lMYNHڟyWgb?q_Gs'w:x?7/7m;;S?yZk["PE6>Ψǟɟjcl:d*nG9f?JQ(D%[ 缄 1$^\ahB9*;nYZ;OrG d!! %) }}OfE0ry +XqhMGy8OEkJ*k6PMxqSw9"""@&!r96_A:&/sa >S 4&yD!ڽވd! 8vW p<k@6:Th j, r:V9"@= N(JAG"%rε_N@Y@u @}~DY9/M7 9`p1`)P;!:DiLY@3 )x9.uk"|yD&ЯDB@wvmYP_3e6H+/az@^l8AjE[ Bw\>e+Q_3䜡8Hy &/w.ܡ %PJ4.<$|`K3@``;4x.K hSZO `)`@ @&&Rkw@% 8yEb @|P&` {HAzV@-@b Ķ 4Yv3& M&&mzy3B8Y<-绀WʹLL\;_H_{ON /{/WHDLL+Kw4f&@Ⳁw  K<{Gtҷ DNwP3-(sog+ƿ%Oa}{c{gcg?~zf?zIQXW~nOQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQE|z?PI#M'>k#a?0\1@5&ÆĿC|}S?o:õƟٍX>{> Q|%>X ,m(@OP%0 ^ |D70 $P_ +9.?~>)/ Ŀ+Kq;yu-!{-+qesk/MA+,9/ԵNR>& $(`p)J`.J!X6;& `} @&4M'%8_kBG iۚ|W έV!x #,Mm4an~-PXP@x]\(H.UH (Ps@T=7V#'wOv 48&p4W`]#P"hDB` H"h DeV"@<1 @"TXR=]@HN@$z=DA#8d `vh?o HU 8K2Ǖ 48n $`aWh,r486 @U)He9 HwLg @< \ Q@y,  ]@LЎ. s jei Hw}@yZ7 kG]@+zr߆F= ֺg&pnpP<tYBz$`r hKPjdRH6Dm]@Pib@8P ($z-Z@WT"H8@kuyH=~=v@ +> tmV!HHj{P!He}&4 @満P۳vP+248խk}F =(;H.~#ݝp <o KNzH ~`x$p?::k$N c?XP{tE 5(){ PPaS9,bϐ9I[m~1;Sm׌Nz`@#0@߃%Mvוl@-$xQ!\6}QOz6W]mo 0V| bfWa80WIv v:gA"oOApp $fK oc0ԏIx}HkI#ɏ3#](Loqpp[@z`%Yp%0Ww MޠY g$YhƟc `r2;pEp s@p2JWj3Y;=&"j[Z =6B>J17F&fkLgɋ4 ;po7E:қ0lK@0腅 [ 0R@Nᬱt#И@ 9]+&xO^=sK`5WM @j xf^7[H۸,k5H6CCݾ Hr_珵v_>' .J `.a[@}t.t^~N* P? АP'wҳH^ OKD%x#ۊC HzC `05\<#B1}rnPq@,8ҮAzY|@&@aq.JS2x<@v-e Cd@?X/{E`@yP{.{@ꯝhK@y Txj28юӮAO* ? b d c4 p3n=mŒ&pm&]T긤K@.m1$S,$={^lF9#ΛYQ*  ( P5 h=! |N4P0ǎ`s. Lapҕ=+ *d@`</ jDQ@E5nD0PXyi9 44灀< 7Ѯx@Z@nn9C}nhNFX0n5 v@>(E$K+7`dbkvF ;DQKU O8 `$5J# "Q@$Z P XE!< ݝyBZ@ Fzry5@`@$ ( BtM!z0@O]22. i ӉXΫ*\xL;L##BKs:@>2H@R6 .@~(QuwM$ n9KvV 0@6[@<KBP^o_hv18N9F (PGM#تhߍȣ@˚@c<$2@UK5@( X XA8o CpѢ%zr)143w8)r{6KPV.E@qoЎHീ`?/~B0 h( ܖLAUDQ`|P0r&}Xok Q%DyC9]SO`0L$+e5 u;Iu_ԏxzoP|rd+ }P?ư>_h<ЇϠXl8,{y~FgVo@ pX*:*nNQӷ@3,[ =vL@."`}|@#z./ V!4 k` [ezɅ> NC5O~"S< Vv^kp._5ܫx jW!bMSF$pvgnЉ^c \ȃ`/8D@ޏ/I9x@spI #/%A@w+: ,j b'l@Sp#H5h?bQ@@!:wxkDm_4Q@i2m%'`Q@C*DJ]Jc0<`@\ ?j3U-Ɏi2 F0 y@ n"r2s h1 x LP(P}G40l&0t /rGiВ(8dI#&^( (q@hFA|/=g. tq t8`0F#Nv|l`UGd6Z@DQ@R4H`KT@~yP<@<&(80`˅P"q@D@I<ZEi@#Aq9  Q4X (zC(@# yD(0 (y ; (Q@ $?^-ꔂ`_w<U Ɲ@D8 $0ꆁџ)^F2:FcZek@#^|{D4UX-/@s@5hp @#'0iFB#"L2@u@{P2,H#?^PyFsQMjwSF0BSx: .`Pڸ@*oGo P>;Ό-Hl ?Z&uݹgb|P 0_`A?2|_]a @-C|,4SA!@#rW]._{2b`XYxxX;Fr"XPo37(Ǭ'ON;?aArK> 38X?7@oL_o$(jo2FO>j3%_*5V91yk`//:(g~;tGDޚϟ | v-,e {loPEގ-CC@[#߁!;q~^7_y?ps9ґ]jt~~ht(p9 vyϰ  v\(kX[tA{r}+Hî9O+ o z p{kB\xEg+goXЩHJ&;8AqaAǰ0`W`T1Ok+1L lc`pNI]Cl7X/y PۿmrWS w} / F*!䫍b 8r4J~ .WDmp>p{kT_ W:e@SvP9&ocmB.{7G4 (@#)"6Wڒ G#5`bQ@d__}7p's'v4yBǕ8". 3h0( NO9,p:py(F@>'̀$@s x4`rQ@g~F8~;'H 8pҸp @X~o;+QG8q~ffg8Pҽh F_/bx98h7 ;A $-vQ}p 6U@^ʎ]$v h>?X {QThH/ 8YFr py`N`$* @(EP 4m@d.3$@V9Xa'0r0!m/0zV4p'U@ZLA/ TU2#@ - 8C@ *mTc5 I:8?un& DU;PjLofUBŋև7'Fc)01Ҟ?P(^ $&FqWF QJJW=^۔-Jx*C9|EX3 ~R Cb?]2a $1O9WG<5I!đ#$}whMRaa⶟$js:Zxtg[<5I!5!<ȱ#b,~K r.mo;r}[_]iu`};s zJWmE+j d<~G@\h'5~R2j"5 Bi߉hΓ'Iؿ=qJ+ء岿# ~/#Ǘ}%1o %N/I.[-O[w$a7X~q51&[C>:HDTp# A_;Q~=ԙ3-q˫؇U\eK "@B ;\@@ި8.Q3p,#:>dfO7k ?hY=v8Z}yxƂf@zB@#PE< @P5| & "Jx8Z) N0r5v9 rEˍ@~߂`KssY\Y >Ng<TG۬K@Om@Z5To vd `p| _/({(,O߼wht%|SUU@kpőP9w>/n+Iּan& N,r؍!kQVKmKr~X30ҧU. ,xTPH $ S 7fpY 0[(#FVY@ L\$& HCZXϤ$[ABu  >GDԇ:#d8CRh]"4%Іc=Y>L5AP%X/c@DuPq5JGΡ$bw!e$tKEhlx 8DD* ` `N4r sB4N$=A{T7XtG H^8,,qFr^@on/* (^@Dm* . ` hY@Eby{%F@Y@DrMZq($gd=n/eE0H  KP.qMfEڮv0Q*) 8x~7wcϠ$%a hY_9@f~F tRfO ~@7({=j'tG5SkzR?Wot~9!w6cK${XڿFp"Imy W$ :>$~%X0'F{ {عKew6=ŗoxNIDAT`-O7Pv_unG+OE-Gf?@? :f>Aҟ=3Wtkz/71yp: :xF6NzOvvF Ζ ݎ8q!j:uWڧrC܁X<`{+@'PoW'o;JMs8N[\lUdz=x:YNP=.@MˮT, @?9 vL^g;UI0HrctJ @Գ~ =$~h"~/@ C@䟽 )@># .g4Xqg‰/99Q4@^@=CTAD;.ӈs}ّPzPHXƯ56q5!Dc-SuQe=KЩ@/Ϥ@}V` NT&"p,- I\B HidM` 45zE7z^, ^\[fUkWw:qib-99)@}~} lv_T?Fhʦ`ߢ/7jg}>l~[:؏ֽz~zv_3^͑Ϭgf:fnu󸯹ijDvꟿOSP>wyr8B>y^inz_,}/{?3jmٛ;|?yg f?öoUo+lC7+ Gn?:}ֱSf S;}d=gM=|I43lG<1pgi=3/t@xWlã$WtLGy~ ڿُQ+ `Yiq(ώ}':ЭGy! |?ۏGy~ #iwp[dp8&:O@ W+>BrD|9Dz`> {pB&T|< (P~0rDlyp-""HA@@$Jj(DV:@D@FER#+" ^(y["+V~*+~eȀA?@EŌDpBPT3>$Q( hP#EHDDDir÷@̚H PZPHqC@ `BEDಀDY@Y@@Q @`+@DY@DfW²HKWDv! '9"^kH4.4@~RLDY@?@-E)0@P( @^( ;  ~ pn ""wmc[]Sj: SB|4eN) ,q{ұzĉZgiҖ:I :0} Y@$,PiUZ`4 Y@`d|zR_^@`Hk;$ -(i`Lt, IR?^VtDȐt>[ h "0?GN.HKf7PL k;hh`< 4dM< Kk@4  2dM\Zn- j" g;  `zI">z)߁  ?!g]L? 0.{qG1iB$8IbfMIoob_?#>?{MĬ?G? gS$:93ia;|~}qUMDYt'*^ ? X#7wm7mIב{xO[W|u?)؊ ]Ϗ`HV+l ؼ ?Z&>#V|$-p(lXD?y >H[P?g>f[no/̾p8׬%ю7GyR[k*مl`rzu 9p(K- 5ZI`{`-:f\NяР= H`PHN.K9_ %uпZe<5@*oЯaV:D}<|i4@Q 8l6Y@ug;\HA4ieH ڝ ,6/;;glY@ "0[nǥҐ ZidDHKhZe)C@Mdh ` t$! i`zDh @! $ԃJ`-gە\Vz @D, B5'Y\f)uB@  dv-6t h utc/ mע@ҎK'= $*=8UC v?340b@MB@0٥`GI`/u%SIQP L hȲI@/n:ݴ`= u^f2#nͯ#0x%F 6y6ZA@o S`fkDBXv5J sn"Dz1h?J4T%oNlgD:[>mד0#i@} hdH A.;v#dJ vTuz#I9_BAU`]R7>u"X\05xd{zdzB3)l `)8Gd势Lsws& <0H 9P713O! 0k3 P3`y @P $[00SE`/:?` '/A6> `:.Wϥ>:4`jfχ._4^p 0kcy,W3  omzH fnϪWPm;z}i::KZjM@r(g Nc4k.،H}-M=vhfpbq1 @J`LzΗ<;hkeK0xL l`=CD媦N_* x`r:XPP_diz, i_B@d)hh4;/-ր, m Dli0+chD"@*r2 :`xVgX7鿱i0r* H: z%̮"4fTЫU lƀb`@0TtJuF8_2uL@ῴh&*͗؉@ƿ2r_USvZY D:i~8@`S  o =`*uF _jU :00_ #@7@KP S`Nؑ3"Xu(q#,,c D4zQ;Z;h E%0UgIlB Ag s4W^@7jIyad4T FQ1` kApkn mB^ bIh0%jz'P0. p"t4P Q&HK @UMTMH(9@ H!k (Џ`&0&u`n,+/$8~oO}_Cמ|7+?4֖{qiGo5>$}oJ/G5g b+Dͷ~?=?^T_cXa n{bomݚCr5}  |њ(O= =AGhMOB@^}` 6ul] s-7}o 80j\}ڡ^VM3 34@G _OhQ3>7/PDOa`Q={f )B@6A\Du$ +nD0iW7V":kzGf#63i= @]}`M1k,Ȉ@(tp34߃tA7}bn: v @ :'76{J 5 W7}bneq =R bwn i;Co-iM) B2e;@~i@韂"0) $k3Zc2=D"0)  f=Z^bhU1#W|@:,oh7mo&0F ^.@]@3~S:FSoT(_`PFr&1 k !@mo;*ehdW ynmk<%Fkh"pA @ {< vُ917 t4o,a @nZ5Y.1@@yڸ]@ ɃL ^Pd6PVA@W`>`z=,%LFn mv* !]@boKa͞2Pv 8 t$>/_d*qP !X] @:uC[m @t u-=rArI` 6{(a,?_o9ٿF^1CcS  p9 NJ?#z1'IENDB`ggsci/man/figures/README-ggsci-gsea-1.png0000644000176200001440000013151715120434214017401 0ustar liggesusersPNG  IHDR@|']& pHYs%%IR$PLTEB>>"gR PNUT  S8:GF^D[\10yuenn}rfv~b{u$#VF@Y#"vq< 1 ?Imߦ~3 py?)=N 1ռDž `B?5W.+z Bj0< )]bէ&0}ҁ3سg)G {H!C1>A  Fn<`7z?M_;Fy8{F3m1U]"X+W"pR Ci֫˽@Vx(JRbZ@൹1~[?\ =@?_3h g͠\ "`ak@) ʤzjMñ6ŞRvyC0 P}OaHMa'ec7 Pl'\P$ԡyhD,Wdw?@! _C 3C Pv>C  41!3 ອXO} E\@m,P#;*8#`nP >Q`u .1,_ho t @HwRB< dn. saM(\VEf6S4Y[0e1 ˓r@oKW+{o]ySl@l#)uE[Al6,OЃK; $(g \@uw0u+ק(5͖4V9הJ"h `0+M/"@Qw?Ğ=JPQDq'PU$%t1Vx`ଡ଼PL` \Iv. SjMw7<r. Jo`_%@ɺB3. {w~L8DjOKaU0 HOa e4Cx. }KeJ}ф; k r u+P,(; . @4>@P}/ NvB,<`.Ǔk'%^5 !ćd0Fb.=8T ɠ!gH@êT%V x"^Ocӯ-ؼfh=w/PW <`l/tտO(}R*`iBA. jb@ing<#-Jj9!A(i 9W/v:e03#gU:kz4 R #!(P:6P["ߑ@@H492rC1h@~ @@^]T W/vDhbE 6h/ZA4 Wp>].nb桷y?`ZW4!X-t᰻f ,BJ"FB>P_ <:>`] `DZ >/h,a;O@"x|@H58Am 9Ain{09@xhN @ 5kDq8 ., f `{' 3{o 0(@]@R_P x+h[CT4{0s؋ok(%95h^R~EcZIp `0c%p\iI xg,:[ B4F9gP݁Te9 {eV+@s$5|sa  `9.  g%5ܰ2uv1V9b;q( 2[M6p<%{Z TV-) . a H4O/ wdx[BE g5pd.<cL {$dG•<6 #Wdvƿ{G3@ T#|9^@4}~e{*"g@0k`z;~Ev4 `2/`ZB Mt_Vx0?[b~(" 6<_n`1|u0lv H A?%H5n^NPغ2Wz-^ PĒAq" D-@՜u(gD N͵L) _E2gAYmLFqE ؃<Xji*6RbLRV*?Pp<\6P;] (`. I <K0g0yWǾ z +=O²1-;}X8iK'nz@ q)~Qo\I\@{0{i'5{ ?/sׂ[9BZ :eo1§#@i( \@B0mN p:yo ™~.+ .f Q\@XЁA+o8@ Ht5~D؃)Ϝb6v#T4rmfDp AIc8PfΈ4&9?0 2g02؄@iUe6ONikc?K3$L3i8'Zﴅ'6.1a?yKb{03<o@{o m7`M `$7.roW=- 5g0r@F!X*S~&pِzŕ imr11\6`\\1 @Qr-\@{0{jgr\ kL^@Zqi` `F  @&=rXJ A#_,@<:g02P6r@HX@J`X?F`@؉ {+P AnD 9 @Is sPXukO?U]&O^C#z`q0_Zq Hp^ ć[\p [" >o?+c!Xu2h'?"}&7_8#~18-{?{gÜ8WQتnݲ23$K{,!l]cz~qr oor7ϾY@ucs9\suIxOoݽٜ>|YNx#:~⮻7` z~/?n~Y .+AuEutGmsMh>3}:u;eVuwo%Ӽ3}~Zuol^+)[3-ᗫmr19N >o8Eu_Uy *W?}M u9/w)[uϭ_P @~7ЍaCjl< @nx20`O"ծwm(PhO{u !ۯMUp h }M۞ ]}=OH!f_|pHz~8FL`s/^?ot!أ O_#$A= I$!σ~9`۫HFR?a40}fƀB׳ q4E`-W @b$HA_! ( XKS @{_八eXM -xo>jod?d 'p P/Tʟ삤"t@E޲D$IxWxG$]GeU@ _ `ipoq=g-Mm@?;CP$]>  vF%T( >Rԃ l*%?x@`oj/F|*0zRA%) 7/A@owa. xuVݢ< `k&}{? Z |>$WPN_>.CnVܫe L#N#!XGި#i?$J %) 'AYH:˲+9*d`@5 HGa+!Zo "+AxJ!Z`i/* `YXP$Py@:K`uh GZ %}Cl!u,o22`{TF_ `*@ sF#&Dh=@BP+8 4?@ KΛVdS`+"I'm @xr%Q`w؋ @`@(* @o/A?}t"^@5O 9tO *dD.@* R >iuh>ȝFXPWN2@]-KxB\ (X'd@dYY@MUE{аn@ꂠ&O.D00* " 2NP {"`+=@뽀l V \HN` !&0#`TQL(з=5`[[0{ hS="`9R^N@ {З!r9@| 141gP#eT P @"}&4N r' > d8j7X3i; V (@2E؎ qM$WFH dr ̀?U ש5/ Hti}$OEaO>b1w C^*cuWn`NDIEh L!0`!.U@od*tKAxGgM-р(CQ:)/7ŽBng DdP0q&4@LXP1eH3xf`D0\_ B0 |ӛ6VPY H%Np}20b$V p 4c׻aO-)< >o*NqZu'icS`h0 &fQdPHQ@K2'?m ]&C5Xb(@Xx P^@6PYޮ `Nƻ" C~hP.VM4->*`NCA:7mK `, i\@$, }Q`%(ʔh1x V- Ⱦ?\?X $*mGX x__, ZsH&A߉!xR _gF]X'4 0,2\@!xC^@Rg-* f$*  a~@a"h@# #Jk5{yJ@ h'0unTvA˿x'ʁ@4z= :O <,D0 n/Hd/7EX*wS \s P(45XAF~Qx`۟7w?EF@G ZP5/m$-N`_H\τ (4 y| @5!A$OA L*~%h  #Ī `سpPB :YX ppVa@u ?7P?aI@lZ[9N`AGU56 P$*#hD1L`%{"@q ʑ@ݨ?h$p^@T ’lU5 q}4"`hG BNmh&0@? "u"oNiAzq+hV:y3VP 偑K4{Pٿ` N$&* N#=@u!&H P:+7Po9+8‰e7t(Nς(8 3 (2CS jsByK~IA1{>:`>j @/. ݨS`L`X򂐇‹_.l E_t0 >;z|U@v# GT е@eXT'X@Z` }TfU@Q|H+@ `L{7НHl2j IDAT0BJ kjpP/q0X:I{IG >3a `VyqI%L4H!h_B\4}t_,h'ϧq,$Zxէ"CPxL[8X$'D8twX9B6f¬Qo-"5@O!Z13k؏]CIH30 .8TpA@[4r0 ML4Zjhx]Fhָt)?mN͉e&qܞ3sq\lͷq\.?1fr<'~?-9ogZ{EihzXN\ EuCLlH۫n{7t"+ф\t?m:>oAg^սSSq'T]-1p_p8'}$w3 @V$Ci+/ghW*/_o ~׭p|8g2|> 5<@O,vOȣzVLtSwUN|׵\r ,^n+QLT6Jy] <@3|) Z@- {$`Z CţTf`Wj-/"Սyd7$ n YmBO|=Y-4(zo@j}-0 `EFG~okUW1m Ll~(o[@} 8x\-Yxo,&.@OJ#n10l@YIZg \c/#ni>} o`.иPh (!%@xywN8g-9;t00b o ,$pB #v!ø `|s&ି-^Q2%0J* X!0!Q~f#n/H/g*tq/(J*%oF" VA1' zd* ;AB0,w *2@sZ@ ,jklǏk D XzN)ʰ%0vퟮ7Y ^4PP(LPT|FF |N*`d+=}M@@oiYegXp ~G|)~ ̢ ߗ@A{P٫>yZz-#[@ ,kEubZɽ?Hgh# N`G8qCy,=Y郚C#4PHNN`9NVݦT@لF9*4n!aprɧ ?}@\L)23[ᭋZ`{5@s( !˻-!P}_:z* h (Ôz`l˂ 9Ldt/ h]ap|loA`ݗ@׆* xSq'_5+lj [`NyX)3@=j!d>%!N`YPMt+C"E_BQr#@7d#@J4&h0Q=.Q*A'0(/L B 2P7J`akմ{Bbq0—d@~Р:`j\@T@@RiްC쬵$N {F]!9g>t2 OdRz9N҅@lcIw#Bgjh_ CDE } H!7!e^@eGfBT5S2 (& * b>Q ,$80 [8(p @y(Z\ޏ`P*˵Hf 8@5 &h "0 *S8|tw@b2O  9I@v@T@UucG@, R%`* nyx @x-e9>(D2< dk@>+@R-*,SHpHc85{42Nۂ_@' LPGA8,fGA8h:B %2{yNXߧhP <_5:1 i~Lp A 46` NՅD0<w\ d@,VB}2TJ q 4 'PP9 t0U@NNІPc ȾOcs@4 ۡhJB`~Uv`&X< FQ8+nj."!!oف<@N rR)ѿap8by`cz'&e;wRX@b#WE ڞT)7`#!T@Z, r8.`˧D00 LM@$Bz/*jb{mN.P QbUg"HVR_bp2Zf 8-T&XaTv{(Pÿ s*̚dx&P|?8bL y|bXn >  U'h>!P N懝f-D0`6(sRDvPa(`Vq@2 B ;!1  AEe|PįCmlȆ?'5VcV]݇@͆sѧiu!`{dHJy7܋Xp3I44^ē, ͝r{1i9kLC +̫/sO2RFBdpen}4'p5RBrxF0 48t@ H|t&!Ƅ|(̉T@rzȲ3>L N`P3  |3" H 9> k vF@&`g΅wu4X;TBR#3ԓX&_jP U@Vߢ"I M^@> v}@=0j]^bpVʃf9!G0 !EAa`4 sa _gLʌ,'\rsl9$"#8KA0`] Lp @ !@-\`sP""ߴ hH;@2 ~, cy WF0T?Y@TH= ?(!p|."BPY$,"{,E&rx  :% e- Sfd&B1!u# 'Yo8. رm>c'![ L{ԗZ"Kot:uA]$iSN)6O%EK7,/o!/B?xu]CTF$NS\+svhoGrsutzϟǣdGo:I`Oor߯NMv\/VɝS䧛+GVnt܇vfN+|dOgP] @pdף9a{z$d^S uOX fT}4\[rvX05s)ӎ<("\A&@MC6LC@dIwvk<fC`ػ?ɲع$,((A@@y&,o!'~=6+8n4r N!0@GBЍ0@@$xB5.vb*|چ,! q ?vB>8-Q 73y*mgoSكCݢ$0X:I ֬*f4#U@UXS3F[8AA;2nB Zt`? $7oQ󪀔/@SY1C$0sF7 Y0Dk+h* @T@9ܸp=!X0~gE|v@OD#9HкJ!>s fT@A XC`u9+ ̂x0k=bn) HX BzFsSSo r8{r[rB[Sv< Hg1HVN=X Tg|F#'  oeF<$@iH3Aߤ_L0@A`3]4@˭  6 * u!(Ue4  T1.Z ?&"-fMQy* a l| ~|_ ..ɧԧ= E>?^>\@@SP1g=e~n0}fP4BS9dB f.s 0/Rcv;%9jB h@d\Z8D@j& !H`O$aǜa^vY K )UA(1o@9V3R pHN?e+AU@O2SC+6bfRe?"{~&  B; PXV 0'2&@Xt) [ l Sluh. SV!T[j|@wd,Fh`YPFhRlR]pI0yQQF"d˿2$FUp OC8bDV!^FEoΠ7Y~~|޻ {}uZ* qBʼ+;/0ArD2t4Eq>҅71X桪'zy\KynϡjC &' 8@4@W5pD#P;q)%p `lqC=s=zD+*Kg`TҐ(R2,s W("P#h?8I 0C @N( $p+Iܢ n["$1bMT@jp0<`k෼F_e_`}H"@`Fz9+p|5P~{2d-Za>QDܠ qڄZ2? 1U0 T+I]C?jR ^d,\ĠĔ|< bQ`<N4;' ә`'p-m"]ʏ:إAu![pł}R䜧?#"E8z2T @wiVɏAwR_L?ܟuE/]D(KfFzU@6FS/Fhaz[]h@c(!2 "zDC@ĭ"SqFy=P{-/Հz9{ IDATjdƚ`O@}q`y5n\%yJ=QS@k>T@j h<'zX6r H`AzZEI( -XpaX ,5՚U@?y9?j?LHwShxR-3iL@Xj @VA2Z.P&0 |U[+߄r !ZA@K=Ex_"غrdjQQ`]#pP%ڲ՟ߴj Lw. e"pWOqA2M A NW+aQ`~MK=5XJV4T^CA V׆  . & * hM8eܪU@Zgb V ʚt8T@ 1 38]:oѬ7C?TșЋ|RS YA_#B58T@01@|Y`A@B_J 3hŜb,Z,E;Hr/mfj" Ȳ|C@?l(>_F0 `EU@j6Pc~9#ܘ(4:@d: f0/`npksO2sj:5gPѭɿܾY]@_S}jjtgsзߪnU/VI`=cq7N,>ޫ<ƵU6ֶ6r|Yt6Z)?ݚܚ<;R},O眚X9w@?~^vl_3gLա0Jjmu+t*y"*9!!BvřVF&.Hp &_Kˮ`yK)㇑XF:|?+@{MCg``D`FM'>WF~p4&NbOO~E6o#Mp?*{p׀i6F"6`1:SG'ج<)ܭ#4P-\= Y78<ئBq'q=ߞ@ h~ SO׿NPlX=z>I UOoKڶIj;n쭎qmDpoODwҷ @g L=]X"@3G$_=p'4#1@#`Oja5'h[-g&|JF :B6[1V$ ?@l&Pq~tNP @utC٠#ԎO>VJ0@02@@P@  ,pW0c4ƭ :O1 (>g>U;tC@q+eOx~.Vj&L`{"@p(L@.hN`˛JbhI 6B @dࠪGB#׍aƝv6|R#~_:Ԇ ȍNZQ@nA@'@wz(Z1qWZ5f N[&y`" t& (p06pM ?Pԁy)\DN~- K?X85<0)Bh `}ղ`@'}%>sO>7^\GN`5Tb5a0EO&U7> yrc*- e)L C( /@;"o} zTNryO0 70;I#(x@%P u1 (<`%UEL@$C- [5@-`n纏n ?r=_@b}"@C9f $@c?Qm2kA2>Fq`z DQ@ `bpjOZ&p>\n.иSu/:SO"}b`j `KHD4`?>'4C'Myj fRAZzO )"ȟUj/! Q@h&'Ypj)ۼ <> ̥0)|(02U( n PKX|u p86̤U l@a@;%='bA,P`e["(X5tL|@(p >pg|FUaoJt;FD0M ?u< @ `X {DB@C?O@b``d ~tr qKCPcKAZpb{$< 'R `S)Dp5BT$/Kv-`D?ps>q)v뗐L+q$}BcA9`fF 2SP 0$ (D H+ -[-q>dj/ƚp1bR%X/g}?$FdfF 2 aj8@NѤvL@Lնz\( mPPҳ݇9`b9`:tBDnbLs`(h\C?p7ӯ|]1M/D}HۿhQGY3@zq6nu9jWCCG@>4ރPeG-@e?%HG>RW21@d{- @ę@ Q@*PXax @45, & 9 $N_4?KHM ;=[]ZN?Ю@Q@/wnV0.d oQ@ٟk \Q@zrТm$ )H ?9"0CT ~I/_sD`b> /jb>Г hpl~*SUb@0kVOv-!B+t3@ο)|> h@KAQHA2 (<GjQh4t.@4".ˎ@Re3l2}OV! /@+e`*|2)\)w(jhDvwڏĆb9LtTF)!HYA@kP>@0cp0&-a{ywL@$D#R?# 'bZ@ƘV SN[f x[FwL@~N`lJ[&u#@1|h'J|p%K T H GJ18m*( 2B ;Ƞc5)X HzW H>0k'+f([X|RQPvyF~`Sr.}r}y[f@Zq_|7<^cR@ E$?p Q@d8@vO` |E ~'1qXMRFa Є]  + A"< M lGYY H!240 >_#XUIͫb>'IPρ7@P:( -(&{D0de 6Dy ˻~=]>} @Rj}+A{$\HР,NB|" =,gHQ] "Zj_N` Xt 07\W46XFo%Qf/6ߤ7%&;ҿWO = :˽bkCX3okþio/5!G Nn 7anޑ1?0j͆1fFCRkݽ~>㋅8]W ֌A؟_~Hj: r4#5~SB>%-'Ч0? A-lC-ovie˃mh ٔW-m3wEOkyu#Y ]|1t02ȟ0u]CYGƔ 2>-FN>O픜 '2eƚ \(0tH!6 ]5`L&L rx,?wzP\0~î~[n(9@%G>"ތ˃PM@8 @t w\m( P8Ӆj vY\C2*PM@tQSR]cps"bY?6"|?u8L<]5}#n0F r   P@xuel%oCh+p+ܞx(g:@A?{WÜD ASzZe]$ټ= 5@4D@MLs4xrH=}fgP-ەPzI$pt`{*`Dr8šhQ@j.zD#f1 K!طyrG ]˳4)q)`mt)J}R@`B82INv H$yo}y@DOh)/ajߤt" ?X )p"׎oY4h'p#q!-`FLg7 $ Y?wDKBuG՗Ie HU@RT@Ycq 4y.iU@}Rb<X|f), H`_К5,h*05)N 'M hL MBϝC 8fA^tiA!@ 9 h`S~%| lHi@)A huAqgw]w[DGz/kvoլ͕{B@ZPxx*U2P_'tOm;ЀB0U(2С#2?=u]7x?$ {as=) 0P)* 9F4+>#.bAD2pNe`S@0n LbH5#R]((A%0m$ǽ+M̢,HDۅ#@ X⼀<2A]pt%~8.ŇG ^@i!ԠT B xoEd \$+ ā(o}Ue^*[H7C3WW@8q hJT2 +C@Z:oQ@ox =3!*1@/-qZ'8]3ړy>&᱁p R ,JBS(uBP/ :ߠP^VE =f[g:8 @ &H A{"*P!^I3924A 2c!ຽ+4D J, }vBM@EC?rAe 2M Vf`8VU!3/  P*e!CI38 ئ𾣓'Z`14*G 2P20" #/# ď``'-An U@-!i>- F!ݟ 4#:ya؁!N<@Dmٴ,X* 5NS0l GrB+ K);ASC%G&c-@^gH`|c_bZWּyj;h1Hy!$&Ae߹-0 Pur@cs F[s]zt@:+Fp螀+ yAIvL9wGá+!(~- ) BPt">G഼tnHu~\ U,ƁD`@ӪG%pdG qwjςC PɊ{y lT@@Bj˜R@Y4${@BRCMf(Фh`l8R"a-7^,=dP(Gy>z@)@I[gRpV/%:c/4 R;We H`/՛A㲣ݨXCTGvЕdĀBc V `Mqg; E !b:  44(Jбv0`-`Lt#d$Hvpn*/ ESfb-@X!/0/K7m$/РFQ8⯰(q '@aI@!"0Op!*b` 83`y{B u׆qCč, ,o.>$ !JIDsTT/H$Z?# !]B"9G+0E `"'h? تJM!UHgC@+LJNt= 960 p``a^@; *@Avԩ6oK+PZpO隕 H NpОEaMhD H@ڥb_ I@#){/: ST.<}XABK`&̢ G  x Q!5Bw%3Iu"K`e4^@1nGw+0cl.c=|`Y| (,?%̬JG* AGB[H(`ӳ .:/ b#Le`OyGZFrkm% b}T@wOq :JlxpS`=O5B?a_h qt<6sHeu$~XnXpK0ARm[ASPWC$4! 1(漦 w IDAT; @.f`6)a a*Pf@rB7$zgXhSx TEw\=RW01x`D84R@P2Gs "q$u[. 810aIU@h:P?;^t@vA3P ( E/ @1VhKt%t"g]Hۃ Qal/8BK`k@: *{T%xI>sxџVfpD x"8i!X6I$@M'&^@,L߸ɼ` (kc"׏8o%p/*~G LQV 8a!v;D*ɚ>+w.7R0 hr:?4o͗gsPd .%㨀X@ B׃/e.*'yzDs ^ ڽ18 ;vT@:hq/x6~Sc1YyQPfO`;00`$ XcȄE+0:PR=;7R`Pt<9Kg3VEG NB  o$^u1,S@Y!ؠ*' /pE Ө9't)vܼvkɽ1׷y%xde1ZV@~/moz8DK2^O읋rS6ĉVB M fN*c|,=+u__#QۻCMJSYt=Z[^b! x */U,Cc|l&,5 "L^wB|o/,'̒qqG@K0$_g~<+ass= @n)kza*(!JR Wy\q@Kc,M3n.ȚZڮf5>I$-W}1uH \ku&P< 8_Sb` E{ L.T0 `<SR }Q&ȘdKE$q/]$:/`{7X]kFot!:lK$)#EڋF%0?3pIU, QƜ!Α߇CI2 i7 ,a8M Llx{Y@!]DPKc$܋X萊(@0D U`ka46_f|J f=vpǘB0p[Y@*m"b ` ezWH$#<n:k%0^iVM CKw|̅Nw5EV{Jw]_x `[M?< B@=u"Xмʜ .p,q pmW+j* L/r7I%̕{^@a7xY@U, ׸In0@c4S3, i/,LJh1p, ᢲ 2S0t0Fi,sb饾o7HT }Y@(Y@`Lkh!w+&@$ f7P v4ZסPVY@=8 DPt:j"%,), ]Ґ y@z@t%&+8@{~tc %q5)Hb(heF,m>H0hVPE-*S/_Q&{dFU, ٷmiP$&BrD,R\PbBsàznQϩ<:îPR>r+UvPpt33p:mE_ !u[_6"Dy@ :_4F Zo J_Arp(@pR_2Pa%V3 j oK+[>]7PdXm@O2k<'ML`*yӴk~ $@pǀ~^@ +W.ھkqPyZ ƕԚ #ATK`"&Е.3#ZO CTY@Jw+3_t9hy" `ؚzٮpx:43xp@F)\#4Pj${wkP?%ph:Bo{$D~e%9@XFk'q ]Bt GBQAi.}ѩ@Pp +gb@zyu81Q hH@^7 ֬f,' ]z~3'1Ӯ"%>@Edy~K[HOI=m U<,0nA*+8s($0C@W txs%y<[>lݽb*`HBZA|DŽR"/ޥZ2rG%Q\M$Ćxd,K, A<YP6o7Iϯ6Y@9ג' ,y5"s ލ'[U# aj0H Z< H 2 |*8M;k/ u+P ll;CC"}~ޙO}^@"p0X`*$P e5 <FV~|,mDc0hFcB|b#'o/{{S8.̡֫j\>1 |ٕ([h:ڎMCjx>%Лi? E’#, `.  .'<ӟ/{_o[gD8BNS!%<r0 z!'$BM<7" ?=0;8D0˭?YàPyT36$C0H K>iz<%S@?h q/ mpAZ:` q>@@ lottvr^w!PxY@F HYz# @ <=7_/GBXI"l*(t)Md݀JZ0<& aH ΦLn>-oy$kJ$ \ iw{j_- $'}UŠy@m{yf;TGQOyU%)jP2Z@Y{j|] 4L1\|k[T L`g-¿b߷%!a9xZ^|-_R+M^_'9Qm%_|9 FRoZۺqJoc; Ww$5^}S^b v{g-I$6|Co>>)%!ڙ{£\Ce9FzL}s~,9_W+#P䩥vFW @)mtvem{-_yA5WxqCuԖNXD5>*4EDI=4'bf|x;z'KN{fS:_WͤL&-\)^H_ )|EQx?u^?[';[-O6jGhe ,}Ip_R ZA|״yQ<#H/Nte |@W5 M;[RE b ymn#_Xv&B$ @H \^%6 x 0֛#t p49i1s(Zob!&[4g{=S @4WDN?0'(. $LNDH0׷ߢ hv {={ @6A9bC?@V@x. J;& B5B*3bLAMT;q*qi@fC/|c7H|6eF|XX BOD^`]>F ؗPX_Hy ?hp~!lg&0WD3]\Ze@[!#{1#OOp"Ngx&m,КT`L2@Uw%_P> Ej chvPh^Qf&`1itGP -ŦXeΙҘ'W@59 ;q@'iG3J ;<)0yO޿:: r @7 4ek7p$HX!od(w\ XW1 ]Bhjr%G 􀖀BIr 8 Lp1_ߑh 0Xah80A>€P@G `!Cޥp\y@1ؖЏ$E  Yޝi[\Gp #@ 7 h3 e<-ig㢀4o?O~F$9E_ b`d%yá<'7YJ"'@*h@j,`0P&0h@(73H\?B_0 xT` IDAT4i4 H3MSX`f}qAf5PG(x G74+Y Glxw{ yWļAke؊@hh s[J~vYIj7?/dM` gW&pP&0tτ d>/.OEZ8@>!jw$8 V ; ̬K?m5o N!C: H0B2RMpD] @}jp( `!Aw , @ܜd Y< `4*0\@@88lZ@A @Sy WWJ@"Ph4U~l}IH<1zX7 (iI :\*  &^ ПQ@_F& Fb@"K2)Q@Z =0Y2"!F|L`)Jg[jC$HygO) ZwsANE.@?V1}@{ $$H! `jST6 z6TB#ǿdM`d,6UN?Np@( T @KR|Ek[lv;rX%GI$~ߚYGy]~#շ_$MIքWjwpHj[I7RZ ˶weGpceM%KNC Jtl%Y[0>RO)}Y1/ƞ~L+E<>~%No%uyd_p̓|N;û!Nj*P7ܞNǩ]ٛ*Hh^VY/  o"Y7Hӷ_m2xWn~q`_,~z:mWk[nW4EW*XJyDp#$xi:tOO|"_Rx6 {ˢ~Z P7z肟"}1R@ Aǭ<(`qP7wP$)G@CZgp}}`?[C8l)O"?`À̵e|g6 =GT>bpD[<ϛ* u ;s`P@r1I`cdz=zNBA~`C:8G 087wAEm9 ?0ra#`=$-rE!wfKT@4?O!u^sg,HH 8(@$.{:`Ο+5@* c¦5T8nB@EPIo @ 6Hz eA=Y_ >;N!L(:Me*J`E8: W}G8p> ,n7@ xb` 7#s'D.kbٚiAT1~Tq* 0zW@C Hp>@w KIeߤ ز Hf~9+>م?&W4ɾK&i ^^3T@R7Pg+'/ I$=e?NgDJՕ9-|pФp7лfpǘCx {` IOlQ`f7" vDN9d◃EP< miS@ZIG0wș`:ͷzZ|PT}CAL@R* Q*\fYB0f@'x-4/KBǦ͐"mh ,tX(T8K Fn @آj`R8@ ^^@@B MwO! #{6 ¯ H6 |>?Vq*t4 *2@Q}4JpuـR糑~糥$lV1K~[vv0n(F$:2IK oQݳ@T@-(,D=8ГP)$8D/ {kFFDk7f` p`:&q?%tAV)?`U` &Z Q+,8K 4z1 V-d6#s 7PoQ^$PhC@@q* ?eXP}Ҍ?^@-|-̄pگF 輤Pğ%XU@aKm + a_1E^@-f'@9 ^Zu%06Cȑ  z @HDsΟEtW@EV,Pr% B@/@U4"IsFD39ohآJ pFb){B0gy_LjvBK!X n A|~@#N GO1?b_; \~1J]n0]=>  x;F+`tϜ߷mkWf]~V~W}Fm}v-q!ۏ"oԶ[%}üw#Vm_/7bn229߻?qh5j{颶g$:箏ڞv>cr1!2YU@D<ǥֿQykϟ~yqcxyzrَS)8t^~Gú `~%Hۏcڎ@N7^`p#3/tC8WA Q5wG$E}c* kRxs]D~:<%/u;aJX.g0A5Woz)B@ ^+} Np{us޳{C+OFk /y @,,'px"aUp]70gweVx ?!q3s@9q к9ה$0гy?,υ30n!01^uG08!in"_=Zu (NA0KS Gj`9 wcwem+I &5$A)k-bUWUolBjtT, AGisb``X[?YH/;{`PP_{Ai$0`!]54Xpond鳓 * @]#eAؒц!@< B/p˼ .PU@l<5QF XZ@O! Zt'"+@$p{!R@3G;pƞ*WƑ@ h=>{U!RT@8%d.8#WrT@D{pP5 &' @ 7h\pey38N`3P &#.p@+/]R&@+GA0~[/(sJz@L]L"n8i` @?#^?PI`F)ifs=t*ts=Bng@oL+W ;~(PXW!U@8rtշJART@](r~u'fO/)E}v ju0 Fjz?/ x"'X08e+ L@P/@GB t 9, lh$Pd!|AapN G4ψ,xF}`Z8(x4* CvG CO8۽p*A0x,$vLE`P 1G 67B>PKD߬h%_+Jv],ʕEax0aQM(_Ҳ<@i۞ =& !6Fv @C@7ju `&Z~CXo#V*"ShL-BSD1@XYHP\8W@`9f)-Y T@f /W I~>!|#p:OP!А<8+\@\T@!`WE)=8;SiN^QEe]xrI#w&pfCj!#y@@#Σ HspF  {sаs4@ Ԑ*J@|<`%pA#,EpN뼅@1| @y, #!h@U`E(>x3#&x@@8hM5C+B"|v" @$> N!c~_ ȳtTWVea~mo O%,=(#rrU@q(#HHf/H%1 `!f c2}GPHC=T@I DC$T `P|[',. d0#gI`TPXx`xDADFj4H`0b}PiA`= T @$0,yP0jcE4@aT1b cFB&Z @3Vu"@?w @TD6ڰ͠I 0 zĖ7V0 ]h' BP3  m]ʘp< ۝+FCd .Fw(l`x5P&$x@zv d?̃(o30 $N]:~m dH)FP2ܾPy (| z(yp82IDATԄN Lc}<?zNT(@Cmue)5DC5;};@@'Yw8h(Q(H`jWʘ Z h{:!)0`U@@vqU@Xky2TpU@c>xa$h&adQmm?hY@N`5`b rrf}"dP}s:,ܝB* KL2A;DrE 63`W  @ L?uf9Gf9CXf/</p* wC0@ڙ#s)[@s71!J q%# fe=̢! @ 3 H JHb>ɠ Y/( Hhu'?s0(3V uwĤG~58ADT,aWL 9ffK! 2=K= 6L )p hRȶ`ݝ?rU=l"aLb ?,Ԋ{p2x pߨ AG۾} ?vNx<66k"7װk__?p{k_W[&~lsٿsap#!yk~ݎ\֞~i߇&6Ot o~:'}l>BIcz keiŽM?`*Tg9k}> }nUV^[r't_ޟ)ؾ +A+J&_Clg? 5ǎ^>^tY*'ÄckC}#R(X~U&\)9+Dw Y8):L,5|zN\%@r mgW9,<22#@=hIׇ*+]Qϟ*D P*XP /cmpwC`(8w 6e}`@Z) ^:\ uS3O?~p\"Lt~s J4j*Dsַ,Q+ @p1,1rA ?t:b"Y@LDU@@FLHY@.;->^W+U@B aF852K@z`wMLU@zhல?A( 7~ x"z avT+3K^CX}PF6OuGyfI=:ereS huP<U@׋P _ȘA-*C* 9rZ@9?4:+{x8hrx1&eeH|wv;#Aޑ\\l. y]vmrAK&2g7( `* k \:;L LLN`aS P 7M?0i 1( TIGJ6H8N[J @B+ ({WY@KnUBV(ÝN jbEF03tm`i ܢ3 9@RN!"*PAOT N7+.GR&>X S.jNNw@86lq ŸY@˟ beУZT H'qR4d'dQy\삼8e  >vRN p1' ``-O08[] 0s7U@vP p?&' 8dvpp9\f/ 38I hh'@otP|q* T}/Ї41a VI+/w  tm `ȏ$۠Y@  T) f;sOY@j Ov= =9PL[,fFИ1Xe_DIt9Hx @G'.L1p@fszrU0S@ \ܵ60hi&& 2r3>6'L#u8>/9qL%A @+P[@v4䟂ϯH%@Pʁv1T nT@2!V>bȒ ~*ߊapj>!AW8&K`wY@N8Bg`?Y)xk~#XB[O;J) `Y@1x`uC;0!йF04c 8h[7:7T?t;rjd@o UQ /Z(*9s@LNdU@ i QqЕN0T@P#$'G@w ؿ SPR Vn  Ÿ,~Q&ƒL%'{М'?PԷX&xOF1 Mz CQDQeiS@) N: rp~7Q=ENe,@4R03ã z (%PipqLxP9N('0i0Iuߟ?@NPZ _/8ܱ _&"4˜">>s'8-LÃ,d!t@ PT 6 i"Yn&Fxe~:wĎ}@t8/|,#@(W@* (ɏCRBxY@+Gn}TY@Bp3'6׏sß= _=CڿaD8>t|zz<3}G~U_^;zڈחoۍ$^_b!IENDB`ggsci/man/figures/README-ggsci-uchicago-1.png0000644000176200001440000006115515120434214020244 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$6PLTE_FuwưnR>;[pf} IDATx읉b@=KW8O [ZnbqRJ]Ǧs4r3`!X#^pW8,@1U&ߺrh< nx*1rM߾7*G)@d'h< X礯f<OMNc+QDdoqVa: x X xjrk<q Q}SލO129O x3\bh< ݐ Ms*W=x  "_o @d D G 4 'm299-9VZiJS!/wXn G3 x`D@dFB) B B B B B B B B B B B B B B B B B; ۽  @֚/w m/B߮`~#dT0V® ]|_ 9< @nMk\ :mBtngv_9 G u!:@]Ԁ۵$ =C\1כֵkhWp79/֙} z& rju%P?ڝ07s[# uZi۾i2V_P\(٦q+p_#' x-tzWGjdmg @6bbG'pJ~(bjLKjԧhb܍΅E7/7 vDoR@C2 .kZm9GUHǣw/?C9‚l =&^#Mo9izi)y4~ 8VE `K4<öT`|#9~H0ZWI%R[LWi8 vJv%,ImNPOW9@J{zߋC hD [0wY@:QԛgKQvud$7+k~րn@FoW&Ԫ">!0 t# 0Vc1w%`W6 @z#2sxpHRx?$>- @[ bc][@sH@([/4uY]7BC}a%ZjY]?\Psfa?iiE;E *WP/)?5n-VOҾWGQ-Y 'q:&_j{J>Gj}۽ } Qޑ do=Z!IĽzKȧ!a`!hK~aM!CUD2 R,6(mAڄgdO*D`D߹2'/W-޺^ijU ~[-~@V}˽.xZO @FT&X-f/z5_޿\P-`zOsj)@oڞ<+FVz -7|:m[VkD;8=z_~/5e P @*o+Y% z PUɾd_X$@5J 0DžW8L8 H6W3&R3>JI^@Mܮ)x`/FYWueh< gz c: ח~T"U O~ %.AS2]C@)Nnx lƥ~eMa\P=ؼo&oP @THjpHUo4A[h_f:O& I9d`8O@.܆^%(6;@C?ܧ~rHB. $_Z*hF_3jm .4}\&2-US;ظ۪P?Vk+ZxOOW^>c|R7}u/765؝tA|V6 Sk'-,]`'[).P'iU4Jn1`)~VM"viWRjg޿.\:5xjv<_pUwX:⣽@) )vܪ2w+]B[,U.~h|)]x2 K'1>b8nH|.k)h[ͷM `g82 b_ x  @#D= _wQW SUV@)|^ßt|~ciߦ 4f:g4i $oA;dŠ2-  4?#t:!Z:nRzrqoU]@kcϲ3H~^L}1mS@Yw J=TY &j 8`yo M@@@;?flEܲm&&S |E0#Vnl x.@= I`C??1em^Pnd[/Oð]EB>ؤ~8{Hv_j1!ocUn)Au:L,"elQCVwa `7O9`жm7,*5"7"{# PLHK_$?Pv4uh"L`%Z/%^ .Fr#(]bl wM>e ,"Ȉ6oevr@kTjw2m>rq`JM@, !>D@F@vw5x숻3'6D&o:t9ߦ:Qw\ """_N_T"V>;3K2e $9y%x1k轚A졝- aNRI5L~DDDdP q_/J˶O`RR"}ypXo=|O[b1"""  쥀@V~R s蠟M_AP@gD@F@>qЌؗ z,h)Z}J.* ht~ !ԫ VkDdDd؄3@U uꅹe4lzE&B  t!g_tmx`@qzgM/Cڿju|#Q*vo]GFy/uwcx@?=qUݠ-f >.P}jA*J~kZB^>C?@/%{jG+oR@DwxE} KmI,U]O V!@6uB-rBߛ ~/%k6_Nx?KP {o"&+!a3b  pw^͗2w~6hlH)k xxL ([J[iNDǯqwe@n[Ar@~kX%AJuN@p6;̗he!bZ9T,z}'L!Pʗ v_ 1;P t*,k @# I+u50E8 -,9 C("nPi!a= X]:E+U:_% 8q 8~/g]݅(qu?Ue0=>JOa.8@+iM.@Λ}^Iz]PI5gmJL xp.ꄩ ԧdoB3}@3!kADu]z%t5(fwECFMɡE8XUeS8v ޙ׿l[ի(= ⹅șC=xK>;ϔI gLyA= hfZ/nq aY.ha vɹaFxEl6M?D1qu1n|K>B <]&Lmg] ^#X>VˌgЪgZ''7`kco/J̆r"c;9<0'^LD\\M</Q̟nP%Sds)/7.ǤrVtg0" g,C)^]'D[$`z扅Aj{ZZ{"LY2c~?։0RN]t?G9uYz*^ %d^R`0xwI_d}zkQ4B(z Env<߷1#k7S uژ;+Ufq6t'9}ҪG8`L!U@`0xhm Sl` $\ri}& [2xǟz⊩-3XzkLy {''QV#_lQٝsD%`zYঽ)-* Փ~ GTZEA(D*y>4*CM:A;wX"3]﫩D\PǨY/zv_y j% p? Zg`g.˷cy5V?2qa2EAjDu(r"A&ˆ~ЧDQ0- ^ 𘵷eQ HȪ24 5={yp)DsNxDKEu G@ih=0@pֿgv3ÆIǢ>kU(x nv3әYA/zGYn(SCQIo0{ꔱ;}gVx%NMd:zq&>@abx DRRw{y NsQ$LA@2w)ܴ.:2 @ݐnRgCD@0%@Q#T=eXdu s_ls`JF|/9it铯TU@+@343L9T \jJ$)YEOQGHQ)hpr.dC@hpFֲЕѸ Oi1>oa%At,MW}ՊmS/+\*Bs5}:?BzTP1&E0EyDf0imuby8sLg_DL6/F__NGk݁)21maYZ]0"SL~*"A.2',e' ѣ6Ȼ ;Tn8.ȟar?gͱDI~i13tBͱ'K8k=Fηc9i=]uo4 iɭv_Y>bEC_H(XROi~bnwƤ Hs + 6niXU$Xc3iÎx.0Q!^xIC: 4pa?Z:Lk衁0(}RX*6%2Tfț=p~[1ԘL n@@ q<gh3L/< f|!X9誺qD/?EŤil:v [Rw vMtDwtCr1TԬEJRKr:.YH?'8w]Z|.A(3'e_͚ 3?{~o/X):zHoA R̬Τ}_Wl,TǤ)g7OzҿjEJW@0EsB$Asmw؁F0gx%`mYiJF4Z5?In۝] :@G@l&ܺcEf}?ʨr_Ҽc!1E;--]D Uhd$@12EQu|7(ΝEՙnIAoa8:/Xߨy>^`<5Dv=SxΡɆR/"hsmg0(xEǞA<x.ee$P#ƁNPɪCQ"ID m{5Nj %i<j-P8DgUvd!UI?K'1gƉ؉b796tۭPN 3 $NcKrYUkpw}OWj5j߾YJ޲'ԇ<|45X;$cJ_P@eNfߡc͌UwG{pmh*?J$: TX׀g4T\;ZC} kPѝh=[TG@$R!AвBθӱefsǑ+lAs`Ɋq <?@iA-d+'zb")ӢW߿C qy}_WST* T(}prryd**MO<Z`Khv"dA47LYWYOŽ5ʳU(ɰ:!!ՑE.&_M~p3@lwγ#7fF"{עYȕ,?{2${JJIuf3U(Dobq1JW.N?2j.uqdV?᱋~u&p?CW @UP5|3FR%k܋2Љl{7$ErGutwkq k7j lGz@e$[@z?dLLL/{EJFv ?\&,W fY &܄?A=oFJ{ة)Kiܗٻ e(oEz5s-~VӥQ7S4{|W]hEv6ې&`qm7i2oh'Ltz!". E8?{c`w[@RRZgYe O g`udF6zk\)5VmB]9x5H&@0MBޗ+61 I```{[@m`\U9=u|*5z$$)2FuTaɬT` m)ܪVLLL|{[ШwT@n%}9 eh͓!>@4⊈k$_G eڝ""5Y`USLLL|{@̯D-`Фq{IO9!,N/l/c`:sTV; H*fY6菍"@NX[ 90 շ[@uoauTڏxg>r>{_@ @-|,dlYDq_Lc96cۺ *b ٬8rԷ!Փd```x[.%viAz-ڣވA|pЃ%E[|H,LӺ.U\{iR8;$'= &&&& Zvݱ9ex'.zIH0t$Ŭ|1z" {*QŞZuƂPƪ iWL @7Y.oSaDĄ+brtWWEN >wSo ļ9]аDEΩ,V^V 4{rLsnA3O@ [ kÞzr'3؟Yp@'.@@^T*;MRpz@;Pe;h|J2~pQQ$" @stx F"39&&&&gɆ9MYל4E 6f,I"& to`UE?_v$X;ja```@L e$')R{+8l=A @`/G7s0 "XMp9@1000%S0cN$p52>Otx0FM`b mu ijA^pzUoۉ3G\OT ( :4Ԁɹ0)>L]@.%nގ[d=WqWj@խĐ@fy~|d #FmBVd=0WAvd 0Ҩgkzؾ-~"XMBR):RE'(YT͵+dg`Lhu+Y*٤U@ #w>C&EAh O!3whkQN M-~ j]T@ch]F]+]@X}$̷x 3n.-ݹm2LLIq?Ut1b$ Ҍ4t?C&( ũOwgZzt #]!oC(Nj}TyբF5g5$cjP܊}\bAGG\Ϫkl' hʘ2.` Ű{"7vN͕sl8†> `ȡ"\ʢ D0QoJES܌; t'<>>tzMvB_dQeUChHKκEY@_ @nĻ!R$m}mF 8kZ5Pz6QauR2 &07{J*Jw{~?PbbV)$^/@9{-~{'KpvWE _A҇2 =$tMg&@+ o ҝ!t&&O$ϸ!(}e:a9H^@h)gjMt' tXzD8" 'qwuJjUYr5CUjPnFf O `;N@+&_0Eđ8Cr{Vxҿ ksוpF(QG l];SoPMHmQFmDX +dž֭o* P7I-@TbgVqEV$;2Ћzм~W$ۧJ5R) ^JU@ u}Qqz",;>Y38оea)]j0#`&nn@u# @ÜE u < r $k 3/ M`[Uxja} t%g'\V@v|/1YHw'!vXsR®T[ ຎ?ifxwն@` OV)%w1j;!#Od&Dfܒ(N. w8Hc%N̓'ڊ<䥿J;'w 'Aܗ#浾 J0 \?(WLLL ljah\2,DPtA  ;вVxf2jQnV~@>iǧş Q@Ġu@3(\000DTGˌS/ w`1lbaGufoj eYJ iAKXcxhLRnO}ZDd!F tbTF ̀+hƌO#I<0Tw"_VU Ɵ\*3@Iٳ68# mtЃ}F/)4:\ $>ȳUaX,-3'W^c[L)uU34$it}N  u@i۶}߿܎UGk^d`e?DAM hĠ/[/dĊޖZΗgԊ Pp:%X*@&Ԧo@qķgE-Po.jE?`?KLq '=-t"=ΔĉN&TFsF+|@<˖~roysы\a'l8V ț@ǭr2Pj$v$ݩ*~r*w"P8Ck~`̚Dp :5^B3J2r-=>L F:T0?_CB@q"!:\܎pb&-< ! O"@B@[Vb+I P`|=$yV;XdbD0x?8;B7H6X4W,"/H9Tr}F(IT wrL V*m#ө`^ ,F`&0d;U4SSY%.4 f ;1L4*}fEMXニTSzh$ R(Pm(0iܨo77NdAQV7%gRwf JZLR#){ |WI~z\g>*5$1 YIM|IR]:|/Y"kof˙9'Vm<cHXd1l Q`RsZ/Zߧ}xI.1[F\'j& x@%#2ve`{&> ] {)>M_Io^ 3&\nm~Il1zF~(j{>x*s|ضNU@tДڅq? CO/>P4QڪPv2"d@$:p53fzFĝ`-{HM ¥uӡoCO:|fMvEx$YUbЙ$2XыF?2@rd ?q߉~=S2oXCF*{o@{^IS`;=)2ZA }zd ݏl=׻u| , 6hΘUsFz IDAT-u1m6X{Q{C_뼿 ^*5@=,łDpP11CT%gxqy8Վf?xmNtjL0x3 5P &\ݢK1EZ6t7@jE\!L>U:.]`:;`=`q{p .O;S'P8`o@P!Z!Vnb7 Kׂ"U#@ }r#\* KapiU0a TN/Xk@wx3X݊ F[crd9\:f!H92n pi!eG..gZɠnSmD45j} !"}1",ttg:b~<%IțWA88xѥ@}2w!*1Ӭ!? D";():Juݛf ..O{,gEKr-'64A\\GjihkQi&IxYJM|w`ǥy?aEІ?l[ ꟨WʱA!dF$А2O _ֿ 3S"U#/`ty{=U6 6p^ !ipKhaD82wϺ%($m~(_& +Banγ(;r%7Szk1JlΆӆ.+7N  tB {?n69)PoHxRǫ^OdF< |LV|/}T ̀R Tय़qs#J @KϤ t9s6)`JL4Eٳ^UÎB;D%g(g! =ω92pJZI8n/? Lpw(pkP2|t^wh`gaȤ&iޔõ7(GmQFX~@)2[z, {c\oj9C` +| Z:5=&l iYPDfO/2`wa=PM?ܞB W} ~ oRajaC@F̹y~ɖ}oG[hFLr^/l"==sg!}:Tz=ㅂea>nkjĀ3/ |OR OɈ$*[QH kCmJkOoo܅},{QM^ ı=ox<jg+PXD_Jx q } fb@wӜyV ?w`]/{Uk2ԝVo X!{qcmd 7(=mˑjo# Ό? 7?$]3 Q!`Sʽ@~Oosˆ*jx:]<v{Fd[=s0`הPD Ri;4P"~4@y[+3(8 Ѣu0 @A2 \RK2lycdѺBvګO@7W ȸ?yi?BFhtz^F ON{Y_>fpe {-v=0߲3N;%g&)@S 6|o  n{_r:77Pilf{}IŸ+6uzA#@g*`#/XJtE^=wa+_ HApxmR]N}j<]tݷ@_+ }XvNK^b'tf$6V sQpH?;HGevgmk -F0 r炦WC޳r8Az|SIP^URC%[ i rao/ptk;RүD% L@`b <_y@UTTc x?/eMrVʻMc˕|ơ E"R?XuI_?)OIP.4K>@ŒTe{PTf% p)h'`ӖA֋vG+Kz@X*bk$> :tN@ߪWh@"@+ѓt1ZvCi ԪDۋ& Z,nzK|uR*g lQ6s;ge>|p9kxLȿ_Гj!3JN9,X b-kvg}tWm`W(t tfT3qLx'E(1#%%K՞ t `3U'@{FR͎SW[` =;]>}AnD?b*sL >& ZlnĊ%7`+~pI ꮭ6r(s\N\t(wu_,fM#)% O }SY `2LFF<af[ O徆j@8T, 9#vd6: HoTg VMF}m] /Tb0U:P0 o՝I#'"JToޑaA  44S͇`NOc7 ;ɦn8i8s-O@Dng@R̩E6L_@|ͳJ_nsC uS&jhŰC"=Y ^Q0]U1;yAG3NX_5sҼ:I),vGD>DB |vR.n @S Mvs9`Gʜ2B׊zVUp=VS: n~R0C_s9KN(B@w:㳀xi >Iܛ$L TO{Jޯ=.O{myRpld ӄV8,Q)B6 Bvs;.O}('uoʽy(v&ZTn{F9V9ҽ&cvV9wF>  D`tvOKA;)f ^x L+<@ޅd'8Qz HH{qc%m+E@RRv wh;@vӰ'B G@fp/Uڷvbb~W@ Y<LVd+-/WDlh`$pX qPQch`AuHYKL܈@p!" -?E?X3oX^@N`PRLm;0 & G)@;95|:"Rt rx!G)@;<ԉ C ?;q0BO9`|2K ZPC Ԕj<Oڱ'7jI`u\G)@;uyb4P8eFz 9{A[IzlvG7gg/|:K ^;~US*oQ:J``be3`=j<OM>%m&B\%%`y-!I=v2M|<@@?Kx s@;k=fޑw”mpdu|C/Lx'@D;V)fp4>p "/h<iA=x?Zp,{<,K{L T@8.4-*dg&[ $9QF>KV})zF1J~/K )nǭ=Ǧp\ 7 akrgW@Mxk>8_fk9&9p;Wh_:/4xB@ׄpNpn`E1T.u۶׍ @b\v9O "ȅ`p{oq: `ֆkh &l3uer@֟z %:xU@ z 0sW]g-S lmzv w+[ `4,@~6~`~Y2LT  8֞yNT6*3aKO-Xut@ G{FS fpj%7k-@@A ֒ b  @j{_|ʿcs  ,gE*)C@uxl) `z@T g@ iLQ  @19'z Q@;J ϻ_p;@6l D @jI({]v @1u 6)F^*w @x~*L *@6ox5M) H1jVT O"  STĞGT2k@_-\A?$  DQ  9l $|AD MS6@ cHT @ @ @7@6[o@(#-@_&O@@†6  @j6 6:am QUc@|VpP~[7 Bn8 ,LPD}u{j($ߌ|pIغ[J瀚,Y쁮Id'Ɂ.'ibWs Nk"h:/d&9Ir$l]\p w}(5*) ϩ8Lqe,Pqr*s@*X70p( @6L */3o:}ꇾP>6S? 0A/wFGTph6S? 14zk>C3C%#=,'@SicwjKc\ˡ:hjUE"(HS4~賝SΪ_D\ kI~C8DڠOзwFgxx A>_ڠO7wFWEBTAMS5TomЧ~tF8/}k>C3:Q Jپ2Q4.SGi;iR[).CO?+t #qYN; [K4=Oϛy,2^)Wgb{NIhxG;%55WBԁl훪9GRG>k3նu)7酪4h~}-$.RSE5\Y*Ÿ}'tQgveLY4+mTyu?6oIDAT5gmgdi_v G pcZe*SQJ'Ӕ+ ݮ)%i_6REe|TZ@w@qfН 46:oS32SST O !%z֎ RߩQq3Ʊgw3 ]7 SMrE Met(KwL m{JʜpyP4%DᲥ޷7酪4 O 0YL*A|Svg0l(Զ( U~R\oM Cjbz5 3<+;Ǘǭi jGU4pϔʹ5>IZu0}6ִNÃo|KI "R@@>|O=mMn-p H}}!3=TW[.@>_V!Л~/[.@P>ִٞ  -:@   -v O  P{\`sR@vm @o'@oTmByO.[3?mS~JtX{ؚم$ z׼}z5 c|9w{\q1>#.[3@Bð.`(E <Sq^Ui{\fv! @!@a߭]P  x@  wB|"7 @)j|+#R@7 @!@Ra + @)j|+)R@7 @!@R k @)j|+/R@' t,Fo]&Rx<6z['aLis9M$xx|Oc@on*Hi9̖1@ǬR#65`%>'q,럞*]wD1S.D S/<ޝR 6̐2n6R,FsFni>.` ORP^DIݫ s,~րPt7tY[Ibm)2e8AWQC 27Wk0ЎpWV @F1]lw][$PWaE z+(S9R gbɭ2b zg%ݒ;_ , +ʄ\.c`Bdzk0Y:#l'Cԏ6!@׵RIX". #Nܸ…Ed6q/) wyj;R@/qE$..L1 e: ElF,Ú2b7ϓv <$"l 1 tBQXx?*x3j :^UmBPt4 0h?Z"`@߹ZRO޸+6PHX}%&[ˏuwhJӀh fj1WO[1,zI.wE/h=^p6^k#[KQ VGxd_$@5X7l/64t7 ݂.S?t'b'|D0V*\my)ZFdFj  &0i5 CLW?P ;_^ly.qry.1pm]Oi xf}܎nY/ctʓ<9S/c1/ I)E*CGS$!T4NxpW&-S\oMzG.꘡M{C.| p{/4R@u~ /hc+qc@};ܢo@e؟^mMcw@F]~c Ģu!_EtJ X8} jY!"0E h 6CCɤ頕jP%{9´^-uRwʹ5]2~ ;^2~i7 %M9 kYm)u]L>YQ:It+6,MoutG-%>-nxh ʹ5~;a_WLj0"n%t:(w1}?wп2LJ&:N ȢusSaS@t?_'&;@qC+ZOrf3<0THO6읉:`IެTv*g݃RTWF n W7.#{Cd@w7 > P!Bp4_I/#L1XW,d${UX;;Z~g%-&3U"`@a<%{Y[EЄ֦ mNrxPe"~ )(/1Pd:߾CqԀƑ!| +O !WPv $o@S?BP^zPq?ilˈB?,oAo>-]j@-E064S)^o }mLJ ⬟# LxO2fpCM/8U+l7v0vtH_CR>p@Cpq.9,|MF|ϾY-18 d9v6=M3- t4DH&B ^QIjzLPKl_KYdG̏`a[v#l~:Q ogq,}@2k(@+м%vGvмt&k?ڦ|nGzEl!$gwP@g*}Nf،wZ0( O8 )zjw6Z/R/"{h@ p'^o `;usm n xz%vS)}Ty>/yFq3b0Iv?s||*f Tu IuN]eݿ [\?5!DzY>ak 0e;!\1u05X ېPPf /e(g2>C@Z (3?@P'mo9S-&xCڞ%鷴JU;Zտ4~ Xk2@āؖ_OaMoQ2s[307Mαdpj'B ϏU 33m@ '~2 l@7;S~ w}K?fA;s۹ʿ #`[G.D ~7$T4U\7zEQ"Z /G.y)t;@Hjؾ[\D? h0[|Q~܎Qշzq (d ¿b_&@abf/fٰ.Esk8i$ZX(D J Ej%[_.OaP<=-s\SD:@v5-6/nR"@Q# K6FWLW < B wKȉ`R;p>;M&5yVhLJslsKɚvk;B=}&OT⶚i\na,oc@[ O]% Na'Q<} H=,<zE8 ~Hm>>{~f(2B2_qCv&Sr(#|+7?p:;*Xqb]6+(cD~`N,UB/!n6p=bBl|Vs?'3^޼ح!jFjoli 0ft[W;,w":) .Kt EuNlv%0l:!+M}Irز:m`=7ٖ&?Ȧ6y=w x(PN ]AC@/07GN@+4/o+e:"_/ZY642o7V=8먄~ic !; kX=Ɓ_Bwy>!\S@8Mf' 1m{ ֺFdF'B85Wkb~Zˌ_Z/Ƈ[;SBcW  MWV0󳀦IkLF\z^/% Z-G:^3l3HxC阾E[qQ_8مnpy]W#=27(@P"o@#\!!{~*#8_՛$]ƀ:lq6t3&_kϳ}"Sh:`b.#LVyhͿK,vV7(Տ`?f=D } Hw)0껟hvh!ޛ] 1c\OE-m:te|o@鑺ޕQ? _2ٙ7f\/$&@֏A@ fu* ۍ+ۗzon]JA[aHf<`{Q^O@X8@7@ 'R>8F^߆52C wMܔPZEGU:y-˥ #`w n@,ditcn&c\j..UMέb7 :0A_,m] w# IZ@5^oݏYCLBjν*Y!}YReC@bӄ#u/d?.]DʂN`0x+ dmkR[/@oHț`ov?ZŨ2j`b鵜Od,LcS™EžR nE6ܵ7ep~e6*=>>kYBH_ RhںLz2vH(($0{<`0x,ȴǺ|W,ٌ0kO>?Ds RUa^#*hrN jrP"Oֺ?Ҡk h6Kww9`0w{޵b5DM,jm7 N9 IDAT?hb筲>9)nKabJ @֠TGU8ȕ"8ni=8{5qG [V$L=8O`0u8wYܽRzR!ɨ]Z/PJ0J1Bѓy/+δҚTȶ_~?SO8Z{RB!0  #!۵@A(/[Й-FJu %#)HɐԌ. =@L8[`$uWК0_LYAk"7(EwRԺa)зm7V;M'gUn9+FWȵm&w՜вh-<APO[HPYF ̣"ÆKIeFSM+=8ŒSEqU,RkD':j Oh|N[7{n)! 8;i<IF|a4Bn e* Q-1!`/ZhZ$ ΈjWG:Z pQ-΋4 :FtYA`/鸒BYԔ3TX-/ 8"߾?m|\{ 8kՃrW5EIz&X=4 eۍc.F}r/{,Z,)7oUܠ/G}Jke&Ls=`߮?:JIݲBêaгzN&t<o7#hpSlL<T|1~!]7֭¤Uv}alMgW3`*%rBQxx( 3>ߺ &ZwͿUu\ x.$"<91 O[x?g:7ӕ|ӫD%e0A6Ѱ[xl3y00QpQD1U DDcrz&'e%RRk>с U@BN ?5™{dž~O$y* ?`Cc>cto"oâXȁ0S2Z?3JLvf1| :Gv>:xzu9Ra 3|o<>z|z<64MnDQ: *.:_$\@gOG/No~D9xP}L^RHJs|p%wzSxk=*]7=ݥs <;eXuh@ mW ؆prAPG9vs\2zH<.?V%Ct7f_f W2 L-<=CQV)E⃸A͔Ba&@ba;aUW?dMxe3?XD.@& Gg+?o|\{s)`b-RBSvb ĢǷ`ҤF_up[˔)!뒪DuxSJ 8g%vfe`=|tv 4PV:7ʠ zo:{עl ޻.>_=85;MOS*t>?X+8z?y@5og>R"0g(gZpgU1dI(<ЈW@Br;&_^4ץan" rO~/u' hzOLc@ӺwuԹdآ"3wbA[%` ɑL% g;4A"/7]=O7?300`+j$kӰ3J{qlT3/AOڿƂׁc#{)0g9օh& M [ l)~g;~ @A$e{J'ޫ CRAd|>ݻ1"~qZ%J۩Q$ 1Q`4Й3@Pwn{5) ^Q?&1 {Gm+iqtAא",~JOLsس?٣i :LLLL!nEQN~Px6VG)~Etof-Y08À^E,[3(l1FGy.@;M&?ގ@ i;90sL/td[-ߥ/]D# 噦p l.DW9 6YA)h100@_uU#'GS,M&vH0خ;/I5.T1i8O٠j@O D95ĕqE{b$A*#OԿ@Y*{clPCZq] ru(`m6 ```  Np)7S:I.lR>dُ8}M);`LLLLHBnfy*zhSAhcHКҢVlj Cb&@nUCf5d j=U~0Klt4d @-&;/Dw1=ssD:`-^bcQ{gĎĚ Ppl !MwYOɞo;`(b! /i&&$Xcw2AjVPt?M)N Yd 8P6BP$ Hju%e.tYf~!|(O/X qJDTL0i(i٣g?ŗ8jA:IhPM)eQ8IZUԶ ·hPq四b`u>ǐQ[a rC?$0Y_X)`Q @L2˂@cNL PYn ῾)nCPDc( Zly --qzݬ 00|$|!$ze6- 됀JbI Rhukz$k~}/<J 'ڟY~IjK~ڜA z JhDlZMHra;|'W A /̮ ]('Lߘ>>b?KA0X7: wS+n?kZ:kjz )Hc)rYrrBHPI;iE z#v'$Jz6VDOy3~3dIf`DxT]@@T?=Tů8zCyt~.4S_$)t;#W=Y1A ē3t%Cp}3.d c _$OO=2A = ~?k|F]@KWXh6ԏ!%3hftbxu¨)J#ajH豈GА|`)EFtǑRoaNs Ak8* `Fr cXTL!L нyNnB `ݦ|G>b5P*]xyn*+|;. &$X/uTg_”n=9ec\8JJ%XN^ DӴnצx??;|_6.1SU[Ad8fE1Rfɇ%X  ē$;I @ 5P O@\E=%2|! j4a;[pi_xoB`mH?k fT L=k°pgĺ88ľ-ÙQrQ$v#m;{,MlwfE. s|%d{ˀ\Λ,"tb-~MWx]F>c1J/)-x:$`%@ < k>}7eqZ@i{aX;[FG$X$8Pb`>H_O VQ:Fӥ@0h/ lL L e- ktêvq*Kp23 (|cUbk?ʽd p5H "5S!'=@ <: ̼%Yĕ6 BdzOetω>(mkN֞LN/yMhMkt{(rSsG&.%5WdDm,K!hK۴gU D Ln( ^-ĹV["@B"\|qcjDKip6Um/a#)J1RPs$Bw6U=6o^jhi:h ~H{JVESЫ /c۝&<=(ĭ=pn+b0*,oOJ~ˏ|nG «2P0P Uש}`@.U}?Pb$^Q`@#:=GПrU@u7QS IDAT3\!K~k{u8S_h;v3 GK-* g6۾:M0i1c87v"X|0Xdj q!p(|F3 G 6x܆\.lf6BNkɾ5>7]z oRx_/-q5ttYHx;;a@"R"鞈dE-!{?dMӄB';EmrM?Oe>=ZIwXHA$ KP [}s>!-`yN%UQpU:u(0P9mYOf/n{VbaofO$Zx[ Z%y0Ia#Tmz/RO_ r@V&,rM zBZ:IFi` [z}vzU`z$m 3+s.5j0 {`@\\ήH:v(t@ʵ .%=P1`xn  y9TDx5+Ik2 Gq++$T E ~0Ԝ\S-s$e0<@7 h#Yv K@aõW\A4H;'7Xwu2bA:؀gWH$ϥg($ł1x*dq4Wz@y+ m3ZrR!\}^κojx_9`_ғ͍~R!Lߺ5_a.mif!}TKd[]X2Xq$EK![) hb*G]Uw8]j/+w0'"cNHf<GWm%^-;ddARͬT1 7=Bg ZB5ؿg\ĺ D+U_/#!|VIy2lme 'BTeD_,*0xIh|)sR :0jW82R8`#sZB]?><|J  ik`cQSer6F:3|sgn{p%ӆ:e`M]@4ĞD IÑ@-G*N&lF0/yfwvd=ŋT + M +?EQPTTB1.W/1F3׮%I#6^Wv˖}r|xQ:&8^F ▯h0.#Z{;MKu]m>NSj>aSN#e]GCX ix۶`Pj*^cT4Ж;G*`'lOFGC`#`DDҩuA2(~lOH^IFlsonlVzb@{qN[&8hn%9 *ȿbO> inI>_E]&T~B=&e'Za?0}18_+k藺[W?f|<[FJ]rmd|q~5jbӣmhUmI/#h^v5m})s`Ȇk Mh-VJ\oE&u"yf5/hk|Nt~ P K x3΋9F42Km]t%(% 2K}-H{p4t<*?_rn`>I3@kS=rF.(V1K@r l#B@9fV/'M\K;hY CY[*$&>f$Rނ0#?pFQ`6z2[KT?hr)P$-_nazoQ-? `4^ ;\5@Ɩǐ^9t)_(.{0Nt 5_m xi &? $%{dm D0.׀$.wB{bbۗU/Mƣq> 2(P ^\̧ڃ=ˤbܿ° )Om (_V[-zO$zA&UeV* ٠sz;R GTL}%zЧ8((k|N*!mSM l8_4CFN17ŊjRAK/Z]Y8{⢞c|`F`/6$#w~&j4:Cb6rwZ+R̴x ]D?RY rw\U{ZN`ӏRU;Iچ9 .C*_i8ddl *Bk/31F0i#4qC7g@ SIgG#UDgy&DMmH}I/XPtF@/b `NUȌ~7 H1o*eO @gǶ<@T]=QDމVao"$HTnzS'.Qp>Fr974#[I^9$'30:@^n2]%RS:}PNEA*;a%/iL-1G73 pq9 (ut`Vy]*.v.:U%c )꾅Ϭ( [v3p3Ap4z Ph'ͧ~ ) pIFH7Jl62EbkX) ȶO3 k0 V0k 1r-SAդaSS eKP@9'ٔt44 lg+`E6+mձmh3KS5_2pP 76ZZ25\́)aGsk ~:Nj5_j}h4z#"AY4 Z\(s; -,nc=OmUgy̙4zIx.$5ʿ hy&Ώ9f^ә 쟒ۋVvC@<Bb|O|E0VWWeLP(l/.H4|ϧ'<}/.!Eҋ2!g-Y'󋿢.Q@*=Uځ/ʯ" Lb|M]R/4y-\b>96bK \@I{ RrBQ/;L{lTŲ W4%}O׉(*(V+,PS.4˯R8s| E6@Yjm*E[9PQYi㥢mEWjkkJo6 %G3l~#u tpiГQ 4g]ZW| Clf(udKborr L EÒz58G(5IQ݈ ~>o- 6:7Ago`2XXmFDg^Im}3D(5< p/ÇH" Q'a$:TUc}qI_m9=y} (J7@H`۔6=l8P\ eץbkDc~,a0D_grPh%Sj';|7d6H6 ZYHwwÏ-2Gy΁]@sc`Jw*CCSN@w&cٻdu, ä1=oy` ^=vdI|PtT R'c`P '3ʿ v((;<[@?7@,<=x,o[@L~+<`p4 ˄y H_zq`oIHqU'tK[@ $ƱW@9}'$@ ߭_p>d 'k(؛PI@,!o(T7GP_v?_? 7|?J? [Uսy|?,[[Ws^? x.2jK~b8_^? yxmZ gvt3-a umm35uzzZސ58WT8wF泱^#˃`J}P݌&@r0{jWkK6$@_F,@9sf6Q@J/{ w| #_y#hy0uzT+^? 9[mο)[/dG$,q$>%f2hmd Mx%3)7 G4c}p\Gw F2HZ':ۖH)-3 5b` ^.W t]G :]CxuKA"d3ޠ;}fM0 d[{Fx`E/Y?L)@D @sOl `ם m=?@P\fQhB<6<y|1p>/"z}k?~>TDd|? @v@e{#=K/[K[k/óM㷚- xwbp4' y}PbK0w : P*5Ll`[zi`$ |8fpW  B%9 Y y˻r5SZ[4!7yJhEq}NK? TUU(SrRUcm t:JZ@^v8Bvբ v#*YQtr(ta*IDATuVv\6Aijj xWbtrS}E9ЧÖEyKmtO_~&@Fq @  d7'a>:E`BHy"SG|$03 g" ڞ!WhB!BZ@ 3eu=t ߋ }etBȞ+ߗA_C@ Y:<'G?!au=_VF'e 1@Bԕ{.¸B7rν8 9Xj?/}e9_\x /!xpHp!ę$]}]}e !s꾫A_CgetB9n@A_CgetB!B!B!B!B!B!8yPrxdԹG!LۚL+Bu'͸Hk7?@_2lCVo_?AUզyG!z-DQy'ͨaL^IRV7ZoL @ÆWC:(6ն"b};iFEUu=$짢&ZoU)I@s%'i}Uq݊{o_D5(nKO ( D- ̱*ݲ1ꬣޡNF1 r'@23C御T}2X,X2bh@-n1k\>L^jMJ9XG;4@QK*D[@PK]ݵFd9^{NG1^,3tn=&ۻA mjR;JF(齘37{8/g'C{2 mչA/"CW^ 2 Or9_ޔ{A)澬z3+ia[nqk2_X|g:ׂձCX/aHEKb%'P_nrY.?WA9sE#{|+h)IENDB`ggsci/man/figures/README-ggsci-futurama-1.png0000644000176200001440000006127715120434214020313 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$_Y+>cgܲ3% ?@Qy (B{QW[.@dW'='3ak|v}7uTqk@ @@ [ @p@v /@  `攀x?2 @o'@oĶ(8>nBO"~)ujܚم$ A=Ly>Lfv!`%'()]\@`5@:H\׿fv!@!@H.:(تoFJK_t߽o/Mv!摯f؋3`hx{ "ٱ3nF}ԅ鏿ŧOc]o򀟐 ۗ\_/!/MduWA.Ƈa=lu5 R}~]@$oJ2@pl:E(y1IG&+]@>Hd*RA+vrsgߥdN_/ q#|ooBIf1C (snL@ XDRv!l8KMs.J T7LId 5C P$p+#{IZOom"ܘ5#$ >=fsqaa/V\_% @AfU!$yzI5nJ|6%St"Q*b % ?@{ kN&vh h)XRSaVPMӵ]8~(d+[<@!@0vb7Cu puBUC |2u3?nߐw<]dKE"Oh۶ hHDrJi[ۭw\@;JU\Y%%gxD n9HoDNANwA] 5uec^ǖ; U¿+Hnԯ `Z\b+z.!>% @|CʬdN\ÿ IRo&ݯ e0n3[Y8'u~4_i\@Xdm) <,<0W `@b#eLlB 5: OYG`a;Υfn.MXSFs%3mQ7gC/ˆ @"(](9Q.m[zLl2$y(ťSsqqF$ &Qr\dȬtTz Ve>z'n2t~)3bd]| Qt d7'US#XW++|9 1ܥt 7}k/-N!EY< TLLLtyRGр0X7\hQQc wQ?ӁX#+bѲd`bd;dŠȦVPChzcFyq :Y<4Ps x:Gb|OeyxL A*\ PT @n|CVwF}i%d )߸5ϑ^Sd .gY>cCq. l>P&Hy#ޗH-ݺSmh9xhWF_Şt5nMzG. _H<ˁY tB ~w 7mJ$eu;> PoKxpWuA5Jp_jC豧t:w~|v(8q:,>FT.˺>0ä%G~ajB1۾]mQS (/&{9<GqsUޫoπC'%%P׌!8u)fOo؋ ?^iku׫v0 ?2~[:ذ"pdOV竮Hla YZz Z]yJOӍ[Ӯ&CĔ: ׇa}9`W{qQxD6f QC?NLP[kUaK@tN``x8hT?̌Dž9Ϳ3F燱3 [XTLd3=w/-{[7 ;f(XL xknZD{SN] C {-.*V3J~Y"x/oX)޹($ka4%Z}w=ߓق]KFήu GXg[F ~Dwq:x :g@_m[{)sNŕ._h!'Lv ͆z N{Sha @qW1Tܯ$nVDo)I\\,3`6@hk: V}Cvx"NI?@9P56IyXە"~ݥkl镨*&/>[x e F.{KgOy )4ڋ6TᒬF]F>w6A/3eP .%7shc #Hf7vl۸`v+|)Vn @gf^G!l35.:u_ yJ)+r3~,CKJ(ԟ56[2 / u1;/zs >ybT-+?y-LNr+@ ~x Xom}_!@xW& LX^ζ|[{ExbN/)ͭ) /|^XMT'.l/A hF; J;}uoڬg~gI* W  hJXk _ _FvL>ǣ g#r1! H ^;KYNzִ Q@9@<ܦK^HIL< mMh/i_XQN 9Mn!`2t;'n("~dx$2B?>)%cIq@8p Y;n/";2Og1#z;+ߥtAeTbZhVhyJ8e=sH;@_2O $6լ,xBC#㠃pN~65ZڦBCA u;MPoG63Vn] 2 7=l9 2b2O"JR1dY9E.t=<lΝY,MHqr)?8!p 5N!1f nƁz\'ǫ}iOZ:ԖNageZn=VՔ@{+Юh2ๅ0'O ?RR`.r1#:!Oi_Nada>i&BY =/ŪPɿzbȲo5f"h=`cg/'asݗ] /}CRoS¯[z_g֬PfsE@ B!>rÑhw8ONQn{v%$HGhL/!X\nG!p.C@Cy|&,t#gvse ?W`eo~wxKUUɿ{?a cJ8PFYw|:֙# ݶL/l/%}M FA >d-)kOֳy'*N_k OuG 0.Yނ  |=B1PdK4מVQ֔@73oH[in#S!;JRa  d`f`q׾0<Ӊ?m?o@mi:88b;NLjXSV 4&(ZTeeDw~g @?R7{ pG aǻ{zd1 RV%04\b!LD/-`GwlfnX7]LmU@XA$(ɝ+/s PG`p;՛ x$! VeuogdvPR/2,Q/ʣzYꟛ1/p<2WWg@{NDXvT`;|j޳MѫFG pn U` }#G#^}y&@eCP 1{}2o{WWyrgb"+IP0u@͎x?VT٥."K.T[(,&}]PG|v:, ZQ@DZ"z?.8p`p@%#!eT!x΂Z FdJl9^5!Q~>sQpq}Y'V>?$u߷$e1٘J]a&/ >MĮZLeKK|,S买ߟnKP/O "? `B߽#G#^#IsP92˲_"ُ°q9lr?`*/Uűzd_?p@i&k{*qg'"|_@8 Ptq9#8VyZ" a-K͊|7)B6 zb1oT*6€9 i.0F0\]CIw-֣#ML NlVf>t=|7_ w4k>X} F Mc?I([_On'0W?X~/#ps .tbrGx,-nZ hIa2 ߳W]+d#:흆PFn}&-a%ZUR9< whhXo=QԞe1<6|-Pf:^ԡ>岰"%h6'vM;GB5<, OA"[n q~ipv;;S A$ z JRB WPqu)@ 6]++(}{A^RN$=wPMmh+3leC-hT0 >[ 8 f0^7( I}٢K6l 峀h ^lQ_a:ybvo"u@?WF{  ;`0xdaV=/ Dz@ #GuQ嵡ll\@ D^IKd%l[j50`0x 4]74"U%ӏm韛c菇}/ė:a%4%XU~TY(pOV?w[%ݿcm&"bn[ߛ5y\F+#`zThf W>TQE`UJ?ʿp[[!E[:'4E3eE0G8I w@ |DžY+l\*Cq PM|u4Ff(܌b{JY^hg. I+VgO^%뿩“u%~T㥧Z#(>(g`/0:6Dw[Fi]GOXqMomN(>i;um% :F*\ FYj{\^R)F `A3X{*.fNns(k*\׃!m>^aLo5kd$znC˹ v" @OW`r oGq^R"-ւ^7!_:/өi?/]dEf-@`02o,mp>Th묊?xb#vfנÌK1]+ @ĉ`%-tWz`0~,M]ñY?z: IDAT0 nO:K wd{B_,g5i $lj 2$#s1J?|Av?C^B :Cc]ufmf4Eu`0 #]HYH{2\ WNdr C '`ZN?.i 4B4qm$`Rc-D.%) f(nmPkrQ  pC "A4F>[OA$#c I<`^pzߐaz뉕L5߉S k  IEJ۰z6}w IP<#AA=QR!xf[)[`W|]a,rtqlBf{Z/ENI]G몛YCݙ҈u 0L#zߕв]0{[C,-C!@6l`  _|s[9}'’ѕ]TqjߑrjY$q$ٸ?K@*úW-?-}77ݽԝKKu];oEwK}.9ր Hv_q/G9O~ @ It@d`K:0;Jq)7`WO;} HS]>+<V̦Xۑ}5K$`YŇTys7NbmVۧTqFZf.||2ZzW}7u*h;^zm0}z܃緹N[" N 3__Iȇ)cKtf@9A n`] )Qgg?G(!YCVYŕQǜҏ_MTb@TnV7g1V ? >.Z3̍2L+Nin@%+Ukmv|;X9Q82`:2.t{$v'ow+$oh4 ՜ 3c/slA`US38q=/!cԴi]7tU6a EnIE~9߹ Pi >g@?Eu̻ `ȝU^}oq|~TsO'?3ϴ^wG& O~]9f2#'=I_i8e!if&1K`?hV awaǶE!]4Ys% xZjvoyvEgX +F08;d[F;DzYs6ƫ@d#ks E[qJ ˲KV-sb?ׯ >PXU.f4b{ ^uSt:zCUh©U*u]V##@F"ofII ;4~[}ioTUг 6[\_n beiiB ?d}/8at$P@ $)⸵=.GWE!t;r7N.J[%C$-K )uySQY }b~ 5 M P:Gh8`EaFmF@VB`=K k-d Ov&]I?X(L4g qd秮k "]u{g6CTR -[#IPt@'=zxWŻvqyMHm>r%ز ekJ΍6J;3ږUQPM(1_b6DU=n!qh>WU/(j Co0!0a5 :1R2@I|d W*$t>Gn [NQ }/&̚]u>._φqzS^53[]v%o|WV4wnjq|BwK;jW7P 6 tLƅ-c["'w@zpoM [ϢB4-5?ony~`<@umx\ UpU _BS#VK2 x3a3 {𢂰SF&@@3kV4TtA*_`PTz@7Z1e"t'EOzn*?R| ҵ j7ܢ E(@]@E'Q@H#!t>tehZŽ-l|\A?xpb^Zrb(u{U`0~>}h;OB TUIׯD2LҴѝ: (E;4f fni*Ū0@Y t ׷F@R h+:c%Q7K0V%Smvxx )|RnJNqq{S^ ";n!TCNCuzwD&` !*#_d +򆫫&`| B%H0M"b쟄(v>H  W_׃뗦:W!@ v5 /fx%# hR@6F95ǑiQŇ xA؏ 1]sBKYO}!'|ើ  6F@_Л; i&QF㧶ZH^@m[h@V](۰.\]hfID@HNx\d h8@Ht ~=1rŖ VIJ| 0(ke;E  *hm z 0iBpbQ$t h8l5t19# U];Oh'A@_(L `0 /t,>*E:j\DfAM2@T &$~!_փcdz^g]hK lsPќ ;#:@4}][POS%7jseYPe3׵S>Zes @. DS⮳@*L  줁 +cLaB/M̊*_έy]}ڥ AH%"QPU 'f`02q ىÿ@yVI6ʒK[sy /$3,,d_]#Hւ[W2@1 7ds,Ȝ< ; Ծmo0j:9 H!OaqEE*O J+ OEK)Jx< C3 g pP@/ʰa1Q5uy;c/ MT_:.Օߛr.I Veo|ԛ48eٶ&v 4`5`z7BEZH&X1@CCčhz5r+ݠߐmE 喽y\P )u?(R}d3 %k6v*inԇ+;R³[l8E,T# TrtRA 0<c]3)g~LEayxUQ[=)* PXA~s{}E`hnNv' 섪#5g8wf>B*+s-%hi]A_@ux,wf.m )p#):%!򹸩UP"CC[WG% tDyvSvBP|Ai P, 0P/sa߉Iq8%q Ht9%}|ZEܺvpywN为~gs꡿KvB@cҺ6忩b$2, bX[O8e!群I4D#+.԰9 M |h ?*??IL3?_&9]p6ޭ`k;xxND38 Bz1=0߯oD~6v`#t8."hGiW[%/ E]FFFGB7߇zR_tBZ]MÆ 9CVP?x9j+Y?;o%=5S/~)AOv!˲H]@m.6GD[AHkM9`e >rb}=A8 $Vw_@VhDAvSX쿦Mk sR@9y> z> wAm׀/Frz;V ?'{SwkpWI)ts l vТ $ߕ7lJs{kwZ6?. 9pC@ *z3FՅQ5 M%DcH:_TRݣϋ ~Op> ќi#Lq_,Ifhi-^(R.6>h`g?eH`rݥ ) УpG_^@٦wV %hdr]-O{bs]@d/jw^8 _@h 0B.XZPvGרo;{o=ݮ\?B6F?W%q 9Pe=]9?k*} @ v=p6{ !tg9/ gtnl[/0╫9&gzjLU6f0 B:] tz"o)DJZ[NeWaH2mrEtO`02Y*PpyD~`qQZkyn`#F]A#ZeE5,x7V6 Ixy^|(:"t]:=G\(jCW#AZe+$RxwEO2 wDa-QW>-,q&@f}Wwks!0Q H9T`p"=="@_|~pJ| @Tb!Y0 @tD k{( DQ # $&:Β:Vr]qe(&ܛɼA~5N)P]  $"ٌ7+iTI`1"O+}F ypw+sx@ o58r)kZt4$~]q~R YbE.Ē F jvN[' [DO>c12}^* b].\i`,k#4C ~#DhPfxyߏRK)#mX!!VYM"{|V>m#SKVj @l*@z+Z`\DG2z=“FYďޫyA+=yY/]IԿ|N- ̩`/$amU-HIوl|i&= q3`a36RnĤs5U"C@d3dmcjR'{nܑaxRBIWUժ4z< N)Lhe3%@ F!W}:͢K H=Ghf} V *ˮ6Dhl<`-m,{ kcf@{&tl|<l$t)h>cm{l&0@d))Ԩ`%-HA @ awW6M QuQ?I#W!KNҨzJi&c8Is!  :"U@Yb>bonKr&]:ITeM/s_ Q?"st7T7K̩HTK T|A9ݐ70 Cq$|TN Y:JFQ>@~K :7_=TK2ktuk}! a#AwfYS+1 =G N[V]!w2@'G{eУ HIk>%fIyh THP`oַVOqgwӦV{u/J>7A'cpkj"ݠ 4_䡀 {k6 왚F&WIQmP>m?sr tR/FJͱI,W=TEm IDAT Cl(EYuóVo)ɼ'RʼnC9+ skRzB<2P4NiSy1W{uN OL\BnW <Rv #o8 e$ލIhgқ>.pY:h< bD0yu`cgiz~Be\ p.|45AX)˞wZn4(h$bACvreeڙ2Zڔ/[%d轎S΅IM{%@wUm6aINDV){9 g[V! qo@*jaP&өg4!Mt&.0S+9)=vcaQ cW݊pL (:tK8 \qMʽ@ }`j볏)hn?|pJ8*K(M_AM\ U@* !52D,!Z]:>Q@3W>~L7ݚnHZ=; eGuJA3l8QDF7irVLnjt:_(@l@yWjA]}͝C% vo5Y9-snN7W3&_d'W| \hW_j8ZGxhOC0/`zQ}B vf{#f6FN׆2>S;} }bTA Vh3~mYQ?YWUY89k%/2=#Ӽ C@'prsT<7<D! T/khO)~PsL8CB 8t%7_Z ӌB"(^ ŸtB@;o)x%n]'}?*6f̪ZB ep*F@ّ%}WQ4AkzaЗ{8 &:Ynm@1zkn{ 'tםؾGF^I ` edNԹZB pm#h{g]ו~ͽwN~y1mW+T]?۫!&Zޚu ^I)&u'/@R= `H^T󔜫!ǖgO/4gv#oE܃Btg@+^f ݍ@5гQg @R2e_ ttrL>@p\UYˢƑCip+F. = FA7gK`|TVo>>"y3.@J pg@;jce%y *5~J%<g6Jhs sjixmsQ ңQvӤ0. Q)[ (P?O6d|{pO y$P*le.y0' @OɺAߟ*<@u< t@ 3ȧML- ܜ];! W!{ < H[ob&A9<tZ@fFmx>ʋF}ID?YuL `oG:T$vSU 3 GPrU0R|=l4YՎA wOPedcPכU[ <PsF*~#U=XLow,X{fěaz=M󴂘̀'}T! @? $) Wm Ħ`:u//2t+n:S@uܿY)% }mI'w=5oY /v|{}_& ]|^`i%)}z}nXAn=':ՙB`*px-G! 'r'e~_< " F6vK8Ck_p>:]GɿWhP\'0 ̳!w*"_ɳdxigF@`g p΋X>iڅC&`(& p`AqOy|7 ~*]'$ *o]{<+Ce+$Q?{9]n/&kT5sg.|; 4@;`bsWy aV RIl( [A&Ne|Ɣ/c  vs aP eyChP\ > XaCږǸq c!1:X#dhρ@NP^Md9uv/6 i5=r &;W0AT ʲlltd9ut} Sk.TzHL;JN+ Rr* %t{lSÏ<> >yѕ ä,k* Oj2^wp!8,اb~PbmEy#˩Yg߽|iu_3 [}k A_uex䣪r`ieD1! [r?y^=}yhB_6ZlETm+ \߷ *ӞW>JQ}…ɏ=<ٮzE!UC@SmXc`fs]?3P*+55pk Б54$EWV#A ?Ahcs2S4KStXKsDhRLH֠ H@{)oÐb+v8& Dx 7yWxTxH +xƅQ?\HA^no{;- 릑,F7C@f .b^! `@.bb30D D օ f%ÚO ^`h}ެ%Z{Q4w呅uTBFOC@Ѩڝ v vhz0Ʒ~C߁RѾp ``35{}Hc v4>x77HD٘>zS6:N`|2:RPo?:I V9w4ر̭XU{Q,@BIo3$p `ø<g~`"=z8N I }l ^&7\f,G" 9U@,c0Fx| *=fי p:H3MSOm%=Y֍ ?!EIGG)e|(ND s#h8pr;  n|5FgV@dWpNeeȲ,_hC0x,D4d-*”n| D,Df,!gr[*PHQ7  2BfRlzr+$n"&7sQTdLԌu#cIGզwb-6!X73g~ ]h!^IA`QnU{"+GS 3w̦ r^R/@ S[n.S N @g >y-s%VQ x㍲<`ݮq/{@ `Bǥ^@gn`?/ؽ7so#S/- 8se:(oPV@ wX gMM asްMCJ@ky*+  P$cPYJ:"85QxeS/- <;@p5 Nxl x%|\u@J$P ^@)@ Ph!@ @t$nM  ߌyim - 85/N12R@} 8Za Nnԛų#X|lfi@MV7M#@n#x RFpw  H\ȇ!sH] @«>&|~òe j7}ϻv-S_b:zi!dmy"@QŽML@ `~`حmdE  s~~Kf7.f8A@@%4M@axn[dUԋ@@nR/94 NVGA[9ro8h+@ȾVi-<>g @|CbgM^$$B  K*2y _q@@vO]WD@8賯 - @D @X 9w*x!TD:@R Nx @R*OB<] PW՟ Ȟ&;@ F O>UB?"5@[MrX9Z@*◁ @7 L q'1K Q@jn< .Z@@- 81i,cзy ^޽oCOFG^A3:#~/t>k.܊LJbXZ@9 u*5]G RJ.c5!f{F!e. EVu_V v-+IPdgPr>ZknU%_l! הCY`?;?i@̬.w5&oC,۹s `mX[ sTWdLuZ97/ӽrnFa\GYMJ{^yg]iL(tFlxBl8dHn=˨Y\LS8w} ɸ t;4SFq#yi/(]oͼιm-Uw;wΝ43Uqr4WX4 .ڠ4!ף9w| 8WcM': ,'Rba. 6r\C誟44'r;=TIENDB`ggsci/man/figures/logo.png0000644000176200001440000002107215120434214015231 0ustar liggesusersPNG  IHDR)n^ 5PLTEGpL``````````````````````````````````````````````````````````````````````bb¾xwpo{zggmledtsji~}#tRNS@ !P.'|e8I]ms3XDЪf IDATxyCG$Mz7mz%M&DA9T0^( ^QQz״9 .gۂ~G0)WX =Bڂ҄r=BLb[ 2-#?~?X[Al F'#c"G` dd*ϙG/&@j jH$|r#GP# -HG R[P J Aj FTGp-HGprJ-8h(Ch=ە^ڂe7"oFQG"])m=Bzڂ2*=B#1m=|kP[h霚?7-Gp9ʨPs>QcdL?䶀 pbw*tN m=3mB#Hm2-pG奤+=NԱ-(G l P}B|Rj fApJ;9ztN?-pG0R਌( =$m=m=c<ڂJ :m#H'V:?1tNbp ,{?L#HmdqsX=\Pz{GX&,=mA0G-.^Gxt+mAБzGO$\)@#HmmAX>sGO[`b0vEl `R)miH=zM&s奄` ԶĶL  f!a < #HmAiy5R=l5SSil#{ڂ[Pj "̤D ,Aj f0۽Gڂ%ڂPQ^#mA N=䘷0{;qڂ78͌]Sh NbՖ)LJpKꢳ)KSdwLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLpIc ؠ6JvӘ6DU)`C_U0Q,kS(.)*b()&*`bV;6D:@D0PLJwDa Pe,>l(b*)(pֽSLRťL1MWEsTqWL19/D~`.)(bJNa LLLLLLL)H#Ntp`ubKa2bM)XsЙRnh،wz_}I2ٔd/}^׶_V"G6|Cwy뛹D+cUpĪ&>+f+ 5eye\1;W쎷ՔwdJn.{6v=tOtfZ%)yk`^ =}k]xyi,OnƔW:jFO]γoSXMkӣ[=ݷhw{g*XM. };}R2fw{'W'{v o:ojce~l}Yy u~;MSa0%=._u҉; +xÞȟ5'_ GP[o2RAwSԊDu|󺗋}1t_EܱoObO{j.Й'L}^mzcֱCYҝJ:+͋tbh)IMYn+?Ϝxv}Ӗv}_:gUu@Muzv-MlD +o&x=tzצUz.l*ovzܒ7mWxB2;` S*v$1LKT<û߱<{mGplSai{Jwqr&-G=ɔ٦@K]v0v[t9Ac&ua3L]2}]5B?mS=o{ߗN;vMۯ]mdSgzSG(u[5=Ҩ# B!K` 9ɹt(WU.gGs\vծwRgRWB=sfʧi$L sԵT2f^mwj I aLw7(I*)[2r"&z&+jf[gI!\U7Or,>9w|{wrM.mzLy#βuHi<<)g]ݝZ0aݑR>'=$_~Ejh(rgBIQoG3tz̗hDjhUURt4~g0֯Pj*z]8 Ηq.EH9RkZ87BFITt.??3J[St`M' KvQ˜+ h9gEdA"w+Otm[i҉Y}߭}x"|.==8ISrvM.ogcHwYE{MoĿz{Iyf2,lZF.== 865 ,h< g 3\N~{NrscOTZ[M_~U;wf-]@!o{qx*P=u)x IޔvW)89'zOn8\.݉Q,i >A'wyXNvz. rDD$]`pT'Cj 몐Wܬ~pj ^ŭq6NS|=FZ^)Úrgc;YfI]*H)T;J~B vdIhN=DSQ7*ό³xRN  I;h!pޝg&)ONFl~Ul~S,bKȍ8~m j9}47iOJ;(kx&[֪jZ]ڢfRˀ$OL1lǖvv]lNslr!餐\F {jd%N YQJ#Z- !y~v%XCI!oo'9h '(([أ(2ZCI9wY-j՜֐|R"dRQikH:)Ä)a9O[CI)+&+|EsOM$^6\2YCI!# ۗ9g 'eE Ԓ YxvO =/Xr!_^8g Nb-"Eȫ8g ',ֹߙpOʳ12ps֐|Rv/{!!-q;vH}>kH>)&󀰮ˉ~YCI%-3u֐|Rt6% R+{ǭ!,uygGidBqScZ8"OJR\sᨫۗeXCIQKh[q*n<'OJѸws i?ϱ,r!jնxZ~m1<]^z&i3 r.x_5BS:o6c])n,շݱ)I֛Y|y+cy>S])I³s5HOW .mˁ)Ieq5HO糧kܴI'Y}u*^}:'o+\&uMgO^ߴq>:|]=\"uV?D Wc(N+?_GN(WsA\Io+0?# "\ZPhr rQ@D!*b4" )V%CN6{wL<3lg-P!-k7G[TӺo_3[lFU#6X茊Z_U8կrVPuTh_^b>;#x~ur j|һ=BZrݫmI##--0 y >rh$|[ӡ,ԉTmD >[`t\a5Py؂e=V\׫d֮-0A`kmG(pE̎-0AR\U =sr9G8Gpڡ][`t\]zgyAz;X䓩loTGpAGXGHbܶGrҩz-0iF/zWJ#-i[@ 3d nu+ʌ?0ұ6=[z*M_b4m=ҷ&#$]N-*Cz v)#$kG8GJRq7lAgryb قQ%3zx*:IN` lzF-h+toPG-ق!tO>>^zh fet#apӓ{mڂ8-ryd h G@wI=- ~p@[נa$#L+~R:!Ս m-<3'=3` x@I"# [@T#85^jGvgl%ق~ڂC9U-J)Hzud‹<¾E0O[C{o+#X/Uܥ-<mo!qezGțo %m鿢!0 eJihmҫ $ 1n< ? , `D0 :* pc h[?e' 6XDbײK>㏇ )Ywi<-Mp, @"Y e媢yV%]Fޔ<4q0 zy(JNd^Ϟco77Bw1{LW%G4Xo 2ocd`ŧU |&1e2K1Vy+J4zbB 0xk(#08RG@%0HHdp7(8yP lB05J``$*@ @f 3J``1HT P lr@0 NT@r $l`p ]Mʯn`[dIi 楣Ҳі/u LYgm۾# JLY,Ď.JQ4?(:_Ӻ? *iGg-k:$< l]&4REPhr.Gc@ծTDREt>!sV D"=}Ec~^(yh+@w{5Gb1GH 5jk``@G p}bR9T3EG'|2_֜5WBF@m@ܤ[V ?Mi?/_bKQd`T QtͧW̱GR2znl8;JRDTXz[kn hҨt)X-Khsk8"`(,CQ .Ĥ菬#דl5@xt3@`p@*  C({J&R,VHƚ~( X */l<NPk$ aW Q A?c?GuZ([W@7]0MSQ%Ogf9*w̺j5q WXpT4%|Ei5 dtIl4s;+K;jRe:8 @yEؤ+4V,l5R6UWhZklJ1ʘQgVL+8uij$L]nhg`(nsjQd@L &U W릹$bV(jwmZfRJ _Iw?;j(;섛 *hUE}6C%0HX Tk$ f-s3Z(&uOO,kRd׻ӊNʆ۰-~9P>YK|땳5JnҺ[(6K *7Ws֭ݿC%8|g6[ `y)Z|4_4 ^ MVqiP|0t6j. xނu`v&;zYj5gRNx"Nar{,LknZ|x8]g!7d|ZHvY@Zbg 1@) )]׊@m .1?}z7???jlγ,wm ApLg$zsA\fQϥLvUj~9Nwːf'e~?sGϩ1xU4eCI?qvh @BnO $y6y_GkL7Gs@'vJL/'F$a_9R͒P) mMz5Un\v[5 s  %]\\td_-GE)}SH־*h&v!.J/RA {Yq!,Eujk7Ǿ!bɿpѼy,8@Nl<&Yqy:X2v=ex)3@bp0wXE sBBCq?)`ArH utxK:@.i*d8U { :E ~Ƕ*}pY*u 9s,`d }e 7|a s221 ,8ܡTC/u ӅP*"kpwy:OȐSZy$5k4Dc~R!O%6Zf؝RI :͊ ^!W:l-[Kf[eԻQ,ZЮq6?a cJ]h~ړ;k8Z?C%PI_9,'s<.Y2-Cs޶@-bXI:[+a"yoHvn0ip19@s<81zi4ǾY|}SEk.`:`"Pza3@fb΄I;QIW4 ?᣶窐*>BCLXNBXȏLi<x^ {@ ?2%ާ=Y̩ErJ"蔽ag8@/ C7%Ohz":D4ZEjOXtFn9{TG˻8ɳXyr6001o8-"e*aϝam$Oqe@<KZUBE * ([1xFdKח=Laл{Bz۲kd_%p; &;ڈh:i8s*PT8/0e\TSXө,#J.1zZ*&p{qLXY:-fJv Pp 3oDUX_n(Z ql@ tm_MI>cdH'eΐ^R,T0jUB @U1hD=beOE2ˋ?Z[BtqN2yx`lV#Gt,WAͧcb :;6̒|*uCHiTU2ob(h&?he?ōϺ. iZBkZeQEme/fBJ)]LnA[>Č!v`c/o5ۺY{S/~;3v& Ɗt5^s9d% 2 `0jhtu;dBe}B$nD$V;eB>.yL 5З #0p @{5q7eLv04(zk/Qy|u;wdr +! RS`HHcu7}P}{h0r폶 ,kh(z_ tnC. |dz9G]!ԩM0@(:688ԦhuVi8g\#NX &+iFόFX7wA/ ztILȃE\oeߡmHO~1p IDATE0 XE"4<=73Ln28қ,˾V 20t{05V/)$D ALLEn;I$ҦJþ/͈ j`2/@C`z ?>@w  hT1i 0AN!M~]vpA >k=N MI'^'zL؏J8+n'E0UA7  ,C1P/N%=- kKhzFU`8j)'eM$@/@,ZACCYݮ9i$iǪI+ViӇ u*yuZ hˇ[_[/dJ}|` u @_}8G 4qV,.yh2/Nڲ%rz1ostNAyҥFWݤX_ kv*zRLƤGP4 ܀uu&ڮ읕B=^TMQEĞFU`8f9^' ^@Vs!vp?1˴(Cd\<`!Y@LE#;l4!ap- w1&0H~lR9~hB0]pDzSjo Gʿp- e㷒 W؟-"(С`m,Drz}EU?^{h>nnTLJb0GeY[k+U4LP\BviE6/jaPpgQ#^`nxtU6 'ޟM#* m10'AF3$  t ړN+/ (.(n-W⿵(4SEdg]֌@7iZ C%b :JAן`QmյĽsDޱD޵s䅏śg=AaǙP4`;sb,vٻ/ 'de984-N*BhY;m^KD"/חќ*Cy(FìXޅʌFduJK柺R}X<}N-p4`qV.}g8 Pe?`IXFٶFW&k&{G/1jA cWvB<yʑy9+ Ԩ~:Q-p DX8M+GŜH0ʥ~1}OA@gRP &P]kUF&1\hj\ v) 1XJB0b!}j@ A;LW7;bCb,gAXv*K9wgZȶw>~؆eA 9?nA0{9.>qNzr <'5=x`gBpC.^q^Poblݸ)La{w3fcpnzه`<ԉb|}@h)7$o@MId7<>&DD/6K6p HJ] B\9.NJ!<d`GCqwx;Ad5cݠ`a*9b,q{v] ωXs :k`0R z( $OqAGS:ea}@~eyOLP ǝ $X y0,ػFԚMIU nÙ`{fOx&'Jf qNHUL[ Ht[ԍgE9#A+{׀mU-:Pa`Zָ7kQR̡yOZ\ޓt-QQr`-E0#nqnN 7 @g-8|‫s.7Y^60x^@7ePfRR\F6]Y чt,NT#)@yḾ*+x(RX4\@_xl>uP?cahHNR `X"Y`} v~wӡ{w& ?A1 z=?0o4 &Q[e}AwF^@R^wz'\3ށ;X_(M50[ACW$͠x<<:R'c8ο,klfa(&uقaL<~a\ 0·0y ܒ'5<Ƣlxmkk_,;G׿`/@6э(|V47GfiY!{X { ڠ @Z^6PI9|q~M)@|_} I< *Ta@QCk_m0Fk) Q[xݠ9p&3Jhlx8dS<|2zB*5Lu-b 1pgc}17C(=7N//Rg!YOM sBR{OBdQqU\jC*L4 mH)ow|THDk@ƚZ%ҩkq}rֲ>ۜ5SgSRt`|=aax/( ?q* :SςApZڿCrɡv.Xݭ67l̆Ԟ},V$՚p]}i߻7q2Y`PV0+D X+4nwgAmXiS\.<;(]+z0ۊ>)olZu3` ? D[c p~؅-mOZ( `M)4+5_e8Jryl/CPr,&}gcMfs!(19O$>m9Bl*M &Jb8k /{V8Ϻ&jox;NQ])d?WiL*BOi40) R/cˉќugFT_ōv7. ч6}1mᜊV~L^XcNt!v [.n6w;-/΁tfvwvZV38{nO}?cc?ʥjPM8VHpC 0eBxUpK@('PT@qPՅPe~O TBc0^ȧ!8]z&wвaP@ #A ig$C#i-%@$ V Me,=^ WAuĀ[=NJUio"?),}u8I؉G⓳ۣ`;'Zy >&İᇽYTF* YcA|h@͍a,f:Gh?rJWx@8?Ae ` WxX-Bc@C-8 QMN6aNxnc{2-fS"] p߀ə,;!uXZƗzȈfl'$@pM:ЪoB8GP-OGmۣ{h0=2ͱ= @d@8?=5@a$Da  ܠfe $ >ӱMg_k+йWha=2UVT(8D$ kFW+0p!x^%. #5Hn!dܠ+ {վQ~cҘ! V3FkO|S%׾Aء B!4;X.njۣmT(`c&sWg~Z@<~E@ahR(S Oe(x 7nsSG@ 66b y*Ѣ@Fy?(J:)0"|LW@`eOR NW*<7^NFj4M( Tp]8.wћ/^ H{C?{9G B ~NݺdP!Rqq/Ȭn;mT [c`qDs:F&Vqg# `qDd8F(6@sq< PsY"l"VP_ GEDF4(?r6C/gU(;dQ**`dDQH d|CV0Dd(A~_Lw?z>DØ3ּ6TՎ@ I{N EHVn< `O-P4$<XB%.n~hXQK 4lK^uO E${PU7[G%'i|2!' 0uȿT'g͒Y8q+C #-Zq/u˭r* @ 3e~ Xъ<kܢQe6єeV )yCA_&&R `b!v iܖ%q4~Dՠ.FmL@V!V0`m~x $J!a z]  .h`.c GD@\s>톐B#@ydQ&Y) 2By$@Ȓe^1yfg*jƯw]Q2(a/xs ƹѯ ~#(f7gKpY5\b,^l(BOH (~$7vw3z!(ɭ$FފX7 92; `q=X[k/S_k ϥʠeq"9~)P;4&o8U<@~lA]45 dH4ߨ/ ?˭VAa葻W<=8@2H]ᒚJ} n/F7# PaX 8AߠN#4@o 2Wmqnj”{>+'8z_x#TgX- @:S^CЮX+%4A5^$7W@~kk*)hjZ>| ],zBHB= Do.+b+Lq,;N£qV p5KU*\a[×[dDLG v`BHYjQ@kG7@>Y!tu鐼f4wQ|Kx(=}5l[juKT]*@ i!eZ K`H >=^ϐ*H{=?a3~I"X1qoph@\]IDATUE7J%p;*ePdY6)\!j5&! hPe"$v+z~g?/GO ߡ7FO2YQlqia9t p)yCWDd?'Zih=stܦ.[ Ykl_l8`chضv^7DcX Q6+X(P1ڠhhmX7;qF[FɠAo/; #`Zr 0axzT0:I(dx 'RoV1&DQ@,SDoV6K>q޷4 ;O[XP^dN)a0 y.0ޒh<9b qukE[7 >^ kITlxM c3 قRm)PP`MJh| Dq'ϔpca뒇b)"J ҄vVYZ&;DzX4,5@v? XӧNBc-VzGO tġ _JRdqԕmNM~B6>EP<(b8 e,O"AEAʋ>@U.FSmuNd3zZɡTuą6oyX⠋cB?t!;hNCRl(>ظOV-5tg%ofN;;{wK썔ﳟfv,6=7!0y9po I@-h'O|if%s6::_b 7=~0@Ms^"#7$$ ~p6l {ñ@l,;?RQ$,dB-~G4qPkɝr@*)Y,^XG@W hj1@|B*ӪO"v "~,t$BAa8f Ĕ* lb$r^alh4v%H4U u bt"A_@sXQ>`,%->јe*Pk2LFA }%MS3@3)fWV&Rg%F!s85->f};XKR4t1 |g1ImJBtoPM-_Ӿs#qŁDrJPP ƚ<@n~nN&22b@-G;w[7ɮiJT@4٥F*1]-?[\}ZOIv}%Ӆg):N4CSTd.paM_ߦzvo J=q q .Fovkjlv cAv:7V䱕$4`=Z땙 SP'e jz% AʀMg>@{:cR? di;'^5o ]<}x;NJ-D ؙdݶ6r^忾ұRdRX/IO)}d  ڙ 0m$*pU[Gj }2;_d D7A4)xî7Td,@|:rSwPTnsNE % pAS'vD'9d0ϖ͹9JhT2]]1գgvT~K@Ybf֥ emWeR ~G6O C'^PG5L\ŭt@OwyҷgsW+/ɕbFbMftUڏ9{&@;@j Ϙ*dePޣ 442u} Pޣ 4 0βrshM7%v0̋^`  J@ @,*ePxvmn5 79RzHCgFX^4am :]P@k-4oNva yΜpS.n?_jCiY(2pd&9GۛtۆB41 ~ }C]EH{! nrT &a.@ڣ 4 D`?o S!fXH:xwlg4 ~Y<2d_m‡NTeZ (LoYex%@m.宰()DI_ _@u hI3tLq0'u&7 ;(VF^M;8V 112&@`6"6KjX E('{, Ht=W 4c1E$> \`N@/1V0h c&bY $>@ a 3($5 ?#٭>zQ P9 ΖuuBM0 2h~``COg1EzRUh oW} @7YD/@ \4fDX @@M6 @ ,6X4I|IT0/O(d  `ЫOόA9p& ӡG+H1 5>3D 5QOn3J,BH6 @P x$Ļ'o ƿ. P55M%xlK6iSHs. i0d+b[i5E8c֥q?٪'cq,J{zt_`w~|>{A*7 @+4o/." P@w}K^ *17`eR`XM;um'_>G ~=} =zemP   5@BH IoW0(o\fB,{!KT@ P }iXWYTn^: 7-eۺ♶`"׷{J f4EY3#Z(tܫ t! ٕ܆N5H>w _0V> d 7@̾>g@$'nb +nj=2ˠ0(e6_@" 7-#j750H7)1FpL2h\H0@Hu( 9pBqw`HB*0@3Ήhn-4 2=`a 4=Nps_v@sH `( m3GwPf׷`"o|ij𒧶m1rc1p(CEO`rsaPZz] PFG0~' >~w{v_*]~k4/Ґ7 ;ն ϚBԃA =Ĕ" -Jer+%.>LNzXLߥ#7Im5B+a3VFc+7UUNJ06vq7!.;8!7Pov7@x/,I9%C[MhtZDN͎A+`k-rZ E!t8ݎM #aKEۈ`pD%ף/#XFFїґs1.b,@o y"mtY?50r\0P^zg6:Bzt@Hs?IKU 3& θ(I0h-Ϳ`E/ DaW*#J-ף(tݼ)Zԣ(t9c,:&gP7Hl۔IϏa?\eL_mBb?gJ wLSě]6}B J|uolC u(lkORT0,~R?%Y}IENDB`ggsci/man/figures/README-ggsci-locuszoom-1.png0000644000176200001440000005706015120434214020514 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$9PLTE5~G]^9A" ! x92@R"dm`D7 @  o @(2@pD7 @  o @(2@pD7 @  o @(2@pD7 @  o @(2@1p"[nd )㻴MӴf['7Ѷۢx mS?SXa'@i@!ʙY<5ƒ$6T.$c"ҨhM#7;d[s cպ !\RSQ-'(m@kf) &mWhb?WNrLKA͒㿹,o$M @HXVTp H&s XK@>mv] QP.EVqT?0P,{jM#& x `Mgx\n(!_ʦp. M81 f0w5*J CW/+6zȍ_]x( p&OO3@ߓ_6 gzq/6E8 Κ>>޹ULCv0I /@\ /,`nr f ۙ:T]Jgrc{Di.0 <[ϒӛ3Ԩg$]]>6A>?㿌{0 >K..Y {!>D0 pօ+Q&[&rI1@xRFN2N'_Ϭ\_> >QD0er5&}x'x3upV^Zp.^T>p~sQZ'Hs`k5t] I\Y%џzA^" B}Ղߋ@`TRYC{~uP/ H(TU _3gn\ ,(봛|G mqg]xUp 7;'hga-2 @ʹjIӀd`y^ ߥcz j'A~~z3|qol _"u}/ǕP\`58}~ӫMZ 铅"?@"9|Q Ys[Bsk=*xHBvDMfR"g`t>x=Nq7ATbCd«G oDzZ(@1fϪSն~":(V:&1*uP jt=!|U?/xXO & dEWs]TSZU?F@].v6kUFr O FVzZd79F88g_]YUyPoGgyjfhZ?\jgZ^ݐucW^%_gcxB0Pq96k]ϝQD~9\r4@*T-0} Q_K]o4CMݖ'#az3fC` J]ag1qWZ'^0 8R}>ý2gFxeL`vg;-Mz\rt9lC?QG4WG hcP{u,R5v#+qs@d ?]> ]yR` >Z/G~q16-P㦑6 1H}=K}F鏲ȶp>5.H XobeSpf~./`>[Ybr!A\Ub~v/ af 2.HlW(߹4S22^̜`ʓa9 @;'ͫQ.;d_y\;"=#(o\v u{"ۢg?]@TMp& ^Us'aذ䪸PlM ZB13fl~MnD2s+}.oȦp~w&O W2wi֎)!6WNqCcLE0,Н nU P嬣1& xӿpL?}-G:+1=) UAqRQ$L LqBY3T0pΖ4?gm7!^\O\6 K1*}$ai09^Dd׾9$-&4kssQ 7"m ȥ *d b#Xdif d>4_]-Fw>?nBC@F"=)3_@0p `PJݍ3ymtJDqO^i8p<i(kLwIn'.TX)u,wіL!~?C!k* b Mx,~GWCSK!d~HP:Yl6 ^e@E 9{t4Ã|#86h  [.# ' -^o@7Wtsťv=<MJUO{HEOS_}7{rp7Tm2m=+o< ?9LiAT_d ,/:' hvoWjvάj||6q")p*WbD?$C>h|,댃nl@}˜clEmjw&@ ~Po#JnLLap$f0:yߪVdərԽ!M h v@i2LePH,V 9/)!ϳ] o`hvY@=t \_pKk3&w&=of Tym/*k)̸ %q1[%!QͮD%V*E\ GpJg=,Hߝ arB܀%zگ@o<coPi+PLx~Y*仸0\S™%D >Q>-ߠF0_! 0*$$nM c$M"X\ "߿Y` 鎂 Dk3IK5kYx:yVYFhm?4nRQpN'+=>Wp]wtP輑EJ5Әc70 h4{nG+*vx +D:!@s xûY3ԊU/`Qd ^xE'A Osjv֛"uI?~M6K%1Mn/4IB|'fg$8"p9pc+)7X#c}/]V : yӛPDH$ o*m.݌/ՅKy+:.Wonߗ6Akz5hwp9xF0y8D ʀ° 0%< XJsJ()ݽs\@Q^kx, f.u[Eɉ%p hRLW }C`I!ÕbYNPr#s^@Y>W`0z'ˀ̱LS8h@4V̒!DS7g߿dwpnC ~I^Op6g/МC:ɲ2k1ʙ,w洿-Z>܆IH5M>υ i '#F;G諲S6;v q.ƄŘ`* =^Fٔ0$<Wfb-Q Ak 0;EG #“:9GEw&k۽FTw&o-O|eZ% /MCA/ @PaYbz h?ac@ՊD"U>_JE[ْfh2z l'%g`VPj`%@@ƀ=lN^ro ]梲]HهP?fVsw'(07ԉNrsQL°HbvXNR"X%3;h 8t̗ws=7KM+Mmh [nI, $viW>-ǯ?OP܇ r킛t? #D_Jhnw(TA+׺@4 6#D r-ǧR">/z Pyem?ԟ[g$1"R~T~Z;|F_ϟ9C%c |dN1'-æ"=M >yMCi%h>csl|և)/gMiT 4i@2Ȃ3? ȿ8&@ p 4|GMlI\D~Vri1ŏ=N/Jy⹄}@'-pýUPPv @xv&@D?=bwĬBקIJnTV8f[` `YI-7EvU߄{MJM JyF7_pl ù'Aofr$#7\KlYk^+InctSו~d M@ݥ^ ق`BSlEf:/1Ux\J=8j@2Z\yE+ >7>@ Џ[U°ߖP\ԭNiboE;鿭̒&xe?b'x;vFV&֍.Y19lI͟&[\$E7Q`&j~ @zR$@ A 3Mp ?haDŞ u mdOi`EV@-9%N`i C,H 'i* )Jj:x5;'%*N`!ux^5"Գ} ijcX^s1iLe3 ք@ ϯlh]<4* ?o@o ć@ ?6bVrhkԘt FLol7LL .14iza͸1_eRL&4>UA^%0Ga}6tG{1!"GVF: IDAT]@[@Ien=>nIL>bUKVKm?ߋ1v@oc,-LiQw'Ϸ~"^V I)=4EGamzl XOSs%ڴXSD #Аecw*]ЏUd'{q`.:+zb'RYDYc,^G(aDs-1'ΐubfQ {2_WwZ+ؤ=ޓD흊hvhJM@9|58.ΐ &eO}4d%}KC3;T3PCD`p3/ȼ,3L6 B]ݬ"=khƑR%=uOkHQ~Qog0{iRE1}O^{$i7 Ɨ˙OE@2? ]k[=GHaz̀V[s ^VwC'ӀRfjWDjn3/zK+X|ވ<Cr)& &HsBKd_zw;bs[(U ~ : Rm]ρb_sitɢ%쿟,X&eφJ`VIU(56Bmx86?0sa1=6鶧?w$Zs[\RE7uޒqùPj at)ڙpU\ex8o,}&k]Yv}0bocs #%5+o #sc݅ખ 5 1q)>1JdB7_-mfX=Н7-gTHmp,`@U |4xe q} ~5OF^FcYREHDr{hhL%([vM2%$K1 @G|24 G;<|?do9Po߹?bՎK5p3J }Pz)Nw2z%3 0oXm/Zז$ h" I#@@-wUB|(Lui9Af@A?fNe:WҠ7~GtGҰrD؉` EJ%}ݗ5o;-iU6AM|gCѸu l Aרu,LsN_t^~Yy-? G,~߇+- >Q HG0Xl6MpG%?vU۸^e:j|Ig`7ѶlآJn @=Ko ='?#Qc(v.>Y$U`'F Ers [Mb!g\^PzM/-}D #g߹\I~J~eOc8'Rtř?)&s:t375nY(Ӻѕ&K@MXƊ߁c9{VmjB WYj;xDWi 7; -&& Ƒ6.j%#Y`u5#t~Ė|>)@vZiðlo_6]u dC&SG QhSM>DgD# i_$|8c@<(}7Aa@*XKo(G!f&\aLEסӌFգ Ο> # sAg螠k_}ZA#Wƣ^㞑ɗQR%#/bSvaM}"};b1Uz7Gt"A M~5];@ d=2sM?#7ڎw)? miEEحѭFxA5a4kT&O^fnQ@#p=;/W,@=/;#zgdPm6o+\;о +dG`D:әDsQlV1 $4#b';u9d/浧!|mP Xb=P{G:˓D ף@JHØ3FEKh>SBpo lwY'! @\a\KgvBBv]#"|f#aǣ'RE+z񽛙g8,חeDZ00h 9~?$='6ת7"WMlh>tUoVֆE_N▿I.̺J"P {5֦3Y ȋ$Wyu~fK&1Fso%lHvIyfxtKAa !Pr^ z$ ʼnB3S9ncix:0{K^(z,y^;7a*x_obIC(0@ |qגȶV{]"w}3Ds!bDg@w7RFhJkPdnO$͗@OT`-8oEl'X:// zJR7z^ɥYDO@ar S PM4%E-ׁ@ V Jxeσ'^+JY7LtjVxLh+u]cf @ :`^ & @ Jk3&`?BiZdI5[7M5W=YӾ[ vh l'i/ j@s57QtzMV̂[7k BV("չaWKjeK~cJ%{U;Q okux}f Pr0V hM/֘LhMqŤ׷*гt4PzPՌڑX@k@W,avH)AS՛) tgŕÁ}|pؘ &;JT@ -@)?FkYԘoEay6dQ 懹` ʁǣc<<@x{"ø %d(O@g h&A`W(`7N.)mnX }}|~7\!%{b#@vO 6ǕaͪЛO^)Re&@OZd-;ty^Ū;<`zLiw3Ӄ]%J7{\/}ȇ;F٩u-@Le&Z]W2Nu<ȳ0zC@Y$_'@=|$8 B/ D *1>ju\Ӄ]fo_gtAЛE[!x0/?%e= l'AߖN@L=??=P.{) LV1W 1{8^ iFM]wZlnw_ K"{-Wy 83E`=)`j˿সw~c67H ups>M!0wI @x9A6pc9sn\Mz9eOS240,'׽;s[e0w+>wIM52f?wϙc1FOQtԄs8^@T$m}b0]`Ϗm2"7u0K  \X+`\.{oz뭽@SB6h6kh2 N. !4P Q=w1@ fp_6^U1ucv!pAۤpLRc5?|lXӋ!ן2g0ALx2=\3ހ'j?ݿ9~imOO YD@"v`wkF]vu;tΰL9]wN`/@ngiw+ӄä78w֘ҹP[/ I.H@N7=ޑy h d#9I~PWoaᬲ87P9P&wX:(m& T ?*CS焅/X+|,g~F}E1 @ P)TZ0uX~G7ܘ!r{'[z_@U ?doHIE `&"ʒiT5}Ei"o>_Mc]z(5G-F=3ި0w Pt 93@ lj︩߶wEs｀^91ńNR취co"T5\Nd4L?EQ aW`$ {NkSctsWjd?#? [zpǑ}#ٹfh NcH8a +&8 (~>WؔtDq t;F(><(@WM!]@Ei*y[ ޲ғ6GĀ-pݿEU C'i"[`ܚ@v!mlU=P(eR)%Õ@ kY;^ 2Cᯔ?f^&`:x\ZuWMBIZFI:%z /@f@.gZ_qnYu@+򗖊Ocs8ˑtj\B\}l5= x 8d]m}-m 4_%i ,totinzW\u;72-GR@ NK `P%yR}=ㅒۅ//@jk 7s" _ZYĪz?UHwA;UOX+up8X%:גr8{JtRJnf޷º6RhN/\- 01)MSYRbZwԟ{B;}I Lp^L@c6w tZ^@| !B0A nR#]:ou& ^G@:CM8s #@X|`;X$Lmm((ʪPTR S`l JL,8P@H 铅nl:U[-o:7@XZ'VOEHZXh'P|լcQa+0 ;N=A G-X O|5**`TK^Μ@Rп__hW@*i2`\&J]6$t~&?e$>36odD - a3 ̑ϧ?4|}2TN{yѿ|0H\$r%u4FeFʭX5`|M+2K)@\ Jx4MʟP{/\#寵&0W0=y}Ղ|23>:3C'>]*Np _;@g|(،ݳ~X3Ĵxk1gP-s鍕|DuՅ@dp _SJ4m*[A^@3hz9m.0!DmrKw@KA3Wf$Kos; N@/&(lyB~l3${EI~$٭ܨ6jP_ObŹDHq T L5o"'\@_B=ogUkԦ9;Bp6߬Tp)@f=2o_Zک8!g]dwd7@Me8C!;`0)` g46 tg3{ yiwMIc0.Jzϧl⚮b"QD];\[^r8!^_GPxHZ(gd@7A No\@_උⶫCi[A]F @IB_Z"Y@ | ,wxv@-b@=ڥjr0An #fH R,2 |eR%_k9Lw;Sh":(; Z1vsEcidWEC%V2u?fϪw"SH}PܑFF po3"(-^÷iЁg"C "zC+AOv@D= (cojWi) .'@? sWPo#^iw>?+$|IV @Z?@8gLF0*$H?h Ţ6_Gմ25A!5Ҽ{|0 w1,ktZ\64aaWR9spiMD= ӎK@) V:怾f^ΔPI0>@;+ UkF 0=:]N}@gJz{` J@iƁUxCC.g\{ jS@4K8I`@~o01~5[;py@gxoU ǞZNimp@]e3web>M@b4?/$pU`k'!yߐP(}9@w O]( 4(@}Pg,1Pe܄l|gmѢ)4`NPxױx6%{( xpRFBݫ׫[gZ9TXG5]̭`:gYDZN;TuPvG#jArZ:g*\T\NaxW3Ҫ7_kC'a"hV!:rʙMP1঱_D~S<xYU^umS װ'=@ ߼y. 5S@t^lM5@|m|AX6cS־F,kXim? oz1 -G~tmzMEAw@*n(%cvfeWN7y 2aLp;H/NЎ @_tJ34*UMA/t]ig~TJ M37ݽ_/~fT+w0u1B' ,;| ?JatZ>!Av;X:6Af LȏiSw˥z-ѻ&{#6ms}L,)Vw)w8Y@ PK`-< 7,қMr wp`Nx@pmZG%CmI±j^]}ujy>(D>ʾpl ^GWX}F [@d*9( f :E YF@@X+ľ|?j (PD,J5˓ @b}@׵>@de $˳ U:Nd_X&CB@,ԛгg#"m{>R/F wlpn:zU~Co[y{-tȚ P'C蕮҈S{z5S@,8~(_ Mzosj%꽗) ;v?^=o@l8|^1 |M`ߪĦxof@V04]=o8BMAt֢V6و=)Lp &;P Qv}LI*pׅă"<Eu ǜao ˤ.U%qtA ,k @b ^ :m޾( Dw߄@f/y bVwo3q`'GA|D@9FpĚjOa=,Ke$f*UBpZ B`.SH9`]HH9@r 4Ҥik_ 8  iJ> a@i7 Fxk_z.nA{Io"xdKxp@vu 嬣@fO-|^즀ʓL@x%8Q{v՛@LmЄce8 s^ugMX?lVة8y8^`;4ݕ)M1>8`u V Dx8N8eVS}olCL;*yԾ$d@lu.Wu`{8)V"7w\kG58@Q1(<x#N#H[1 YtK).+>&LAh1@߾KڙG,k <8p= e 8ar }cƪ,0?) U]>zV;9- VXW#zqq|VJ 5l}} @VcxMDPcqW9Nmv\P$dO j8kN!X$#?;M* 0RУ$ps\^1GuzĻ/)|9(/y:8 ArdXUMX rjshQE;qoY1g|5u5Nq%">?a'18Wn_#A߱@৭+|)O {6@1i%g'XJw'r 77{)Wkی0S4Ӊjvйnr]FG4 ];Эs٪4.2 yz8aPrqf.2@lorƴ@7Փ#I &@H @(22 S *3 xo~  @q Dc"92`c@$/)nF B Ld   @b  @@ `ڃYD 2s 2vTi8#2g>y xx/uzL@elWi" ouC  ù5@ |)O^@;,(! okgB^@(YlC_Y, }_lYI`.|^5mb2X/-w_%m+KC4Jj1٬ddI`uC} SF$ EDzKD3"'[IF~f?P~,!!>"2{oe$dp n-@ӑ?r4('1} Pe RdI  2c?~1"2 @d#÷~+lmCd; eC=o^@;%O|Pyet2232eC= sV] Ű)~ZN,S zR֖EmP=C2Ҍo>#J^rf!KtM+?0QIx/|=͕UBR>pNWz~.SZ׎ňRw7TF8JZЍꛊ|ߒPWW`oIԐ~$FGaIm9 nw]ZhglʶE}o=I3oK0ߩTT[Օ4wk㭱n\(Z'E{IY@~$tiL2 84WFd[?_T3* ֭}o?I3gY@{1a*)@?PrBpzv"BۏQEbH$X/+i$pdXD$M(*U@Dutצڻ]@lYaXJ^! 3TDޡIJHKfاRMS54-j6{0л-~ "l4AHiTY%@{IHQx3{{@IG!hm=I3kt|WZuPyxy^o ND̸*2 }+4o@vjh?J@I384QL)"Bߒ x$xHeU'8fa#./=@2m-IENDB`ggsci/man/figures/README-ggsci-cosmic-1.png0000644000176200001440000005712715120434214017743 0ustar liggesusersPNG  IHDR#T pHYs%%IR$0PLTEX 6XP)&'MMOjkrke[j] IDATxoh&*8 lt7f$[mxcσ WUf)R?g] 4Rt. ["BKӾ(h]պؓ6"dmyN1)::;»RL-zur1)+w@%T@;S-)~t)h8yHp,w-2@~d`6,PZ|Wf bn@sQq% 9M(]^wVRנO  i\$Lox `s-`N<.Gq[@=Wů]h~fDoSwR$ HpE^DBQ4L]?fr7 @!V3cbO`b t)Re] X*__a [b3A JQ J4Gh k &)hw¯ʙYkCz>']eL)b4KrTQ}4Dg 4/@&@~=ӵʿR,\I4NʂuDxǜ2D)5 &Ѩ)9@$g OV@#!Rj&X+<o:0DWה4QiJd%s~'!C-);#!m]_!?6b5o*c:x-pzb,;lL<(h eѿJ"C!pjU,/4Ryid@]I& ]G"Ƿs@d`0CҭZ gQacl 8;VfJ?5e5{IP ,37e9?3id"OT-~&ν,w,p~Jn6ź?俠(?<8/xXMp4W5#A4"=|zx'M3*}/|WPkCoLejXAXLzkI%#@s&-5tk4]?ihB^ϊtZ<6f-ԟZ_׏d?*ڸU%`=V m)~VFS q;ChwF=gHD/,/~bxzVZ>zePkvY[JRVS 5[g49nkvĤ@ץ`2V`) ?\vij䝁t:=`쉡v.&v,`NMI}iർ` Kⷋssfݱoi?{quE6l1FَC?Y}tk.bVl/!\JP(FOΖji(AF\aP+b/KFyofwg#EҝBgb)ly,{wm|ѝFJ_Aߠ PlXϦm0@`NΚ{ūժxS٠B44 |;OFd8"pdzn E<=y{3 8㟳1Tjq92z*}D=b0g AloVgǣgAcE @IY39@<FЙ0'`zpщ?q)>0* ˨F D'V6Q.63n? NR EOL _x@\,lo@te`M9K )M.}`$$Xڏޘ"9~ݶb| v:tsko%˖uH4qW?C_FX Gr44E혪R7cQzc0z2^ 7 \^ ZUQV #D+ 9_Qu{8!lOyeqiX  T~ nZ!'zRbGcFƌe&f& @3t'1rݮdD_qNiխG#4)voOu$!P/ {\"t'Uu7%mR;^hUN},=9!qI+VTl f:  R! .\S|44TC,Ff+oTP4mIm㗦SQ+H<>? C0eiU7?e& @`j4"mNK4ϸ3g6}@WS~@οxėFˬG*BC}/:π PȪ2YS%)w+M8Uk?.'S#&!@]j8VzA4ԽZU!nڽAMrcxQP&acYP4"nMiBKpY霱{n0Jƭ{~G 6<+j#E  0!E#@RTǤX?@us^I$ i*}>i aŅ0GCTۈ=&j~O}}1;>u>"i^g(Xoj䏞%:Uu}Fdfkտ&x7 BLTs~~~ԷDz!#dAXoA sn: 7lw_Gފ VEXVrA dGs翍!9 |U3-WͽmjJ晩FmGn$:$S[XwCMMsswH>)g"+R( 8Ӎ i@p,Uո=ct?*wS/`Md M ¥/ǜ !ߘ)@憯m;.q= #)FƺkV-AۥBկ}@{Xa怈˙zc_x)xms>MѲ`09 @.0ۡ&=.LЯ2;^ȃ8=*W=K^u_ 'ؐÊW 0'mcpnl># T 6Q(LIO;~3F(grJuRO ,PG @G~+z#D]H|Gkt2(,#/zn^t9,>ϺIy͇`r/tVʃWhf3u1B NI)yd"8?ОjP7\/fWYy߃c8:nsZ(9C¥u-UhhH6Z M`>kR{c# }T@٦/}xqĔR=e cd,V@1P׿O Z:7s%[Md=LVtr&(:V `yV *7FHH ¹qZJ`>71Fv-n$ȿ`^8`rPf8:`-V@>v@1YtK/a6PAL7 Nm.\_; N Q0ۧ",X'hUH~QЊ*P뮿@2y0awv'YMȲm}wdW&w-cgM&O!7Ԅ@Z[*_٣u׿3OTFقMJJ𫼓rX>rP85JjGJ91 @\J7š>Zwea/PP18W`6ػ{EcC/ }iߏ~hLxOb^+Zv@Py ƶ8)~XRrgS+v$AٙK@ȝ|lfaPFyf<g,mAnEXoVDf[sѰ5躖-e˚b/q} = 4nQUb aЅcύ"rY̥ Lܰ_9GQ_4FAA唫 kxi6/:> Ws6]+_^Ayߟ/1DauQ\)[]H{){?„&V$fFLZE@8-a. Ln`!KQ]Q_akHEnj'ӊUe9եMiVU`TUFm/˥vr*(tp 5@<ً&iES }ͮ}KmeRE^~} Ε ee)HA.N]A.Ytvdžz 6QY/ݲ*xO9c 3qXG9od WE^FF ϻ^kȩ?8DS"Ay4Lg:jubVcqP B1g6/=SX]p fRnP -l6fl15Psrva0$O?딙3_jeײ|Q5&1s'K(Tcr[)AVwb^6((tzk-'V z [sV\fY6r+H4fGcIEZ܊f'a&hg|A ]՝"DAfq[KnVy}b55Of_3睢Й~Ι<[&- Ǥ֐A ]ޭ-i8zSW~PX #V3>A|*?>l pH.h8n u^C_f\ SX;00@(Y$ LNٌȈHqYvwUy%_C)խaIJd  SFs7{o(QDxl/K'w:J441I;_<<k>A}sO"JQvu -DWR&M^e]5rJɠTijMx1YN4-"|>Ad=v8OthG|bqoPbSE494΁)(R6v!u{[6v[IW  㩣aaW-'115*,SJ zL OɲH)((\[\ٮ{-&++U3JJ@o17:/`]P23rRYd)(Dm/b1(6ܝ76`{ڏᱪ?ُ<6ME% N2=CEQ Ec|+瑡 RTSSD8~ R"fAsu1[߂fjFMN+Πb j9dƑgF2x0:JS <#yR!08=laE/EHk]KnUp eiap$[AмK11L~Ĝ$ ) @k}}Y\P8<DzD4xx5-;ib~)K9Rf>~Bym f2[ۢ H=t˥"*s,4˜!@b@cW?ПOS8t{FF􉋽sGxӑ}6q .NA,nS8 v- :8AAo8$.WA3G!"5&`')&~<.(&0QDp|~#@RQC@׿g.^ǛFg#55C Os罰DLl78NLEŢֈz4Ryrh94~& 9ѭs;0,Q >٣%QO,~6 oN+ɣ sd.3tx ڈկh$yHv'%$Y&opߧm|G$-_4q&/9Chb r09PV j7>oƮ2^ՑO .qƝd/o Kxo: wn %8¹`_}z pǧ"Fj'F2%Ld7zD9eD!"C5Ғ0Oq0v?_%/$;Iuo?я ޟx"-o%Ӭx7 wZST- >7t KZnaxQj}xPmf hvBowA {I =Z: $5'v͟.?3]| u ̀jlTԆ1Pma }Tp}uy"@L ~ܙhQTKZ\k`̝ve{ 6Wފnr6(Ϭ4=B}OFKHC36[ u &Au8$tV ]]G>#:ǎi4R3zWsZ?J;{ y=7Os`.Pʩ lf ~aP>7r@:=1]c-2.55DzH$~, (^; 3qbL:Ct'jap#S}g,{{JQ,ގ vx|)@ rIhgV|m5*<OŝB*6v-0)A,1Tƃ80@ֳ\~4TF3>p@Hn'MmZ=%?mfImKҍ}{`q] Ӫ<uF"OՏ;pOD~vDפH WzDK0 'j׽ ֲ-<6{fW_Zicpӝq%n]3)&FP u'^(c-x 9%bCŬ8 2C;#cLMThLysC= <_-A !&_7iͮ }ΧV 72P bD/B!ORL |&lf:@[ >Pv3s,[l)K|1˄@`ư $X`о v`]T  !'C, Bၰ Q>K|"' дVo !0YBP,ȖJx,@#: 04T6f4@+{>6 7SveC3c 1#FQSŘc]鯽ݩ'mw<~cֿqX̲ &62! I+69c?/Pϝ={?4;m]`C DKZ ȁ(OIrǴ'c̠r[uBB)K90Y`䣁yq/5@^m 4TM#~c |8>-^ۦ|a6Z1.J'ZPؾ-9VeD 4…mVD .ΘbUVZXNp'PHH[5(go Gl:IhY϶\4d`R`"&GF&" FO $xJ*~h4[u'F `*&N齎9ՙI'aV6`-JBL7" 9 M``{ID,.$ 0ק2mGQ.W*hʹ^dJ~&kt&EuJ*Jbn#yiAVr >|& 󩶋Id>:+uW#碑mFowRH!k~ &Y^\Bz':%('E_GI. E zJ_c/C8 ۞Ve 5{T `) k׵ӑ70A?!h~3 :Uk|>,RZ=~V|)rto(`8K6t p̚i)90{00pl4zJAjWfOH7W$jf9s>|!P@EjwvVج ]yIuȔt/L FpJAJoESn H̻"h"#1l""!Wz'OV dG׼0ΌK Mfc_W5n{t Vz?e07(spa ?7":78I/^7永f"@W> ]@1P)9P$_6FhLPX0`!n͕:PhMNcOkDc\8֓qyc:RPhϥRQMNW"t1>*7B,>|!*@K ~-q^ l.@ XRr4>.T`]YH^p' РI_c4m/%dMZiG&@FkK#ރ!` y]l0x ۵dH+tCS Њ͖ @8hӋՂiWS!0gk VbaȂ"3E^f'aac; >GK CH! -I5EJ) X]Jۀc50B`\ ȥ0?κD 좣VK]%@ѾدԷ~'@І_Nx1pA]c$@jBgRLy@ tfZ Ǡ$RVLYa$?ˉ!y\>u3wP@y3/։mX@=wz)1nku1*$Nq'Fܩ#B:WN P&&HȰNBb"+-fW$t&/Վ)Mx}ݎhڰPCM8@=60]F vj#0a<^f+颌׊ZߓK ϩԠRI<'1|9]ێl)|dO 뿜@`&ntLu(zF(hbÿ3XuWaJ$u̻rBgѝ"`+&qO$9 7)eO HG=wɗ#@;97bGm"։*k:#@8{Yj$kD".{ܤ,l(Oʏ@Eg^K @T?tfЍlY ,tDҽ97?8JxCx}Ɨ7Ģ& ؇`Sh' |(6QbW?8ˇ}p] \ǟv, ֛9FHD 7FC_Q4⏗viZႦv!׿#6LxpY@+"`Jۓd-h8=ؿ?J  ^z:>Nbc@_Ri&uFIsg}=@` w4{E@ҦEA$ oZo˂ >`=fij)L\~vyt]@0A~|aȌTڎW# )d8YS ?WW~sr)w!!J R.jߊS''."8={?@̦lP`qm5q=rN0شo?~vQAXIuُ#\2fSܒXBP<F`]HMˑHx9!F /$ y+˥;~JƐ8v-aL6_p+H?: V0-:[_H0B[sqr^: @Ծ 7YI0WIr ܙ(OEzG>|w)`?'%C6ڍ h0/<˜pVR+`,kLXtKT|DB(*c=㐭PPd@l k$:޴Pdu_&%? 0#[ŀ4R@X :&`=(1P )Y^].$tɬx2y~ L(̀ E,1HƢOi1@@`0!(m.v|d¿̎й b_KvFڍs=I)JbwfW\Y(2OI'`mu%;59pP?[iGCB42A/ /T :;s;nZƽ; Ԛ, ^8aw@.`G?]BFG9uM&\-M&̨a՚|AP7P`;@SN?-&4.gyp7g_pb EAy3'a4q G'"5MsVM?՟_ vAA  AgokK@C ; C`5x7st6 ߾#B@YS6Ji#yAFgr))P+ S` 9> -/7ãt<$ )D ӺIn~\*a#:$8 >'0W GvܾBcb8>^#ۜ!Qaf M§M 2 ۓY Ĉh^ ^z`6f+%a"40%s{=О:!L7' +9i`JFPJ$#%B K*U/q[Q xCl2P4=PSblA!)+v~a)+]۳ux4W]D;#ً"mber[>)B _*?*[`) b;>ҊJk{(4WC _؊b%덮 Ip+L7<L蕾̱@،4Mhk XXskz-FR}Ј+F"܋O&F/ 6Ābd}D1T|(d;!xlZDZA=״9ȐG|ʵ= h:қ`Z *`croK(,liwP.$p,6pZː63QZkiiK(hv3c.[w hCX(θ:U%Laa;hA|d˛k{\sE++yvիyl>V/<-`,Lp9N'"j4!cIDATQ9@<@Ḩ*m|,fI8N%pm^<DNbzJelvA&\vgp&co{ݣX׿zCL)U[ƶg%9)1h@)yKz䝕n m#;Cn)hPi)R5X&ÂV$W㞒2Lp-gٕI]q`l+& K eEіKl-:%B:?7ɣQ/k4|}_NVs=F#l# ĨWl!cWuhe&yo`i/D R(C'c:(Vg+戀n ׿FXSt3z*X!D3 * qq*mnr>'ԗf @UqۼCi^%g6*4rV2xC@ OWHIKXUDp" 4}R-K(il6tfLxVRz*_ĘRh} @c POsJK{FXT93@DA W?LX>M4_X lP+=HpL&HT`% 5_S=)ʢc8d4 =bPݏyD N15Ig( ͠I Df{JzW Fcg_fxWX2u?N@@@iF0륌$bB8+ .+%< 50󥙺)@~E@[t+އR{^hc!mHWC/^ 7)fR\ׇ\ֆ-o`Lij/%u8҅1bG0ۋRs3ׄ7V؋WM-K<@J bLpn#4i,%u%?;҅1bc`p}Qlr~UGTm%NUQx"o)V[.P/0S? gQ]q75HHL(9O @h $|5wĴ0$ U9Jz-859ef s?nB'Niw9"'\5hc0U®bqE&.H8K( ԯ0${+40hDD & 7DfwpJ/E05@6ӗ hnb#Dk`:7{Dm(2yA@"0M }pXr BHxPT/rUB/z}l=qaigHW$FjEbnn.(k:t. P(=_Ux:lD0>[jcY)l e-I C,xL8D<&f| g?oca{zW e[`ӰHx3ov/'`gc5UFȔP6} #J̦ʹSt`Y!KF5tC̈́wx~sckX ĉpwH` 8_T% kƻy$naW{'QEmXcڼ _&PpYm/Ӱןryo CQ>DL8U OSP q^MS}TR bUpBxj#ms>ן@ ύj{(c}a4~gKVڃgb4b*@b}̒i*ğ׵—WڃutOvi(_D'5[ʵ\G啕|}( DT:K]]9H|30 ۠ }CN\N_o#P{̟p%b4D*Dl0N*>h>@ i 8`?@ b=uxF|^ %f_M"SGBTtJ6M98 ]  .Cn7 ,Lrs?#2iGvQt?m':Qo|Ab(q'aY('Xtl\/[bha)T0l9S!N?F8 ''FPakvFHWt : Co4Z&t7Jx/Z :87YK@'qP"} _v{"Jn@lk:Ҹi[ڙ$MAR$O Jof@ޖvdH3ۧb2Rt_TOS8l:I*C?|JJ# 4D{:%١LPq #DW\ P0.g!u\pj tv[knHp/PytB%M8B:ϊ"'5\5 m:;4$4SOy>j[8n@(C & u|kE0p$w@gh@r4e5 `<6'Ҟu3J**B9Cr (mkKzA#& ?LEx@ BBpQ1'g]i=@ 1YƖȟkKHx]ץb&` . G@t&I1@0^87&y'?FY=.HuԤmMI[M& ]_  Nm  "tf:qkb 6lԼ 5ϠP/ڵt! ]7t+MqpzMvcM#mjgؚuٻ83UUP ybԚBEZDRP$?{)})gRIP!݈SG"8 H5 }HݝwfO;;ٽgr^vggDmU_nE02_: 0`=_mJo=>}w346y/ 06WoѝJeU{4 pbW P52@2X^ˬ.P[l۾AQ͒&5lًvצݗz [\!^F,meл jy/W6URJHT]7+=[: fc0_r2[ޘhfCDcxo.Tyʈ)eW)=,T*_NU(t@?6ju/YV$-$6n|bg7g 0{@<%z~o[$ss<),!Gn]^: l`G v@~SpY^Y6>0} Hr$QH@u:} : ;^eWd*A83@aݑ}K@$jQܿ q^Ho.{$ `hd<VB3HM PnYwߍP|E></dHՋ%2ᖦ?@s{<^+0VWk ໒/"pqHjw   @!H&r<\].Z2b_!an6.}p8cqVHi.? "gTˈ3{@lJgm}$ Ǜ7Z`%8Ί,PEfmuȶ^Z` ܣ $@c_th>߁xEw Ԣ [TeI\ CI2 hhhF`1"S Ѷ]M+B8?44\S`TGj) ]aKkd{w-ˆЍ  A | 4 R0p+ wx65}6?14$ M0IjH:-\78'(}G]#1`h5d4o:;jEiCWϞq /B~5h @8]^?ٍ ,u-d6  qTlRļ-{@KQ8,Kދ4`EihUkP>@g @0PEA yVĩ("EGW H{£rv K1Y`@ڑR@1&@H @,nЂx# )L}?B Pl2ԟb6={F TY[Іҷ<xD @'J \^`.\OjH `zRw(ogd0B]U.,EM۱m!Gj ,7m:ZlPlP 4[r` s9j4#&{bP;#6do7[p@e@uF,v~1JeQ B[Kn@v<Ь5c[@StMrQVi6!6蹑[$u`Mn^-H E8@W5o a*j֦>wԦFTd@7+ʟ7%9B B &)}(Z@Yw:2j@@);(@=HOsKA ,@ިx1 +|Z)5ch@㏻ 5 Z tZx^oO0 jG^Q@^XQpz6j:[@w V7dGv$@~ P`PfHedhrJe[ .3+Lv@vXI @pG\5t"ElP;>:4DInl@IAqmPrdF& @K84C&Jlvn1t쯐$yF~X<(Paã"ofߝ`qRoA~ Ґ,V`e9~Kz⬬߲d Ґ,VP.RowI03" kd0FFlG,sE0"GQ.Zl`л0- ;So" ?5AJN̵-*1@6):Q;=G&" {q{|taR:jDޣ:W o>0)X_۴%BV軓 ߼Sh4)ji§(ț;'(otI4ZRl!PÛrR:jD,"Go9)12]o>zIFo@$F5@(G&S5o>:&#,[)[1)ua @ @ .f)fƜoRxیasuJ䘂{LS){SÚ/<̥g{b^>u7foфnf&`F(bn*D)+F:"F#f7b5Ὓ= yV3Vd9k3/g$9 `ی)3HmA )z%l\zv0>BKWd*8)=C5vѕGOlyy焋_bȝb ēmk»b IDATx]۶Mߝ0,yev+j-NDI(mT63m7*Eā(y'"s/`0 `0 `0 `0 `0 `0 `0 p,xS<~?@ǏTمhRH@P'%G! #?=y}|s?A@P@x=:~˗gS}_61TР ,_zBg+. 0}5]: ? ?@%FD}Щ_~ aa yGB$,"^Cz=%Ljw #?t 1ΏzA2v~Xfe_ALK jYx7)~EzqJ԰[DŽxN F$QU؟کK Жn'c2@pZ)p=& /?\TKw'@N{*PgV0BCV@rFNe){DW~]/@_i `~g_TV/VnP'*Qkhn|al0D$;CHFp(Mܟr@U3W'O) lg  S,P 5Y(e> g ]f= +HMA* @MA ~?g (W(p60`ڻܪxpbcF/VfoQ @@(>{xRI/d (^W6tPa=H@R YO(Fp(-g})(@<,7 h=n=VPm,SH؇PU1d%f SK1P]q@:53[(`H= ܏h*Tc@\H8Z@ ]*+AR"ϖ:=Qݮ^SD-< 8 (R ߳ԷD1@u%zJXdm ==uO)@JU} )=P i18P:HVrtIC'@5`?.3Cؖ*w 9Ht@t}?J/:ZC WY@Ж-Vϐb=RROEC> &ڙn>~| zN9๺;.#~bKّ: On˺QՒ񟜿87D~}|>A[)-D;ox<~(r30&~6u0tAkR:/#ui󋋋g}3‘o H#Yd·h`b1Ԟ ŠkЄ5̳Ձ%?@L{q RWn%Z[ `;JlU"2,thY `~H-Wh 4+C@*O m P9=ԫ&`\G @qpP9@u)uwQ ,@&B7Jx=JB p `Ppe8 2yj@/ `KJ/(aPC`w' <uW>oQ8)vC?{ap+o@}<Yt-;{.Ip@<,M @6. ( n<0`{U]=wY@E dRpHb0y[5R=TP.,F@,pu0UO5 $o=z m2WTЛ Zb \&`0. (`%p8%ju2j@+Z HK20z)fPG8~f2Qfk\]X h% $`pN| ŵY@IP=P y7b5P.p`PZz)){.yWy<xv%8VM9A(^*D P%pb0xh2pq5P rz׎ _ t:QiPϬz\P ZQ%rTaAТp*xb%$32/bCծVX@h(R <>~W\;\ <0k< \ HPJ4V @f`uzW+(tgjzp: pVYaM EjY@Puk Ǻ:uz?k^ , uWpJ*%/МTG `+{WgږFv*&F#Ri"-)Vv6I*͓Syȃ$0gH EJR8t7ƤLPtvıs UPCd%0|#K/W XB^Jh`uM!X q bޠB T/wJz!uY@e`>oS^r"R!k}g `Y@>c:.tꆠآL￾1[.jf,%5u@j1hPjM|4o)4ӂw+8( m3DŕͱOpdd~~8PWp"#"pڂf[ v]>?&M5oC6)|*ҋ!ItG!#8H)?[6u$k?I=-;I9F9 g([ihSkwefa$tD|s??R?%|4RQzD{Y ڇ;GFZO\AdoBg)@ 0Am h - #,ϯ:P@/蓁Y Mfy~Ӂ >@ Y_wL < 4E IyCo@Yu>C_ 4ßI#,;P@ZH 4khV`痝4_wdwhtd5~;Iө5vlnH ? =d7#+t q a2Ͽ>!y#FA JVx (ilc@mA!,) ^*pwdpP@ #7@'h) @"p@_4E`󭚶@:: Ft[ @FFt puY@Ai @5nc@^0/5'=``t@Eg Ck:5>v Xh ?oq#F#Vi~ŕEE`i]xB@JP4aJ;-`DձItY@:g*m% ҌtzIm@ #Vм#1iu ,!=t`b :z  #@H FkOp/ FP3|x ` m/ƫOVAs#! (Q~  2A[ ] 0e/z"Pu4:J/e ` @0 #úneԟM'd[38NM`#1kJIuk4^@@pR @_ 0ؑ*'B_$czJk @xCF zA}@:u[@":@4^ Y@tGPm@Ib`dZ~iQoj$P^@`p^@ h z0`+Mi"Y@B /G!ԷF0Fv`SF88#6Zk3NQ@w[ˌpptYmѿ_C'$OL<_ji;ՊV88)~7,cݪ,FK|  .8 Ŧ~17~/!fȆv1ۻߝ L - Y`*ٳ pldFZ`*ٷ@7lZ}k Q]`*ٳ@&"L/{[hge@h!rc*ٳ@z__)S?͓y'@泵]_9fjم$kvse@ 4!/B#{`3[G@6Y6w#XFI+F@ v@>S@3F@7(Lu r*ݿD`8&̸NGîKJC]g4Ќi0 huQ@J*~Լ XZ Y@.*JACF{j@hX/G AQ@~uӀتP/Qػ:n:h- 0 @'HY@L, 7Y@E' -<{X |Т\h  52w@`Y@β"x@¡P5<h)F+4,k fp޽  (@@pvn="f:  cT5 Jʪ/GN`o/+r!@I{kU7@KhFNрU TVb`P(`P@, bLz bUK IlFnTsd&Q.шh/.hEg872Y"7 oE+8㿀>~} ]= 8۫h￴: ‹+$yk͒W ] ?p[CE>rv,?o0 FFkoS>x߾FoSh mR@ᳮ/bҼ&&F7Pay lM8 Dؚ"քx#$iyb&HI43<&H& ȴVlMh`z_ A7}[nGp]xl6TS>A2U{3eLMm} <8Nj[II r~u- 0շrN @ . @:u$К|4-8@% #C@;z8оt$p@2[0tZ@_ pzf޿<%@dzKp]+@p@E+9ӊM8u;w.'0* Cpsk@#e!!q`@ƚ eO@wTT"@F7@:d_θ8VF0 38y5t-V8`KAD@2Ne$=@H@@9@nUT >{Y ePժ  @ XO+W sU@î {\"@F.90cV>(W@~8g1`M.y8VYPs2ШrEF}Vd(G;h aL903w'!IDATF0 ٰ-q&pP!L -j@u\T^%B:>f @ƒ6(Abx|-RWۋ&/gi}_;V$HkmZ&Lkm%}_#ktMhC@ O/EJSkB~e~<_[~s/@(<2)KSIӣ5^O.<xETútkys/ғ+&c&2Sx(OFY^W7e;Xe_WRx_2HW&J" .2{q;׷l+o&"t?DvWkNobU$RQ$iSd7|Uτ3@$@:m]t-v`bDEI$̅gq? ANPkleC?\mdW٨2Ә`_¹Sݯ¹Sq7s5 hDPUB3' f psP[e/2 0GU$ 2@8C6ժ;)j Dua&Ȇ65f/# `]xLGg\vG(YL$ؐA/ *CxQM50=|EmLKz& t^޸|OJzguq)0{B@WTߨiT'>@uPd}"b_|J` (3 1R:I\(uTJoF *ًv@Z aO8<VoBi4 zH!N0f[AܽꑐTz(Y@nyе\<F?ZXbj:fd:W ˡ>^k:ڞvimnv;no+^a&헷x{vws< n26J']D풧zpC\S}]:,} xz31u5yΎDS -uv_7t6uKnÄQo0dI<>I K(@z=0t* ޥtW7^@o73!aW @@ `-chT R(J=.+1@{16*@;yA#hB@8DNT \, IL`=ҁ)| , UeQVA`{w, FNl0`,tPZ  @wpZ p8/*> @ 5, 3 N?0t@5Wdi@{A?P+s`{'-PVPPm 9J :F¢`@ #!ճo$iSh8L7P@Bz}1N Q*5+@NF]$@ A_hkgZ(VuJ)U g&-izz{~/M;Pcw|:XP7ᖿMC~ps +abcssfvxbs?Jq mN1{^3Rn<- ̄62}v(@o3ۡG{B)|P/>ta,mKwP :=,[@W>6*A{~Tb<:4(ػVLOkOtu:/VCQCA`GX#{@n!<*V@DuJ:{?>Y!&@MuMyQ: !3FZ @ /:g,!}5zџy_% )镽}ߊV5<7C@K! <*x h_ ~)uYY ,̯`@PN Z$#B@F xe9yM`yL`N0i`>$ (&1a}Wn u vuf/>>9᜚}/5x&[6J'_,{?w89=^'q`{rp <|hZ5)y s(Ek&$ X4(l3?jPjq@ڷ$i8 4! +%Ė^͖ċd>lp4~, pcH6} `{ML p1KnD` 0Ch~?$Y<i,Q;h)A0vK<6 4\5d̿=}r! (tzC@b{0B@͠C@G ( 47e2ߋ?LBo@@xR ߳:g] %wQ`B@) HP@M3t̻ok\߄$ 0N8dcߩ<`ޯ:$VHHR&a((n JS, n ! $g\ dcGg?=@  [w(P 8L`@_h?g-oQG J`P"7В`vsJ`P(5@й9:)A; ˋ?=0(xЇxv@{N? ?{@`l]6}v^/{ˋ?j@9Ҵ[NiQH:-8 4Q <s۔ @t`TaT , w@I@),4fQu}*+8xn$@+: 1*r pn`Poճ|mOUZ]`RJA-ᇭjF@FtvB] }Y, %T `C*rr TT$ZhF0@\UD0q@kXs54ٸP[=b.wu߹o|ć&WE{8h,_]k/7sI%IENDB`ggsci/man/figures/README-ggsci-lancet-1.png0000644000176200001440000006532615120434214017734 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$9PLTE^BAHSŌ|>vSQRvw GILi= IDATx읋v0EA'$N (j[ܻ =y8?J_R8h9Ћ8u>6"?a>V][[Ut=8Z2mݴt=8꫱C)zSIi,;ܐ߫:5czp8akDv=/?jZ@~,]}QuX8.*mmV 'IX23M@ 78Щ7i Wu$?E&!v[;Sɿ]nhcɰ!ߔhp8hq /8B':@ |^;"5yci]@!㒈:m=f$C ^LZ0.ymf:Tv]Զ/h!{d#rմ#ҰX9x?:RZ7f{l`Sl@c~( m6D2c+X94J??nR !l_u?'mz{̡/ շ&g';{]Or}OփV̡FM)t/4cRoR殮CˡQ@c}.<Sw ?0f^*CߺV@mߔf^w#EnV!߱8-@!#BG:8tsx@@`~m%p;wRG@k d?vrpu8:|G^BGNRG>bGt^5#`1zk?C2ylS횀ɇ,eدTxf!9嬵l"՜SV E!7eT `%1rӘ2ZsSs#=BsD!EXM/! !MBoDLjBύ{Mѓ^"*@c~3P6KP. @1 Wtj<6]b @׸"*D*XS/6.ۀVUn.^b8 SPލ4 Qol`.x2V@]=FP "ņN >-B r|jXV_lEU7u]T:{T [w?5 `W 1Fx' @Z dbwU/ hm}}J7!Ni\i!U*c~WE?GCW-*ftL4(ӲRE+9/ @5+w }M}q0Bhj1N3~@>P'L[=mn*s !%[(4޶߫GFt7} Ҫvw @hs- wC%')Ϥm}ڇ;}us>|4l}C^~xd@e@ۥ&Q"LQ-"J@Vp5IS w]7qF g d *POd*a@Sm}{vm'i"#=w~}& 48 ^[UR'O~Uj |>?3uf1{@nj t~mx W1GЂ貟 ,O [ E QC"ZތKGd/ݲw7W&+P@?g\bbM[W2CxBlO^ ?DFnR ?)<% i;䵀*~hY&nVmA `aYS\͆czX{悋;:'#a&aA3%EES9Sl9 HxSusɮ}]B®[ZI3:NvuJ-N@.mWclm&~o5&I{k݊">2(]f5Nqg7ytnGD;qQ:vp cy7nP/Cyf½Z1 @|oylK5Pe6ƒѝnMĞT0ȕLzwfINoxFIXOqQ@"!̷F+ZѴz31lCpk%0CX:_(4h@a,V3`tq"!)@?$Yo+}$p:N8 ̖+5dC%RT 0/ՀaodY>Ͱ:_>ב9%ڷ F踋 S /`é r1$B=ǘax,!9qBF_צY?jߝɅIW.w8H踋 s @񟚀I+*TmX1$XÔz!g̝tw,Ըg ϋ!~$ݗ >Ho2}HGGA0}M$@6, p'}+9QFv!d( !Tl_%y> 10Lk ؾhضa"x/}8 <Hx @X:Y*UV:(C@ 0S*?=d Y#EY1=At`mA1}(a,7H5ro0k0o5B+_ls%xg p$LmtZ߷ Paz-@80* 1]^Ӡ{M{[%}z}U@27E t9Y00=C &p|@BVz*e;n?腾gYob9/ c$Ȧ=Oc:e>=[!/qhobG#hCWL몋,``` If0`όK 'wz,I# [~BiIPa!Js1ֿGL](1BiB:?a>RHJfY1 3i%nk9k0@1L o EYx_;C=jfY0 !`> 7'qЕx+S#LoX.ͰVϑU```{-| R>V2Yo-U$xfP~ k>-S!FX1nx4KE $Ph +|Rɬؘ^[HMvIƘ|`8~h@kUo(Sc@R<}q+&&_Z&cw]DnM︊eO ab0A}7b"8]gH;WBGtw$%(L~ s@fB6_MnILCгc=G~ Aw׹*M1|eX2 i{4!؞:+߉0fHd `phtfW-Ёgb!bo j0IDƘBf(h]Vj>Mꝲ+ r`pP>w@ Ϣ79CxRTeAX@N߫SHfu'DR `@o |@`,lX1zO-%ρ{/$79XUQ'䡟K> dP~\bl-"Kl#q+&&'*fG ޴\| `ONʁp+!WL> "zC@+N V'4e߷F?/HG(pw%+&&g*L-@5].;\kiI+)Ҿh?ȗK9KN+g/ە?*LE?{K)]qzRfg$;4].g$@: :#wom߃~)sKb@*Σ `DQ0_<2(VP e/ܻ Oۿ;UKu+Re!T՞5(С;X10rbU~0c6}*@G|L%RhV+I"B^) `*#12}b`vp8 c+V¸IKtJ Ƀ> Ns[sgP?#`wD(Qe' @ݜi&&3J\2NN!.M_j9"`;`u(,sN`]_2?AJ#TG$@x~ao7iD)?p +/)}ݰhF @! 4%X)k0+Ap P(xapsW tvn@>= L7uBoV0N.[[{VCT+aɪ2z g4 %j!nf`8'NSwƝD:,[#M!N>< iPO$;$M  ~up6;oh(wGJYy "DYG cʇD8a8C*5 ߏOVH-?$"e^lM z) &ht--c$NQ:N,o1u#>G Ѻ#~ ;* #5C@ @9zJU.#JظVa &ީ]<͔4AE.?"9f lPK; nī(cn7Z8c`88&TNKF/4 (:H8I#'.#9g}Y@4 ̥@ `t Wބ28npc|`vġO5,HIU} `Rtvl6^rwfۨrt1 &;0$@ {>s0V>ΠwNS+&rȗeٯ, }6c'(@T"ֳ ) ;~Ӄ#f`8*7~H7ĢJ(v$/:9Bf'ZEѥ4 ~4Pxpf28Ż 2ܙz$HQ Gͽa+7R>tr8]V8D3$cj]oi kBTռ"Xz i„'10m q{GUfs.rBz,jɍu<򚉘*omh6&/ȇ*lá46 ~E$蟝 |SqR[ߥ}c:34:9K GЦ.we멁w&f"ZH]ۆdM9`]  ``ϼ ( jw }T&&N~eh<Dvdv*6=˒.Y00 0ZVu2w `:!v 0+MeHd~3x)M{3{{XE}S>BxbE0W Me@Fk'+jp:w>pbx&4fo'@eInp _'2 26֘ 2@Hw@X `～] 9vj$i¯cc92 pѾOgE>v'"k%'(``K` YDU@hq?TlBL#Dk;KSKYA~N+2[KdWY2+k/ VLL~|Y|z/q7nk_##=waknGf{0AK&+N"( ,<s ׫4og~=$UI3& Ы##+ GJsj2+fݪR4%`2A+_xL D/Y~>k꧉k/+d3 WHmA8 -.0,}S4I[+&&^?@- vđ,\D] IDATǰxQ5y~co;8C"ՍO'K6% _SE,3hE@\D]Zw#"4@i(\rM$J9~!5A?zXMP?i  =Z.?d|C)E&? @t|,E + J~(7Z]=8VpF!ʲ z)|'?eGȞpPU&ЙAeU+&&&ߣd8ŋy-KuHa{p.RbԪ ut=W^#.VʁbF@f w)8*HH,:l@bLZ+^{acg" 2%Bi\PSl.="MM0xw; A$qyv7Ocb 5~pVؽ1 ,f6|,df>X@-1 8&&&&oVfp~cZ9@-z:CvZi'46jYA 0000F`-!D /$~Т[FBS@ knoY,F9lxi&`j_4r0LLLL߬lRP!QKSFmnI#!3fl0GDv kHDF.z/`ig9 G7(lZɲ1AFLLLL߭q^-sTZq Q Gƀe[ƙaEQ|rډikؽPDdA6ThUaRHU)ڂkU12Ͻ_ /]30 bǾgmIW@ƛ74RG i+;3l]Z$L AAJѳA[;,mHR@' Pv '`Nz1JLL~{ޤ6}^ Lt,c@ D8R9aGKZ|p:~; 4 x4=I1ܲiRFF3!&~G5 =->WIIP(PhL8fCFݜL2n"W |T1.  N݂Ɛ1’X˞&N1aM|oVuIŠ 1URCs) Py `(BF _~QBLk@ +UǑ}?dž gp0k&^υCxP/dAjB ?ՕoP fUP?*"tӷ3nB @<} o0̀rL.:à _vg@H2|M71=m}B1Uz1dϞ](=AL5@$.[L#^ُ{9ϳ{,3W1KC ^CV'ñS%#]}θuv0 Z$<߱jƻO,`}xVL4%@4 Q){hGM*уLL_^x7@bWC'{ 4˸bxT3ؽG"= BQѼ؋eYad5#QsOt8suS*7D"boSohmS?dYC=w߽23>Jx<\ uM>"j>E: GpXZq&gg!GG@Ȣ('؂D?5gVUq"R&}9+$xI)ⶊ%(|BV$CˉIr+GـTmUϬ7lYʠ]}qjH z$qN4R.YK :8]]|hqmEH<{4?#̮ .(8 2_>V,ءà^ny@B ugv1˻L?!az_n~]?C]{V}0x TRۂJ`OtQq?Vqo?kidLﻭt-kA|(1YVvp) dx:F5^@\ }?Q=䘖7? ()/-t8VdLjֶ`p1kKĖϚ F @%f&ưd Ϗ,&ǩ _J3sϰv|%X@ཇG@9JYrKh@N!eFV4AK#t֚o cpN%>2s>L fӺg;,BYîִK̀x/"@Ng IVBr8!*Ť1. W 9ma`a\Zoz̥̽h)]{? ԇ< }-Skn21r/ճ Z>WGKT6{^JTN_O, (p>zg:y.v@#Cq.8ՓĖc]4(T7 _g ZR"/R`zִVs M5oROH^Ω06[.,.\Gf~LFɜ]hM7!T;,3@- Ss\8؞Wީ& >Pnvxw6#/Kv./2#y=? 0ĵk#/W2Ffl 5RY;Я .yb! @CL`8Ε`{+b+'3C?plo WNπs0;3zLnLn@GoϔPjRgFY_- !P* &J#œ:=mܟcơ]s`3ĵe h_Lbv!Ee˘0MfMwB&MH`Z҄&I"o%]KY2vH#ZC[[;۰Q<f\ ȞJ. I}ՠG@@@/R(As+]q5eh@? f`a;0e!A]@ [ kxפk2^ ^ E ݫR$   Ǘ)ȮA 8o)'H  g#L>Ztv'MH(<蠠[e eƒ%J=;NbL5_1i5hsy la' `X eN4~- oWN kow!!!O?ޞWQofv~Oa?M6DZ<[=qF`[ ԰ P?Gutx1DKL@sK5~5$CXؔGG{aхIGebe  p迿໦e|#k*5΀$9@@@@K4-v53J)594xLmHQ('"3{i"S}g P@`m^A(4S?9PxBO5`C3HD/@RAa; q{~+F܈$37iioBBTG_,Jb8߯{I&M8yWM-֞aTz]J%UI0@# 4X֤vZ $wS$-'I8"ixHW=2?1}  Nw5W> ~fKrD-mc5AKSH1"BVĮh%/d@^/ @g?\.$=$5!C*CP};zFP`TyKAC~" ZR}}t?&ӑC<)P `-G-5n!f2Rd#|`ߪbn^3w!k߫F-?XAF><. כqX⭮-:\"udo+`nrp|Zz/@@*-2LU] >\nT̋BB Rm̽Auo,7iV<"I9tq(}gi5pݺs8OEWX  `ݲZLR@ `uspeM+Xx{'g7Kx_I|I @ 8PX4^yd~3gtrj@a aRPsd[u`'(?0x$lZgН^@'b:Gy9\_=|Ph؅o=g$pLp=^@}2"B@"~v#p630F.qFt ~ `@)8kaO['%q,۲-]uJlON<#lkv;{#M#cLxov+}ɟ؛tΙs!3hl@ '#Mz+$2@~p$*_f1^9 t^߫ZwE?=_H RnmoRoGxVh_+#5/s_m̡+>THFsD S d15Z?|*%% jPXd*a['jz7O`, B14XL~jb]#GTcThE 0D=^@g& = wH,6f jFaƨi[#G"ĥJӘ2J]>P~mKE56'hp:~9(ÑEj4@9àPJ}lV:2;@g3PJ$y a>Klc4O jC@?vbkx" A)bT)|J H@3~A(H 1e%]aCOͳnEoc3֟t4!}k֑:1 @72ЮZ |"X9mS܊wzuM m €cPbEd2蚬R&PΎZpcR%\/ \Wx2 [Xrͥ /@y8)mf~jɿa-hNڙy\ *AZ= (d02w,_mh@E7ho07艛Vqk^Am;YzŖ[F\^NJZreu(TVM1>AeX Lt;ߦ+Vt7[%;*<<1U2mK@*Di+X@@@c % mU (%EOL1 )i @d,Ua~kpGVNhLFb[:&@o%@;@@@@d}ʄh+ߔtYGk+ZV6;'tJ|bqLMpئ7F?v)'ʅ,h~e.{ı, '@ e@c]i? \@h,!bCVrLZ hkLJz+g#Dk qR=ԆԗW>}'Fe>| Hd>}g0jF-m wg`P bu~#?^.vQ}@߻$EPfEs`eՙ)h @5XQ#i@>X:2@|X>CXɇ \4p`wS}Ƅe4u-!a S43:o41 0M[K,LmVZ`lXö lu4)I2n{P$jXB:M똧]ٚHT`0O,te~ IDATZ=| 2RN !59RwPf¶"j;99RM6텻 " NF@@@䲠 1?9Lm4TVWfw&25$h84%p;U$\7=A߉0.<]5Pa dh6GQ7$nS]{o7$DQpc7Hy뚯,mt uPH-yᗩiAR~o#/sJLtnf,%SV\muP~:J _f4<%>$ԈpA Hcn~©Io?ȿ T#)M8"qxl>s@y73Ϻ=snE^ߡt~\N \) =qm]> \./ڝ˅2'br<~yjf1}&[=({s^m~N Rh@EFu!T,Ou8NktgFz}ُΓ_a/opڸ =XTNh_]f`Spzbo/`Եœsߚ9̦&K3X=]cIodj3fLB❿;>Yȋ@ne `,@րGV' )X'p({/S"ʌL%b@6~x{2l&2`_8ߠk;Ih.sr"x-xX]:|@g3Hx>c A". C 8-醩=[?3%1IaS ȶfܦ%tzxxI.Pݸg1Gt@JM?6B(Jb=Ѯ!j)Sx$M3gāYN>Qeܗ L;#S@opw1\ )xB'#< WLǣ%lj` kg`+U=vALVrC34o~v,Fc17) k hwP4%nTsɜQ8W1os @ ("L7"Hb~$bC )Ν#fM0O¿ Zbp{ci$u^eN,$`M_r9`7j`̡:C?"IF;{l0;\Gk X3@Z{6 y-Lp΋`\2MPt)Zjvwu0~2yua4e2?Wn??{* aYrZ8y]APD3{֚4M:\ kl2Ӵ|`=?:H!LǪz8j$,Rm:ji'hc OQ|L`7P+p SdWQH5'Y qel\4 A[(*!^F s:q"`MqDS~Sez=ӏz ֺ)}~dc]c(:y}Ŋmnț֌Yug%PɷSo*NƑ]?Cb7P4f M0лVTLoT;/B~7&aGΓUEu{AkPag/T ]`zCЋ{g@TCBQ` +ڐĿSWQ1xΞaCєfOA^ P W(A`K Nb!PoHRqa {N G`5%z``=@Ň|(:lJ Sff޷G`w/4g|큶ž5ֿ۰W9|2lD )/[*?z]w <6uPx;rfDoW^ͿK`~t, =΅(ɏFT&\ԪP и  "09NGjۮ њC} jA x-͉h| V)0CGl%BBA$|D՛(m?G \5O۽UHl&l/[[@Uh Z3Iy#;%o;F |3J\!XA!ITg">AGVl:xney* J0G?r͹Q)kH;Q] pA^yMB>3_ӘGL{Ҁ[Azof7PUTP * V6; `ә]:5tM[ިn$NN!E3-uFÒޥHĄf#pڊ$E:cHT c"Б8kDr۶_dWYVq4`wzCYGMQCe Κ]զR ,L+0JW1fQ@TKC"%}`u"UVAvPx#{IrARs8f1C(F-4*Sß gޫ ʔHc^FohjoZ}'KF DX]VP~>Q{NYp>w|lc'Qkch fyqz%TxJ'3jPAK Vz}Yd792 qafUPnyW&+b^ "۱)y4]D`?HLOQ:ϟ"ؙ`V=r㕌P_5Ug\oбR s{[J]\bO(_j+A xA 3]gDw@ՏH^# \UpoQvzCED0׵py,ZJlx>Ua]gx/P*aUlT3Ug\+@%#. )"–? @7 LPn_dkT gA$ o7@&~&Cl&p%Qb؋jqz\cHK:)#V,G?u%tp7ĸyA*g}Y #=/??' p<B@αXY@F@-5g Gvlz`fwHAl:+2YX :AN ,p~+EK l:cQ?}v@R :c6B,-7+D66hƞE:HT@ v E3Z1HG D@[i$$m)#8c N%axY7Z Ǖ f>rV@ Ns); cHol Uߴ".t8q \ \">^ 0r]MeOAvp5mE˽ȥ+p}ѦL7kӧםE.Dr85@8}++n II&~oTH@ \bl;\M=~o20ap?}@:G z/jӗ֜$_r1$y)^M lﵯǝE.X7ǀ]'7l @3y`8e M'@tt#@t}aЛ;fq$K,$nA-,>73>wL|WUGO^Zڔ+u>w/I 49ЅH]Geo -=GO^r'0}ݩoI <7@-̗@cД"R$:;6~9=yikӴZ4S${ Q djh~:Y}U _; <ڟm|ze> Aͨ{n[{A q:Y8mk#Slo-ꀥ g _~#086M7=0~ PP4@Ho1_še<&W@@8H5?? @@8d 6$hO,lS%N)zg6E T|=:$($HtW1L_mOPPcfjwZo36p]$/ٿ+[ |sY$z u J32N2 @bઊS@={d$jƁ]~ ?cM? HJ@4EpX*?Hږײ25@)zw? ,+~QuZoza_xɗ?g#W rK7r(~xD,E- Lߔ]v8:d://b'_=?~`OgxJƆ+?AXt2tr-TNǣK `f畉 @F.V',,@_P0E!qm- @wջxtBOb};g'|x9ų7֗ଽDa&%YwK}mN_̓)EBOH>BQ^$=s[_QMZo;_b 5f fl~bj%mBs t7xt EX;(<^ ;FG@gy a?23}LR 6I|ъ%(HKq.&$Mwzdh$$3 ts.},r%͓ ZPsa2Lp!Y%2j ]A@ )Ghy^|1e,@0TG q%1\%fq ~ $a.~=rΧfPw HI]Zn. } D& DLjخZkN:uNz"/ N=2RmGIa_\S@^nַ_/ @HaS#{$T!82 IDATm6  !elafncP $`z%D@ @QHN$I$ z8 nzK:=zI ^ =A06Dws{T$Z";FjkHz`!d/a$ 7ڎ1k -.@/&vk1l삦$ g ,#Ϭ#K1ϠM,n3<)&! c$`5u1mCǘ2 hkҟs-.($ 2wy2MQ.IJs]6oqN :3,yPN^,@a:o'w&'ɼN \U3̽1F{[/N-<-;$? @s6y sg\$XoB HAnP.s];!\ $Z3./~vs$Z$ `kyߖ$ h5]!H_%{<Co   yohzЁp}@P@:A]hXg5LA zv/K]@¾íuٌQO5PHOYTuD{mCg/$XPU{Ђzr$KYZoYh FsIH]%I`j:C@{' `3^d} O(ldέ6;J^1Ȗ'!^=KemOX?KQ 8jA`{> I $&D}%迼 UKw (;ƛ$~Siy hoW;wJmn73Us*؉W ޿*~Q/o@(}F#@@IDYp1dC_˦RGynF3@Q|6163N_dzׯ0P `mx5 S@}G Z_F/t-}sDB ~< = @3Б@ R&0\KF@@! !H$)ݫVe0 !t{~ԕACwTF'BGɇ |et !tdWK'BSUUC{='Eߺzw;0 ~$fHSqSCH ALs(,#GUmp)U+#k9n%a$XkZV2k- i .zy ~_P.ϑAoл+OQ;Kb/@A/nc2:I-n&綡d8J{(\G}Sm?qCM:a NKFJNЧYT?z G'qQ*vNFq&FW@эӕDFu.xU%On(yvqFYmI(v& wQ:5tz@) )2ީU@``S<Mزa݊v9b˭d4.RКLuނ3gꆒ/$Fh%BZ(<qvL@Pu? @/3XJPfQ@k XI~x򗮥۸)X>Q ( y m-JڶL-c1`d8L6Ƹ `y9۽ (3/ZD o(K @ct5ڗT 5yև&1LG;i>M|pn /H$/tm-mmwhW l4kz337 %oZnBIЭ N7?Zpǻ7(?a̔??]J~rL8D2[hm[y?PJAhnq"׭r~5`8f`(7gPLQdkIENDB`ggsci/man/figures/README-ggsci-simpsons-1.png0000644000176200001440000005523115120434214020333 0ustar liggesusersPNG  IHDR#T pHYs%%IR$-PLTEtFүrFɼpUUUo1 IDATxkWg*gv0sŬvgBX1iʂZOZfQ֎`7% 뫽ȅ(]cKUȡف! ?"M/@=gsчF<őu<79s(@ @ @ @ Q~=Dl໸%"h@  ctsdUf"y).yVm @tPyhϼU%GX YTfRkrCekY DXx=zb\a.T.HD!bGT  `p@B`#΋`ތfQb}l(SadQ*]UhU a J1D*h @Ԋ`]  x ax;DQ# `@= w ¹U &T EV%\h X e%>kU &F9qwK^}){l55)ՇD`9M»?tof :o}-py?[}@r>\g?Cf p8ݙ-J4A*A I2K= .$ˠ@J*oU &hwTkGa*qU G(8" J`@ PaT @ߨ *@0*@@P2}&,8Z "  D@   J B @ܟrԽpm Vo0XrrӔA:C`-' Q}\AxQLI{!r]WJgof<1Ginװ@xiGRض4z)LSb u6)eCS,~](w1U!@3PF .xWJbq_P 5p-d os+c*].@4];d oa<()Q?CC8%H8pNOL 0? @qƄA p1$Ib=+TǙ){75eS/z/Wt-S:&,PP3|%uO 6(-!!@LvƗ,P$ T5<\h@ #P(A!@ lN S@-ʣ$|5}, e UG~c?/{iUw!@zyNv*10z|: vT<wU(uW0n׸OJN^p d/Pf@74UV!>>vh-~]oH0v]t'ʸi`̶g.oX@V= L(.γ w9QB @h)|q!*%Qi2# Srgu(ol5̴eY)_ e1O)p7}Bhm?_ҴʢiRo_JW7y D`(沸.tmqO*b PhkG -R\xYv-*iv z.v—;+vh&i ^d$}?V["?m +ˮ|Yؑz[aggtn,o-8)۞y${?{% D8{>;_дTyMSV%_:zX'kG& fVҒprZVD.0[PdD4٢rxE:V?yp9˵2UQ3 laJҲ$ԴvE 4hXwE4fӛx$\ 6Kر踕nZq$%e"01!pҬ١CŸMVZsc: t=.Ig¤ 4Q*?ٞx:2›=tIO"5Lyu7bq%_] 8nB+#,IU1X$k(;PK <&*-˚,zS1=W|t${F3֪@-G=X}P:>g[(MYVfSjXUQ^3ZPN@@@%*i?ϱ D ַ/khwꥯM':qm]Q6&U/ho*jc r6e~x"jIS!xbW0$EIi>Kx3EYV3}58^9Aғ1 qRʦirG MK|A:']"UQ YgEYl{o DG@d?AwUZ塝S1?cKrY)o7L? aޛKBC )@B І5 @0 f%?+=7 5Y;meϷw<̂"v7(gkөbJm;{6Yy̛,``|@F Wkc, }u1K~); 5:f=JSaE-͙x@rdٛB~Z6e ԕ1LK4} 4I=\a /Hg Ny\=C嗼Fjprit󬕑g%$eST;׶3K[n [^\70vwԎ%'& &w&2^PBj/*4 g}Qb9BF#٫^ Vcz9B9{d]cIiwN7D~}I} gƇ!7w#T&6F\*`}Nci:\1L@y@!8nI*2=MQe3t\X 7u~j)q@62Bb`[&?:r~Y,# pOqt< 1%'2 O~2iQ@Xl ةɓ\rᗸfԙ8j3־#'] ǭ11:eiLR.߰XFI)~zڭ=Õzto,1dfREjZ*# LJ3g N0]N^40e$phn\^fJ86=GfZ.ker h є pS6tcn| Ͻ0V8UpJ8؀G`"PĤ5ݺ=޿o/["'şVVO㜐|X2 f`{8Jю!;bJ@诛:q#`Ӡs:_a#xheF!.@80& OVS-7yCMp'vpkznXm'|Z\e&[, Ȁz < $!xoxNM"<h8WpqN9?z4HbhrXr$\`kv}BoG⫦`ڿ)U?4C{[k 9eĺ's`rJ4 d~BfEARTM_K> /+^Y}L *}5L܏L88,0>M#ծ@G|5\0e oYHUwP 2'){aB P>lk/3W;cxГ1b!y. q, ނSWHP3Um̋hT5ѱWU^e@" - 50ra@A2|4lDҙv˾Ohc./b5}U=8վUtA$^ 8ZZNj7 @(cy-8/ɁWA; g%V\5AjdKA@ǖ:i` R[!όYwCЕrYe(G翶jUj1 tx8ql/{w f9VZ.BY:} \fQc)G @&; %_ r?rO zA~>_ -|Lz3 KT * Wi\a7($Nv0kBh $/ c}i_z3_^9y0zhlLH| Imbh -؆@Y\ɿq:Y%hѴjc'.a߃oP7?Mfn"Xf43c,@jYlbьȝ}MyV\{kx,`E X\ϊ +0&`%a{ {ׁggnMaSZG;c_ȹu_mĉH|2KSxT8TZ B5Q $vv%`6?S9POq4sJtxa[j|~m~!}junr>2_C'H* Ւ'fdf*O,X.5?ʧ,%R)/{gFvpiBd[<Z(ze]R?#/)+ 3(߲!zj!,X:[8þ뤔eCH Ɓ!}Sc࿡1w$Egݺe-bl' 1(,}QƯ]YZ")m(b7lFϒ&2ju$jWۀK`lccL8MZVf޳֛=caw|; Z,i4~ObZP 4УtQi16,_Н:ϙz>3JH6X14?5eSaXm FpfEeHi0 +.:V|,T,6Մ+OTI+wy @*'Qc _MW9z:IN͂(}7&ɗ dO5"S_ |ek>v DڱXPo$mvyW`:W _ e\%cTPVI c.J$kJ_OWab#Ef tIGƃH0.݂/vG!pEӛOeZRg*LNz`6(;~/.I}anHd3dZ^g8EEY+3A>+lAރ<|AZ&ۼyyD/(pW Aup;d;h3WճY˞Y&Bb6~0$Nih5 Z W GE$8;`8~7vE.2~b Bbo㊰L~ ,VD-å@@P iWHVKEXo+?G.cP{nS (uD7eX3,~k{hCsr`;7#RIΪ^p]o?n)4)z+I8PCϘfp`0`ynAA#eC/ezЉJv& /Y~{! x[=̆ƨ{W2tOé/ Ԯ>}bo "4prl Ud.1i27,~(OA`?TQrr2w 8 e3 dũpѤ(a磨 9ur-zwHORfŽD o0a lסb oQH@0}988\% ]B ޠ ` Hl]*Gv-T b~MlfjʀbAk28z|..] thf&w=EA"pE+-̎@ܢB4f rW`@ àhw 8)^NzWI%_`_,}6=NH u:%rFhy `0XIh$h]*5( DfHs 0 E:X~z>a~G_3Ed1n `jD~cZHT4T6Mt ׺p,\+~p|?e&sa{יa^6N(Z:BR<}&N7]d&)p˲+vx= 7}[ IDAT&,1xm`*Q$c>(Pc*p+,'@?X_x8V@|wnĘ0(UK(GJ_.XG0>eYZ4!ў{.(POgUOo$O% 2 d$Htd}w q|:QO? _ 8{)0=Tf>xK&pz'j^4<ȩYADWZw̌K:8 &Ԍ]gr|&''I!g;C  OqLJn%ZtNj(>w+dYռM@Ǣ3c̬>$,`QAc<L2:@oQep`{p"k[W\C|@v^2]A;QV ^WW,9Z|uɜl+.:Qv"llbr ZcalM5}^-5w`gh_dx4^!uCf[ܼo 7x_1R@e(UI=o=]͂~ëOLsYPQJ8fZY~:#O>l O|2^J4Hr~0Э#@-\t G?:~w,> 8Z}awcgH9t޽:ǿ8@!iŢk W+BzJ@_ 4 ߞY2XJ`A9(t;G܁^g 8 mH߁ lxAhqn%psij י'+4 uW(dOɯ^}fp:SzNvƨiߎH ~z vt!zTK\ |[nb3w8 l?E%W?2JN8ßmn,Ma(fUk|VujCpp^B+,GXH!^՞@raH]HDBES]!S"p5p/r}s/F HC10?h4E0v kKN 0=8 '1,!?7{Ez'DS"tdX.ЅBt96=ÝGdV(ۺPpCf5ݜm, )EA1H`_w3`ٝ}>y·xRLG_Xhk.QVB.'9nt\JlCM0("yP.l-8 -t!/%،Hb5o5apۊ@ɿ0\(Lh ߃x)~h$1-vX]JL|g}T pHps'A/z 5ե'Gy95wycwd d„x!jph;uK |V~:GH=ۍehNl^X×&ϏVɞSK?=\q= g`T@ {0Z|pT`H[_[_lJ9e\3 e2s5KUɷ#( w¨azYČ'@<϶ZOJ"\ *JkK@k7tY"h"Slc9MTcl + 6LD2fOs |4FY!_UDoh?%*lpt7dATb.nB[tN*'lg<4D,\4.yt8(A5NKKtqQ EWYx 93'[OtXKn`u^ xDq%SϘxgd?Th}VUA-"8E\1=2 Ћ%i@;8)0@R!,w$xQ0F0:l{$P c[T5هDzΎDT:u8|Np.ϝ_ 'j  C.mQ /qͷ? ]iy.t}NVA#>" s#ɕqh0[02f]!wu@)zӟ[ZՁ\5'(Qb*?J@7wE fBIps͛.#$kL̠y#2 0=umkXJ%HJ5Ԡ z {И0ak#aD#Amas@$(xc< u\&jкptyk _v Q[NQiJSI8w:%Cjxs܈İ@@|5؎F60d`HM_|RٌrѶ([!x0" w~oy;^bIU<7H%50X!o`&#a.he{Jٛ`.! i5F-NT9=Q: qIvZ#0VW׮q8qRHgy/\NW,x-JY[fgTK 9Szr[~Y a؍kzKa:C> 牅{V׽։ +bXU@A*ȿ#9j9ݗid"ڧB,;]W2P5ĔSO;I7u[~qz,XX[&^8{Z/d#I52n&0O`+hdJ h$ 0gk%PQ5$HEƟ[ qiAiڶx'e/o~D90N33n P`je4!yLw + aJ3TSs ;ezz:HY _*1YB(жev kz6Sn޴"=A5oFuK A|\ 7),ޠ ^X@:fa̶qyfޠ6;{r`q-o6 m /j}̈ƮȈpF a.G;a%/up\Wj-b IGcZ ;oR)/CLެ`!jrA,bAQإbRF7sϹ|1LW3s7t6nhA,D>,"E|0l5 G)N28SPZ Om|K. K[N0@"c&ÐGCP 'Pآ d aɮLJ#Ŀx^@jB!Pr 0R4u]Q@LA !43ČjP=ILd\5X\>?1&rhqCDf%GNؐngYQ[APʉQ QqJ(l5 $LeyncahiR tW*bY柦k71ys H!,`&P~*Zr$ t~Ad|.tgU5t@Fq;WL` gInF`5iXUj;kq~e TXu?=7My<;{<h$ ־&?@Nb$*eH __Gëxua7 z֬Ix4J!Z]b1`5JgݹftsQ @) 9s0W,$HW7b:`.+(t! 4STx39D7<  ƣ;>A\&wΉieM(9x`Qy;KIy~\.b+3-GF~ uGL/3ſ8Bf#/?=D=Au} ~A4˂ /|ԠxBX@ȯhT>'U&Mdc  ѬT Q#y.E|5q,I^.-zqi:TFU*y&UL/wkBaP~zz,V(dK D|S=kJ,06H^ƾgB`"`?_&yVB((d(Uf,Μ=mjqCj9*V@650lyAĥO@b8/'}_SjU@`롑QpJ,I,_fd 4Ye Ң.Nf4 TȐ\g)(cQ.,u}V B=fGiy.s¨ߖ Xy?Sܥ2_: "`YŒB@XQ.@.( u i KK$ NW+ ̵m^+U8@4c5@2'ȽD>C=TV`sQ D$!̔r J5Vd`^22%~c!CYm';uͽQkB3f>J׷=p癢e-?`vR;p ~F&mpQ X !fQ)N4!9LpriEJ\,9(n`/g{8Οdh{n >@0O3kG[b-d7?wI?ssUB{B]Q؆C= Vmb bZE 1yV?ʅeclJ ]+-  7>RNpr0y^$&Mǵ!B@$i{c* 3CB &$/SKK7<(#L?flO!dàW5;.7<ܭTF sh{ȣ= ?~dĎiH87Y'Z.?і8B8d5 @y{WB `B@?±j"f$w˜ 66M !k؋Q8@= XRG4q:2Y۾\> ^Jro,"?4^p8w4JF`'ЛXaaQ@GP^l{)>ߖp ɫ}~tɷ:z 9@La*I@t@S~L%oS%زo]iÚ ЫՔUA-Zycƾ'98ټ UBH2е0 OS@jP'fI 3i" LA9yb@D`0,SK3G':V>lKyji[tǛ@ ʘˎ yh Y"3aPT(-!P^߉/m-K@r9\N<<%?yG߹'s XB@+ADldIDAT$D 4n|)l^WvX\;O[hc] ]DjV^z+ pMNx(l{J-1@GC} .T؍X#̾[iVZ($^^bXޓ|@@l F; G{}ޛSحY47b,"p, zpqfL(Fk#,k.v< _& -~RC!h#7+~J24+˶mX"?* K \75c5@z^z뷮(^۟96b+~#7 9y 6gCT^+t P} Gc5ljXГ;Z*Q <@&5@FzqP ]>0$ScM : K{@gpO*ow~m$wErvcBK"ڗƇ>#"t8Dw:ylO-)e dklr>yh p)ABQ 1AnACgFjgv5*NDV<| BPU1i4W @=f@&Sքd˝vPDh.3 d/63c+K cN0'9[J`B,*l ]KO$N% Bc״$ #V41ֿ\ޛ#UqY%'q H~I;yOЖpιi~#O٧;^HvheOa+İ 5혲hv:hmȑA 9Y`@Jz@7l'y"WfHeR$/gyxo\N1zhO{CfƼwY*Xe_JE{.bMvh75ZC#)6);e <#a@Z8m@\0N|[Zq4 WjoNC:オ@rj%.%+eWL~dLX+$ֳ*E&kX@>zgmSfucg 8ۙAĩ"j<5Ȟ"&+ DDVl* @85SD8&?5H򊹲: <31(`)G=e]U_ ]ƍy&g 4,B}9GaBouy#XXH4 @<4:0[((kLЧjcu <y0rYc4 ~ɘU+,Y yj@mӚƘ@Mκ%M:( H7iϟh`g66X kk\,"X.0Bʄ9guYI3ͭ@@ZUΥ%/'C)W0@P0]*v=@i*yD&H@d18 c:\ñvh4l$@C Y"0&>I,a( -g [!{L*g;L xH T@灘M7rB qZ@̬yQ $vXo^Jo_jdE\* k|~Wy'Bn'iyۤ.zj;xpw&E@@E k(:o8a̠w.h+HZ2WOߑm@:TxJ(H (9L @ @ B6(Y5p fJ[H/zxog89}~L $5/.<?>^1Wi"JBd;s]lv1i  0>@j4 $ @$8Mse2 Ga@H0 n=!״ð5#BXim2 "3^ "[!ڑI-"O(Hi9 ]I.5@m1}KwwmY,e &{L g6`pI`鮗N0.5a}tp%h]"q@/t \j8@!lPI/^B@ GhOɼ| @q}E/rBr!si*4u<A-KGP5jGgvXEܛB_X唣PyS/,(yqP-}(t^gQNZ #ABXН$ff2qf>gL•]S 62`bzKj@9   R#  q 2[k;8%h@\d V_~;rM_@QP'^i~EW[] lh[^0 n'I{nFXcb8HsOl߷ Dd{~_ƢxP*ٲn R P~R59j㝥z5T!bzzF @kkJqs,H02+=v[r> ڦ1]i'N  @ H׭} @Ýy)_N+L-R !& Ar,šAXRm^<] dR /8b^W] #LU~s@ Yz/(%Rab [ @ <TH@<P> x, ƔR֒Ht}m[p/6T.֫N-V _fWs3Q!>@l;@N&fp4g֕AE8y@=ϯX*{}$# MH•OH>x @Ke֟?rJO}X*mDsʋ `Mෑ9d veH5p ZPwi(@XِV|cۇc/ )^o i֕e%kɞrLDS㮰tiPiS6RJ!_зQV1`Djw b0 u8x &?0Fjx~`Ҿq޽+1vxɩ )pzvԳ)P!welnm~;pm7Rwfk0kxF%y h*`8pj=j7'zO'/)hPw#Y 5@H0 A3Hj4+ P s~ (P//W5`iׄPc=]!x]4m^= 9XN4^rtt 4ݡO4h6t|,p`[u]t @&4\6;OUKi,Ho~헆nh4v yӴ 1 c<4[% @K;;BcZ = M PmR hژL3z[~mH VQ7vE=R2$sQ#޹F$zt(]:c2ңCuyKq@5l^{V)qF׫&F5D,{|/@uL`F $5 |g @AѸ}fQ:f>GdLD=̢Vz*a&EPdLIBztCAAAAAPu$VL;æc3Z<-e!jo2lhi]X{o׉}oΨчX1?1GBMd#THQ׈jN?y~I߮{ @$VLI4r %ěMQ'XH44:{UWWL;t AFN_-m p {T&O[x>k*|$Fn!j#aZ,Zp A@PvI;|jl- nꞶY cfd4m^@|n~۶BC:v@XݬmdYatycdyStɉKn)mP^c~W;@v?N1.1~XPL("`dipkŊu1tWI1 )d^Zݥ9ߟNs,=Wu!HcA<`v;WL򙃡[rtC؎7\ Xnk9@ݩgꈺ(;M bUCAAAAAAAAAA9?;TXwؾIENDB`ggsci/man/figures/README-ggsci-rickandmorty-1.png0000644000176200001440000005656415120434214021200 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$BPLTEdg$2_J ~OP_gnyc󄅖 cf؃ IDATx읍z8@P_ubg@Ee(==0FE1M  y* 2@E"}RUQ^ [?_nM`[Edσƭma.]@@j|~xr 7mM( ]^2S~J?mM.?NBd/@dL?nښv]T;}S  0ikddF_ȏ>r5@jU~2z{0iyk WKϬ-y[.@d/g>@7"2 @du %|←tya'n'2@@UQ#L5{.  /.ㄇqJ<xޚم$2@p_jia[s5  ==bkfPoæI}[3 B-zRg{8oBw xN tD~2@R"dDxG'^@W @ DxG! B; @ <=B"d  B; @  w @(2@Q"dEЏ BQ"dO۵dYap닰v_ԓ. "[1dO9D.pCx yS_*S ;| !7]6,]5 + @f) dغ N~*lY[cO_dm ͱ yZu ɮ NM+c <viS^|_><*05Q G簶Y)ݐN;"2~U' lG#% x,c/ dEkC<*w\\`W#p7d2ܝ ٢1mxm b \>SNm͸.vDo3eߑdF5DQB/Z ~oj_u7]VY{ UU绅-, ué=Uӄ"\ͯ n{9#T8[P- +:'8'Cp^iACMm|\117!娐!|.<aϧUb8\2}*Sj+:Iʀ[eט7.y @E DVY2uCi4Zluv'vV}悧2*ܩǩ|j 0$Cu lƁsͷVG56{ hZMmV9jCF" Qɕ}NXFHʮgwk`U6ƼPZ7uD1 ]цsB+7EZ1  Oa[gî#i 0y Ffz) ·T>K}L@M?Gp@ mQ. _:O)޻$`Z:bk-c+m}I5C=h(!ء8?j~9)# rʡPf.n 6]!{g_-Gdyk *M5X'4>cnC}& K֩}6{sr`|겓Lᇖtqтx (;gɋ$ y/]`6N0lj Z_Zt- d9s/3c/Cs(b=Ni4kAw{+뱦i+ƤN>>"xuKW5؝~; H7ִk:܀읋vC"cL_X ,>iNVj2{Y+{r2~Hp0[Rx6tIgfv%Cc0;Bȸ&q4?{_] 'e:=@n 5L1lTz+0 cڪ*V}Dn}\h~MF_fCfXEnuf0ЏNluc-9@3NsMVir`:Wgf)کAF_4@]bI}#<-b?'_(vMyN@@%<+ЄC71̗L&b?'0Yّ,7&@:}`9?{kB,l],fƈ d$F=3t2FECf^h9Xd|Yo])wx~ v#<>:hÜӥ{q:7 =7QG['O_iS@<Ln/Cxt=퀧`{8a V5<܂ @?L:_ fD^F+{+ Ď5l(")c4+B@+91_KgfsTO +!#uڜZW}є#!jopۅ % &ضì7 ϳߡ,\); 2KR4̭k=n|x(Xc۶>ֿ7MH@ `>sM;qr!+Q)}/"?+w7}n}K] ~)$ԓ! pà@O{9r \Zq:X}fB@ꏿ"@x  zU% <M$pq!h \,<9Jx8xGP0HțU@Q @º5E޺+7 {jzУn<^1 Δ*?X'2ixVp:pA鵵d0zSlHpfP,7uۉu˔?)hCRi k;~O_%NmqS8*f1@}ұ9 PPu₍goAbEkyHF~L[X{ 4Y2kbM?]{ v #>b@@W[Ep\uU܀ĪU^{q) 㲦4~=^^>+g H^R3 ܾ0L3, Gᤪ-%0o:*],2.7 oj(~==D{J Ci P~1Naqli1_{mB>%/s:BqQa~ZO`p0L_H?nQ@4P ,+Bm[CY^X%.s@j: dz܁LZOAja\=ʯ!|ʶS$z=S{0^@Exz=Nho |~cszsOG0$K\k 1!1}S?F,gy.5}_@O\b>ZvW8a\qpRUWQlfCk+O #/(ʇTI21cXp p#Gx5зF0ǻzsb4ٚ0ZLi `k1ω9__`ZßOnCg;uE?~J @ p~b/)Ob9ۃkʹ; ߩb#}@z;< + l!L C˼%x(U}ƍ0$yqh,|3Pݲߧ9@ؗ 8Y]s"qu<3L&渹^ˢ !O5B!@<@cn2m|Ի! fEoj{˜(aI"WO&7Eu>Kf@N8_;]TZ,Qu0siULV%*R:lGyB_2. ! HR>Z|a=r zԈ3Q juNi4PS84ױY)w rQcUəuJm$2aTa2=d;R[CZ}`BM)j/[L 8-:+m0S} 8c./tSwN,1pr1h,jn@_qd@KZ2PKXȌ wo=6Kq-T" C:1@t1A+ %@rdG鍙q]h{ 7;ݟ4! = ޶y^b@i/<ֶƕ.i| sޛ?Vչ)&BPYi<;}?]p \$H|@ }2bܲ~bg??Ϊ 4k/XHG~/gՁ)(bP3Ţe@yA< _/aZKGxR!#0}K$0ͅ&:nSBaH@R۪΀V[dQ{ uZ!3}j|[7>Kxd@ 2pƀwz߶LJo`@󚈶]W/~Biq<8,^ُ 2A>!@ B\],aΏː^]qlIYqdp4WG}iED!8Ymuq90-?O'>JӬg*+ɀqp2ycXMN}>dA8@󆉏v\"P&¼ !z5FIruHY+]_wdy*%c% `0,`}!Bi}9 >L%A# -$" IDAT|'  3\!ouj&F1r-ghcgYH$$03^@m|7 js!27 RZߦ!L\土I+H{sS`?i.E/`5NBaR${į#3@ә5p.*xAAr=] <@8>ӳ vc͵FLH C)֞vdhYU9Tvv H*Y)yHQBHit| =uv(R.D+&4wY;eH<f۰fC#H>lI5GV['̀ʌ?VY hh'K $_fgOq# q7Њ(NUAt;cVd e S=g"l'eCOfx0ݐ/^X5>M?KOPТON#NgNyk^~fEoOhpWu_u3 ɲ6]ӕ^ /q)z%:gdUOXc-Yy s(,2ςxFۭ_\$ _Z(zOAp0ݵ ȦʴMsYKu;sy4VzlK~X)I[ Tfqg'T%DBG{=?Y,\: y.?#k7a/T8 li3ɒ-ӂ[Iߩ?{J ")cdVjPqna1 "~v;RMQl$O%DNmtW!m"}Z }эcGPUpD cX9mHe0? `,xYNnQwΉxڬ.@a|_[[͵3}𻥤l3,>43PJxLۼ$fSYO; 6S*YPoQaqKYV^^iWH *t p0{դ WV$o'J};Jv .#|>B9BjÏ@-zZHu` ]:4|Vܴ':.y:AtG@x%gg|!Lw>٦n`v3q|rC[ ذ\|rroJn$& H~@*$ nMTy\L ]`xf:v&&:*`E`nyn?JN?qNZ?.VamumO*{ !W0F0xZuZo70kYs @88=zӚKHFn4lڧ0f%( )!w龓Ϲ)+IfJT8E;ā4A!k'0zDMrk~j?/u9FC[mCX}E+DZձp^P)mbN?o5=Sžhk@\9 aR4x߼7yYTBvqc{yYQ5Jܲ ;Ү !DyfօMaW]Z,^xv:J o'!$=[.^} 6]חE@?j&GH$`–%]j! Na K[*ԔbꁮzU0 o Ѷ7=!J$+;|_\ѹn)V -c!^ٖNY{8frj ?~Sc<T%D%zw@r'zIJH>BU[;Dh?HZdyB fB^˺K_ſ?@c?EMQ]¢I1ɝR?gض.Y1DMKmTk+f'?00{9b_9a(NfD9'LwoXB@AlK<Њxn qFtfd} — qQf腁:ݠ"C}bDج'@nS"T[a)v/])X󎗦0A> hbyL |.861v`~LȢ܍;<9.z ]hEt%Rbd+rfY(_!j`gw]L&?炙nY$Q >ba~lח ,3Cġ ]%3꿔I˿}(tv$!fpeO;کr+M/_ 6k_l:hSS c@ 8qqpWka/$e†? }%r-~<\xzGtZBlzR*m Ě;) ;#L^`͟i$p؅-/KgX "x7A>,3V? @ @ G]@V>3Qy?crV[G]&d8 R" pRwZDi'80@ Vw'[t,9@N~wmpXZ׿ 4 yg"z\#xfn$9v;xs5 wE`Z=>Y{w;Y7_Ї>uĩE7nq^5o6n~.msȂV ]I8f^C<ԍgg@O0To *) VWv R$AomM3H h<:?P1&S@˜s/q}wF^" &$TmqD|`oǠ0)Ԃ/<:@#5 A8Enֳ,ȺAz!@E]Η/߽D 9ْԂ3@cMd7YAgpg(Ul^V@L^f$& P @*9"!g7HYˋ n?j#8>8(ZՍ`.Efa1Uu ۷L X5GM 9dn yiG& rt@EEkϲ+` Ԛ 1K~4Xqbվ` ZV? COjA ?Zoa`hlѼPwT^( #1@Y`f'\.gгW"A1^"윀 +齀f ? n &B@mH.+`"X!ط;3_ c Jg^j^7o[*ƽZ&ZH)#* @H AN%߹.; p!p0h'xhͦS=V~lA+ui,%.E:4 *}_ OBض9"u_apq|D0韔Y{b  C\bfK4~㘋ۉv e~eJ. o[$dB0`h>d{?Y.dpH1qk ?-m5}!L[Mt{e#^oVC4e,ovR 1-qvEF"zDO^\ T0i6q/@8 qh]>_$|7{S9º`Nc?Oĭ{ pj|o2DkXWxovYc6v'{u/ɥ>&ܵwu cp7` ZA䤅"y؉yɳ?LzTqpGˆ>-#H<~<^>ܮ?ojpǮˋ; C\-fuquc#:n)&Y*YvuYnRHpxD#JS@:Su= y tAXx0I{W;! C\1ng_~4##ʹ-ynDjO&rb{z6Pp`6'`rxY2V OuKEz-B:,@7z#}X]/+Q6xƫ~z?; j;F5!xJ`T*.?H O|/`4hEhB#X$4~ @owQԫ YpXP/:'L MjkH8 u7 iAwWa@Np%jniQH a4IЁ t 8$^_-| E;6қe0L- [ .zu1=&."U$J5g:6@j6tZ/9p|/8 ^7@%L@fo 0= " |ٻ@,.$WP?+$万>.е2֊B1BkiKZHT_AX$  4[SȢq8FUӨSCJ 5 ~>t)| uOj;r3# 5m s9?a$h^b -Τ#@6GtlCTIm`'NaV͚Ly}dlatI}r NO]%N:@^FiRtUn"^:C 6%]gfs7y6ŠJM&P0?n-iue@ 0``]J:I⽀E`^+irdJv16"b&DK`C]j0l7@G xʘF}ܢ@0`)j"cT_,jX~)'{PD0;ѝ!shW@\CZHmWKMLVc jd 9L=Fvl3sI7RT 4͏ƭe} ±@ơ YAm\h]7.zRZ @ pdq 0p $A /eĿl;S :|_;`W1 lwm"!Є?ЃL)wz ^fy:j?_S0D?$(@5,Jo~[ _ J=T?%X>?Y@˄ =!_Bm?,ד@\ M@&ӌ6V 9ܕAO <Dd{T)%3cw, 7rF)f}\PJA6DG)@|ހ$# ZKXhÂIDATl|&?Msp0TX0KS tvj0@@O%jSpqwG&s-+oʰYX 0mzt,5n LLm(`#W .6e\K !6C ^1%fQlkڅ@ rnaD|r[(0)XJچ_ FYRd60߭ζ]l `m]N).d/E =&x9g@.< [0E-qkڅ@ˊ1RjR @L*@ppX(]l,dRZb=饞C- ȮXQ@.rThꞂ"wm,^zo?FM[Ӯ. ~z=i*ػG}I5l o LKTܾo>6ab@F9ged-z Il,z =0*πyyފׯD )  ]|ښv!X{]!g"YX X=RʤKPN#R\ C'mMqP +d9m7}dC`2ZT3 k5g4-yIG}ܚv!DqA")#X%yRGr 2_T$@z| 7RUִ @`n[Y,t0'>AdU4 ܯ T {/D`N%FRo4 oҠFs@ ^)TqgLggR&q0y^^#i_~1L0RFxVƙuC?KdGj8QrM|g$roS Bi;tZ!90 j<9 UƜ޵?fpynU@RU j,U-os& pOf=&WkK&U A3Op@d,/o+ײԁ@ގxlA:i಩oR3ZFTjЪ׏5ذ A8  u6Fp· .j5(Ga5?ԍ qJm},D Nv@ 47"gJD2l@]$hy5g]\͎.Цy^퓶7ApC1ɠR4%Og-꫻%` pR|? xZ-r(`=~DRm@_ %ٻFU(ò4x1]}g=ӎ 3qu,fn@lD:cî>` c}3o c†~ߩ횑;Ă~sjJPa@t0m[/pE]C4\&;6FN[sy:ߓ>2yT׾#^X$ߩ k|I`ϬCj0L/Yy1&?߫? 0 0?Ham&2 (m`2=Їn 2P (;"lYkt0f''>y9-ك2s O/Z<`E3яg3t} p*:$ГyEH@ii.[|ﴎЊ|VpMtgs+>σ԰rWg8CUO0 ȹ$fn$GM@s 9z\UN @eW<w{2+Y^`Ak /qNHrl po6w6ˠN`]5eM5 C\mD ?Xr}~=+@ioWn>?!b( Yr8 ~Z&;g@&=!a0Q`'{G|p{|䐞e'Di0*} 4!<2"j ] l!<{& N@;wO:?!N .OU{kb)LD"X '@@:SU5CP^+m8 4Dw[]xfjĮf3g6(rܚu|).mzlMzp"wPL[R[*jyMZ̿sce}%ã.7@g`fE ?)@_lURʫ(6 wP9nMH/z+u_h_n\ Ovs~?- `.k\SD>mY@4{Qv[_]{7m6p g#IR_aikb;@>u rͥ*  hڿl2f%;p@_=ؚص ->aqG2O `ZȺ;e׿ 0ckbhSԮMR @ Q n =6{ yt~6fk)˦*g#Wȷ@d$wB_6ߋ88=vhp!-* `BJ7-ߏ=rI`DT& ѮhKmevC_Tf@gP Tܛ/@ptY@H朗HSAH}U2ť 2& 889g)V۟W$psVyoŽ88>_lvNн/j86)h_ ;P +p1}*TUy?z`GG h:x g~7~x <8X!vT21L uǞg?%ڒ~o'vp JBL7/m"gC$@Cn-eܷZN_?d@-pn@X- hA ZNԇ Y |E@ԵHqB4(0! |uu`BA0]/@x%+<8b*Ef]N=whnEUzlP`-ktiioOr]-f *tyk@ 7 PG yߖn O[.pW}QN^UA(ǭqe[^ϩe/qk@>;ܵh50P2%.mzleaL@+Z^.|j|Nઃ,EH @;Q@NEF=5z:K˜āV8eŏKms2O @YUQT <z|5>F~M<m)*A c>ָ xk-* %|wP6G5%@xj5Jsh޽0B2 v'(r=EvUvH .نwa/¨ѷ)HAl@PV2 Ca4@ݣ@p@oJc%S;,En34 ,V£vzHnTn|{vJ(4L78dpY;dTAX%;E?!N`I>'ʶ`պMW[( 5j`nN^1}/@v ?a@]`Mt#8p$^`o::2 ,&@`J%]ȑ uuǾ3&9@`6?d.&8_ H\Nt281*dT`ĩzzdD@'i{J(wUߊ`42uW"P^ fƞ.P(/vz+$݂a5z_a~dՇadI@ fגdʛĬ#pTtz,frA@@@VE~7Cxܿl<@- u. )H"w(@?oU_Sκ^vxta<>J@rzbs 0o,|l|Xe֏.*P$Vmk6F%Jf 6pdPdf?S[1F/)@O?CxVYR vmF om!CsZZp{@/i})@@]_J  Ձ؜z(7 8"u @ Ur\W2 j  )KK`OD)oIhj vۜ6/j< $ @}/ S,  A=9Pߴ   w..~9G9h2;0S%V`.@2taޘ&o@idcU&@h @)!P ^!] @H4P @O @-d @@FB% @/tH@pn(HA 24@d =@j  |C Mw @ܡx> @Pf9 @Ad"4-@r-<%  5ٴ\@7a-?&!jo@`@  PL\@yo׀\$y,:KC4+KC_9fV*ah 8/2hQ؆, Я, }_lfVjJf&i@eR)!v!.&{jȟ @t R% HLjvH|CK>) YriM`2 ao+@  [D'ʆ`bX}2:|$- ۣp>#qЏWFAЏWFG :0O z~2)bYHQ[:W2:΋k|q+S༰Vy({(*Bľm0K5?x tJ|_h X6F&F;rt֌cэ(b߇O$FB>'dB2B_arZ,7QX}oJNn}W^c}$ͬQ q `qp[/Ր[mMMp[&G~'EQ IY% T)hi؆/88-(djk=}pBÇa w/#S(9>JK[2JRS )oaۊ=*4 m-E3Tt_bߚQB:ztNf΀OB}KpU8,@)ʎ e0o[.@do+4"˭y 2wÄq ,[.@dF=2z$ǭy 2@e5Sּ Qņ WzB=oͻga4:2 ` 2 ̅?oͻVG!(f.]95@n|b0S[.@doW ť b_nͻa1O>L[  @d Ur@K88.y/ !8 _ @g @ ʴ(F }.$ x,&[ mZpZم$2@Xuo.~nA 3`Zم#2@PXo^^م"2@H"(#8rZx2`:5*\ +p^?~s+? 2@>^^tSxZٵ|MdYp Nu0Ƈa,Vv!G @+F-H͍z7mw[ c%݋‘m.L@2k]j2UxMB3@+_;Ek@SWAtri"\ߪm"ЫH۸K0<[3PG hop@7p~Q@ }!NP_dhm6zp)S7Bµ1#: YG慨Eolm4E8"H]u]PE⎆nڼƮ[خMw9$ݡӯFM"B$X$9 + 760mP&L;UmSꦕ]gĐǞ *2݂Ce TFDB"؝C5|Xp| ⿚ύ[\[}Tu!)۶J"2 @p1pE)PWo3.;ϲNw#6/'}J.)`6G}!<:>gB@4pe5C\ !y @0kMk @- ~1>US,E sMwUPz:F?j_f*D`獾k^8n~n gv#o[uKTo 0UwShՀZJ3b3DC?3\E]טa6tm+!Co  8:CuH<:&t>"z 0zd5 N#}3= yMLlt ƨK?7nI2=tKk{|xd _ cj~ī.lбeK?ҫHiIW\3  `@t Q_Sv pߴ5Cb]s܍5Sq]=6JJK>]Y %&N`3L1w@ȎwS^`Ks)Bܚw9Տ6re!XQ݊5.&)OƧ k|Zs]U?]WxOzc_ot|F .mN[.@Ȇ_gM~WҝFo¤1}Nq>gJZQdk=n v? CW*{Sܚw`\o{0f25߯m0%궖N#b4(y觕A>z/+5"뮛:! _yMڹ( 8{&E=>)^:hgp׮7dwXtUܰ܋ϭip4B @/ =]&ScJ;t\>^~Qb+YUk|~PQ)Lb^!'exi ٴ/D7n ^Mry@J6mfEfM!/Z.݈=; = 0{5w@6Q_K^޹h)P.%NE*Lu-Eg۲t! @+Y'yDs~0>1+!4C^ :+wܸw% ?GY[?E>\} 3j L37U5tzL{8,Y}>~în`\ʢK깓`k1Gnv!lX')We3 @X|8Z޲u/ً9 z} /Q(^7Uî\kx3ǂC/ UMCrrtfYA(%*tUWe;]zrBؑa m#%B-h p,9"VO)Pm@3<Ĺvjp)VVpjӂeH1{Gш$JF jNAy,tz -fF;G4aՋv1_XHտlm6$fHn'x3X34w57h`z?, E+r/[>#(ҼCYyvX^M{?,>#g5C2* xՔ`xV9S<T6ߛbʗě@ P|n ľpN~gh9 8}+6#$f` *"tntYy;U@;;܍?KKlO6#P(.Cxt-Bi:GGМ_#DC`E}^|p` ߼+[~2[545U\d'1msI 3X5aK5(DA3x7O>lEr{d Jj~-:=q/"iPw4M@9<ϦJ {I)ʋӢMB{{ =ĄXicA%_Ui@ P|#Bl*nБ3lRRRjN?Sn[$נ,G}E5I-R @`%ڛp3C`C1]r>k@Bv옂ۿo}Qdy<;GbEVK54%Rg՛ ՟Nx9-D3w7J+*h偎2Pl.A@g0J! Z6IkȻ[>?EO(벬NB ,Ld!(͋2w6`g}^<7tll/wcM/5R@51r>m^ӳe8g,g^ O2G¯1<&=.ckI1JgF P|?X&T>Mf Cz;;a ( vwV,ȱk|$` *w%o5oDE\cJь !?E<5$PF 0YCK& wd}~v[}I?+/`*sRP1r <V &m O-M ͐梽 B8TtBw6?/8Nhr-+PF|l@4V̄j8m׏U /t%~q^?+J)i<N}\z/̭nn%0-I˫B93Šx;thT dOnA"O,.c?*#ҕ~ ! qG(DD\oM(6\Is{f|]+ U>6rK}.9~LԚ; G> #Q[0f* GPK4pXTCĀ_4Fx$dEؤbgʄG9AP3kK# ,XCԟ5ARG;m k<ᆭf PGǺҿeM2:!{d;㍐^ \-x?^Wc]n#֏A mxۧ *Tt + 6Jo/d~xnOV@@J\M3]1Ӿ8~f&ۄPjS۰<֡S) vULu~CepX"{/ "īp$.V~qn`mdfb+I%gZVa EiN~l'MR6@D;1ggJq)FGƫ؉Z+uj 4wsVo6I}/(@:Npcr_F2q!4s@rYgQ @`c^8*L,>vMz`~ P91*.Fw xqtE[|23j#\ .xw&@~{ BK0.N$utrfӫ>n叙M:/P){ UK /9ϡA9z6f+]*bhos1I \bp14jBC&sR8%jб,MER Aל= LQ~EO*&J> yG@+ Y~, -,Hm1dO()eZXZVax_{ɪ?Ld uO$uG['@ bQP)em5lժb 'hmqSnq.]<:}G]ZZP꯽4J姑19t\ĒD`"Dsbȫ_g.GHyn'XM5[w- +1k v>ڪc:I&0M,D /}fs{j|U]/V_\2!_zg) zI =4e7Tĉ" |cQBu ho@TWKCi]9#d $Љڧ"kjގ?aE i>bmavI`;u]PmGWchc 5^N;~btzoZ:X@ۧCVs=^VL3Ai3>KbA}XZA(jxa=ЌbXU[!!!Y/Y9}NP[FƫC=1xj\uy} h> "4hZm^@qːa6@+*(֮ BBB~ h M@޸t+ OOĠl-!bDžd˼Gq5pOԧ/UPhp 0M2Pdwm h`ծ2)h(I>YP)3@h Pυ@5U K4ڭU&kkK 'ABBB^4߯y5 W- & 턊.dH#Py^IQ f M*nHٵKѺa+v2RҚ.MsAMLLN \1lN    sr\n(iA.^go)6cO0o<:㾀zNDN8ԟNn%TxPRuYvR;ݒ^mqo")Ǐye%@f0S)p"5ZO?&$pQ@sc-(/@6z_9!eٖnTvlp$ɾԭ /7M\ɀ$/x  4    *E1; q̟/0/ ӣٟy*t%4L>H‘0r)i$#LnL+e E@Cs{/    ;!m{Q{p qͰ{-GAt璞R2S=_-0TCzYCw!,j4Ծqߞ?{lP5l=Q@5 dС3`a!!!!w@ؠEҀW L@$A3n4ʢj IDAT!bBBBB?A~Zo꜁:+m*<%0^p{VLC:(Q@ A _o^Ahr y_FPNER7LAC C=-IOآФk}zЊr/gSm.?, tW%xęWXa@RK+jNPi5uWx]O}b*)r_Ҽ-v|}&|O9zed!!!!7y ֠W*T'f.f;7HnKi^0L`=I?8Ӎ~Ɓ6:yB_D<'XU [zaGԟ9+"HUormGr(>f{nR2Y{n.aEc];a ҐZ& /;(Zrh1 :y]5>|l%6I`pF4T;"'%UB@;Q_Լr -1ho$쌧(>hs9Sl]*Vͮ[P3P90]i\K{dKv'(G]ۈƽ =_&7\w=9X arWa3YUlFSs_әt&jДoV1.nȠ^mŇdIxdDBj&"< |ֹ|7 FD+ `{5\0t&XP9sˏj$fU 깼64M,Y;-SL唪7Q(q['>+$ \/Y ]c3@Fj>n-̷"^y`7ngy'仾K*x  Lۼ|̣O9i@5jTX$<|t .RnlXoh;BW0b6,hp{ۘt;rErC%&R qQ}g^AqwD' ;Hg&7u 2?즽!aTNuY2g~c"0mG` ?e韓uLqȧwh }鯍6]ktU^]|l֞ާ0>!ª@py1+Zjf+@( }]qJ7`1 u*Po ?N|=vvx>iy\]#aT҇WR?CﴞÕւϬ$`/V)]Jt `mhR CrtNGxR, Lx_`jatn "~'9o[bէO5qwEŊCĴ55uRTML5wD ~*!`ڶ 4WJ\zQex f45ϧBB$]&,D2'ߜm<' ۠6'sAEHSN O"qMS b:H+" %J9PϟPxFv*hM88a[tnȠ^n6mY@5W]hʆ6ҢϋHfj20%.@|_hJmo-8B~óçJ tdLMxU1k 0`91Nwa44BB'w]R}" wmjb8`%WO@(~)WЌtlqdža 9/z ރhikP6dPϫ_eed!ykh.KCI9[z\1(;WOD23 ՕELLfcE@6?gsbk,8Jz ,C~G`@@@0@(e@[P$־naYB5m,1Zy^6\hGRAA 4?rk jӠS00sCP?DqT B} 4>֓y<(DZ5!b@?c9ҼwHtMdifu "kڿ#G`q%PǶUKJ'w  `GNϪ#XQ5?ڠ 5XOȖaWb97o9@K:Vtd`Pf ݣA1}D*r1O,$ <5 } nCϠg!!!"Fș֝ad 2|P9.:6P%) f,ef_Ăvݿ VV=qNs+ N@huPh~v^ 'n&Eڷ$%J6F0 l VLW -z Mԕ\\K ]1[.x2qƒ8BYBKd&ujEjn{:K;Ђ%hǩ[8~x] ?=~)P?;.;@y~_g#$3F(r/)بN3`VL$Pp;6(TWu.T-׊?&)nل͛~9w^t_k{^.d!m*l6{I5e4]^ހr@w1`̸ms=>H* zyV6!P Ͽ    PzLbj%۔GLin`|μNL6$F3P.`_3^cBXh0:w7x(Ͷzr0gel$~}͂C[:+BaTn~ VҤtHA@@@FUyS/:Q7L 0./@1@ o`j%E$ x# ԃ5/[8Md&\.\FH)(}~JFZ宫\H/9 -܁K]GG`JSTRZ'6dEҡ㧀'nwON-c( A炦4q12wd8H%wH4zEvvW'  ) F,y(u_mvAG?L{`^]s6& u׈,4ׂ @A`r=<@ZBB>b?J)F\T*U&?Pto#Wq) =uǎT`6rBDŽ-$4#va(3 n`C< t%-[Ou1BBI"N# \P'g+v! Z.y /IdON B{aT9Jڠu?q0I'uə9nٵ^\Cq ,<9BBIj3!1S57 5zp@3V^ oT&s==>uA$G!jrBe'H_ЯNVF @ܧr%Gg0hPIz]YlW\@mV/N#ZWrhXvV/?B-g3~zkhTaB&15e+'Ƿt}?=@.TF} &$p`Sduu5ޘفO|{Uzug)d y&p2e#*f4_烂Xk]08!rr|+]@S@DW)vе>id@=V0 ?:넑U>p˶9綐 HZ0ڠ;m]V2vi>E#ڼu,[>rNlor%gGS !/W+D[ւ`bzG`up93Omy!ql,N'0 Q (wov&7/cV@# #s]-BzX+L -00mh *Rf87%?jRi$[)XW; RХ׏xt5Ajڮ HS #5i bk|K U{ 0a<=0;=2# 6>Tt?[~캇ۊ.b@AUc<A\ Qxo _.>>a?:jQnjPdXlnaUC2_pL?H.l f*DkLrvR#g?(8}?18!! En䭸nuc b}Y_Sߗ&Aή68dMLy~?F)2ɪ;Ҋj#DBBB?('e_zQ$ @1ݠ6U. zsQpU°uiPc:&:Β_P~jy,r2ʝҏ:yJftuz4U"@ VmFUx5($RTƽw) Z`ɴ`A9@ ,c@΋i@-]H->gd@\ Hx`]<3}`* Ā&=v.ޒ5=ihy8蛓i2xfޘ :I h J"@2wgl^g0 FdP)Uv6 /z;E= .Xj5Z+rQܽRAȧd*YfSfJ?=ܮW hD gr2S߯B)*!L h < ^lpv t^4BHeU6 \{=}+I_\a&v`\ȉhwyȾhC @I H>3,[&LKYF G^$R3#fxYG>@` (D א,|z,,pL J:gvPگ=i6 E!M3}`YUK%7_ͷKA(t#VÉ B=Qe;`Ky@8HzV}ߪ1wGx"V"qәg\\ƹ+o &ڤ}vmݘNKVw}e5*+mdW "]Wy!F{Ռ\Ͷ9Y:6<^t= q;s1[Obaf>0]@aH5 띘α@ڟqaun\i'P/m`M9]F7㋍nn=-?T.p˕2'ovaTJCM2Z$Y&Ou|&w6C1_i=}O.gC6<>"WXds^9hgˀS5k;_ 1/Mi\`i`=_In /@!@XK=\%Q+pJ _l K,zm#Fh}a>6.}>aG!S=}_WSv g|-]Ԝ+K C/sk6COoo~ލmAxɇyFMa`2}bJwOpG̀Gy 7,mű73;x:.[f H+L?|S R`&0}bS\ L ̭U}TfQ1CB6zm~ hE*G:qLo0v2k%-FC@?t@e52vp\1t[a"e|rdm߄T1 C@;iAz5f- CO:^gBؘF&w#ԣ8ZY`)\TA {l+2OVP^z: L-?e@FS}/x締F 4hߚ ,ov_44{pXk=#6T&-Mݺ}pq M|b^2Ѭɮ:4)4dpSml-'y([MŸ^inxdFg݋3J?d GVO`)n.7NN&w%ē6IP}"=\-JlJs{%e7:f^o@2喍Nŀ (10zJLORl2Zouz ^6_'~T?F;ߘ3eo_~7p1p*>~%cX(F? o%Cg kr_in?F/ٗ.iGR%^ ~r*DM`bZ8ۉ }/}@|!Q4u"5Pp5&7 e;U +&v’Eexk1:\(< IJ8T} ]7iS*X^=_\O4]rbsQ@9/-)cmcS\ Kq+4l@ӈap >FPTxCr3}7d".7Xq74lnI#?uɰ;ߦXT /#0$TW59| Й_T 3'xܻ2L٢bdz [X2%  PkڏTxDF4JL q-/F@fDJ=%& WyFޑf ^R# ߘ@XO!ux]} R-3z@S j6y5{T)`#BOZ@O `;|;ZJ*AwIr?wIˋ՘/:6DC%G$t)aS2X%/>5@@S瞿]DɆ`Qȃ37}@%(^47 Z;PsVd-p0sLߍwԚA@<99 FrIc=W,<*ͯv y?B. }}PU@m|9$LgL_̙~2 `)t*ԫpkjpYPb/ DnWx 2y n+ ۀg>W.^/1~X _:Hytq %i"_L.4m@O saydopa `ᗩg8lwegoC{x.=c8yvs vgÙ"s@P\ 6w9e!Qd].]W:Yev 0n >I [5ÎX?\n;} q$ K!i2Rf(4 oWE_O '|&-6$!%@)U`Ih4v(2wQ}~Wg/K3Eշ &vpt|&,:6ZÊ`V4BWEv7 e}! r|@, "!Ie~!,M} NGxOX04OMmib ߣI@ ᑔkH;j)HXvAVJH]S:hb#AaRvU% ,vb><I +/T _ Ex[CW+E?e  ~(hiN5<Ԗ,TQo e^GCs|Z(K5f@\wSsLm`1߆Z[P5;m7р@jPL '5C#7 ,a9?|ׇ 8?O5Ssh8+$$j_5QIgऻΧxM14<TfХ->*k+G@RmQTLU%'J6$U0P6kyx3b2Ikc#| -~wF!pK@^ͼ9T^cЦah$Ýч :zU3oխ9 PјalyЕ oL+9lx=@XeZT]oT&޼f(z#ɍ` hl! +lZ "ӫ?u(jVJBH 7wc da5`8AMnYߝ1(l 1l֚|ug#}6t`໋86t럻@EcއEPs#8p*{>$eyNaNp(GI\_D6$ N:Ra`3$ "rX]`OE5 (@E˹ M=6&% pI]D,{y1{š( MvR5<. P/"W!< `K({T]P𿽳Qn¨T*d#ۮѯӍAsLg%8>@pymR|W4@ ԃ@bΧ5?㼖_'# GeDDk@̒􏧀|/  =ampJ6"؛@< ;u@@.FoHg$ ]B$@$ nDIO@B⍨L`@g o ̅) @$ _YH ]B>$@@7V B @vDB Fk  [ b'I0@}3>3@2#/@2䜝bGF " r`GЏX?1_CY[Yn0/Jƞòbʵb4— Iϧ{/&!oI\2 ֭X$͜x; $^6u8 Zpk%ׁBV<ޡJvoN,ЊXeIDATP K @L끒SSham`5ivoR+ ?)$[4 (ݰ,o1Y<3e[aAGhwIlIF T<%{+o.=* ;/~{k+=IV^#B 7v ^Hu?9S{?I3c+6 Mn%!4o߆ Z nunUe[ѐ$) M0 r?J"[1̨wwɓ4<P M봪QmZ#)3?oRZ1a(ݻIOIVJ}/Hϯl0km>qGL<..IENDB`ggsci/man/figures/README-ggsci-jco-1.png0000644000176200001440000006203115120434214017227 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$9PLTE{SLtlf?׆MMM pmrڮ7da~ IDATx {:@cb!{w@Ast{,u9Ƀs'!νGayJ@{C@`טk"]o[.@'u*[.@d[]7w[.@Z65kSIlkǭq O}Y\ȡh+=]~di;q O}O'Uyx~̧m1`wMu5.fX w@Wn }@o.yY x{8.#?@߇<, @&AR@IaW"T~kbx <9_K"nnkbx':p.. 1CCnkbxw!@>To9؅^"t dcDs5bO[B|z:eK ݍ$fS\w Oo۫M3](S+opG~,fd>Ӹb|mM}s>X7gAئHOۚN`\t<.N &v!g hזou]~!j5 @~-6s Cx/Z?B#qUUlU ؑW)!߲BlC_HYmd Bt~UUw[|VS,c)oY䐲ܖ @"TODB=۴n0.S6K% l{myn=EOjp=d`?Ej-i] @;@"2yD`bg#kM3pm`Dֲ@Y'2˼|K@9[-oyrp2k㿸eC=0/>^5%,(bPNoҿ^KÿwK>z ) x `*?E}o ³d9q2B>zL9B2{1Dq>qh_-DoMD+dfXyS9UXVyD!ƑW @eD0T\3y @nfmOmc`YH.90;8&<5eN]][׍p߅+?m xdds% SS2 $2q5Ii&8j8W^.V['#:~ⵗ(TsQμJ @ @2יݾ?ңwkĹd ќ|%J6@Vg- @K B{hN)RWb/APUPtxY}`h +0Ny\:Xפͩ Mx\4S!axY0/G>Ʒ={}6.a3 (/~Kspo * uoD- xE4v"e} ?w@WR;m uY .l:HB(sP{}r]sw6{J< Eo?(@/e,x})r _TlTSC}J|NHM$[BvK_D܄gI(@,;b@vT^csxcj_:x/`>#tCq)OSX=oa{o5U1M?z"@u𞖃\2׋Zi[ULƖʲy%66-xfW4 ؍0c14*(֧zVO\/:dumÿmXeҩٛ8n K3EP(|l]LJ{NUZwl7z?W(.j<]Opǭq |.1~Tw (~q?0ȝd"&Ϣ=:UjiM5EUu%[ )qTM 8sMxQq"35P<3+83.st2Sdn5?:Sǹde-~Hu_2×S[.?΅uuhhĒB- d9g ]|*#tΪ. (c(ƣī|?>+aWL!\l$_E&='xwd |~ %c^Jg#W?Ӌ:NBϧHmOq08@5f𠯣i(^fAa44ud4,e'R HHvxMmOq08^C쮔Iw9Ջ]Ӳb?0aOj7y|/H30{߇h{$Uڍ |g~:g6Ȁ$ȅTfhg0βOp08RrOf^(fR@(3؞\hz꿆=kp o+=9(cppVou/n{tSG>ʿ#US2f\%O18o _nP 0ؾ{VȮ1 wuK@//o % `p ;}tdpzPG:廦T]^'r6 [ E/P6 NJM`08~ ߮?rbNo$|W{E]38FRqS\˨D_0Ul!)8+iY>Hs`0."Ntѹ3jjŸ{%qDq b:dVо_dhH J1Vx `p D ~pX {|nېFq{tTlcE_e_?HS( *1 @_px l@<5CO,ɿ2SmDkhmjZU"I2 j8- Ձ\@@k) J@ q8t+핼tQaF7=B3w3-2M2  @o  3݋iFԹ'x ?Ir-. d(@{;,MAA62 :% o\ +b8jOađPe+`L%ɋ6>nv^nuBh~%; @ٚ6{949.P7wxVv0|{J띨_R1*=Ry<p_yU<7tU~Wd!!m :slZ%':9O~p}OBRm7e^Q!~39xzRXt+)b0;4458!ӧP Ud߈R|=cƻ>^.}utchQzAhW}B"=,)M&{:#>3 u'-H_#^oQO ^Y~ pQb0N{z@d5 Qv=Re}( )C <(4X ۄLUo,cnM5"ڎv}*~~_R q7E Zd}3 *d73ҔaJ;9f+.U"M7X ob9F(Ai-<^ Qw7b0N'@zBn`{'U͌}I#i.ϼ S vCV#J Bi_ ? yǜ0gzH hT _М(^&2 Fduu@uȚ}NX^S" 3CmߌrPqsD1I6/ X5yI/.CC} @RI[ :`f0N PɈDHyn lqfTXahw,(ku|xU-G'ht;.ڽGYJte"/iN2Eyu l 'P/ A90 }ʣ^xˆl5i80lu;A~Jz+HvJ%M'!ݺ_ Yޤ{|ju+|'S{|\#f(1,4Xgq9׎&Oyʬׂ(!L.P,NX/{ 9 Щb+rr0%F2bW=&ixKVAW2)W*dold,~(\ XA0Rz`//-ׅsgb 0p95 nL֗U[CMd9lO-?Ag&ܿqboda_`js! c><o/zjoGߜ܊†"ӾZQ=R ?/I Z>^iTƖ;Ch9'<ml@vR^`qmF5MB,w%n`SCr yÏr?2 G@}$ oy#{)xc`P.Su6mjyltx /jZ;OA56 r3ub[zELUg~bXnTCn.=moQ ~'ESCV0Fw 1;A,5q2 _2򹪴Gȏ~ThYPOƇ֯LVw`p8\~'mb03aO0JL8|(tM6赮O'tK7<6 S: 3(^0X4h(R6&rA ձfCLb>tnBQ+\C@ C6:[e@EՋQ)0 Ng D0,tViУS_!1Ga9L. gɈ`4 i?)@ #:뿺F =kiZ)?Rk$/D&ؠ8NmLL<@goC\Pc|8@ > ^'XYW(WyT0n0/w 3CHɎ1h0Xmey܀B2cU; @ M!}tC@g$EhA]۸@ANơ/B;ſۉnpcg.0ф0- {Tn@YtɁOک4+940 T8!1c[JX Ҏg0װюXA~*7 @-N%?@ ݥj7:FDo4TqH;DPP7f?M0AS2 RXhFhǔ Cܯځ@ ]Q3'E:!g`,~6>A QtB"7p pZbғ6諹Z9d>Q$d+21XuAy|HUazQ_o]ҦӼ3OVNd7 ,@* HQܫ~R; dz~xr(9}@ U2o0: -->I^юuP.@R>/$CR O_+N_c! l!Y V&Ojc@ZD׶p-Գ,jq$' v69%Q:L"%x!iङI6[F$ |ڮXlGopхS־>˝ 93K iRGnldK3hhDZ_wabZr_1v1&Zp`~tTaH~H ϱ¯0xB PBejP@ |ۺҦq>]Lݻ IDAT4[8@c_,³T#R#_%7sK"@i[.@7DBA@9=)1V s /&^w?.S8/[Qhް59)#0kdJA5:U@WSZ@nkN/1@VaivN*+  / m+tt!M!o<';'A Q"&?(Wh[&q`CDBILwH  pMԛ`P =N$Q"n7*6UMfh@ x8wu"mdh$RVg<1KKMxEkV ًjq^P:]w!j G dž9P,@ yYU )t9]cTOU|.`De wGa 3(3kšxBښTݖ `oPX>B.$9@[;UMQo6+U2J} 6&(M Rx"; G,jV@zx{.i eQ;zeZ|?e>=ʑuvRD( ;NبD-\ՙٮz/6Sq+z#Ayq C3s\w@.Fm_gnWgL'` PZf d?6 lɱta?N$g_WKe<^T2\y{O\<2)@_eArp-*@(݆wz]zz|5nݛ}Nxʧl4%*T!y-T:ٜQFX34miﻜ_;q 1qbR?g$[2PPBWhz9PF"p8գ Aʴyhn=e'?'W[(~#@xNTpXlD{CD gvӽv>{ޖ") ˅JF (@>p3FlFA<C*2h|I\JC[5͖> hHߒ=tuQ^0e~ϳ8x>D+ ӆuNWڙ\OrkC\4rq |+!(Mw[ھo,KZ\m.:1yj6POҌDy8ۯk71>e~.L I`h}Vw~3?a6~3ez9# ,ٟ%{ٷZf׻?8֯k"@Rr ^8W&^;N 3syҹ=]P(>gp;lP>[Ohyul#@5~N5n=OH)k29Q_KxZFsf)ϦV:3l@=! d Ƕ0TfQ<Y|e#nNDgD2)b ڧ@Hh Hm+`? ڧR_P<hy$/dLQdLgFʦ oN''G-_9O,hFnb X\0ܡP!  & bI"R'9mR:wпg(.U+yTc p<) =.тDt! bK,QB#80ҷYO9+xS 2Na~yjEZ A Ӥv?i 61S|eA:P(cty ̴T,\07;cw7w6c뻄'9,11vHvtN^t`†7K"i > 6_<#`AŲ]40;LCP|qyp`Tm5ײTORw7c H-%\(:5wr(%279ĐՒ Tyb%9&l5KX "d[\ b `I!)4-ðw<]<7 -puݳ pwҘ#bDq:aбaLlɗeN&6sa(r P(v8 1oDx YNaeՋT-] E J( 0 &N@L6%=mz-?]0A'b+~46\zٽ +0CS z]4h@Z(T (W\xm{3¤A! &C6Tv`L޼/hRxPpL!'N<@"`0k襱Mzdsc@%b8fS@3mö`BoѺa@./䷿B@P|#1KU@hAZplHŕh}}n F# vt>@`x|vbn$!Ї [<ˈņc]R bׅm C@~^!Ta C4 LW a( `&` > R?[p08y U@|i8hCH հy 0{Տl_=n  `xF cMCn?z`j`UK+sONl"Ezs_j!v탦ȴ6m4 nnaW(^/?뀒 m))SyT59Z*}Фg啎8Q!@ fu>}vvy;nI<* %30|hޱcpTͬ} Lh,F8gZγ!!VF.y qKDx4.@f|8Y<Z/rs=uРP&^aشA o0b;afiI_SF{Xh[H @Bo)&n‚ef#"@9g^W"Nx,/T 8Ԏ&,/ 1X-as>=Z#Ӽ?>a`#r؞h^Z٧@p^1>j JUU@V,"3 @cD@-! D =яqyUv22D (]jd6-l駾EL>R^ꅢ@0S HSiS.R !t N b@V^$`k I7Moz-܉1qDE-.AUʀt u8aaY/DpNn vy@9@ <9AJ%sR*>r*MZA6ym%ðE Z@t`-m,s{*0 x.UAkʾw {,_r#!+Y A`$3^2L&0@ $UW䀗,p,*\2O㵫+SIkgT!]x@!kgN+@ R- 7[]2Q`zbz+ab"mhHSaJB~'pXt׃3뺖Q '`1/\p63tX> ꄒ>@$ LH0= ^אG#W ԭl\#f@L|,P$z@ b_~5mz'Ð{b 0Pb X Vr(APY Z:F6h[жEbA ){<Aiub7սЛ <^p.#kU9[wzO )l\׶]XP43߶%V( ~fPqn/?S#F9h#4Xo"k ȟ|~P(=>s!fPQRuULXn᫧ 臡ڷ0^gyPküvzA wiMQ@lo?O3HI ` IDAT=lOX; )v"߭Z?•P++A徟68ݕ9gtp$'! '@k$ҊIﭖ =Jbi6TT<%'^Vކ%ˍ92>L^0>!p2|/XפbJ &0,I =:HQOn"fp zB߰ Br:)׽H{A1G{O8p.|l &; S#>QG Xс*1ϔRN|{ ҫ{Bߨ6O5&ޞR!OX;'Ux@8_q:y/A:q*r$*bƟ> ?sI`{K ,hw91ZY:>? d|K~H.f}u^eο,B*LH[|2P5ٴѕ l `F7A2g@9)Whq fdD BXR 5K=f{t88CxroDVW0U :^1LPt tx] uxiXwRs}+ҏ cjh"myΞ>*tCڒf}Tr  b렗3Y plqk!HĚ3b@B?kGM{`QMx rfC>':enP1Ӯ>a.ncwEd`cz `\Bѷ'.5Ӭw{k{6kJn[qEd&* 0}^l(P1"[`00[p⧆?"6Ν\Mg%PN`%{<  ]p*5/4߻wjo9#-:VC.^gUγE%! `.>ekQ'wƾ']DQO$qN c?J4}*hz3fu97"6GӥeA*}(öwͿ 4­n/dB@WXp].;/B8ڙ B_4Y/R}+xӷLzu:{( #@'mzV~>]SuС gz_HYQYyƕI`@I` @͏z:Tԃp筩ObHJyJTZfF—9g&+%(Q&FKP_I|=m˙@ 8O-6u9.ذމ읋 ATV[aONq*@HUkwi)_^53Կ?RA 2@PE_>?̠Yd 6r&< $_층mF_1^XM o_v>ES0e(Q2}2p{fzO<@oyCI2MuMb| `Y/ ,^WN`l~;>,LPV]X%S& jo[{;Paw <QOW-3^&R )+<3C@[%Խn~èi9"N`yJvz{+8~̻ F;G* HRQ?Uetv@UHYKpPN\0.O(jml'V&~dӶ:SC{7F@SK@ȻcJߔHON`kүetTz})RW] LNlSyV{=M1pCȹ I)Y#GL$sB0O9@ BVA6) mnj$kuϾE% yZH~ea Jl;Yx E{҂Q:ʌeL6]< w}L|4z!d /ؿn7]q(XP=.Ÿ3H5PV:f#j2 FwjٺG⩏W{*')'dhyWX- "b@=^0Տa@~\DlLVD5c/7d f6)Bl@^fb8 f&vp\>lLi# !7bx oO 6'9M'dx'$g+_@W1)["m!1z9EbBdzZ%H(Lpecxu=mljm{z9,L x:< Yi { XO@c8 ~G Cs<{~G"|yK `L}.xI<._G2Xj٭x'mY//jƶdӶ7=m':$ʟZ2꽸 @Tx7[".7juKytS5Zx8C0a@tWOCU*kQax[/k-N3DGս]t-eأ>oM:<rv}E(XЇ`@u{j{g?&ey)MEr-<H2<)l5̣` >ڶiȾ` >K-9:ce (\-&aPlc ' d4uB\2UXU@ tǑ U]DY@UH\wv0S@9J Hm({mDe0Z=4ps pE/cXG@Wmbu{ `Pp`[@B&VW)THQP1 JkKo`6 q`dȔ0D( 6`R#kn)@plRH&$&m0# td7qbV zez%G7ߑNL+V!06[\$o "UԨB&@ޜtKs@soVw j$5^|};4p`;ze 6|nk < Doc5ؾl\2n|E`x13\g=Z! #x3=jh I8',vE> @eYDlh裀>X*$^TJ ,~G }r>SpNtYD|6cQiS } @5`;+eܠ&0K Wt}T@arUh QcskGpFМn~lO!)G¿ˆ10 X6 o?_F>ESTja~ _gg6)[D_?9@/!|><`TdE a.TE0:g b@I (3 >w;}w(k 8P$3dF _T&A@܈OOs##9@ 0^8*a?h +, !oC N$ ͦ,.;n @nM72s/^1 >=f\` 7@ ;h{Os]le  7{3R j8зs| M;kk*4"80lMLe  6!ofb" P rhγZ6pjq9Iݻ 񁾣\AAx%5S/k phPx*$q@\\x @  F@y J  @ wD R RdgmN @ Vj>[16T^"𶃖`>1yb@ Cm<%fl @!(Y]Pg/@ bz8qwI+o@y f;+w|10pl!wWbFm=|@ c]@U0*>{*HPZ(!׎@I/S l/s}vYNަ+UDhШoE  yP%60"ѾZL5Ƴ@2=3v6&ʵGkC7@H1Kz@}US/@ ͼES{\o+w+ r@! D`  h/c A]qot n$Bdoz(n]=L@Y @ @;&ߙ@ǟ{+|@HwK pbl[P@O;B_5@QS^@. _6c "VMӔøBpQj >[m8ݪ3T7LYu@ O@k(_N :oH$4A@{R@@ 䕷@@*]@ /X@|,Ё   $tA C "+]F #$ BB >R)@8VI@T dH@} &@Y W  A ӆ@izGd,@>վ9"{nފBd2\,`%\F1@do `,4 P}t0ZDKf Kpj瀊,@(}G2З. XIf;| 1M`Vdݣ e2@_d@ܬ֮7 @SA@F@ t'S@˿ t<]@@ 98؆6P>@ `"o0]p|C+*s.l> *LюY|iCwvFGNޮ?m~ӫ +O<߿ڠ=,ۮVom~?tF1LbIDATW?w3&>}DqD2eq3].k;*0׳S<{zBp1u^[& }gtz5m~;nA,AKW+oom~tFp Pw6е @I[mUڶLbޓ4Fq[1m(4R oVAV諮F0%m GBuRX$ͨQbD `X[Xj ŭm Zn=}FQX$ͨQT!#; _B12(o@j^JIFqkx]{I1S@ *^: Np)^J*>VV"kpf(0 HQ w/S\ׁSI4´D^D1L!$ .v[ބ Ӏ{m*Pm;6 3>uZPoQTe*{+.ȘꊲT(o^W&z'iFb|HT\v IT0EיQ̵HB1 <&rUUw(Yv*(*Y}4cFqHSLAZ)`^7*Y|SׁE kʌKIzk'i (03U5nʶ*5YrƘ\vTI0$ZP?pp0NY6ZA .Y΀kj@>jhIENDB`ggsci/man/figures/README-ggsci-material-1.png0000644000176200001440000005566515120434214020271 0ustar liggesusersPNG  IHDR#G pHYs%%IR$PLTE!8YXW"26K?o=&!p]5>Aw_d MJ!~E:W1 F3hQ$iI?-4(w@6x+hhg6F63Z2M2,Odl||~f%2.B%&%Lz З"nqEOPSeYy\ 𕮪ث1aTLF[6M]NRb%FU!cwvwN Up}$MWSzRc< 臇zt3|hk=:uaebCGh]" ϗkԸ۔5| >gۧgArdYBqSWmA% XgyI<}zq IDATxk#GȯƳɮMd-3Dadz-4Ba.B!/-(̈́ ˒'^l Dy?uuJR]sɣQI|u=bX,bX,bX,bX,bX,bX,bX,bXvdJ;PO_Ŀ=CIO 1~%j on/MsաuL]B 餝>,şw:>T{>UL]^+AV0 ꆮ ] )/P ~(XtA忡A P T@ϰIY+ B~ }EAC"?Q#ԈX4#焿G}/NEPW@/@@wXtτ:<*ɪ>3$Ӥ _1$u ,9&}% X5'I^lP#&r<',Tmɯ @Ugk8$ `> !]\O2_M `?pJtm lLLb.WU{q"#e  CK"]$S ` @Ķ +ePl  @nB)%{@_cfȕl#j`Hun c.)Ֆ LL \y6*0xK+Pk.ߚ>) Q@@U4R.lg Lyo.2'oh3@MG}B@}Lz*@x5u(8> @kls#2p'pGMOd`= (0U@vI&<#``S` ] < (" ``X< (u@-{zQj*-1$%p}LN2 5?$z‘= >6be0c(D]0ڒ =@36t= >6 %Gz<& `  %Œ[HHB``*qL6@0s0qwo @F}1+@2 =+ >&5PyAGa HL6xZ =rG@}Ҥ"=rc XH$S>-7ܗt &"cH&W)Kr>imqy_@fpco QC,:;:v1 ISCs>餦A*l,⯤~5? Q0?f_,u*# =Ǣ' pCv_N;C(sd8ip>Gk,v'U* jqg`M3_u@sJy U1Wy*ϡ1wwP|Uz(}.'kt '=M=xe p&S%cH'ڽvs&N.~p&MuMЫU uJ(@_BaYDl2hhv MLϱBe|;:NIV䤩'XKJn@32!0o$098fq;g$1HyB `k= CXb< h5h2cP )&A(U+ H $2'07 0:+VjP_*exn@sUR@pr6P {Z@=H;օ :jk@Y@( {Xh8:ho> <[ +P@Tb ãN`V.v{n@3J'X @ \@jvdPE4͹,+&SЏc3Nlz<Dw09xKc(h6P8Pm#Lsb`׫Į6{ gBmh{ml1 MZx(!P6y :D3(@/Q@-rn]u' !k(X'p?N`31@ fl מ v6-@V[ x914{kG9JcP$dx&L,^N-yV?)N5 tԇH+x>!:AKw0PЇLytͿYJ G=vʳ.>*89 Hm.  cA]d#xgkh[`#O?(th[5}"X4h|,|ŗ>:V 5X@/'I'Ei};,?O>dzo٢YYٜ篖O翞_lB~*j7on5=\($I e+޾}4z U ^.WWcÈF lNØ?`/VGď5?+:Ihߡ*>[?zLΨTdq|O.ݶIK#cB/R݇I1E!. >Z6}HoHsƒ"3ʙIvE73=gOo G)B@c+R-ۈxoX56 cNU-йað?t0niw#lKO+_Eg AW̳EB@*7;SE z^_{*91Uۯ$cϐ*k!#9_{0m*xe4|_/HR;<2PL_`a~02?'Sp_l+&-ژ)8ۀKh*Zs&X|'%_?x́/j#x4#ȧ `GЄ?!v \! "^_0$d$ J<B ֟e ~ ^$ `OKHN3$h=4|? "j@$  eI~ `& F-;%^Z0I(@s5,ԯE E ' (l- :ߠ,tOB$*[@Ht :8ߛ'QP.NRCYZN4'$@Pyw&`h;J@$='2XX)HTJA/:+@PL:,i,O d%a %'DP0(=c EbHceT D,i*#J:օ-+E3C cADųx0$ c Oc87QxDX&'%@PY,5K ~S. @#$^@C@hު_p>p")H@"VHx{ hh N&4.(N/&u97s.ATZ ,IRӯL(@& "V`goAh{9"JV=?] @PVߠJO.{_T4K>:E@Y@ @A; d `OB5 |8\jVΗE*04 Ii*K@A}@g4˂?2)@Օ0t/l"(i[ $&X0`r.DGB:Np|N>}=J$ԋA3zS`K@JF"3L6$g@|f/u'&~7О0`{``8TY@w n ! Ry )B VMHx3 @ 8R* NA} P',G8m H(_|G-x1^W}w)N (V[;/nN Q(mwR{]egZm {K^fqM»2k^v67hWc)]{ٿ:Fk?*w`;mv`xS݄=I|}ȝ1bⳂ,?J_|h$Xk \fG;6æu_Ҋ?[~*Wj 7yƇx$;-_xS!ɹSo0⑜-"͆MCIC""&CA~GV L'Hn4F@ EP#dm3 9! ~<("(Du#lD0> CY@7`q ""i?h   4> O™R"VLV4[ 4Y@|II@C4x[@.M{(@Y@f@8,dϻVD< (Y[O'Ҡ:4  %(ԬЊ4%ւvT `s `(XTZ Ⱥ4f  &N49@_ L'D9? MZec?"D: (/t= 4`e^@( x'@Y@P˥v N$NaY@+"@RC(Uv @:Y"h׬J v*3H @R ? vl5, 4Kͩ*W"ph/6iT!XH !K,6I*j#7fqY@+#AF<Jif*'֠, > " @Bڟ( @00q6di, /4]pomH(hh@,TdIVqT;h7b7PD?7ZZ='_m=~&f?s͒[h`hWْC#!5~/kF|GG~ _]tM6|Pum=RE?ځVO䣬OPƶI^o ҷJ;Cg?v# P4@=(Z_2jbU{:߽z?i qhMKЉ"ִɛ mE in;h1Uy? ? Qy~£5-]B@axGNqxK"ִvD0o @9r`8&@@@J:&@@$Pˆ9%4""rH 9rDa0(> 4""rDDg|~80ڤhaEb$d@o(s$bA$ hZ%>b.rI?.%wF$g?S| `5~0 a3EP:VAPX U@@Q! ) ajKj@ Q*ѕ@@) Xì"  e`OA@ 0\``5.@5#%)<`05V]X1 @jtG0  `a 9! &3-b'~⿦oh==V;iy p,[Pj,=֎_92S/XF;qcϥ|O05#w<'lͼtę:5YCgfNR@:5=YD`okzPj7 IDATt3[3)<3[375 X^x @cP.0|p`Lπ//@@`7!  0  0  0  0  0  0  00  00  00  0XnH?k=mzj^ R(@DvKC==< WcN?ZfGE=v9g"T>=qhkcccW-9qyI7od+|GO@_JͧZa%꿥FKS^R%U7i#_JE_K55-vO*?j}ۏ"e> k:Ćye]*''Rs?H5LE˼%lU5Invύ@DLcJ#nؚ{e>02e< [d `=4=kKd&4#suE@*Mlgmn֮0fm~h.mD/F_d#Z)5TR3gN'l@x講ZP@9CP^7^2@'@= ?biO/, yh_w.j@2pj/G7M6j^K_CKY!{\l ڮ"'` B&d0V'%qOнܯfWvdP,н kC'OvO]W\djɮZ`^juRF213&Z2@wO2sue*@ Q~:p X@^~ ) `I&U.p`}&/[@ X:8ꝕS'!뙎 He`#^ h*@5 ~& X@-ZH0xKIR6 Y S;3 z0:,*pl:~8г,:OPfGozA\-;LC{r`:ү-4;}/0GH&hvP9C) 5. hjmҭDX 2U@3u"j1za U@˺ (4@-ZHL`@NP%_ ,_ J".<썱 h?ŝײ5ilҮؐUK; cx0U@ [w`hOn0Dgp_J `f>͑/j3'Sj-!@z_AK`06 0,5Kj!q__ ,*q6-ܷ~!pyCj@F `m;o A˷ ihR@ |P`BVnmIr~7y-{RƯ*<ӚZ5^l~XVe-gpjќ-U?3~5V֤֫֟߮E[uOZ-H8Ն+U6yሱ}({7IKb_xyIǶ{)0v T*`YMA*:hT g :k' 3~cځfD<}*pyOx m.,j N'ZЊ1]eߛ덓q?~)?nf?x_fb|\c%ZBQ,OR5rIL/_6f1H<^B ` kq)43S1w5Oѕ@_l&'U`84#Ѝ- qC* Y?ɏĉ]@>'U C>>C] tMD|ݠtMj\4/#G#?@??3TU$l@8?Zh"HD? '#ȎhEqOE̙F0xphJ}l L@X/x4Qt.\PfkAZiMy<̇~z|_2?xm'݁ۈ@`43 KǻNۃ@^*E+4*-6sqF'Ey?z #Hh$K]exiDؘ}@@O @<Kv1flVkp`DLp] erm'RKkhEL jMKCu aQ Иby@Q@ wO8 Ca@M((2ri#*:E1)X( 5Dk< {M@pe $,`a(P^\$Q@.Q@2&>0@#/A&pC(_DZ@^F@nyJD( LHGBwUs4* H @^r&T( :ѕ$@F)2%*'|RBlO@@ @DVPE@4)+)V&p,%u`fH\AsX @y#5)ĴM5廒EebR_ t.1@hV49NU9!f̀yAO ,!,Ҍb+c'(u"@z839@Q@Y&pLxH3 p?u- `5e!<tW(y$GP: @`@A>oNdr-QlA 0ADOP`w|-BvNAg:c"j49 Z@|1дAOwNgM`%#  BRhRB5[dw-Ujo) +0ݡSRrGe^ ((%x a#ЋrYZ dZr4k)FJX 'O`wQ@!9t-!`4ZosqؔPl urpEL$IE-ym2 8/ @VDsv\ #jN T wP0vyvj1< pd ]^FgEȆ`{ ̀l ,+E`]VZ@z =9DwyF}/nH/~d0cS`ls< #Lc%l\ ;5dMBKĿpo+*{> N?%E߁R蒥Y[|8 ߄?~A-P{{CwtGD>YP 8cU[Gmq7beEue=<\?u @=diek<p8 ?UjUw-1wpA-G B⺴L.gT:U ɅE{rP;%^:^?ep \@Mԁ90=!<i/h/_h3 lg5ᯰ`jL+wlL#>()j(KiL3kMA`V@Sj5pjB%dF 5*Lvub:pyV{PGy2h5`KDT$@ gG` j&i` \7GV2hRU<IhM -GQa?tyIQ@LKV0K~?L` j5P`A4bE2GY pFp a ,] +8@,jV06(QR@;\ @ &_Q <\ jVKȆp%w"kJ#LzY"!%P^Q 1n- ] j*|Zk ;o[T= KVHPA,()jKHKVQ?$ŀ" TJ<1 !xi]lbKjFf2"k&(L!i/(/h4]ԑH2.^WY=橛I`їODO{?FTdj'wTd])uZO;a,Cxw;zwNюM,m?ПOdvoocx8U~&~#O%Ŀ F7͢tY,Ɣ=?wo/q|JVp_^ _HbVX}8#+8D}|A8<o 'dßȲg`bqYS fxKVCpGnhlØz??o Q_ܐ^_UkL!!>wCBHtmxG*S0"\>t{u1 "H. {YvՆDIͣm)P!m2-' R&=E*b?Јj8dkr)_q41Șkr)_uLY "R~@c5KrlNq U7j[u8K{bgj!cnEg;~6za@3J/9LI ܓpAr`0|W h? y1\x~T<@XH5Z o`=={j6YZ٪a>D`7C 0z.p10O0 X|+`(*I\ 0 0n<`@@$wրfO+a`* p- ȓt P,}6b@ `P*եu_v0J@r*PV0 `WZ`l}#u/l0 껁nqixX/M@% ^@˥?(``?{sh {aT}&l`~M` Pa% xhm0m[h08ȯ L mu$Hȯ@~Q}Z)X_d1 i"|0]_OO=ΝHL#goaww¨sD8:'qH4bNj*_8K/./ <Fv(h; rj~Gtt8uIBJ@ )_[gXs!Wk% xk x8fy=c,ǹgz `u/Pz?c,hj6+,S94׹`IDATWz +<4M%Mg@`k΁iyPd7$g{h4|Cl g@0+\1z5c/z |{P`U0:w@(8?P ?90Z{='bOw#g q5|m(*P8o_0 `H n0 =e@=l)P@ `^@v* P`Ը8go}Px `5Ӂ}s vdD@@@C a g7Se%r 0G(@>" n|7' `Ԕp/TЊ&L&+fͰS#:%#;V:̿SDL6O3L./RjSJ[֬*6W8<0cMh+i0)# %I[<,?{wprǖVk<)YcK5~Vj/% Vk(5&rgRZ4h'b#Js/ phu _⿷d@5=lt2_olFrZ=%S|Pd` _]u<*zNi,/[rW~E % x@G*v (́ D$Z he`k7\X Ȅ@;iDɹvR_34rEO /lw zP}@, /W@@ 0NvX@vOk=l'JzMzXXr՟ ([4? @a %= =nN`@=bh2f> Z `*lefpW`6J/mr@[Oo/z7е*zם6WuHI`ĈA@,z*3z-άR(DJ{u@3oó{eKFPR0&^n8V546MN{@={ `~N@7'h?{ֲ`TBȽ6 u7P3c> }0#-kz2&t0;u-aaH#$A_}2+գ9qojڦr0N1om'yyyU6ݵ?V'etj0f?~VdTEGG)iIa;TdlmZmʻKUnv00K 4D^eT9>2{Yk9ʓeE$u~6P pp%q*pi_gU@f:/9-m +pp{Y sc{rTNН<雷L@W'2P.ML>#.lR`?Hs+c%p79O/hN`oO[s* _3RxEf;|A`fUP7oW[8+c HG(`F`?ȿ |$0zx[-*<W ݀^]U@{ vx.]&A0{3p L`ov}֩ppMrJ& Qc/Q'Y?6*iUmL$V:ɪ-z_mWTSZXl(ݍku]nǕ ߶tjei;ŴL9\$V;GgKD;(&%V?doIPDbuvI VrgA NhW`'pU8G pgH`WZ8('ΖVp0G` 81p(q9dF|F'8~;_{890\10Us@u@WӾ?AOvt1U@.8 40?A@+np{Lwߪnߙ0'HpM9PM`w0';ph`8@@7<@U@Fpp}O7Xrz W+`S`7w;U@!vOy30QL|vJ] L>vO8ݶ8 (0- nU@!' >vt%98`w;~v8{n0GAd%pppKU-)Ub+/}{9iAUBs JS~iy[HҸiʉ{_E;Q?@=t7r,z/隓r݊JU#ZRw]JUdG5'ۓU/B8.O7:(,<C@I}kϓPdT,yZ|r(6YI ,K1Uk9C@α2*vZ^jo8j;I?V+H+-$؆@^'TXC}7tͼ?1<@xzy6eq8hH]SO5xi7BZ. |Īߛ@VN`t4Mf޽rtb ^@[oa8E ru}ݳ26;40 @_:* o@qw =a`IPOEҐ@*%::`FpP~^0^:,:PmXe pT-qPh7O+p ;u 2P JU $nKvE0N[AX-@/j?Y6`^;|@L80c%e 0vƂL@Kc0"@ \ @F=R?Ю^22;Cv5WGVNo"ߕ|M}l(PSR O@+GA) `T0DܿA;8N>-BŅ.4mbŅ}-OS{ϾM,TaD 8<9Bi'1t[Į$XkU@VS o[wҶ@"& 78p@OmTiН td2a`nh4̷~ E W$N{2X  @Ձ. P ?YHN&2'~ Ϧ@F( ,N$ p%it6 Ԩg}xPZ-$pXj@q_!',>m:MzP;PGhN_}=O# I%0*B0̨JBAUAV2pDffu`^@/AY h3~ Dpݔb9}b1j@@|Pr=w6@w=ݲZ@z2ՠtxY5`ր,_y@[AͯJȶJh1P(n@PͰggu%AXYN}&cXIEŲǽcGPY@}v%*jMFU@B` |<ݣ-7 M_@ X0Nu JIp fUɖm 6}~4-8jeh^nvg Eow-ޢUx7u58=5 <ު5 |.߳i@O͗iop}s?:4^3,#ƣw+6Y#iP:O>Y8 h< p= h{ a~3"`S5o{4ulõGOy8| VE j?}Sm-l^  M i9N}:췇mmP][M6mhCQەN (?Կ E/YQw03H$ @`"k U?$U:6u?$=iK?J]H$#kq'ǽwHo1(2U/@x; d? /+85"-FUg3@ [o75+ = @,JoZiJ! y5&^ž }꜠ Ίdaԯ ڮӕ4H$ @xܡOa}  XlZH R$ 0 |8'$4$(L*~޻. "<GP+_uC$'R$ౄuuW}i )PI#0b(E BtЖxCgZ()f+U)" l jtZVZU5  ~A,/qѭwq.m 0_*=Zo"+ GPUiЯЛlZh Eԧui  0$-jmi S vJH3"0%_$0?'$0? 0 | ? 0 | ? 0 |(E HhJV>$'$ D'$6 0 | 0 ? 0 ? 0 ? 0 L? 0 L? 0 L? 0 F.w"$W35Uqϗ1yV$INE`@2S1"$1},tlN>]Py^]~8uߜ .w9&9L;ґZc<#SpBh o5|G}UĚ>yyփ7i8P3S(FC 0xSNZM*}p/ <6717%e_| H* R ϩZaľ7y.ߒ JT:TK_ Vߵk(o7FW8M@:]ٻ Dw0Wku6fN\Or^7wH4i3u+w%:f0x'`tTLg.lfH~RWX0 *I}&`-6^`;6؆97wG._8 >K$NgCNIPwyxMY |s(nrm@K&reV`p0.)c!IhOXbh0мr]6y~J} W^21CmQjЫcgŝ),6X-1Rzsoh6vQ?8]}H7/+`@= jϨ[{u!$$|u)'FoDr 3B&}miHs7•TEK@P=e5#@[Rl~?OKd.Rev;i0 `N<V+AiΨ1ߍK0:U֝bʪZ7?X{`! @4-8pU{W*k$o?γUąONU% ReDx J#P1`vkC"8q_\+ 7_D|/+z)):l2<.2v_'!$ c]ik$?+|;Fo}_z_ݮJ6b?jl$qƘeI @2?O6WN+";ri{A:Zy=rdPJ<{ Mʞz"OIjh 78MӾ+/ή.u8g 4;י M7,Z t!]O$J_NQf-!#OI1:Pfm i{=WjqAo$y, eWIa{NhbSU\D} Ph6c"]y&!&'W_\ 6 @Zi$ާ*1;6K! -G &QŘcNvS9/1gA{dvm tj80O̺XZa">3~lW&.Huw`n7PwB2Qۼ/Ep1@^s>@&7 0jjq|߇zQ#h"hh\g1Va^`ZDW`0?IT뵀zS~Rlm\T $OƑ85>)jF&[Hi_޵'B-"ICo&M&hw[˪c3g.įp:$z:o"# {D$^~&=٢* ȥR"lT6{6'J! iX&t+T4M4M<ؕ9&VU(eSY^D8#7}3v6RW`\(R?Ĺ@@r{&xP=7-o->1'#g|dܢ*}7SA»0n!AeyMkYe<6r ǝ4]=>%Xw曈RO@y>ɮ%*pƐr HFoF0-`CW >r>& `" C_ gic[QK]IC8s@jy6sQ,fB#D;pH# (^9Wo5%5J-MbQuXϠrۻxHG5E>!ͻ<uӥ79W3.`E1逌AD 憪5qj-"vdZBhh3!$O!IZctjFEn=}v?7=B'P5,oQO Z0/ͻ*ugpbUw {JG}X7=B1uFjK%V X ASTk34a|Nx Yqǀa7}騠QxDdQ 01$B9<;qh.0_]_)??aiXQ@с0fo^;@ sRdDd/Px9xWNJHurH$FVc s)Yl(&gISAHWU( wDjXh~a(: t|$H`dpQq^r<iinݕ }`7! _uM RD?! il?4S>`om +qbOnolUTr^)GJ W(oĐ 6>YAhC )yCmΪ P4TJ W* )Ej? MԸ/q \ %5Xhe`X=ŏ^SHT3Ra#  Ki/nIrzPn*'(aRe B@ # >/*K)wA08" h7S< ghz5F) Yii ^D&H `#=475D @*7dIC tt}hW{ПiY@$0JIQ4e@}|*ʳ \Up8@N;ݤ^v+cv\/AVYvʔ6vi!yn ՞%?awԪHP$m&|D05l-kN xNYV~@3"87 ؿһ3Ze۳ Q+?͍`q9b5jPb0ԩA `j?=j.p{k\=_}:8!@F@@x> 0c!J~A+΄.]}.q͔%|B4LjO/RdDdB$&:=O<?K)ey>_ſLsХFy%0e>޻v)|?`+/J?VV'}( |& VĬQ&>Gke塤%Tm i $ ""[U0LS 9P]&bQ`0|`@swɡ IwV~wsQ(#@F@ +% ;W0Bx!0P*]!o(ƆX@*?ȅ}@w~p8C6 =8P s뛛{ ~q_o'(BPf%~(Y[7ֻA>~#]^+ }fY?AÿV6DDgowc &_Fɹ \]|`fǻbdɔ[3GMO*d}*a%$Hќ{۰Ҟz[^$W"x {Û.h]@"0SF`!0~2941I`ϰ 3s O!~GQO@v~?; n"yW~kDyo xS]*eyζ3瑕YIЎx`@@v?7R{eY>s¶{ 4G lͺߓ@g]۶: x9P3d'ubNG2d[}xN`X\+(!l']{rhZOv[~뽺Ѹx- :_). Q@iҕiB7op;o&`)U&(@@]Y+EBYV KHmC/!K@y#o,6N‰`g.c9q"μ!i4%7iu0LS RYYoY!hQ/A w`_k p{Ewts Slp"www.'W]5L?Ƃ>v!~k>3шQ9 ~zXnc/iLr6u vA]Z;9s#3tmٍ8],Weo[8;mZiJsBnv97 :=7 ^@/xO*?C I|c ;}r! NaN*i稶yWc,`@@{q-3 KGo W\jWxΚBEyvR{9%J+- 9ii.¯yY۫Ƶ{L!Ifλ*,`  h2gDjzbcv6\4eV|H}AxF~S*J6M1>A[893b@>{32C3?_\QDuvmJM0 _&hd9of|@: ja*n@zKrY:8B&ǽEHBϘ|3:lB.2Λ<1 ;m/7puC߃ bv@+=bR"j$5 cحdJ|7̯t)/a  տ0oGC@ѝQ%c1\|t@ ^e ΰ=[d#J*JͿ-^OC@yݩiW byPZ?OY+3a IDAT 4a;K:M uqrT;1ӽSupj;Xn@zګb@`gYGGg?yM*y$Sˁ= ti"@^vv}qO$P#19_Wylkgn/_Ee)ond_[}6A5@yg^V ΃d}>@  ==TMu;@TtMlqρ/=mKH?07{S@O ު^595NW@_[wzQ5tNw 3#S5AyM7z@l*I.{?ﰀ Cjy^ۘwR#a\cqc6{ƀ}D1fͫ_( -07 n!"r4mL'*'!0Hj6A~r0F@?lpF8S8=J H&\T3h<a@WlA:o <h#;0gdz0w"TWI 0 L=ɩdp^`a#" l<2x@ZY_7=k>'[ Z3SӼbp21chq 9xk*. I{6c$5)ȧFՑ`Ι1@ed,ڼ $tVjsV"Vʿh)-e|UV̽۔Pm |,}6!/v/YF+qm`u@Ԁ`D ,绰h :C)Laj$ԒvxUo:q1xmO r' 3FgkwfXUwƇykulhXf/&#z> A?_qc$`Zĉ )Vq~ya (3/z`}_^^pPVrv(&ZsޮdFE'tmPOF: W3Vi1Dt;\ǵe:xO2+nS+nȿh/i_YFk&]಺",.w̝q,EulYՄʻ0=v\}5*A۴08%C^̈́ԪԸܼ 3Qw"cF?Ll >Ga̘5?$+#Dd~L\,Q\t^dZw{\TwɁ5XDk%#@܌7VIb)3aTTwO)jqQIp"_FOLMlp-U`=ȾzN .kYV!*럻)!,]vxXlAJ]\ؾ$C?)ooTc(Rba<h8=~] Ɵ^#Ih2V;Jycxju|C8٭ O#qMn4rijK4$Pv^{r?{|b4>aO~F ^?m.^[/ʂ:S’rژe:YV^㑅*nnʼp11 /4Q° "8Mox6 x(<~5/T sd+UHu~{0_Uv Mj^4__68>Lt ZjRZ=nZxr0nܥqgN$YxHܚWl7ѕ/ZwO׽:%V7MHPF?,KESd>M8rpReu{Ֆ *~q= Lg> upح3ҭ;XkhIO黎C[B'y*UD2 Ck?,qЄ7u{9/ W<,ģ@`z{{qI J[Q777@|%d:{"_`#l72%w̾xԏ}?xZe-7᳜HaH[ɍzCu\]jiXkl<>V0R%j> OA}g)7R?2+yY@ӪYZܰ`_5a4JfX~) $!Y@@A t|8ƥG "n4Q-C˱r\~L>CT& 暄A E ~?T} M,B,F9\PK(u/q۱KZZ@ɺ W_W'!@f1 ;2ɡATt.OGq2UUg\_}wy=0GHYЀ@ pf Gf8̀Ilޚbi*xd,`u +952`B #Ɖڎ k)x:o? .pP5 oBToxt'>F#Q*N )J'*[9{}}wH(?DI~%p u@ O@4Mzb?Ld[L >: -oƤˀݦu[p79 @R?Zǂ^@ET@ ^ȗJNOk] fGp2qj!|Vy.o `KjBSd&ld_m6]@v!KJyWe* @ `lϲybMȗLQMA`&k1-dZ,Hu &i=R -+5a,64Es# T(9 @ ~Zdgb1.^ZXR$@zOUӢ:0_@Wͭstgt[@ - k,=^6y~ ?զ @IYbVUi $9,fyx^`] /c@X&@EeX}Qh#Iucw͞O1rC2s9a= Ub@7T̶h~rr.;OQ/xCϿ z(@&( (Y[TJo*i3^G7]JN/VM>_"О#ZA@OʜY-׏@>oC_.` n$ޘb"PE| hs"|]x';u Sbqa\p>Ϛҷ#:0tڪhvlpeX.WQ۝õw)xu: /~xQt/iF<<> "a):L놼.O?sYEO;ƻ{g8DQ4RB«`CG7rI; [Um.05ߨ݉3#=Xki݀kev,){cϿJE~Ni]TBcdǛpao D@Vfs DVĜaC=OXh{BCf6<ˆAm圏6ioNEpoy6 `3p΢ϔҥ : *PvX"XB BW<ו~SܝuH|D h:pl BVQLUF쿛x;@s KwiŠ*30 ]qɖ-LL#/@A 6sK%M ":4x] mՐx b &ӐL%gj{`Fkw6"Em_.e8dG\jP)FYr$|: C4Yi&_u{Q> E]jÌ"7'f!po3'0Szo#]3n0:7^*=@^Ģkd"X#@ )06g\ofKp#ux '/Ck ǣ@ gJ~Wt&`]XFL"cه^WC&4u8'm2QQ:?U@TсRťʴK#<(Dbto+1 Fǫf']I'?VS^F<7> 'SW7 Rw١G 9WN1 ;7뻈~bXl׋.$Kj\5/G+ātW \vkR_Yxmen0%>tF-'GC#% $lwd{QѶ=2hzyξ7qghdXC*9a)qH5YpgwA*PY3I@N|N,r;)xi 2\9˕4nJ΁o@iH,<x I'$fxiȢ@c@ ^ -@Rmj⣵d /r0(d7tG/-:9` 7m"9-WSGz dA.ٲN xLufTu]W0HCZ- ƈ@!` *Tq(kss@Y-<kLʇP=x]QB >Pי%AwG\>6Oz^P y%Uv4DU'ڎC.q+#i!XkЇx(}@ w*Mmrxٻ@$:{m{gx!^*W?oY?U-ܖlM,#'5Pw <.c{Dy@g ޶-S>į{ X4 B/\,AZz-7BM3u{`p55 IL㲿㏶/Tᇽs5 IDATbmQ/w O[m6#[Cl#en۔g=0,>dV-rIN"I:9 ZL/vxթf5@G_8-Cwƍ}R7ϡV g7?꧷}:=Vem:R .ғo PgnH%U5W~۝@ zO#, e֯WSUjRMp3l GkC$0e顟r>K\Z}Q(ҥԇ;3'= 0`]G[-"ZXJL )XK*;j>jy}t5`2y?Pu$|4cm*Enѷԩo`($jԎ8؈gW ԭ2KfiwO ;|_?3ő2]HDC!̰yW7}֪@(9Z@uCx9֕iwOJ@ _ &@ ph7dl&`I"Uz>{O.}Dg Н،>oBʙŨqI]midZ|Ut:=U@bdgo `:FOΒXmSuD P:cC7,FUuP *$?YGJWdpOoa<92c_ʲb&}UóG`X?V1$܀{!*TG_46S*lj \ /`U^5gܺ;@ &d&`i}' Ia?R$̼S L:e/bN,0 63Qn0^6 j0!"wCI0["(dݜmp"-.>2U9$wva8?l[~})6@K35D g뼈b%6[. `jjnk̿ ᧋`j*?MZlhx\~]x]ؤg#hv5F޻*ADk˧Tor34%Km&- "MJdo cn*nj~Ls{ bf<vf0`P=( ?q7I*< վ0ЀQJ)~X.&'`L0B%홼O#%ٙOϖmj_m)t7>KrN mg>Au~Ԉ2n _ kK7u:+7M@ s_7m1uw-!)5GԌr ڒTşfۅ@ )I* |ag/4y3缇N0$n Fݣnxr&Áz[.P?c[!|x5bGS7QwfXPg$~rդyvۅ@ +q ]7~]``tɘj"٣ms,(XqNZ4O0@ 9j@̾ZQ l9~h>4pcD,(rN(f}NC W(ۋ N|u۝q@tBCgio}pk, j!G0&z*@ ƁC54=!omFs\#@4ˤHKيp@ 3n RJXW_7T."^o*]7q;~#ɮy asjo_&ve,zP^p? > e$n%r2gb_x +Fݿ3nH4%Wcz828~n6E|MM??J9.??io`+ `g ۖ$~̞ftzb@\p}ӂHXI'/")ltb,\GJeӢL(Ra3PIVwGF2)U^l .D?!8A(H`"plpIZM"gA׾Ro? ;# QcՏĵKB @Üwd'Q-_HK<K#ntJcÍ~: \`gp>[ :Mfgc9]]"ä0|8(a)ASzpz^m `T,9>ĴS`$/DR>NDgҙC?\JLQz p~~j8iT[~ZcȖITwJ$ )<ĠR;yڵNI<3Xu^NHKxRh,r7:=r'~F@*|Ы-`TvUM…(Ȩa?<}j'ʗcz _t_h xq${FD>`^M;RAK8CtqmSPY@r]~'UhXkˠ.eso"pdppxm]8/M5h)3UQc j8}Cl/ -+b@TsVrm3ܮ@z@ (jV--$e`Z6+Ți$Y=A9/ 9 , @.*^RuxTEzE. Par*6Q*@378=nNдcHE<#Ij@ 'Qi;sBW?>F1v3$rBPT@ Q-.lct2 \ J궾 p`|rr~zuE[XDH7oq"@ ΡLUG-<|;?N`!*qHv"RP(@ EuQt(*e~maJgLH4qRn/}oͿ~Y ၖBI7x,m* {A$*xCx Y{C@ OP 03˝23eJF32@ gQ: !<@́(F  -ˮS(։m|]頣`CLVjpRZ(МA\-ˮ3(Jo*Sr}Ρ4i M=Ļa;@m!teX^! @޶ I"r۲ pD=Ete0PmcD@=@Q2$-V@#F @'n_\zep [eD5W+oT? P-YIPήZDLd{nYvbXp{H*ϧ+;XngDc R `flYv Ye)Lb -Tsy -e$VDy t~p?*]h%sڭT6CXO}?)G@tʂ( trp֢.ۦ2 3"&{Q@T΁|-[> _>K):`oEI#!G@@R xs+RYF[op]r*"ZAMK>BέWqwA@KOJ'g!@gUg+~*n??BӼB%^lsp/8*˪Mx@ ̊saR¨)hLH 9:<&Ar}k)dWV;QboLoض7+.lHxzDoP].~0n@0@_-PQW/W `d fg1y@̛NӠ'q=_p-cEƺ;\x7P3N2O_@06{(_'d=ҏG^`Zp7l>|5j1\'Mh|p<]7R\`k }@4\K, U`&!$56u-xUf_ھJ p'8ݫcG& 8 . oQ}y2[(1 umiV]f-m+$7/l`7|BjmX2r" ,;ɺ75Kd _^ZY/([<6?l8ׂF mo=؃xl@2ū:Ã`XzKbٯWX {r;! ,83.'51^߰=ܯ_N?i{Qf#:0 gL6Id%@0% q.2o:Rg:X[=U`7>k+M1BQՌ=#1hWKfa7 @^4p3n-!khs367Ö35R T @^2hjzȓHY `LޣOin96}U   3Z_\N34rZTڊ0_M&:aY5htӵ["ItYc61tz&b+w o]mCgXk6>sl&0_d}l 4~t5ҵ4|("ZA@e|\1)˹D_>9Ag} "1|7˳u<ܣV`QKM౷dz{ 2{hLNMwV2oo?k\uZAb iFLHT4;@9J|`~  C+`8~C `͓`4Y ZÁV@eAl7ߢ0:CZ[3`?"/7U9٧G)1^ (*.4`#&kI5A -EQC`RP6Gʾ7KFzKX]0Os@*\%7{$ȁ.Atr/nj7z@ Pq 3|!Ur3IDATJ@ ،V7JLK"8v@ ԓԟgq8 Ya'etXy ?WS<&N~ z@"0!dyGoa}D SQ'1s@ 0OhZA1z0oC!@!@!@9@M39A;c!dQ>6ËW@9\jh>C7wF0BȎt?P<B(\Xc3,Kg<4ѱo 'q,&y(}KgtsK+Q.6c?_: r89{X!dgN=0P'X7S@jh>P;-왳{6QĈbOQħY۠N!uUޡ rl 6c?t:B!B!B!B!B!/OJ"ϋxhkX#jNAϢ>Y& <tj;?t㿝"CJsv"}nf\{"Jub|;i=`Qpsq "sXw  Q㆒o{#!D12ݓL4!z#R-VE5Ҷ]yTz˕|$y l_SfF !lkg*E*$cv)Urgxeq8|}&3؇*!{m+q&0APM[(Sq5 ,Q} sYK@j[Um?@]@eC_O~J39nsF`Y IDATx읋b:@ Ix[rn-RJa&!9hA((uG*Q @|(-$Tk|s4@m׫ܩ~ZW@_rC|qZW@PZxt?.ͫ|m*k4'=.M M|-O{5Vz|UWwO%A@ H{0w4-% 0/@_"%Cu4@m<́ޝy m@co=Ҽ   2  ( @q Sh#d|| k 9R47ҍUEPd?ҀiH2i*"(LBg>]N OoMMUiƪ/TϯO)<(2ݽ[D yOH?[-b N?Ƈa>lutcxԾ( |S CnBORd%8ӓju0-X*6 @.J@Td|P @GRdQ pH @o.8PO% @YJpD(!)J@"P C @=YxO(E @z(P  o[?X9J@176YbOf4Csb1m۵JޠMtaCϒiNZ0&nֺ9۳-",H׉9wiIwKs~Bx # +\".\F@+B?UD=B}ޞl{3v1{8붧kWrU]c Ernd㿚stjn`q [@r(׵+o]jJ~0PTm()}9G% ;Q!&0\b H @% \W#4\.E4BΗ`mVK@J%$[riR^@zM2 `P$ԲNCʶ3 7WU &~Opaj`mX髃uY\\K+UM 1?,?=Ejd\zzJ; Ƥ7 :,?ak܎\U~gps2??Ս;|Nn8)Xm?B =:_$ I}!eq(!/XЉScmb܅{4e8(vG6*pM~譻]^@.ԟ ~BV5 xnlsHX-OqZ%SOR5nk0ЎpWTͶx\oSvq1U}ć B14, bI%'g)J9 `EѮoDk X~oN\Vu ( %)!w> @p >V7b)̂^@b  8r;rX{HE)$pv!!@K>e3M" @Rb@_gwD8'5~2 m}o'la,n_cC .qt at2ίۘ4ݫ|J!  E[ )@WEJ@6}67O XEM 3>8[&YV6K[zZ"Qp烾"-J2Fi8 ԒҔa9E/.hé}a M?UID5tJMs[#buػ35Epu!jw=)^_pk;y@swLm.9gvS[ @NLtߍtaػ̾H0o[}Fy@M @u? qKfJ"|[il$ @,%8!| bhvBvFwOaSg#C{c)6lPs׹RIDK׌B(nƔ{@g+ \z O#5tk|ILK*@~+xxkBq4P1,61f)3SF5~aTEꇃJ@#o6^8;S,m\L@y _w#E! aR`N/n%;X}|/^@j$x*8hpRМqڳ$7jgQaLy x~jJ@+W\fxkݤ^ت+'eege%(iqVIrI4X0L~3 H4>2_a*K*@9ۺx_`뾶"lO=zdL( /wFKS|_|[O(HYsiyC!cȄ]6Bя,rrkF4t5ous`3TxR|7C+x 7f=~BԶz 9 cap A@7L\xSw7x/?  %B=>ţvw|@Xo 7z1aQ KKźӬ8!&IQbWdB[ ~,FPQSd|t^ 5IYw.`Dr&@f땨kH_;yʇWŔ˭a=c !\*bpw|@XF =@agX'o4_'y^M!;8v.T$ M?6AbOhl#~ |g0{`zӞ@*Tr>?<+FxqZ { >@3upk= 03勵Rbb2BbY9 CHDfɟw*%Bve $7,&1C9G$wO&^Ҹ ٝ|2;e.k6^|Hn!fP?#8Oa*kR"n K[i\>l Dh188@ oE2P~ K,]\ $QeB+UGV_>|"0Tq%$ࢴj(5LdP=A>2I0MsOӸm# 1|vOřFd F3cb`8/4oP}}? }Hdsʩ8tvl @W0&O=9ގ.igdL bDE:Ǯ`SVwh2U?kGiAJt? DO }!?c|>l;I`){¤eHw@U$=7`'=(Zxpy*lp3dIpqުq22v!qzXäFgP\CX4BJ / d{6t,6V@i{;W1-yGbPgd| ?]tk_sf4 5FyҝlI`vNiLpWlV0l[Fed.x@ wଟQy<,{!)L^G7;ǵ[YGտjckm`gtK,oB1f;9KHҙ 83CU￫)zC:yJ^n@N$0ؓg a ?6>V9xǗzsMu<@F hzq ad;Ճ=NSQ7 ޒ2>w rΏJݮ%lP8 /@F {pF0?ҰDoQ4u2ГrMmL]=DLO|0@`P\F_8BIweKE_: BdvKMZ:W]9YHK@%4NzݶU=5Z?*brf`*hFx'콊-X7ٛvQ_%!m#;dоxip K8b7JD3R{ԧ%~%`B^CJBY\hM ݻ08ٿEjU<zXm?/Hȃ*)YN@F =@]oo|$A'UVNm`w8knb\}5Hk˩9Ff?x^W}g2*HS /S/eД!y 7Kp䬞p?!or˺.0K-"K?o_w?]jP8 \bD)azWk/juNsUh@^%Dz0wa?@뿧7ə PC`tq aҡ@S(X|^׺vsfVjKib]g</iB@/H_a_xwع?vwv -d:Z L(<wr΃/eU~kפ a!L? /i~lz"NpmU-&_*n|,9Lߌʛ[*7o#By|+ffB3v!9I |}?қ<JI33Զ(KqqR l]CU6f3;.L?Uy|xO>MYmog7 %T# aWE…ebXn)H/@?Tdq9m.w `^xC@,דO7sHap~:`* ܀ I?O{"z+Xܤi' F`opMaPuBٕι }>*`ӗs;!و6i'v ߯| g~! j()]Y' c:ׁ`@Q_]U3<%\9&# s. Kx _1XɟE69.#lnT+sHu&%~]uwuOIx1@OI. 1b(9躀e?&&^,Ay hyX- fJq F6AP[2 ʏ}t, דr^{{0iH!o(_O/fngBxrQ T IS۠a)뭙K000z%ViwHY'xsLiU;5 y[ [)<09L C5F Q w!D+n^v8}dG#x=eƨݴK? u{$]`Ў] gՐQaJ+nQ``94k]G.DZJTpwR}Bꖪ@100ze蝶hV*qY| :VEBJ1]I6xZIgg*AG0uŜ)À= Plb K,cWh.E_3-Jrrq^GS`Sɋj^CBgcKy+jU;0ؿs@h e``$p(D)\JV._̖t?85i7.@'_9+@WIVfAD `s`&&&^XR IP_)[v,J:@E /ghw{%4^KM9f+<c>B)ȐayDkhv:(`JLLL|,!F1fj#7-b%zJ8{RJ?6O:0?SN-Zc]HR@Pgh)En2L000ٵxuz%MUƲnj 6qV=ƀ@k6gSAIdEЇ2 7؟1oB\6OEv$$vUU1@ dzAuE %bC%v_Y П [ijՠ?8]am#*5$5t Ϧw@d"v+g:h Vz+M?IMFw[LPW@g5+_M?Fw4K]>Zt%u. !9t[ h&bNd``E`j(҃]Vdu r!N8"C,et|^MFd1eZ)@ygi烗D 00000@i6S ƿ|&bUi  ]=δ100,>lcǏ66^kmݨLF.݆MF5}׻(a^m@,_ }[\<H _9 #({W=:uk7+]?ٺ'ԶU_\7'pNFͶiNtm2chZ;͟vODb`)y/!D#&r%ج渵 j<~+pCI6z86g%lROҢstP{LvC\"rV8!v{3POvو;ީ|@ॼ8!1§i ^&ۜ}̱Wf|d U[70\s֡A0\wfy:t?`2Pb[Ptw;a!#HHp>BDO(5aͷrqw@ڛe0aM)96%E@JEE]ֳ&sj0TwI=6?EcQpGY MLBn|{$7ܒ2=rysONJ>c)H񀫇apT1WAcHCXsمI3|?'AeFg(2q߻ :zt'#QP L,4~oCA]ll DDGz;9C(7lk12}X:!#L |-5}x42"hߧIO?Y@|2$Tz Lteng)))_R@H يE 3Ovq @k7b#Ƀ10">F=/`lSP=!޵(Ȳvkz]'PD^MɅ83L"C~!kJ#Ń'"t5"p}pb `lL|=6?Op}.xEx#EWgCxkLBN4r()Y1eƣQZa9s[MAOs6ҐRЅj]@z6ZDDkohϓ&|.]&pk8cA3R} νu&;4z+㐵]Fn|@_MRM@X,jȑ7HFٶn]]L7DjS%*-*``[3 4]3= `3`~8]o+d;0Q*2}UQZt|Lrkt#>h\#E/RIuI]B%cZ``?x}%(l/5 b§ ʗZmjc?mpw$s!'nj6T}s0uaY3*'e]4zy`'fX,h.Ӆ!ad-;Ih?Dٌ~:TILS=S] "=Hϓ&|.Ύ`[_ h:V}=@-SM%KH2dmS6"w-rkF1l.q!-1,ݐ7&|M9.~ M"TNpK ~;ZH;Y[lXZ\TM˅BiTU!jq-8 g&\ޑ|ϰVy]ʿ̨%~ I?X沫ADxV,\q9ϬLK(k&pi)jDgY}S@m_Kry}=1aZg$רw޷E@J"hHJnpi~Xa^Ur 7@Y5_l3hb l86L:hE{RZMB51 $ӹ t'kyVX`WnU'פz0C ҋCA4Ӏg&7X$I?F@أUmJǟzHr#=x&Ob_C(w!Z@>R+䇚Hya{>Jb4}eم˱I>޸ HK^֣W J7]%q1i!#(GKmHӑ m}&,Nڡ^/`c}T' e2ZgzAO)Y} Id}c&&OI4iP`ovY$f@%9o;ht5.Y[$m jҷxs4.nln$7$Wu*@X?!e;K rS+`DjAEMB4Y~_@aCQ2P 6De=^ng;70 %ĈhNC?$n|At~U;FeS-پzd {U*-IzQ (& @z0 fN;":n۝-{=-K0m+z$I/I/q N bqI&?*do~ ʅRhe\Uw?rHN 'đBd}%F1LF Xj<4_$,7 )t2YK͝Gz0 % %g EP~I]\l,y(MmV7Mmɥ̍> / '|h"8k0T= l`+HsjB@T > 3 -&7]S?I^^L vS#m;(/_6P¬VHo{qTBn!GQO&TY%"krm | $HxxV  l9M?h @ڳ I8 2 (bnkQL8ױڳH.ǥ,P9KfTͦn/{ȅ٠pwfYıw@,z zKAT/ęOYxn;uNn.&R~[f PZ@(-Vn.[Bc @',4㪫bQg E(0@j*_e6q-e@Nɉ\u? {_*Մ E+{Ͼn&pm#^ c /g1z,ؖlg Ɩ ?2PFJʐʨD`[ V7`' `X@ߙ|b.QQQ5&B=a8JTq !c #R[| Ց`;28C<#~C ]9D5Ф gl9j~I 2 ?$'L ;3X VSh"н»(uzop] <v &W,.cxߥ@-qAr,x%5i/fLn\ h|'|ԄZo"bbeX7 kuemMzLso(u|E!𼈚tK8@4[ ϊuG?Z?`,9r>J~pe=ЂWGm=]G)<i6ZbMͺ^p7A- N* 'Gd'A~XX, E t}% u@JD(~aqYör,a< ._er(ILp~":řua<?ǺI mEEg> x C tՉ-P;j(}#IYnV>'3NH}+e&mRg@D;X(˅泽hl9hEҏ5 D/ȷE !y#2fVFn *D^Qz{hFxYJ8@i8xL0ę(]G*z$`ktqɠe*4@@*y3@lbG"1m~lOΞGXdP!9pI=ޜE:x$nj?h4~%ةƾ5>:9柍ppT+UJ@C(j@6) :(@7ⵄfVق(Cb/^w?o? @\Тʁ xwmfjfG+@JbY8|!䣰@4d-Ne-]9X8l@Z_Z'PRwUU C'W@6S]h'gQƔ ]\Vtp rw*gXFP uI7hf>nY6z@gTiD*zH5; -T>ͧx|5mP7K$PeG]<>P{eے: ZĭD@#3C#ӊrq}5>u6C?b_ڊ t96 Uwc@kL// IDAT!(~ݧ*.RRٽ?A#IzX@]+; S'] ,Cx:L\JIv'`q8å$WGBoz !53`ʔi!JeT"cgdU5/ L^ NtR> lmt]NE[Iajp%`u5 0P& |pQa3{o&} `FC>ի C0̅/n (pHPлhz|`aCZ? F q!+Kg߭M[[@t'vlKM||P N Wia+,hDKbhU@ ''2dGcg[h]? ;Tnz6;a xs!K@_cCFT,`~:^3L@!;-m?J4L ʒ38Qg5a?4sv5 )UC|  FQGTR :j6Cj%9}08^o]`cigO3 &E@Y id3%q2@b8 2IOD% -K~[ײ/^XnIꔐ&+qseN@Y Bt.Д8 4ϸvzr^z#XNrtLkET7;ғ8 C\\Ү >4(r&x HyK,Lu8b=OGx[GI!V'tV,w21^)cѻX@k-zjok܆ƭvYNIh~Fg u *@63- l2łu$U{; =s3!|9s9M)p?LG P FtD%0U?|m-% Ă6}2jZ0 [7 k>>Ob|| mkdG',]>~%nWH0/C:8 PEPCm'ZBSϷ:rVd!@"D@4@|GfC'ŧRl2uAP?!2 < _dn)tscb@-8@ f豗:+Vd("/WA@DySӦ>w'`AD7 -!PH gˈA%?-ݷ}4C VڴJG_|G=|ģ5w+i@p< R::֤^!C&%^ xQPҀ. i,L]+O6xT ((}R}hCvQ%ѿ|Ɠ|'Ox0_BfD>;s?=N!kW.z $@ U-H0E8#o%|@{P`CݟT=N!8`iFPiu\|K̴%,Q>>Ό taP G)~2^^g,mxz%m 57gov3T,mU.=LQ2=zԺ1Io4GlB5Ӄ`/vq! M$$ &v~ze;m@ƀ LBin`CGt~WM*|=fe87fz1xU&%GrR*IsRo=:3P)Y.P~a~5A68%nkx08Lb :AAXw`dxW7dZYB13Hp`vI@@e Pԉ=l צ<ՠThoȬ2_Lk[0 ;BBOW>P tpN U .@Vl RzIB@ˋ-@t YJP.rØlt߆N %_EM˷I{@_챼w%a}>Cb˟Z_`Rp=)/+x8@ ` {l(VϜ&Bǘט7ly;QЉ&B18P yD&g2_Ĥ:e(D0ZoO~2RcbOf&z~D+)@L)Ӯ(r`XUg = I K 5TV?$\>H/i$E°Jɏ޼d l81CglטťdžcH#;7:ʧ }d@cxCƮzqP86ijL PJ h ~xYY ,=#w@`e5f.9@ 28`b?(xnWe R=VD~u ?i5af4 2P1I@ǭ`$o|E8!HP$h" M )C@R+w@6{O4oR@V7BHh9~377KY+=#gcQB^[VT0`C-*]m#x){RQ~ >T#$g)V0"$9> lͮqf7m/!2R,88O `@758]=/" ^?n ";Q4lxT_ xk|>nx@8 ۉ#mlr9u׼i7 +(.LJ8:2-ߡӊN-\[=F '"To _:kkd޸ BK @x95yYt~0݋(QѕA@Ԥ/M/lﺙݚ:V 8__55=?UY홃~eӿ7]皹68yҦy?FbZ,=}0]N*mK2Yݿnj_"Տw֕ |M'p{`lFT6I*LUj0eUYb:aV;Zky$3 5=ŷ/a/*1`$H \#Rt[6ÝG>vpO^N~z([Թ[3ҍMP32@UiKǩT_# !d)n=xk.Ůi: t\42v*(tO_Bv_'mZJ@V}ݲ K@tgY*< ~ 8yw~[U3DP[jJ0@QZA }\pKmį`Ѽ]s{=h5P7 B-Q;z.չtes_E ?-e!y<!ʮtF_WfU;QM_ڲTr~vp <r5;8 ]|86[\?PKG^ 9x#n@n0UmW q8;#)B(% <|woз pNH8.Tz%amIpjeL_|CK@=ʺcۈ ko \.;tc16w>X˵0z/ "&5mRZ ZA)Q.kT`x=f;I  ד\=0 tC P ;|+w2QW%XlSZ{L6zC  q.sx>xph(;@:tB^9jNɔ5?/`g:waE1`|`Uci+׊JKxC׎AUcvoom` XnۨQ:@1޺@;8 !VQmv,Oug~cH< tۺ6$v`Gu#zU|vɃ| (P}ûlpaF)`>ج[e[ItJ@׍1%Q숲%Òڪv+""FvF^8] .>c(؏l%h ϹV%_v;(4 =)O[hbhvj BwK{h^7N@\F;Pڿ >k=fMp2C$ ;ﻕQkyL32%ĜO$9L$\c֌4km+ZJ .@\`@ٍ6]A YxK2JWf.‹]失2Tq>* ':.w82_i6jxG?g@ą^5KfH[xoLhzmWZ u$?(;G0/רn+ոwU\=XMxnS B^x)@+x&S(%d;Z~& <m N~8U m7[Iцx'$y~Q:w]TURe^J@ W_ Դq}hIH~[;^?S=޸t dpr,9 )<48<6D$c@fQJ@/Zh頛bL'@{|V|7׏ $oΧp?dp2rVgʕ%Ǜ_jdX @brd nVnהh/k je?S~ۂ @{G`ݹ' >E!w Cbp7ƅPgwBj-RHe7 8D_/@ h\58`{*lӔM `5PO@O7ݝ t.㻟N(vxJ@ICl#t7\7%&zx2`C7 4"{t?GJ -IDAT,߿ϓCZ+?F%($? =忡x hgHr/M'V}/V Rvi6{ RR2x 7%n6cGD.5yP|DHVND4~./j7dobĎT;H^z= юHƳfrLսl@Ҿy v9+:n'|4@BoxedhP'fG3Hn&6K@Ӄ` IԔTrS {w L^P5@ydmO >4G:]g|Ds~I(dԝ [|ivMpADjQ@ t_I;8 *K vcP} `p&;h}dNW)RT}p=<;޸spA%e:$?R Ѓ2HSO\UnW8 ._$,ݧ}> d4yû6Z%O t8!YAۦQV)2l}uM}"j2p_ti\T.t+7$YNS5\muʚJI\&8?yǪlm"o;ڑ3nY1%Vek﯄4A3^"hVdS%UT!pqG׀Pm1hS,8Э ԌP{uMEi$) 8mNΕOj %~K- @UZ+ DeG7EGpa[3fx| %+mNtW$딁=e)a* K;$DDymS (\5}с.Rs΋G_3u^QגtO|yc_zŖQ' j%*NP=C팎c`ymwFGdBkmwFGR@l~> x>f=C<\ }F,wq17}8Z ԈG—۠~O;5175룑 WLNn^qc0.+jbgf=C3:u1m^ݴAp6Jd0B#DMZq.O~ jEKyc@Prh&ot05FɊ<4ObF0ơzHFjE߅P %ǥa|kE5Ǻם׹ߤyME?$' $"vA $@{ɷ99KȊ+X>DL+Ii[z$@.pKJ.U?zV%"}34Ht9Z@αkS@Y/Njly)X1FT"W-ۮLSi)oS v^GkE=JD[SC1X0R&558%#jác;e+ܚ) -$LRQs,{5b/D. @,@:"i:S4XѻMgZD) Emd~,JZ0ﯵ4IskޤyX b'4R=ЏLc׫ ~h;_(CRbl Vskޤ}@D5d ]^e?,8LVIENDB`ggsci/man/pal_uchicago.Rd0000644000176200001440000000200015120434214015012 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-uchicago.R \name{pal_uchicago} \alias{pal_uchicago} \title{The University of Chicago color palettes} \usage{ pal_uchicago(palette = c("default", "light", "dark"), alpha = 1) } \arguments{ \item{palette}{Palette type. There are three available options: \itemize{ \item \code{"default"} (9-color palette); \item \code{"light"} (9-color light palette); \item \code{"dark"} (9-color dark palette). }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes based on the colors used by the University of Chicago. } \examples{ library("scales") show_col(pal_uchicago("default")(9)) show_col(pal_uchicago("light")(9)) show_col(pal_uchicago("dark")(9)) } \references{ \url{https://news.uchicago.edu/sites/default/files/UCM_UniversityIdentityGuidelines_2-2020.pdf} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_material.Rd0000644000176200001440000000273015120434214015040 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-material.R \name{pal_material} \alias{pal_material} \title{Material Design color palettes} \usage{ pal_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), n = 10, alpha = 1, reverse = FALSE ) } \arguments{ \item{palette}{Palette type. There are 19 available options: \itemize{ \item \code{"red"} \item \code{"pink"} \item \code{"purple"} \item \code{"deep-purple"} \item \code{"indigo"} \item \code{"blue"} \item \code{"light-blue"} \item \code{"cyan"} \item \code{"teal"} \item \code{"green"} \item \code{"light-green"} \item \code{"lime"} \item \code{"yellow"} \item \code{"amber"} \item \code{"orange"} \item \code{"deep-orange"} \item \code{"brown"} \item \code{"grey"} \item \code{"blue-grey"} }} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Material Design 2 color palettes. } \examples{ library("scales") show_col(pal_material("indigo")(10)) show_col(pal_material("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_flatui.Rd0000644000176200001440000000274015120434214015042 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-flatui.R \name{scale_color_flatui} \alias{scale_color_flatui} \alias{scale_colour_flatui} \alias{scale_fill_flatui} \title{Flat UI color scales} \usage{ scale_color_flatui( palette = c("default", "flattastic", "aussie"), alpha = 1, ... ) scale_colour_flatui( palette = c("default", "flattastic", "aussie"), alpha = 1, ... ) scale_fill_flatui( palette = c("default", "flattastic", "aussie"), alpha = 1, ... ) } \arguments{ \item{palette}{Palette type. Currently there are three available options: \itemize{ \item \code{"default"} (10-color palette). \item \code{"flattastic"} (12-color palette). \item \code{"aussie"} (10-color palette). }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_flatui]{pal_flatui()}} for details. } \examples{ p1 <- example_scatterplot() p2 <- example_barplot() p1 + scale_color_flatui() p2 + scale_fill_flatui() p1 + scale_color_flatui(palette = "default") p2 + scale_fill_flatui(palette = "default") p1 + scale_color_flatui(palette = "flattastic") p2 + scale_fill_flatui(palette = "flattastic") p1 + scale_color_flatui(palette = "aussie") p2 + scale_fill_flatui(palette = "aussie") } \author{ Clara Jégousse | \email{cat3@hi.is} } ggsci/man/pal_igv.Rd0000644000176200001440000000201415120434214014022 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-igv.R \name{pal_igv} \alias{pal_igv} \title{Integrative Genomics Viewer (IGV) color palettes} \usage{ pal_igv(palette = c("default", "alternating"), alpha = 1) } \arguments{ \item{palette}{Palette type. There are two available options: \itemize{ \item \code{"default"} (51-color palette). \item \code{"alternating"} (2-color palette). }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes based on the colors used by Integrative Genomics Viewer (IGV). } \examples{ library("scales") show_col(pal_igv("default")(51)) show_col(pal_igv("alternating")(2)) } \references{ James T. Robinson, Helga Thorvaldsdóttir, Wendy Winckler, Mitchell Guttman, Eric S. Lander, Gad Getz, Jill P. Mesirov. Integrative Genomics Viewer. \emph{Nature Biotechnology} 29, 24--26 (2011). } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_tw3.Rd0000644000176200001440000000273015120434214013757 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-tw3.R \name{pal_tw3} \alias{pal_tw3} \title{Tailwind CSS color palettes} \usage{ pal_tw3( palette = c("slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose"), n = 10, alpha = 1, reverse = FALSE ) } \arguments{ \item{palette}{Palette type. There are 22 available options: \itemize{ \item \code{"slate"} \item \code{"gray"} \item \code{"zinc"} \item \code{"neutral"} \item \code{"stone"} \item \code{"red"} \item \code{"orange"} \item \code{"amber"} \item \code{"yellow"} \item \code{"lime"} \item \code{"green"} \item \code{"emerald"} \item \code{"teal"} \item \code{"cyan"} \item \code{"sky"} \item \code{"blue"} \item \code{"indigo"} \item \code{"violet"} \item \code{"purple"} \item \code{"fuchsia"} \item \code{"pink"} \item \code{"rose"} }} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Tailwind CSS color palettes. } \examples{ library("scales") show_col(pal_tw3("rose")(10)) show_col(pal_tw3("rose", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/rgb_tw3.Rd0000644000176200001440000000303515120434214013754 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-tw3.R \name{rgb_tw3} \alias{rgb_tw3} \title{Tailwind CSS color palettes} \usage{ rgb_tw3( palette = c("slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose"), n = 10, alpha = 1, reverse = FALSE ) } \arguments{ \item{palette}{Palette type. There are 22 available options: \itemize{ \item \code{"slate"} \item \code{"gray"} \item \code{"zinc"} \item \code{"neutral"} \item \code{"stone"} \item \code{"red"} \item \code{"orange"} \item \code{"amber"} \item \code{"yellow"} \item \code{"lime"} \item \code{"green"} \item \code{"emerald"} \item \code{"teal"} \item \code{"cyan"} \item \code{"sky"} \item \code{"blue"} \item \code{"indigo"} \item \code{"violet"} \item \code{"purple"} \item \code{"fuchsia"} \item \code{"pink"} \item \code{"rose"} }} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Tailwind CSS color palettes. } \examples{ library("scales") show_col(pal_tw3("rose")(10)) show_col(pal_tw3("rose", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \references{ \url{https://tailwindcss.com/docs/customizing-colors} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_ucscgb.Rd0000644000176200001440000000135315120434214014510 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-ucscgb.R \name{pal_ucscgb} \alias{pal_ucscgb} \title{UCSC Genome Browser color palette} \usage{ pal_ucscgb(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (26-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palette from UCSC Genome Browser chromosome colors. } \examples{ library("scales") show_col(pal_ucscgb("default")(26)) show_col(pal_ucscgb("default", alpha = 0.6)(26)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/rgb_material.Rd0000644000176200001440000000304715120434214015040 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-material.R \name{rgb_material} \alias{rgb_material} \title{Material Design color palettes} \usage{ rgb_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), n = 10, alpha = 1, reverse = FALSE ) } \arguments{ \item{palette}{Palette type. There are 19 available options: \itemize{ \item \code{"red"} \item \code{"pink"} \item \code{"purple"} \item \code{"deep-purple"} \item \code{"indigo"} \item \code{"blue"} \item \code{"light-blue"} \item \code{"cyan"} \item \code{"teal"} \item \code{"green"} \item \code{"light-green"} \item \code{"lime"} \item \code{"yellow"} \item \code{"amber"} \item \code{"orange"} \item \code{"deep-orange"} \item \code{"brown"} \item \code{"grey"} \item \code{"blue-grey"} }} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Material Design 2 color palettes. } \examples{ library("scales") show_col(pal_material("indigo")(10)) show_col(pal_material("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \references{ \url{https://m2.material.io/design/color/the-color-system.html} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_simpsons.Rd0000644000176200001440000000205315120434214015426 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-simpsons.R \name{scale_color_simpsons} \alias{scale_color_simpsons} \alias{scale_colour_simpsons} \alias{scale_fill_simpsons} \title{The Simpsons color scales} \usage{ scale_color_simpsons(palette = c("springfield"), alpha = 1, ...) scale_colour_simpsons(palette = c("springfield"), alpha = 1, ...) scale_fill_simpsons(palette = c("springfield"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"springfield"} (16-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_simpsons]{pal_simpsons()}} for details. } \examples{ example_scatterplot() + scale_color_simpsons() example_barplot() + scale_fill_simpsons() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_d3.Rd0000644000176200001440000000205415120434214013547 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-d3.R \name{pal_d3} \alias{pal_d3} \title{D3.js color palettes} \usage{ pal_d3( palette = c("category10", "category20", "category20b", "category20c"), alpha = 1 ) } \arguments{ \item{palette}{Palette type. There are four available options: \itemize{ \item \code{"category10"} (10-color palette). \item \code{"category20"} (20-color palette). \item \code{"category20b"} (20-color palette). \item \code{"category20c"} (20-color palette). }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes based on the colors used by D3.js. } \examples{ library("scales") show_col(pal_d3("category10")(10)) show_col(pal_d3("category20")(20)) show_col(pal_d3("category20b")(20)) show_col(pal_d3("category20c")(20)) } \references{ \url{https://github.com/d3/d3-3.x-api-reference/blob/master/Ordinal-Scales.md} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_jco.Rd0000644000176200001440000000136115120434214014014 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-jco.R \name{pal_jco} \alias{pal_jco} \title{Journal of Clinical Oncology color palettes} \usage{ pal_jco(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palette inspired by plots in \emph{Journal of Clinical Oncology}. } \examples{ library("scales") show_col(pal_jco("default")(10)) show_col(pal_jco("default", alpha = 0.6)(10)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_bmj.Rd0000644000176200001440000000202415120434214014321 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-bmj.R \name{scale_color_bmj} \alias{scale_color_bmj} \alias{scale_colour_bmj} \alias{scale_fill_bmj} \title{BMJ color scales} \usage{ scale_color_bmj(palette = c("default"), alpha = 1, ...) scale_colour_bmj(palette = c("default"), alpha = 1, ...) scale_fill_bmj(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (9-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_bmj]{pal_bmj()}} for details. } \examples{ example_scatterplot() + scale_color_bmj() example_barplot() + scale_fill_bmj() } \references{ \url{https://technology.bmj.com/living-style-guide/colour.html} } \author{ Hui Chen | \email{huichen@zju.edu.cn} } ggsci/man/scale_tron.Rd0000644000176200001440000000240615120434214014537 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-tron.R \name{scale_color_tron} \alias{scale_color_tron} \alias{scale_colour_tron} \alias{scale_fill_tron} \title{Tron Legacy color scales} \usage{ scale_color_tron(palette = c("legacy"), alpha = 1, ...) scale_colour_tron(palette = c("legacy"), alpha = 1, ...) scale_fill_tron(palette = c("legacy"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"legacy"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_tron]{pal_tron()}} for details. } \examples{ example_scatterplot() + ggplot2::theme_dark() + ggplot2::theme( panel.background = ggplot2::element_rect(fill = "#2D2D2D"), legend.key = ggplot2::element_rect(fill = "#2D2D2D") ) + scale_color_tron() example_barplot() + ggplot2::theme_dark() + ggplot2::theme( panel.background = ggplot2::element_rect(fill = "#2D2D2D") ) + scale_fill_tron() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_jco.Rd0000644000176200001440000000175715120434214014340 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-jco.R \name{scale_color_jco} \alias{scale_color_jco} \alias{scale_colour_jco} \alias{scale_fill_jco} \title{Journal of Clinical Oncology color scales} \usage{ scale_color_jco(palette = c("default"), alpha = 1, ...) scale_colour_jco(palette = c("default"), alpha = 1, ...) scale_fill_jco(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_jco]{pal_jco()}} for details. } \examples{ example_scatterplot() + scale_color_jco() example_barplot() + scale_fill_jco() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_atlassian.Rd0000644000176200001440000000167115120434214015224 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-atlassian.R \name{pal_atlassian} \alias{pal_atlassian} \title{Atlassian Design System palette} \usage{ pal_atlassian(palette = c("categorical8"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"categorical8"} (8-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ The Atlassian Design System categorical data visualization palette. } \examples{ library("scales") show_col(pal_atlassian("categorical8")(8)) show_col(pal_atlassian("categorical8", alpha = 0.6)(8)) } \references{ Atlassian (2025). "Atlassian Design System categorical chart colors." \url{https://atlassian.design/foundations/color-new/data-visualization-color} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_startrek.Rd0000644000176200001440000000136115120434214015100 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-startrek.R \name{pal_startrek} \alias{pal_startrek} \title{Star Trek color palettes} \usage{ pal_startrek(palette = c("uniform"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"uniform"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Star Trek}. } \examples{ library("scales") show_col(pal_startrek("uniform")(7)) show_col(pal_startrek("uniform", alpha = 0.6)(7)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_iterm.Rd0000644000176200001440000000240615120434214014675 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-iterm.R \name{scale_color_iterm} \alias{scale_color_iterm} \alias{scale_colour_iterm} \alias{scale_fill_iterm} \title{iTerm color scales} \usage{ scale_color_iterm( palette = iterm_palettes(), variant = c("normal", "bright"), alpha = 1, ... ) scale_colour_iterm( palette = iterm_palettes(), variant = c("normal", "bright"), alpha = 1, ... ) scale_fill_iterm( palette = iterm_palettes(), variant = c("normal", "bright"), alpha = 1, ... ) } \arguments{ \item{palette}{Palette name. See \code{\link[=iterm_palettes]{iterm_palettes()}} for available options.} \item{variant}{Variant of the palette. One of \code{"normal"}, \code{"bright"}.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_iterm]{pal_iterm()}} for details. } \details{ Preview all available iTerm color palettes in ggsci: \url{https://nanx.me/ggsci-iterm/}. } \examples{ example_scatterplot() + scale_color_iterm("Rose Pine") example_barplot() + scale_fill_iterm("Rose Pine") } ggsci/man/scale_aaas.Rd0000644000176200001440000000200615120434214014456 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-aaas.R \name{scale_color_aaas} \alias{scale_color_aaas} \alias{scale_colour_aaas} \alias{scale_fill_aaas} \title{AAAS journal color scales} \usage{ scale_color_aaas(palette = c("default"), alpha = 1, ...) scale_colour_aaas(palette = c("default"), alpha = 1, ...) scale_fill_aaas(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette inspired by \emph{Science}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_aaas]{pal_aaas()}} for details. } \examples{ example_scatterplot() + scale_color_aaas() example_barplot() + scale_fill_aaas() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_primer.Rd0000644000176200001440000000217615120434214015057 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-primer.R \name{scale_color_primer} \alias{scale_color_primer} \alias{scale_colour_primer} \alias{scale_fill_primer} \title{Primer color scales} \usage{ scale_color_primer(palette = c("mark17"), alpha = 1, ...) scale_colour_primer(palette = c("mark17"), alpha = 1, ...) scale_fill_primer(palette = c("mark17"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"mark17"} (17-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_primer]{pal_primer()}} for details. } \examples{ example_scatterplot() + scale_color_primer() example_barplot() + scale_fill_primer() } \references{ GitHub (2025). "Primer data visualization colors." \url{https://primer.style/product/ui-patterns/data-visualization/} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_simpsons.Rd0000644000176200001440000000141215120434214015111 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-simpsons.R \name{pal_simpsons} \alias{pal_simpsons} \title{The Simpsons color palettes} \usage{ pal_simpsons(palette = c("springfield"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"springfield"} (16-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by the colors used in \emph{The Simpsons}. } \examples{ library("scales") show_col(pal_simpsons("springfield")(16)) show_col(pal_simpsons("springfield", alpha = 0.6)(16)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/ggsci-package.Rd0000644000176200001440000000242715120434214015076 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/ggsci-package.R \docType{package} \name{ggsci-package} \alias{ggsci} \alias{ggsci-package} \title{ggsci: Scientific Journal and Sci-Fi Themed Color Palettes for 'ggplot2'} \description{ \if{html}{\figure{logo.png}{options: style='float: right' alt='logo' width='120'}} A collection of 'ggplot2' color palettes inspired by plots in scientific journals, data visualization libraries, science fiction movies, and TV shows. } \seealso{ Useful links: \itemize{ \item \url{https://nanx.me/ggsci/} \item \url{https://github.com/nanxstats/ggsci} \item Report bugs at \url{https://github.com/nanxstats/ggsci/issues} } } \author{ \strong{Maintainer}: Nan Xiao \email{me@nanx.me} (\href{https://orcid.org/0000-0002-0250-5673}{ORCID}) [copyright holder] Other contributors: \itemize{ \item Joshua Cook \email{joshuacook0023@gmail.com} [contributor] \item Clara Jégousse \email{cat3@hi.is} [contributor] \item Hui Chen \email{huichen@zju.edu.cn} [contributor] \item Miaozhu Li \email{miaozhu.li@duke.edu} [contributor] \item iTerm2-Color-Schemes contributors (iTerm2-Color-Schemes project) [contributor, copyright holder] \item Winston Chang (staticimports.R) [contributor, copyright holder] } } \keyword{internal} ggsci/man/rgb_bs5.Rd0000644000176200001440000000233315120434214013730 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-bs5.R \name{rgb_bs5} \alias{rgb_bs5} \title{Bootstrap 5 color palettes} \usage{ rgb_bs5( palette = c("blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray"), n = 10, alpha = 1, reverse = FALSE ) } \arguments{ \item{palette}{Palette type. There are 11 available options: \itemize{ \item \code{"blue"} \item \code{"indigo"} \item \code{"purple"} \item \code{"pink"} \item \code{"red"} \item \code{"orange"} \item \code{"yellow"} \item \code{"green"} \item \code{"teal"} \item \code{"cyan"} \item \code{"gray"} }} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Bootstrap 5 color palettes. } \examples{ library("scales") show_col(pal_bs5("indigo")(10)) show_col(pal_bs5("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \references{ \url{https://getbootstrap.com/docs/5.3/customize/color/#all-colors} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_tw3.Rd0000644000176200001440000000460715120434214014277 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-tw3.R \name{scale_color_tw3} \alias{scale_color_tw3} \alias{scale_colour_tw3} \alias{scale_fill_tw3} \title{Tailwind CSS color scales} \usage{ scale_color_tw3( palette = c("slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose"), alpha = 1, reverse = FALSE, ... ) scale_colour_tw3( palette = c("slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose"), alpha = 1, reverse = FALSE, ... ) scale_fill_tw3( palette = c("slate", "gray", "zinc", "neutral", "stone", "red", "orange", "amber", "yellow", "lime", "green", "emerald", "teal", "cyan", "sky", "blue", "indigo", "violet", "purple", "fuchsia", "pink", "rose"), alpha = 1, reverse = FALSE, ... ) } \arguments{ \item{palette}{Palette type. There are 22 available options: \itemize{ \item \code{"slate"} \item \code{"gray"} \item \code{"zinc"} \item \code{"neutral"} \item \code{"stone"} \item \code{"red"} \item \code{"orange"} \item \code{"amber"} \item \code{"yellow"} \item \code{"lime"} \item \code{"green"} \item \code{"emerald"} \item \code{"teal"} \item \code{"cyan"} \item \code{"sky"} \item \code{"blue"} \item \code{"indigo"} \item \code{"violet"} \item \code{"purple"} \item \code{"fuchsia"} \item \code{"pink"} \item \code{"rose"} }} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_tw3]{pal_tw3()}} for details. } \examples{ library("ggplot2") data("mtcars") cor <- abs(cor(mtcars)) cor_melt <- data.frame( Var1 = rep(seq_len(nrow(cor)), times = ncol(cor)), Var2 = rep(seq_len(ncol(cor)), each = nrow(cor)), value = as.vector(cor) ) ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", size = 0.3) + theme_bw() + scale_fill_tw3("slate") } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_cosmic.Rd0000644000176200001440000000274415120434214015037 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-cosmic.R \name{scale_color_cosmic} \alias{scale_color_cosmic} \alias{scale_colour_cosmic} \alias{scale_fill_cosmic} \title{COSMIC color scales} \usage{ scale_color_cosmic( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ... ) scale_colour_cosmic( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ... ) scale_fill_cosmic( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ... ) } \arguments{ \item{palette}{Palette type. Currently there are three available options: \itemize{ \item \code{"signature_substitutions"} (6-color palette). \item \code{"hallmarks_light"} (10-color palette). \item \code{"hallmarks_dark"} (10-color palette). } The \code{"hallmarks_light"} option is from \href{https://pubmed.ncbi.nlm.nih.gov/21376230/}{Hanahan and Weinberg (2011)}.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_cosmic]{pal_cosmic()}} for details. } \examples{ example_scatterplot() + scale_color_cosmic() example_barplot() + scale_fill_cosmic() } \author{ Joshua H. Cook | \email{joshuacook0023@gmail.com} | \href{https://github.com/jhrcook}{@jhrcook} } ggsci/man/pal_bs5.Rd0000644000176200001440000000221015120434214013724 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-bs5.R \name{pal_bs5} \alias{pal_bs5} \title{Bootstrap 5 color palettes} \usage{ pal_bs5( palette = c("blue", "indigo", "purple", "pink", "red", "orange", "yellow", "green", "teal", "cyan", "gray"), n = 10, alpha = 1, reverse = FALSE ) } \arguments{ \item{palette}{Palette type. There are 11 available options: \itemize{ \item \code{"blue"} \item \code{"indigo"} \item \code{"purple"} \item \code{"pink"} \item \code{"red"} \item \code{"orange"} \item \code{"yellow"} \item \code{"green"} \item \code{"teal"} \item \code{"cyan"} \item \code{"gray"} }} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Bootstrap 5 color palettes. } \examples{ library("scales") show_col(pal_bs5("indigo")(10)) show_col(pal_bs5("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_bmj.Rd0000644000176200001440000000137315120434214014014 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-bmj.R \name{pal_bmj} \alias{pal_bmj} \title{BMJ color palettes} \usage{ pal_bmj(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (9-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palette from the BMJ living style guide. } \examples{ library("scales") show_col(pal_bmj("default")(9)) show_col(pal_bmj("default", alpha = 0.6)(9)) } \references{ \url{https://technology.bmj.com/living-style-guide/colour.html} } \author{ Hui Chen | \email{huichen@zju.edu.cn} } ggsci/man/pal_aaas.Rd0000644000176200001440000000156215120434214014151 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-aaas.R \name{pal_aaas} \alias{pal_aaas} \title{AAAS journal color palettes} \usage{ pal_aaas(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette inspired by \emph{Science}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} } \description{ Color palettes inspired by plots in journals published by American Association for the Advancement of Science (AAAS), such as \emph{Science} and \emph{Science Translational Medicine}. } \examples{ library("scales") show_col(pal_aaas("default")(10)) show_col(pal_aaas("default", alpha = 0.6)(10)) } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_lancet.Rd0000644000176200001440000000204315120434214015020 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-lancet.R \name{scale_color_lancet} \alias{scale_color_lancet} \alias{scale_colour_lancet} \alias{scale_fill_lancet} \title{Lancet journal color scales} \usage{ scale_color_lancet(palette = c("lanonc"), alpha = 1, ...) scale_colour_lancet(palette = c("lanonc"), alpha = 1, ...) scale_fill_lancet(palette = c("lanonc"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"lanonc"} (9-color palette inspired by \emph{Lancet Oncology}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices:rgb]{grDevices::rgb()}} for details.} \item{...}{Additional parameters for \code{\link[ggplot2:discrete_scale]{ggplot2::discrete_scale()}}.} } \description{ See \code{\link[=pal_lancet]{pal_lancet()}} for details. } \examples{ example_scatterplot() + scale_color_lancet() example_barplot() + scale_fill_lancet() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/DESCRIPTION0000644000176200001440000000331115120462532013052 0ustar liggesusersPackage: ggsci Type: Package Title: Scientific Journal and Sci-Fi Themed Color Palettes for 'ggplot2' Version: 4.2.0 Authors@R: c( person("Nan", "Xiao", email = "me@nanx.me", role = c("aut", "cre", "cph"), comment = c(ORCID = "0000-0002-0250-5673")), person("Joshua", "Cook", email = "joshuacook0023@gmail.com", role = "ctb"), person("Clara", "Jégousse", email = "cat3@hi.is", role = "ctb"), person("Hui", "Chen", email = "huichen@zju.edu.cn", role = "ctb"), person("Miaozhu", "Li", email = "miaozhu.li@duke.edu", role = "ctb"), person("iTerm2-Color-Schemes contributors", role = c("ctb", "cph"), comment = "iTerm2-Color-Schemes project"), person("Winston", "Chang", role = c("ctb", "cph"), comment = "staticimports.R") ) Maintainer: Nan Xiao Description: A collection of 'ggplot2' color palettes inspired by plots in scientific journals, data visualization libraries, science fiction movies, and TV shows. License: GPL (>= 3) URL: https://nanx.me/ggsci/, https://github.com/nanxstats/ggsci BugReports: https://github.com/nanxstats/ggsci/issues Depends: R (>= 3.5.0) Imports: ggplot2 (>= 2.0.0), grDevices, rlang, scales Suggests: gridExtra, knitr, ragg, rmarkdown VignetteBuilder: knitr Encoding: UTF-8 RoxygenNote: 7.3.3 NeedsCompilation: no Packaged: 2025-12-17 04:59:09 UTC; nanx Author: Nan Xiao [aut, cre, cph] (ORCID: ), Joshua Cook [ctb], Clara Jégousse [ctb], Hui Chen [ctb], Miaozhu Li [ctb], iTerm2-Color-Schemes contributors [ctb, cph] (iTerm2-Color-Schemes project), Winston Chang [ctb, cph] (staticimports.R) Repository: CRAN Date/Publication: 2025-12-17 08:10:02 UTC