ggsci/0000755000176200001440000000000014634151262011352 5ustar liggesusersggsci/MD50000644000176200001440000001604614634151262011671 0ustar liggesusersa7b7734bad67c9460f29a231e350209a *DESCRIPTION b98ef0b2a1a89eb4ddfa2a155141930b *NAMESPACE ef446bb3b8828cb57658e101f6e8be8b *NEWS.md 599dbb5834e70ffaa183a93e435d6fe5 *R/continuous-bs5.R c70e63c44fdfb91fc439bfa1fc15897c *R/continuous-gsea.R 695cce33a67e622e232d7a70f3d4c662 *R/continuous-material.R 3504f25c307305830652a4e339d1a267 *R/continuous-tw3.R 1457bc0637d4e8738cda009beb990e7d *R/discrete-aaas.R dafb4a50fa105fd97b7262afc123ba82 *R/discrete-bmj.R 4cb684f586695098410123ea88e90d31 *R/discrete-cosmic.R 41ed0e3329eac0c377f377600ab98a3f *R/discrete-d3.R 4f449b08729e5c267ab81712055e9af2 *R/discrete-flatui.R 0461e243a8814cbe95b6a2360d0bb3e7 *R/discrete-frontiers.R 427579ac10b9b36f454e645de2e8d3d9 *R/discrete-futurama.R 7868639954b84174d76192f87edb9dbf *R/discrete-igv.R fef0e79acf0a7f689662799fce414150 *R/discrete-jama.R e34ecd734219c292d98a3fa9bf934336 *R/discrete-jco.R 9f1af5a764ed821a86699c89eb6d00b8 *R/discrete-lancet.R f97ca6c7353e41de4c4c68405df6ced6 *R/discrete-locuszoom.R 4b8a6676d941900f2c7f99412ddde447 *R/discrete-nejm.R aca242f7ca4598e76ada64f5d864cf15 *R/discrete-npg.R e0b9b9eeb9da71b9bc322f8eaa3dcf70 *R/discrete-observable.R 6f19a30d2a4961443bbf9aea510400b0 *R/discrete-rickandmorty.R be0cd3fb12d344adee5d86d55c49671b *R/discrete-simpsons.R 6dd7d1f396a5c142c194eb28c73ef098 *R/discrete-startrek.R 1291adc57fbdd851a1623495ef470f6c *R/discrete-tron.R 72461bef109a6876ae720e4c8f7f589b *R/discrete-uchicago.R 26726f91c88d0c63e5b72f974cb5de36 *R/discrete-ucscgb.R b4fe12876c37f8a22cde06e9701eecf0 *R/ggsci-package.R 55467d441e70fb9037870747911e8b0d *R/palettes.R b88c603f73223fa35a671494e4347018 *R/utils.R ba4cf8cfc5d58480b842365b154da133 *README.md 0eb69511b3bc0080be960a3654cde33a *build/vignette.rds d49cf3431ce2a22d97fc738c27a2b237 *inst/WORDLIST 71a82d97ae0094c9510e36bdd5594016 *inst/doc/ggsci-faq.R 99b408fbb27671330d03a8f101b37e59 *inst/doc/ggsci-faq.Rmd 79818b46e5c6589f7e919ca808595a95 *inst/doc/ggsci-faq.html b673d2611b54fc4d72f6614eb756135d *inst/doc/ggsci.R 6eae9c7e56d8321e02846da872d1b6ad *inst/doc/ggsci.Rmd f9a00d49a4578924f0bc6fb9172c067e *inst/doc/ggsci.html d4df7d39cc27a5c29cf3f19bd9b12f55 *inst/logo/logo.R 01103b55e3fac7bf0166cd0aa0e26666 *man/figures/README-ggsci-aaas-1.png 8740c9e92086b071d0b84f135fc00612 *man/figures/README-ggsci-bmj-1.png 5506da72a347729405178ab150502e6c *man/figures/README-ggsci-bs5-1.png 2f0c78d6bd80bc858ca28a92bb139669 *man/figures/README-ggsci-cosmic-1.png 8580f97fcc675e7b303a4d07779855c1 *man/figures/README-ggsci-cosmic-2.png b376754e2b3bf509d186535f7df5d9ac *man/figures/README-ggsci-cosmic-3.png 037288200445be9670bc9d2d96f7fb46 *man/figures/README-ggsci-d3-1.png 3f483607453320297b1ef22e58f028db *man/figures/README-ggsci-flatui-1.png 8c9f88d439147efb12030299a9c3c2d0 *man/figures/README-ggsci-frontiers-1.png 96df87ade4fa29a50012b0e785811f2c *man/figures/README-ggsci-futurama-1.png 2c59f4f000c2985e262ecccd22e3e1a7 *man/figures/README-ggsci-gsea-1.png 9f0bd7cdfe716b71b4053a1dad853c39 *man/figures/README-ggsci-igv-1.png 1e108c2a0c1cbf72e98e8ba128f22881 *man/figures/README-ggsci-jama-1.png 148bd9182cda6524c31efc8bca26dea8 *man/figures/README-ggsci-jco-1.png b72d9f1146ab3aba960fb4693183b1e0 *man/figures/README-ggsci-lancet-1.png 2004f4489e6a9046f982c6cf39f085b0 *man/figures/README-ggsci-locuszoom-1.png b66d16660126937a3ee8511c4625b81c *man/figures/README-ggsci-material-1.png c456baca1e4849776e8e07404ceb31ff *man/figures/README-ggsci-nejm-1.png 238b924bd2a7dc399c0d3e7e6572233c *man/figures/README-ggsci-npg-1.png 26096b8c25feb21a1793c8733bc42542 *man/figures/README-ggsci-observable-1.png 30a8be942be36a1a2f1958f39934a6e2 *man/figures/README-ggsci-rickandmorty-1.png 07ac59fa3b521fcb6c9500dcf1922cb2 *man/figures/README-ggsci-simpsons-1.png 4704c27397d683253117d882ed1f496c *man/figures/README-ggsci-startrek-1.png 30da800a5657b4850b03f03c26101076 *man/figures/README-ggsci-tron-1.png deba56f313970d615d57ccc2c91c025c *man/figures/README-ggsci-tw3-1.png 90f4b522f2c486c550b6be2e3ca760f7 *man/figures/README-ggsci-uchicago-1.png 1167411f9aa590bad2d57245372a94e0 *man/figures/README-ggsci-ucscgb-1.png 5f2440dd715678c9705ac7066611e816 *man/figures/logo.png fbcdbfe72c16524e3477bd769a1a529b *man/ggsci-package.Rd ea10b8afcca2c7f26c9a78200cb0ec15 *man/pal_aaas.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 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 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 231a4af2146eaa059adbfc8a8c4d2548 *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 6bd42cc1f3844c73d828a7351f3b5e44 *man/scale_aaas.Rd 01d60f56aa2304267791a80beee8d1b9 *man/scale_bmj.Rd 4fe8b80e47c0bfceab7d39c6ebab8283 *man/scale_bs5.Rd 10e60fca266771a49f26325d74398a3d *man/scale_cosmic.Rd 45dcbc9ea0dfb5ab4f15c81fc6c0e04c *man/scale_d3.Rd f5bb9bf4039e9aa7eceb2b12cfce274c *man/scale_flatui.Rd 513195acef66f3e341e188263dfe7ef3 *man/scale_frontiers.Rd dd77d70b11e60baa64fb44c58b894104 *man/scale_futurama.Rd 94bcf651ad5d23fec16c2e994b21c091 *man/scale_gsea.Rd dd090104c94454e616b286b4417e02c8 *man/scale_igv.Rd d6de6f122f1116e071f26e0168faedfe *man/scale_jama.Rd 97652667aa7b3f265391993a09d4b355 *man/scale_jco.Rd 270f1bfdc49abd67b93791dcd9905d3f *man/scale_lancet.Rd 00722895802e26281ed0cc42f2f593ef *man/scale_locuszoom.Rd 60eb6f60dfbbe066b160428409f13606 *man/scale_material.Rd ea5b5e1511d4e70e8cbcbb65576e298d *man/scale_nejm.Rd 113ef7c7745c5fd873f1fcf8b2e45f57 *man/scale_npg.Rd f0a18fa49e0e96146cfe800bb2380d29 *man/scale_observable.Rd 1aa9f857135b6515a1478d5b22c952c7 *man/scale_rickandmorty.Rd a26929786eb3542356c8f7d1c65c9107 *man/scale_simpsons.Rd 8d3757cc9a1dc834adfbdacb35d3f40f *man/scale_startrek.Rd 3da9b4b34453ca0630608751fbc03135 *man/scale_tron.Rd 54e3850cc7b1c4e11cc1522cd4faf19d *man/scale_tw3.Rd 1165374e7ad470f7b863344a636ba52f *man/scale_uchicago.Rd 898cb525813858c0756c95ca6d575df5 *man/scale_ucscgb.Rd 4eacfa48d71283d7a0f553326f306624 *vignettes/custom.css 99b408fbb27671330d03a8f101b37e59 *vignettes/ggsci-faq.Rmd 6eae9c7e56d8321e02846da872d1b6ad *vignettes/ggsci.Rmd ggsci/R/0000755000176200001440000000000014634136357011563 5ustar liggesusersggsci/R/discrete-igv.R0000644000176200001440000000622314634136357014276 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 #' library("ggplot2") #' data("diamonds") #' #' p1 <- ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() #' #' p2 <- ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() #' #' p1 + scale_color_igv() #' p2 + scale_fill_igv() #' #' p1 + scale_colour_manual( #' values = rep(pal_igv("alternating")(2), times = 3) #' ) #' p2 + 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.R0000644000176200001440000000520414634136357014440 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_nejm() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000004114634136357014366 0ustar liggesusers#' @keywords internal "_PACKAGE" ggsci/R/discrete-ucscgb.R0000644000176200001440000000530314634136357014755 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_ucscgb() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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/discrete-uchicago.R0000644000176200001440000000653314634136357015277 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 #' library("ggplot2") #' data("diamonds") #' #' p1 <- ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() #' #' p2 <- ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() #' #' 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.R0000644000176200001440000000657614634136357014032 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 #' library("ggplot2") #' data("diamonds") #' #' p1 <- ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() #' #' p2 <- ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() #' #' 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.R0000644000176200001440000000540414634136357015335 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_futurama() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000677714634136357015004 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_cosmic() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000552014634136357014472 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_dark() + #' theme( #' panel.background = element_rect(fill = "#2D2D2D"), #' legend.key = element_rect(fill = "#2D2D2D") #' ) + #' scale_color_tron() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_dark() + #' theme( #' panel.background = 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.R0000644000176200001440000000522414634136357014264 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_jco() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000625214634136357014777 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 #' library("ggplot2") #' data("diamonds") #' #' p1 <- ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() #' #' p2 <- ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() #' #' 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/discrete-rickandmorty.R0000644000176200001440000000553414634136357016223 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_rickandmorty() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000540414634136357015364 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_simpsons() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000613414634136357015636 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_observable() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000534014634136357015347 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_startrek() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000535014634136357014757 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_lancet() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000571514634136357015531 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_dark() + #' theme( #' panel.background = element_rect(fill = "#2D2D2D"), #' legend.key = element_rect(fill = "#2D2D2D") #' ) + #' scale_color_frontiers() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_dark() + #' theme( #' panel.background = 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.R0000644000176200001440000006757014634136357013546 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" ) # 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.R0000644000176200001440000000533614634136357014425 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_jama() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000424214634136357013050 0ustar liggesusers# These functions: # - `is_installed()` # - `get_package_version()` # - `system_file_cached()` # were sourced from the shiny package version 1.8.0, available at # . # # For the original version of these functions, please see: # . # # The shiny package is licensed under the GNU General Public License version 3. # For more details on the license, see # . 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) } 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"]]) } } # 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, ...) } }) is_ggplot2_350 <- function() { is_installed("ggplot2", version = "3.5.0") } ggsci/R/continuous-gsea.R0000644000176200001440000000714114634136357015034 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.R0000644000176200001440000000526214634136357014277 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_npg() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000750514634136357014612 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.R0000644000176200001440000000542414634136357014420 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_aaas() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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.R0000644000176200001440000000564114634136357015546 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_locuszoom() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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/continuous-tw3.R0000644000176200001440000001063614634136357014635 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/continuous-material.R0000644000176200001440000001104214634136357015706 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.R0000644000176200001440000000532514634136357014263 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 #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + #' scale_color_bmj() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + #' 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/vignettes/0000755000176200001440000000000014634136401013360 5ustar liggesusersggsci/vignettes/ggsci-faq.Rmd0000644000176200001440000000646114634136357015706 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.Rmd0000644000176200001440000006145214634136357015142 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()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | 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} library("ggsci") library("ggplot2") library("gridExtra") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() ``` ### 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) ``` ### 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/attachments/_uchicago.identity.guidelines.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.css0000644000176200001440000000562614634136357015427 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/NAMESPACE0000644000176200001440000000541414634136357012605 0ustar liggesusers# Generated by roxygen2: do not edit by hand export(pal_aaas) 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_jama) export(pal_jco) export(pal_lancet) export(pal_locuszoom) export(pal_material) export(pal_nejm) export(pal_npg) export(pal_observable) 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_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_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_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_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_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_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_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_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_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(scales,manual_pal) ggsci/NEWS.md0000644000176200001440000001005414634136357012460 0ustar liggesusers# 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 ([a91faf1](https://github.com/nanxstats/ggsci/commit/a91faf183ae44fe43355283c173a1e2de70de6d2)). # 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/0000755000176200001440000000000014634136401012325 5ustar liggesusersggsci/inst/logo/0000755000176200001440000000000014634136357013277 5ustar liggesusersggsci/inst/logo/logo.R0000644000176200001440000000070414634136357014363 0ustar liggesuserslibrary("magick") library("showtext") font_add_google("Zilla Slab", "pf", regular.wt = 500) hexSticker::sticker( subplot = ~ plot.new(), s_x = 1, s_y = 1, s_width = 0.1, s_height = 0.1, package = "ggsci", p_x = 1, p_y = 1, p_size = 12, h_size = 1.2, p_family = "pf", p_color = "#F06060", h_fill = "#FFF9F2", h_color = "#F06060", dpi = 320, filename = "man/figures/logo.png" ) image_read("man/figures/logo.png") rstudioapi::restartSession() ggsci/inst/doc/0000755000176200001440000000000014634136401013072 5ustar liggesusersggsci/inst/doc/ggsci-faq.Rmd0000644000176200001440000000646114634136357015420 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.html0000644000176200001440000235120314634136367015642 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.R0000644000176200001440000000341314634136367015072 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.html0000644000176200001440000756733014634136401015101 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()
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")

data("diamonds")

p1 <- ggplot(
  subset(diamonds, carat >= 2.2),
  aes(x = table, y = price, colour = cut)
) +
  geom_point(alpha = 0.7) +
  geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) +
  theme_bw()

p2 <- ggplot(
  subset(diamonds, carat > 2.2 & depth > 55 & depth < 70),
  aes(x = depth, fill = cut)
) +
  geom_histogram(colour = "black", binwidth = 1, position = "dodge") +
  theme_bw()

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)

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.R0000644000176200001440000002344414634136401014320 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" ) ## ----------------------------------------------------------------------------- library("ggsci") library("ggplot2") library("gridExtra") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() ## ----------------------------------------------------------------------------- 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_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.Rmd0000644000176200001440000006145214634136357014654 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()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | 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} library("ggsci") library("ggplot2") library("gridExtra") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() ``` ### 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) ``` ### 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/attachments/_uchicago.identity.guidelines.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/WORDLIST0000644000176200001440000000047414634136357013536 0ustar liggesusersAAAS BMJ Bioinformatics CMD Catalogue Circos ColorBrewer Fi Futurama GSEA GenePattern Getz Guttman Hanahan HeatMapImage IGV JAMA JCO LocusZoom Mesirov Morty NEJM NPG ORCID Pruim RStudio SSL Schwifty Thorvaldsdóttir Translational UCSC UCSCGB UChicago UI Winckler al et ggplot jhrcook js pandoc pngquant ragg viridis ggsci/README.md0000644000176200001440000001067714634136357012654 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 ### 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/0000755000176200001440000000000014634136401012447 5ustar liggesusersggsci/build/vignette.rds0000644000176200001440000000043614634136401015011 0ustar liggesusersuN0] *B xbk^! jKjحƓ7\4rߟ)!1he]I礪l!f%d50Ѓ>7i@9O8}k:K7~(zE) Lqx \A7= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_nejm() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_nejm() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_jama.Rd0000644000176200001440000000260714634136357014510 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_jama() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_jama() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_ucscgb.Rd0000644000176200001440000000261014634136357015040 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_ucscgb() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_ucscgb() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_locuszoom.Rd0000644000176200001440000000162314634136357015314 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.Rd0000644000176200001440000000145214634136357014046 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.Rd0000644000176200001440000000400214634136357014075 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{ library("ggplot2") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() 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.Rd0000644000176200001440000000170514634136357014202 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.Rd0000644000176200001440000000143214634136357015766 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.Rd0000644000176200001440000000265514634136357015427 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_futurama() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_futurama() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_frontiers.Rd0000644000176200001440000000137014634136357015274 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/scale_rickandmorty.Rd0000644000176200001440000000271714634136357016310 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_rickandmorty() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_rickandmorty() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_igv.Rd0000644000176200001440000000320714634136357014362 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{ library("ggplot2") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() p1 + scale_color_igv() p2 + scale_fill_igv() p1 + scale_colour_manual( values = rep(pal_igv("alternating")(2), times = 3) ) p2 + 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.Rd0000644000176200001440000000354114634136357014267 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_observable.Rd0000644000176200001440000000314714634136357015724 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_observable() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + 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.Rd0000644000176200001440000000313014634136357015603 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_frontiers() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_frontiers() } \author{ Clara Jégousse | \email{cat3@hi.is} } ggsci/man/scale_material.Rd0000644000176200001440000000462514634136357015400 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.Rd0000644000176200001440000000262514634136357015437 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_startrek() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_startrek() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_npg.Rd0000644000176200001440000000256514634136357014367 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_npg() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_npg() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_jama.Rd0000644000176200001440000000142614634136357014173 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.Rd0000644000176200001440000000264114634136357015630 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_locuszoom() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_locuszoom() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_futurama.Rd0000644000176200001440000000141214634136357015102 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.Rd0000644000176200001440000000162314634136357014546 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.Rd0000644000176200001440000000262514634136357014542 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.Rd0000644000176200001440000000134314634136357014212 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.Rd0000644000176200001440000000133114634136357014240 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.Rd0000644000176200001440000000356014634136357015361 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{ library("ggplot2") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() 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/attachments/_uchicago.identity.guidelines.pdf} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/figures/0000755000176200001440000000000014634136357013601 5ustar liggesusersggsci/man/figures/README-ggsci-flatui-1.png0000644000176200001440000007310314634136357017762 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$QPLTE:,*aW%2-KKJkjfoOlœMБNUaAd]ǧZ+ x6 IDATx {8@/NVAGtֶr3Xfវ$9A A A A  A @Al^'~~gGWL!Q̈%ǡ8ҹ:8qDŽZ^kw7ݹ$%#7852@G4tʓV1QZo)Ztk@&yfV*w[pquD{Km[4 <l0j(0 `0@Q`` '> `j$q!30  ݷl"l&l0 @K*Y؝,eOK0'@}>dircm%ivP^󷥎U1W@X.ID:Va 8Z8ܖ:Vm^ `uh(=:V=56NC ܖ:V5w"57ޤ0y/x߳ ::<m'iDI ӳ]@Pv6+Lm1j~ Q4p~ j꩸{?nNrb~ޖ:Vy}C>:1V{i9;:V=$)?*YD.u@6ᒼp]Xx`< ,X`O0& $d @gb075V M70 xWX  آ[ldMSoGk[5g@lBL?h D3?}Gzm ݒ @J,Ba~Xٺ;שKن>&TUbrJwϡV:DY6yRn1QVd Ij!Kyr A GێoB{l$}(L~Eᶘ$`M]3v+V7?^  Z'xr#{a`oj&Hj}9IJwFY&=;6!bDOȔ@֦OM@@}7y[R& 晾}*M $- | oiw?&!U9Ԋ4.$'0г3( ^b(AYڥ#-A-b>SWYFH\'vK! % eر1=90C/*5u6PTM\7ث_l7,DUnS}v[?O#@Vbҿu20[İN"˨}+y~ M揷?j{'6!kz_@Fǥ2{@U仙 l @7!@~Tl~xf|?VM(a_l=6jz)9E` 2|3vm}nx GM߳E`obh QQ 2p'lkSΓPw/ʵWm ,f2dnr&{e2tVG|7 8K,0r c {r4f|z(  c.c5P9y,i@Fr+|5|U? Mlw w=n}芖Gp$NO`Y1е4k""Yx8ԭ˵۸>JPFqP%e,l2 f AWDU7}g$Zu3(_Fh 0/k'$I'@,`:0xS| ܓuU קH`g7[P2/GI|W;O3&kx9{@#4wU]{y4v"? _be @aP@Hk}$ʏGQ )1]?ɢ|M 0'!@^k_>?n .;7{}TXo8s<7''I_ )= S`t | P6Wnw.$0m[-"l?씣 ΅H9tU` ͷi*[ˉnޞaM]稲o 0ۛYw<֯*]]|EHBd~D|w.2duzx|2>(nbᚊ'z3NY'a.v^ۮ vr@hk00/)X: +v 8s^&ɦBxd忻/fVlA /(`>ቩ1xNvۢ?{8 Q;%.b.bc2ۤ#ig& ᗄr8F3ti;h;W*=rPPj#)0JtQ=?) qLCOW-~4PZWcimkZ;o ?ZoBWy\Do𮒩!j^ _>$) .Xw &4pG*% !gigy>PQ ;Z!G۵][ p7B|z?f[yj )4Zf7:EY%7 `@V~x)8N$}C|/b,0I(5)phw{jO r|* 7_\m+l}G$xL {F6u~M?)p(^FLH *({kw8}jY4n&f#Ty\?~.lq@ @@2Z|)P6l6MթN_go3E"GZn\?1# Z 5_*kfܩ:=Ip}3L"cfϳ:`;uSߐ;GȤX+nKIqHZKw@O043d;]S8o6__,_XA @rV xz[@]ܹbpgq0 P0 |l+3й |p- i9*cGKPs.wp7xCc7(`{ o5p^(cϳ|,c@;Jߗ&fG_Ɨ, ܷtUιA1RxTo@s! 6V`vXgzDvKHhf %0ͻ]E.}+ 7o:ubhaD߃DJ~ֿ$_ l );gy! U.Յ,3vٗtݬ;/M@鷁Pw!F׈f;;/Xad 9?G@yX 7̈pe: A h~ai* (p ;ܪߗlEN v{}ͼw&_|uN9%~ ze)r8)] wƙx́0ہ+/u{pɍY^ʕBK "bDq>Կcu 7zzˍ%g alA~@ ص,"D {)g@nPSd[8Nӳ 'ǼRWw, h?dzz}z!S>v OJ 2Ih38)*#0>' "5,Jq@g$<  1 `#Ҷ:7[m@ .Ϊh T59^5⦱T?2a(wUgm{#l1??b~>I`&M\GBʍ)]M.Ņ,|}Tk 7yQ@w bП 3 s /^ރ~ JjU eXlJ9fN$tUj8lY.'BVLYP4G^ȢQǽ$(vieFvϱ}_"pKiHJhr r.U ̍G/>>gw_vB3\9O,Yx!Kj;m``pnyR$w1[R#;0W~7fO*},&%.,Me{N5Ĭ SghsQQ^{0``M_楶6DҩZ 9O jdʺj⩆+/7ø4 )ElP5-Py&89m{0``x, _M?^-+ac `M+ CN9a%`1 (&VLL(wZൠ{+˦-1?[8B)$FHY(+LL ]j 5eGg!+^?K1B`nA{_@<~V2@7E/-*|2'|QE/iGnP$ڄS BX0Fr_p@uL`ůk(i9lؙc2ҐTVIڎJ` rD} S``9w7/]h\{!V?NR =]15΋ӽ?~:r ?EĚ 0``x X\g < x#L ]fYMC+{X6/ ǚvIxQ0ՅJ CGLGT',QҚqA [7Y|oE i_m (6.h-t?(p2&ºGv{5;LT4=,P=,c0ٲ= 2``[H,{D>ItQ0A$oP_\' ;K0C, `M'fUso&E0e CsLT7JV f*o\/QWvʰ``` @{o Wա%u[xMC&]+=Fi^TMHCeO0ⷮITL e`  N Hl1X\fq )z.ثPhdGd4~Qct?du   |8 5S8{.e[>m^/!V^RYIO%QB_?m\E&j=Z-{Mx nq:؞rYVL`R ?&?|}G&&{PtIg'-5D)!4'"mNe ȧ$ڜ`a_ ˗h5ӃFV8pr R$єB0l#۝Nmn{Y!5$HJNt0~)9InR2m:p¯ctIp-v#I*5gDa QᩡF@v)qu%I.Yi=@v]7_ @N"7=ڗG:sG/:<7XNj!Yi`\u=EzV+zaY;֪b!͐1 ~e6z?nu"5sHPӱ UX/5į3 `x~?) )c{9|x|FpPVvgX /~. @ :e˻P'mEvz>~*q8޵'kQDM$?Iv.ܰel;U*/kwQ H}7л2_h xd<۹X,?[ )C<4m }g{YP+1hb$B9oS ONTxmO`f&Bj;fiE % e$&p6 Cyj*covwjAy{6t;BmÃڼ̻o.bf"g* `Ib?+L%PU~*pG|șovFU!!ۣm29TX)Kq2?a/hXꌨ"CRH97 >Y-]TbBYqBfe8XP[Uo9Ƒ>?$[AWQ4" C*8#_ 3n'x`_49jQG8R@%T^y05Lcta|:5"]_ nuk|O TwA|gdHc6t):iR2|ľi`@$,|7* /rrYDQlB׸@J /zn|&UTxAp_P}KF0{s;yzbG:QVAhWx 9V[TPL%!. KG9M+h 7\pP J<Do|S}6-Wd: @~]4i+̏*@޲sS@%zYln vVC+&1f[:T1N=rtH4&m(j?2_7־_O[؈;bܜצgTMs_KXO"ǁ@D"l (3|_h+L*T_2,4 KD6І 4qDtOH? G%4SI}JGO"p .@A"RNO MgY6-(Nt*!кZqկknJCwy27#ɔaZDn֌A}-+0](`\URJ*bcʟ̼0_ ,3hKg=)uX t U.5C̾长  vȕE6;iL632@HH!C(cx[ @%C@=$5H13edgBmM+7 ЕhiY=\p OC4' 7d7@RJ*G I'?_OM%JO)iph+KxA n!?*fƱ|ݱ_~0 SDfؖ6ZE5ʥ:+HW{i2mw޷쿻qO]9 } Q?;V[/X ,j$mK0mLFxxa[^uH,K'C+LG0RG7# dO+_+T8lk*ܤR_JxN1 Zj}A0]>4:eܳ:NC'C[߯E@.X/O?Jx$Ԏ $"3$}PhCƆ0d>9?B@y`bDֆV rs%YDXB8ߋ;no1C:ST=A a$-Kh~=,wmIgץ}[֤ӭ6W/Jz?bb(;IL hbZ 7[2oz&&\ӉykezuJfK/k)GL!q$_hCTEkp-xc]4͊G'ҋ؞@bV,Wڒ$f]Mm/ot&<_rzN>^ JDhSt5Mj/nfle> 19ਲ਼m" T4CM7_ @%# |`ȕZһBDN͵B 4P̥V H|+٢3Z N'F9r 6JVP &Q]@]zp߬u OoO_`j!ĭ%yHzʊ]7>?< p @C,(y D+r WnD%*T8Pݹ8]@0c\^Kx#Pk0bxxHl⟥cF}4Kho5& 4O (mG*TP  M< uN =ځ`%PIԷM _/cIx(vg񏆭+"k`%:@ŏCzr&klA4 I*TP a q@$SY̞j?Ww0>yƂԾ[gr$kH<0T<{IEw]v84%12ے ô Yǡ8]>B-$$9M) 1cSq/I"{jiws5ZXE@ D ï@l,\Mk0 / #@@@]@A`T)@EJrܒ0$_:CU^uM tf3ئP}K>ts9`5Z! )(3I 6~~)1Oq-YBoJrqg^tQ$Ăr@AZPwE|D- 0fD|Ҟ>^u+^!1acVƬ%Kw%+F ҆91o#儬gLf ̘ ގD yl Ī~Z[B\Tv(\C3_{^vm x| ]RX_×E, M\Vpy|jňCBw8~YcPH@F,> Px0`~82Lg6/9%p7Ydv3t] ZH_O[j{n'޾kqsn&xL8 7Z:ʨ?Ca0La}P'!b7J>^u1 Ćk2E`s__I}O3E`v$*?l8?%4+"ClheƑVR a&''ڊZg]u&3?5W]:=/kOڻOhhua*Y ח|oCAC2-4~񚁂w iuh^u{[ٰ4?|'' >^u)qu}ekWHn@Zй~6ub1 `+cB3p%fq)$p/{3 ls:xҞo 3E[8|ڽ,\{oG?ƫZ@Y(}'py1;,װD֑UՒx* ùN| B P Z@ Rx -\>Axs=9p)86-ZJ R,ߌ R|C-'{}$pd' hx"`,1B@ҥ`Ud`xQCF.})p7zٱf>;\YuM=o! @@xR,`i (x&RJt\󗋔QkЛ1kO2qCƫc ~ S@^ It|Nu*; W(X10F Ʊ` 8 b `Yhnh" IDAT+%+ Za1ag<*Uc?K[)jX_a 89[wb\/4j#P);Y38Z>j"/~./^#*R ?&wA <|-ЄfUXH Gd`Ik16c'7`k"3k !ZBUF}!# @ e2Ų͸wRWv[PfR:>9?-]@ͦ#w+j[o)%kv*XUaO`dB@qaA6 )ejw+"#$z%H٭ * #}'~"0@6P`B +VèoUj:O$^ * GRV{FԈETIk .r7VbdU&e i& x2aFyepdu`c[.ۖd4p 1`Ţ=H7^ 4[^tgS@0\.B$VLuޙ)76 {M@Yy7JJݘFpC S@e`i@۳J`Ŀ-pnŘ/64yN-z@,[&Zdz@[B/6Pi`jc0w% jP4f1?ee . N/S""&ܕiP|DY{75/ zey ~@vؘPy?$@& bLS`~o]1Lc ߡL)Hg ӁىMƴM *]M@{G_&FzM'+e!I$*.Y@@.gCvMh7*".3Cڈ@-& @~! mIm&d@MGږ'X|/S%&ϰxR!$e/(Z]_`>D vL=g,Ff[,"dWݡ6J5ߤƼ;:)Hwy.WRxNў$+  UVk$V +bU,{Raz4+D z07%xE6=G U&'J^G.{ѕA1!ltv=fFzЫכ+lvGS>kl@eϦ7MwHOQ=` w9RIAT ߿AiK,JIXƂ%!CrQ@3'L6K"Qpm7$tgoث =I06bK1kUOW}l)R-ޱ7'%?*$(m85z^ƛGM@d6 }T?M2P_)Ma =}hm"Q>hS֡lU }wvl@mCd @ߪ|i廤ς> ?~ `DuIP F ziSݢ\!>C/ ``)5EvDg 7`[@ ?@ lÀ ޭ UM(9U+}-Q'`h`FHP Yp~}@ ˑHAZX3|7%8t>K2dHޮf&o( UEG%q4'/ֶdȰTi(>5i9Q@$1TbP,.@Q>TQvƖ B*6R `O>VP ֖߶% zF6C@a+xmD,!&9y.0XwP_JiP* a*4!lHBe= v2v~.SC*ZmMJHO(@i*TޠLA@q| k9Z 乓p ĠBo 5Z@ہR 62,·-($'22Kh- 2M\T4c]pm xW@bصֽ #u?kNA+5?zKMs9Ms[`&pӅA 43S/>KZ݉ʿx`  `i0Xp,L_8$,/S?Y h6^@j\|f'ל@۽:k[Tq?QytMd2=Yٓ `@fৢhY߳iVwD }å ^&T%xXd[@ Pyep^,ɣHʒD6'Q`+-qs x[6i|m8l1nW _Y||"xJt0@H5Ѓ +$+"=K`$*T_rJ˒ bȱ5Tʳ^u@m `BW>t~[U 2'QK>X `gX@AG8 b Ql YkAWM5zH{5Da30 @GֈEE3e㩩K S@[ Ц|㯛WNn@a7(pѻ**Hl-ﺩG%`)kEfd:2ܣ@[. i38_Wz̗|j"&w[=n8m7mpT]rw D~~yW5s^Km~Y| !X KhaA,oCӢ^jNȶ0[aL93 anNB3:`8j8LP~@<';Xyhi'b$iE ËEX y+Pۅ(QA '+Jt,gB/MK3@@eͯ|`rʀ1K@5`v0P56z#7--O&4i*!%D EK}I~K: 3ozKT)P'T*&@mNY *M͆9 ٪@! P2o1@A~)Ua"|#z ` p$r_Wx0%p0@1_w3IJ! 8g 1.623BR* @ct! 8P8:wNLs@~M HDl78AZM ` pfUtI(0Jhyn!ը55D<, x?-x a *ƫHd+|&/o)[ 2ЧOVsSG dw۷oZ"^l38S@V_-naGj^k\*@-P Y+OV/ f@%M *H]USW_[_x^gAaYUHO >x h+oa\/0ԗMdmPmIKA"#K[xS:Mw5]XPǹ il)<v&8)Pɺ4eV-c.iv {) K]7r Km)y)kuqG\@tY JJ09t`]-K @eWi!p"`iۺ0tȡ@\ٶ<Щ@RlȜWf6S@Ӯ+`7rMQ* IA0э8;poLLlIKmR @$)8UѲ+B_/|S \'R(kZ՟R5m{#AnccM̞,# PFMDXu| b;)od0h<5zxְýC 5E݋N?) q!h׭<7x[x3 X74l>^%TO^'5ﻁJT[1]yܿy/GXך+ RU;!B_3fQ^x'!ֻ( `X(+hW@gɨn|xV /?DG˵G@HȈ)&!\ ` ?v=ʧެ*@Q\ԿLh@ϻP<2XְPl0Uc:\6G 2iA`:-xr[At$J%1u+@CӤ&  ` ?87[iieZkxpݨ @ 696)B0`\S辠\l}Z7:V: I*}r1A 1I {v%y<}S^b)YyC TR`x!=F^fA;Y~,( e` ! Ao&^ EB>O0O0iXV,-<eQT#A :P\]@qpVjUUy&z R#iZ`ij2tIDAT r/&?}>t 0_޻NCF6;&.l5MP5!@r] JV ˅ ~ /S@3O@~;PW L ۯpZgM)V/`{h?M` C#nLprf"<+5VW{!p.`BIWh3)uc'Xss b@K@ [AL;9IMx *1Q u_@`Bn^@,f>4_J`k~r ȿw3x{@`1m04 `) Ҭ N&a^! Gv`̼РHo 8(J{Aކ^=7Y8 <' $W&PUm~i%^@ '$$@ťk OykI̹5j[*x*D{A'?S@NnyS^($$} +.nF8M`IHn [ܓ^5X x:@`;&Ŋ.F@@ɹ(KS^ b* {k<@ :+ J;//b%mƚ @ ,IXE\?f?{g( EQjb51eq-FRS]8>{`;3 dx*D$ _0y@. NP9I*wf~WA8` @(J,'Fu<8  @TRPS90` `z ϳ abgo >oݞ i@J50XЍgjdA]  zW:U ,\@0Pjuy_.ܙ~=S@1^`g1hn@K$I p2@. PmlǤC@xY `7{a{ i,/iT3=8'<lbEx& V0 @+]Ț}kq31! *U7(0yu52< K8<? `氇!)ch͕#07E!d0! eavN\Hތ.A5A M `zLu"/%`0 b0@ߴ` c]M 8a0 j )5 @ `\: B. `O0so5it>lؿ\``B$ongv1DvaA`E\@'2C@Zp%aX> ے;3OWDYF\q-vKx1Y3y' `0CC@5 Xjf` ^ij_y9 }._ `oAּ%(߽48=o,7QZ4oR##G  `g<L4 V 3+ #U7+ w~ n7z +>{c !H#>PXlfFW5@M)`qd$w@ pY@ ogu7 lnTw ?`0B ^PnD8EdD d?Y `K o ï)@3ĭU~gD(*p2z`6 y7dzȫ{q/ې5 l(+0d,o #gwY$e? pЛ (0r ]@Կ,U;_d* `,oD × uJI [ҖO9 @C ;ɧ:O"i|~+R1Y @,@ BXF!t\jT0 X.XdzWY_]޹՗`0c@ >X߈F g̋R(8R `g1x`j} U_3]KFZ}eJa`03C@x6XH?&p .G `[.  @[pA, )5}p>EG&@pSZ 8l6 d\5_\.Yx?(KIJ$@-@whxljrHv!( `SI_Ǭ2+Phx\WymAxUϿ?YExUyjoa#}=A_P# `=X<^}IX8i㏛Ln̲0 WZ b0@D& ^d? 1'd@䓃._o`bt9Ed NKȭ˒v @:P4@ҫS.[<pL`߯s"  H^YwO1aux4O8@p|>ovءER$Az "sð7f_ Ү`_@#8b3|f~{Lb:|]S :r<|T/ `|_nf vLGrnKW6@, |ίt ص(75hE|-I7^,O?7 ] U`-,M `b@ 0h<nj:ƛXܜ%E_ iK}H>[4M@6%6 (h`f ޡ'onhޯ4x&Hr%Zg/S"p2& {4zd%v.P,H:4Scr Q)E dևQg Lj @y@&uK(EN}- Y@l3>U3em.\Ӧ!iUoZq\4KEطxfIVEmo61^E~+6X/R.rRaKM7HRoit1^H=R-kKm-0)*3%"z@7!4g\oe+Jl` vmjfkTE^Dd3*USw`wIhL?/~.I~6n)o7^m(R|ڨ"K,z/ןW @cC@U!'G7-2Y[_t;4e2i_gS{nw!]2y?{';{mzhd\o\'Ζ @V  + j hЏZ7b1t^b<l3# `P``  i*Xi|\8 phSчo`pD}u @?>3"=Y:b0EwgFR'Kwa 0LiZQZ!?4SVJ\߲.|_up4g4t\?MɐwȐ;ɕMt꣜8h&rMt̕NVa'P! B.8``!3"}&YzSS*r?v_}f!E[t׋f IPB`/ ?wtW]4]' =aYf!E{tNqdP{Q@;؋4.v{@i;T.;nzCݗs^H2)_o^֔TZU P/pBkh{u{J Sم[ Lw=\;a # litP<39aWL֗V)e6OvDx2|`4 %05*破!]~褩b<352 IuDtSPJ.uBTgTCLÐfuN** Ft>k ~l0I{@Pr]~T)詨c?vPq mN$xqt4F7MC| YloQ1Ί2/4TH` 脙z6l'r o 7Ci(y̓4.iUqD:;u6 Z*|r3QlN$xQ습N uPJn%b}'W**ԴTr 3;o[ņuQO-N$IZ$Sugs] bQS<`;`'7䶖z0_EAfdva; d[kZ*c?vP128cU*궓R# `k(1P-K*rk6˝4ߪ8g*K* vRcK{@i(y^Z:m[ˠwj' NqǓ I{pyw    o@hJ\"IENDB`ggsci/man/figures/README-ggsci-frontiers-1.png0000644000176200001440000006774214634136357020525 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$`PLTE|>"%5'FI5YMKVVU9QmmmGIYxڔ[t8菐! IDATxݍz`3dF@os.OBSV:->C 7+(A&C          P[3<78>9G^b Hť%f AW!؎6dvr$~z@)WZsy`[:]T0fo*ޝv<;:߼υoG *`'ln*k5OxuJ 1*vZ Zoޭ9nzKPPPPPPPP5m `S9|_G*:PB8$ ~ 4GO.PБ=Cޅxx n L Q@@ ۪<~w!MRDpo>Q B4 6ilFP[.E!U,,؎@޺ 9C.>LF` Pynwy{X7um} @c@+ṗgz."*T+ ߞTk `MV6Yd `MV6Yd `MV~8Tn7ǿ>V@OH8/vF{@ptt 3?#p6^jU5GD$IfX;TiKu%}cCR7XjM_x'9J;?"a+ tF0}4'6Ԝ/˲Rbn8Ux~H`x#yt:뼑ޠӥp"9d,;\yʬ+v|uc]@. y2#r7sL40g*G2-3Ϥpߨ>T8\E%3㓍CG䟗D gk!s]@:\Eu;צ/OyNC"P|wdtV3cW Xu@ @Jo17q*D}(4;hvn@wY@$}e,@wI+'1y7X9y/ M5+f`t=ժ$6 vVdI$@ _VsJ 4PE!fkގP,, q}˓!6-!qg-?Uk0l-!;8vWMS;^X߿5;APo`?m?z"!S7lܕz#K_6B0TGUQ_?ϑ-5] q}"鬥]F4j6(+2D{=ڜ& 1F3t:l*CƊp[~ׯC-G?}׷Nc| x5luDkUV ]h4&@T`6jn+9o:'nv鯟5lWyĭTW7<;jxe?` Xb_]W& w6sGuo ","oLS.jA5-x`=E|%@~dS4)cDz@@_;d4|n i&omfK߷߿BuMR_`ҧ @yVj\$-< v؍fƾ41x Tf/H+ t[!_榎 gcF O]jl$Yv! ,ȍʿ+\SI-`/F1^@_קHc>i`ݲƒ0v'jvb&?,ל/ Ζ`gZN_%Dt9@rk4lO=@_)07d F+? Mnj@0XF)}S~#7[Eǿ2&ꥫ&_[[HLf'?D3Dix` xW-ɥ <ar3 /8g;Izҹs2zu.<'x˗' >Oʵت+i`T^@|T.Nf<9A.`_MpZtsW{8y^ ڽ GŊ1:~ @<0(`+s7_˭Ɨ_yS{|7XUNj?T?;17?;9s&P.d@F޲OiX@x? 0c`V~ mϪz!>5g<7ujɯL+qƺa ! ]?8c\c17jnJͤ??]7V?Ր! 0U\-#D1Pjo$@ yl6bN+ CǦ'Qv#yu0m f& T_U۶|_)J>? 9>$ rD&r=8nbN:>\`Q.*rȬJOl޼|H?#HP6nD4v|\N1 &N7rҧ<7@4 9P+e3Cn2ǘU/14٤;$p@6ާ!@ p{ǯjhܠcapqV=%`z+~a?t]Ipu5๟h_[ [Z}WPD؀c'_й^?<: "L6(X1U'S@1u"H1hw;?qzAvaGim݈:2 "_*@d q {D<%65.\VN˄޴bDfMz_H7SoER8cXZx,h .QT 5@  t3b"d#&P.w1cVMr;ݗV[}iT7k?X IDAT#/ UrSK(a"쀘vЀXu,L2@ wqᏚ*{WC>!?$W\a=T ޝHFJ]#Rl״Uذ(AA&  ;rNIsр|P=ݸ'H>D[.d}[&@<0 FQ1žW8)Ū8]= g|e*rټm6 `\ ?+N:+qtv6M*zk !(i^|oKI֋dnHp޼I%l;_c!hl'~\YzBHqm <_ț)!t^ kWhϟ:o}=5w Z9GX(2*5,awNeW3a yJ3@sҿLnpم%hSUʄ?axְshSi5w A#'TzrP AJ16~#`g{LeC߭fW )|WAw]q^|HZge=xqoclFsĸ+lYU]v ,i[U+c}SpFɰ @8zuQ`(_}Xs|g=@nm֪xO N kd>5=m5GEeIg/30` G|rP&6/ 8D}Q|ͱ"EBز= P]mUrFO|DoT0/4gO#6f.Y܈#?׷!#Wh.oyM_.u 3(,†/~_gK/pK,2< $ ei9F.: Bɩ%|qD }Df7ꊞP1q@em6//QW^r}-Ã[wC}ပa{OG2GҬcP`VfB͔IͩGU(r \%n8^2إ?gm~~ ,-D '"횽~ ~ʾн^T~2dƅUq˧eQ4{fz5_bf[O 2N7ЫӍ0!DrUa>ezbp?7ҿ% TÌ5u7S0ekf95'"mi?nu Rp(8cVMaOfuw.PNĴFD/\>clgjqrneӎ{#ZcR腱gOgg؏~wL:,tt}-JG`*3_:ݱ S@S"SL3?.V^wYh!Aq!jwʬ.۾i!e9> ޮ}W@츗~~|̱ ðܝ/P-6ЙvnEA9==44\1D*֪zojvGE6NCw1mI9*T?O5^|/WD;Q~˩Ah;Pk_xc m$FP4${r˸ȳ1Mjo CV3(-"S *$Ejd:_@qlfA0;ed dA)4Q᫻!XxkШOݰ0Hv'+22?P2Ej+XAY;0G L {a+!]oY">} pEA1] J#q!* Cc+22Q$|#`7/z\~D*hʲWJ?9'~5E+.P.r5fM$05'EsچI/YR~Q${5Oozu)b4 %Juhd ,@kg o32r3@ \"v1]uH 4EÓU/J;~PȽnb=qPv'ם"@-?D@ )E 4)B/z][pJ5 "M*q!ÃXղ;m1:BV`3qiS=G-+Ѿ :  m+fddT ";o/?7qhY3XQy"tcٝE;ns//OH셈GfG ""GC^(rBGFF-sHED iL` %_/"sU,Pݾ1!+כPC 2!y~g @7fBꣿejo(a˵P0(VU.XܞS>-“U@(19m82lTDGg2@(5b(;DܩTɉS*4:&4|Tzbp`MuaUaRȃ r P(.;跏eo@V45 FT?Tz̫>5#  {$@43>bTT9 H[!FQ.dl,i8J}G{icH#>2B~CL3222~aqמafa1&R@в܈>%8VWz;! u6S$O29tւi@ 2    a<*,:q/[4ߊ|?CUɍ#X7@ɺ&EȬkʖp1I4څ89 mJdw?i@n z{[@G>Dj dou!o]o+ *F*#y @nR.=XhZjwέ#q. Z"0 `;c;0 gdd|;'PLHҽVBb6e^PS) W7 B/_wFw/7zp!a[7b@KMhM$X6Pb˿ *m!be mLKWq)׫Nush@? C (u/V' A n΂hո9G\A'" 7*[3o؎6!DHN":p4;gdEQwy?y0x%2H/"r9TnM+=dO<n?}=‰K <2v?`7ZrS-g mMoU`#u8],Kqm-+sl^ tQO`hv , g8wo'dQi`Zz?sZ@LIHG^dpAZW0%1p'H#8c+T4C?E~);kwiW@Sv 'n ? GL97ISIh.(E[)IDwPCyr96-<AEr>@K*Du>=B5P=0uGu`U@UQydiN] MoS@r68kca8,g`WZXó!ь kD0PVVISu- L <3<I=&Z륩e-ռkÖL/" \j[,PxvX"H @xs%z_!wS@l.`T;p!CV"8`x?Lnhb?b >ē9eD!{PGyDW"ϣ w`eWٰL؎i#HK;Nkv}ݟ )66ckm P 0 H&?,k`/:BWHwxT0@K sP`&uZC@ƻhSϗ.^23݇ebS5k5(|OX&QͫJ+uGf ~ZE<&qz!>`]z?~ؼhE^ V"54SLn 'r#<  ~@ |`j|C#ܹ1"^}Pe m%{!ki=&mC3#5T IDATYA~f0@ qnPcfP|u |`StHyݘoO`@ j9|Gz ^o;X %BbI\Q"%HO.-||G{TBO_##&3a,q"?rٶ{Lw#(218 z#yA–IUg1`":>.Iӻ] v֢ixLyB@<$@ <"v{*0i&!/X; \Gkr(* 6sBNW8'F%}p@g@КԴ|b"yL0mhIf@7.[2L ?=pn"%`N yڰ-x < w`xz4Q~?_( Xh 1"r o]W!Q2l1)XpBP<hymG<gKb`}%G .QC@Fq8? @Xwzi"[-0'7gqG`Ȑc <"$U0> B_.;YxwQ:̃&8p#:4L~?#Tǿ] U6j _!=dU VⲔx/$eΜ߫OKf?gޘGכrY\,Oq{{q`ͺx_G([87%A0{zm<~?۷N^(#|+m۶DFNwKd7$ ~P۲*2nak}D *G&FOa6</s3>I=@(w៳Mn*E>^j1jڷ&'ՄeI:ahz cf~+e\SŁ0 &lDŖpK&Bv=^0d.-4ou`MuoҼopH`[$.L =++@T]xP] aqS]9$mAY7oՏ^e8}ZR&[~ZDD7B# 5n~/$QABeXOVx<۹Rz٦b?] Jɥ6&kP RcG6mY]^Q@@B鬡0ڋ@Uօv׾5S;m:ShUOS\@(qR=] b~%R E3H;DaJ0}moŸxJ `x 7`T Zm5n\}. |l=@5T@pȣ(6P]x\Q=7b0aoׄ%bu@x3@7 6BfX:ҽ7(dmg1hh@rEQU]@sǠVDm@,(EjB jRM4ObF_#WF/tU.}BZ,}{ NWzQ hh k{к^umw/1!+@.{Q\WZo|Ő)k_nd1.-]@یKoLB% ?W_IYWqAG>C{/ڃ|zXog6?G=H6`BCN `}߄胛 )$o'J_SS 8gp.2jwb1"~@t،t|t:1ɠ]@t 04OE ^B31 z]@V_oi3RZ> !n$x*{N=%".u0{Xa:jE! (E @[NA&K@] J9}gGY޾JU-{)2l0e2% f>)E HrC v~B9Aݙ.yb[TnuE HL[GUJ4d@`0!K-od8s{3 A3gOfHVe0ީ@ tjSxUI(~}"J6C# $P\(YpxpA  l J -D Z TVe6L / n}Ҷ$vW)m$OimW! ,9/ RVg >1$^^$R!2WW$$=]@6滀bS! ^&P-So& يhSqCP%CeM=kz~\Wϫt'@0{+ʎ0ւ"b@"XtV)@ t{}Ƶ~f[ܦ΋1:cI/uI[ |y$:u-c@~r\7n@8}”z$>hʶ pwV5lt)-O(>ކ}XH-*=~? xuJߪ`w@7Y-ЗzGxf)hutR:@E8~,&0X&=3@2S^?@˼-uz<@gSe@+} x$pOzSGv'є3NP_TSmhy1̀0!7ug~ ߑ+MU×#2ؤD_Hq(@p: ~Ӯ s }]̝iU=œG*aӖ~n1Q-u`!m$ Rt2S7XlKH[vYA~l*XOu3bY՟jb5 `h eRy;># 8s.rn4V.P0 稐~l*FlBՆ}%@`!dSCh3߾>>#FĮ9ZW| @PLEU\5&p Jxt'A`;Čt*Ekg.WDnBajSJwntu ?,4D=UsO'c`p'X}?Xr]6ԇ.y~zؿy+=ZޫT)Bh#, a Nĵ4'R/AYpUJG'X?ĠFfDd0XY曢x*`KBPNCzxThhD t`p0UCU n@"IJ72&|}rV-YO֩0mS3.cǽ?ZmW-`*e;6o ]__dN4`Ee XqM@,VS &_mXɷ"?EjqNb_lY#@TGMd DCT5GJ9Pgkq8{"GI,> =[) ;&D0ޜ}&pemP%a:W@5V]WJi0ii Ixl &S.xG|xR D]?s$X/!4ᬀH8#K־Dշ &b1hY@/&gK#V7rO]7{"`@&@: @:™.ꃀ)ޓPOavK@@@ f|%o]Ό@tƟk? !@􏘿7E@~#50dC +`W`]dϗXS50D@Htk6pw$Qw&ϔ=pMˏ\o~~15|h]*@-T{alSV0LLbUw2'ex LS`lX6B&R[]:j>1YoMlSx̶'iz GӦ)T y,x(O@쫶t{ IyD/&Qpp([6QS{}@f :(NQG< 8J~lV"4:Z,iUgX\ߡğw[aT~SP__aۊ9>M[}Q9-$kgSW4 ˯P)^v\0WpW#׭EpUWS-a(^gOx,=%?~)_XiWwC@4Y;}o DSo":S6fzcC@d)C@U@J8Qq']fM"Œ?Sd`~6F{GCg0[P8rCr7]]:_ >C|"h@hԖn9n9^c692SX"Ka/<'|7FNeWw/0"wG/ yM4F2, g$03Ϯ,O( qq( Ŏ`(UfKhu<~Xf 'M @.|kD:aZh|@tVOQE܏y+ "9&xiͣVȾW7ͰTL; 4r+P2*OSӲΓ<#& ˿#2ʼR3KgP/gzpR=D<@О)w:xOݽ`o̺-[+6xq~M5 5c$Ti jrX?\#9#$EQXjq V,L8ܟ'qDs$- j@S0GyPtk_M (z%$g .z3Eo;<@v x`^p;DS|=wDž`. gGǼDgߍEr`nQ>6v\@V .OD`7\6s<0AP :h:9o7 IF@V 50 C~C9+z$ԥQh. pR\>>KoR_+:p|@`)jXCoR$] ܯw r],R ,.'ٿ*%x]rnLY14Q q;0W:`BX(>za#eae,0O9"*Nŗ9 lCs֑&(8Y=YئCs+&-+SB`$r8nR$ϲX7 )W+@p+."q U "0{V  过S@"z0`*s r`K é(Oߋxh܉  pE7nf]?Y` @jD]f  {?V2䪚ձ0@u7u{YS?~>7'cp 1WkGU %V%D, =\~QwT%'q=QX{"z~<_QBCUD`* K0~T~^3! #Vr{Z*(' l=tR*NöGn_бJe5.M?ϮY)[Il =U'0թɢ fu-U*Q0S nTMs;O( @]6ĺKe'V+&+͜ @ cݿ{os^$0x8nIݽUphX1p95@w~RM'?  P0@W!h 0Z zuͰ{2^0w"I$:<(Ӕy_X ktD?kspyu}Uo|>p?3z4PmX@":I Fo @El#HJKtY|:F/e@Bx!1"iYIDAT0, 0wU*(TD|=nSBvP0 ge6 CV @UN3 x$;y p@ʡl"0_Tt7D c6[.8#˹, .6 @,(zl >{}@5#sVsD,a6 yZm @f9yM7܋^?Nc9k g qZVayH̞`P0ydb 8!xxFomR ]1 0Mh৾ndk9*lԳU pO$RdD87 L6ˢ` V17 5&Q5Cy(r'w.ڍJ'8<]i)ƀ 쓵IjS(N X3x+nmꗉ$p1`:qsOtBcU] mxo󛧷&_u1e'^go&_gUPU&4P2<+Ĩ<8nEo)XLF̵7j1w9'W#I1<7:^3bjW` 0ތO{t&V9TĨG/6c=e0vboc;>:j8׌PjÝ|`4 T1૬48@ `ʼn2|`_u3` qDhچp0joF'%"(~c$OSc2hex2?^?M^>5W6s&N PxތO_~[>s%`jȚu&FE&UPd^Ǘ` .x?%frM 4+ ?=0;umX3T}lVBQ)9=ݑ <Xfo:0)pxq~ %+0@m,fP v4AR=ڄ! %n<# Xlo @~"vY\ =/.:D<.PzNu|t`y6dPs\8rӠШ>ZL e FPtJ2#c7h,w׫`& pNxp `5 !R<(N3UM=O w<ݖ$S lq MQ_ԭbѵ9sPP1m)Xfb5Yn i<*l4njp?cfHB=✲bise5V7'/84Iâ|2fy^ >cf$/@pY,_j~zHǷbXp0?*P_"y ̎N? "C#B<0v+:@@ ʾBir}K*BQqiga YI(9VBuu1w1wGث8$+)>bmp"CuYMESrwNiu`uɪ ;Xȋ><$Nc5jDD@2IƳ'T.A?/&;mF1\Gxyͷ-X \^_^'?>Dߋ+%>GKаWhB"WXuB UX&Q6_t[?]#k3"x(G@1[;oS_L@A`=jK[ p(4@=@1y:f*0BT` ҙ &{ <x>pEWM,h32E,<M,Is/3{2E,Q4q:iXLYIHxC,WW-Mhyq""r~:mb6Cn/W9- Z@'@RfK.hoH+܍Z# =%8σ6mdq](:\bO23z"1Y J8ЮXЊ46˳/Ȉ)hl}A͈H#ѹM,K Kh@?'n%>#?`# /}'pKM,`^ yy<<xԀHpˑXhn4R!P#:(BB@I톒N ZNiu?줩&Z2:h14؎VԚ톒+D$E8ZV ,Lc^15ؒ b[:xOm(%$SKPӋӯCq!ӯ#/w~yw@o6M-YW$ouDNבL:^[.3P2Y` :9a zX&ruLzX 7p3'P34*bu@2ؤBOO7wxjp8p m'[=pW@Ppم X4Wն{?ӭ]8@r!lV^ճiW"{HRL&Dr [}8v#@&#Qnm_Z[$@$<P:frVCGo #?+d楥m˕;SQ?"' ^U hJvspj FgdPf 0 yۖ!i@O%wWjj@{51!~m80 LDnca@Xgچ&T<+J]i %0:NU&m(ʇ0еnf `jrlF.iH/'v4(=,#u>PeJ* 1ڵ+qa_~G @6LnGAr?NיW8l6{sGHcjS"\XVDCz}f/7)U όLqfS":`!q\0f\F@C< ŵO~nbU3'"8< H%WڸoPjTSp.x  tlϫةq -vzo$ӣ%7qSC@ioNB"4A;`KWgs fϒp`6 qG.WHPeLiLyu{Q$q0piEL1E9l } P"Y|V]'E8W9A@Aj@p+<~ST 5ѝ1+O#{_쏆p0!δQĈh`Om_׶U1D˄o6}}`i?m}F@L:e8z'&<?/Ѫ,mL!WD|Z{x. j%9CNӓ7|{_x:8Ǟe@V#"m4U1~x"+!OǪpf osQPo%k}Sq\q&ˊE_~;9 rfsC oOUY:Rjcrͳ@NfU `E+$Jap8b,t.T{WU)<կM~ot .PD.lf#ֽ}{J}]:Km. p1b`]i=`?C' _O#l_0L=i4*]6G5,HmZж~fl: (Kz2NQd (p $wbwq8!@]HVI( PEC@51\gz_N@\X ui~jVVXvPnu҇N8vO,J? ԡ_i Po?sh[Z f^I]yp?$㠣"Z4(j z)!~4L߃ )jd`gn2iTEbza_n80TUE.+02 Tqq 8nϿ#J?vgJő io%Ůs:@G&}ݓ2.3c:"#OYq{ `&w6h&ӠfLGK_^tYZӒB(!QXkv]BkQk= ĉk?wx 1;EE Z ##5b/A߿f@ iDDO2Y(!",2D1-4Z2-k ,z/C4ڳS lN`.)O7ϵC=m:6w&{-wCjpׯN@22IlN0g>zMv0vZ#zgUjW |_5243([ w' @$$@A`z'uf 3SA0@7&羅 5on)oxڦRg+Q49/Hi.zx|?sw(|82a r3,|Dd8pK LJQUl83/v\E}ʂ?)V~w6 @;91fSu31qԗX]/RY >X1OSos# Wv~|Zs24;>j{s@\@t #pgRT,^}=1 pYa`a Nbp©liB\0S]/j '(!'Z$jSO/Xyդ3h)<";nCqbچ-0N?Hps9|ԓzX˿O.E_M!QB^[? '`f#f7 o!,2TF~Wǰl&G a895I @3GN~|:Bbz5{ /+{WitfoIKc-*u ml5$rǧ] Ӡ1gf"%p~^n'xdU?$ л/BvF4u4e-+o09= ?D݊o9 L`4HHDIw&ð11S:"aFH1Dg>2 Y(! Ce`&_#>oT:̔\&z 𿽍Gه_ZXvxUf3֚m3ި/7GA18@iv#|Ox@@@g@G"Y@6Bign傾2qei۰;߀Q;c`tsYyp?a LщY4g3fTp}x2SS_Ö:ngό 1SCi-Kl9d ߼o͒rпU}& >vд~{R 3nD(!'#"ʕ(bc(ԏC>7Ȼ(3. ?rZ0 rX ÷)k˳a[׹(:@ , 8A{)!D<RAKJ 4s7jٚߧq 3@gccmKW~fzB[?08W1nYeluVA OD@@)$Rhо'XvnJDpbh| &Yцcx>?ʟ ҧY@D%0 "#՘ZRa8b}# Z/.OdU =AdN2<_F@6QV^Py5(b73ˣnMgT6$U+uV:&Y!$nE+ ~Bs׸aiػ4v @x>\jΛ$kr&EK-̙zF@)ԥ9k=1r`9w|'%X;.F".j|>v=ypWH8iEc{Ce.OHUO^ʼnl׼KKP^{( [UϠ.V;:poO~#4SPύ D (N|B@à0.c hY$cOmunFRN WnFh5Vȫ] < ,s͂:C}DV"v+6yhȻ`,&Ed[C Fgl ~wPgDzeӭub|yE5N^aÁG/&);ILg LpkmIh#Ԁm{|Q K}e$7?>@}) }5)dޓB!2pqPjo'+ \v 9(vjkJ 8_t'_ A9EZB H$j^[@XvH$ѿW,AE݅9`_G}R@ [H0IP yq 'M>? (,?@A_-.mdN%%*7\7$@SߍD0;YqOS`ۛOK-~hm?@{ Pg' pČ,.lI\'/v+}FM|.ہ(y#JJ>c xWIB/(xaW`C&䇎 'ձ^a@zjtq@L!? , j&U5)Hh#ؕEAE0jM|x) PP1 ? IDATs:'0 n8À}>=3t9> N}=~JTX3PY?6T :/"7Vn _Rb`bPh- $TR,Y7փsGP#|9~Uj_;i qJwPf*YܦG= ]9Ѝ`;TR7?T?>?dYf eA|XJoj5\Ca 0'DqFh;;k+1؛a u!l B1 XE9 S% +g;7mK4C7 l8$L P^[i,.s!}3kolI]D`Q}{kfK/tJh_%l;@yvޯq,˴346K+yH5)FM4fpIO9-x&bH_~dmۇf|ifįOdnBG:CCU3F)J:LȜ;UE6]/VB$Z @S jC!GwacT[$3 4O$\h{#x/d"-@wuv/esW 6)FW@<jΐ`A!,KA7b%}"7  Dj$p: l> 6إ@S_88{(H뷠ЃGa6 {8'k{s4VxEFjMaЋJW-Bd&zF8$@">+))/6va5$@|3ͽRVEhP}Hv|?n9N[Գ拿D|n!%E)@VT`twXfp;t5@Sw/mwTC\Aj,ٝp&G h6}?'Zu+]7K7nrR0ı*# 8MV>.j #@HlF%+?"Zp#e 'Ӭs>,AZ\u? X8ǮW>QIGWyB '++FM4x /{W7@!Q2 hބ9Ч=9!%[ăjA{d.cdMX^Ou~ ndqՄ73_5*P YW@8 :m&)o Z3i $5pn2*@,.l @Ngf Q]7K.ͤ jpU86X=$}IJvF4p=,*TP @=0Roz%V_~&>jn9 xAvHYpP̕U2nSwJ(=Z7K繽:qDKA"Յ GmMAC OxXlNNR=FcF )-'2HO5 IH3 (@g#eo\Pww:V;h@i0p"^PJ3G} rC Ƹq(!rX`=H y^ImRcD *N<@E|]523(@HCb| o5#ؓC;hQHaBʚ0L(]2 fuU~診Nv`&rL# H$xkD, x| JpI(`?Joy@T) nW{^ [ rn{ mCUB> cl~0N#l )KH$*^P4r{7Fx Vfz^TNBnW7'uu؞( fw r*Cp?><ήAABwmYC ́n4&\[ЭW=0bM-o'e񉨧$4.hXSpO4Z29fg!а.@%rx3P@eA }hF-r܎fr7~+^+s2}QfTJ uHA7hǯG/UȄ %aX<5le9-c R,`" Wjj{ Bxkn |/|Yɞm2An_۾oo _!R{ PR\%tx.\^W}W,0o=~=ϥe/ӳ_;>BA![P#Ɋ{A`pz@fsE8gL&+fiqE'z'%Sx~W =MJym)jPc!/w;"3Gқ8UaB6syR``j3+Ihc KbW,y2BG&“W=0mKghhJAli:gnLy.U O}<=LxIڻZvElW0| !D~/?ʝMeBfhlμl4eGL uˆ qa?`0 SCWjJ9c6%cѠڀe:2~~o,!),iUȱibAC7e`k Nr:R@ "qMl'h ^!V *g^Z zR@MZW~V 6%= ,X4%-*@R@wD!d]''(ThBb@9hdS 5<y׳r ]C+}G<ߤ Rr BN"I0Krബ#D*T]s&iGW@nU:9op0ֳ0G@I~F$~|:!}96eL+6hFj ͎\ Uɹa;/uma4?-nnu-*T ? ޿25  wA2&4ͥD*@S( =C`"@+ZMi0"/f[ RREĄRF 41RӁ~TBtߦ"8gO/O,:[D!eD,`w;fT+nDG8oοoYPN`&8'#jڨ٧r~B7S.I@e>pKdXȁN%U莝`0]K0ɺ Pl< e6iIGc\t Chr~Ι y3adg`tLS@ l0\QXxxgIŎ ͏21 N(c~BII-v2G1Ec#]m ctxHֽ^DS8$8Jzc#~(`Q|(P8Q @+{wa~eev6ДP<'p7 ]@%@myJػu%hs% ;yӮfNFO.cJK5aǑ|@He{2sJå<5 p޸qM˨^3&{4 @V4I:s9# /@a{@E?%gOC!c@ؖɇ* oemi<OL7t~e1 *A|H{*ow|e. }pSbXO t##0qs)OY &IkW@%}PhCB@QV!q#d>h.OL:) Y A,>o9,Cp<01Hff-K~:Pp:5n cV{T M plV<ؘ97#[]T5H$RDU@;*(ڶZߟ_NI#9(? 㑆! gTc `"B "? &9X=ٹau {EWVTG=R)!@[\lҀPX0h+\ V}7T (2l-h."z @'G'nLf/)E`ԛdD:q6 ^UدeU,Dv,q 3@J0A-@~_rM&N`c,6PC qIucYU|G- "'u [{/]j25<8!!XK/bY\jO^b@k͊Yͽō`*U@,17+)IC *'׭e(Wl~E L.*|n'jVtm: Em8cRj"#C) n(uM9hZJ4E?$B/ |x藅e Q+d:Ş~ϖK%*|Q@.H-uSPa㿲}mHLAtyeqM3KLn@%_mahգVHR( }a"m .Ggi:hU0c Uy0ʑ9BMHL):kfqB21E|ɑ?VxCyj4l"p'%a7‚EpC}9ybU@UT5ȯ:!sLh;[4]}Vu !p/(u8Ь#sPO0[ X(~9_k$V q(2ׄҤꀃU@Ul* 5{QMz-gZ5s4dצlFU@FRbk/́1V Y j s]aQ z!5J$I|? ~U `EɑdӾՏXQɋ~O+xIޥhc8fCw-U @- A8-]kwp + N.Չ`Usv% 5Hl&pH2kXvVK 0f{u6̐ m2c QiP|T?0Dc)2  :؈v@@P4tHC)0xk: @晇!r$| 2(rꚈ$y'N!8=\exEpѲ盏x%3 Z*X.(VtQ~ĨӐG+p6`&>09RfcAg# &HDLpP)lO-Gl_J)WxW0r^9tU,=_#~2;\ߋj*]^ Jnnr] *_nὉۘyv ,I yQ@v<cW}?s*T9ݞ}@:4}K<,@`*D☀G"MS ˷sCw-:̴EQ&3wY΋4F /  ʲ``/AcЛk* M@U @\S; h2VTWԴ]Y]#AzP{ ĝ&Ѽ,:O40nA ӖE)Lv6 l1`{m(v/U=.xG.1+ R@UOI{={zڨIyFe=fH),^$ n` ]A}=P8zDS|.Z1G jJ=AjwPJ2 }-dBnI~jsxN (EYJdE @H!]Bh~N O/par;]8a4 nEo!83-ML>`M@hgNKM2:ͭE}~yЎګU@UyG6gW-DY%A[s?M0sx čE Q\OW9z!PYL)(0 _?kAme2wvj=}h?p/gnʟΩXT `G/\1(| Ŏ7I4iS0n]М? |7CIM)7x&@! mr t]޵h'+AM"&k=GL XLbtQLB(g F_`f4HJ4TH _ Y r x.<Nc7LZ@e79j?铢{Ӣ6ZXVjZ3~CF9]HZq-#@e=6/47J`ԓ!¿]q|%$q/Gb )P 2J!_BCy@T ֱ0"}D`y!\(>U>t95joX?Mbp3QxڕjYVzzyɸ3.NvOkYՀR 3 `Q})3p}TM@P n P^xh/ @nwvS @FnJy@h`R|}@^*x9壠48';W9Vz E$0C XYKI!p6H#k3m @]anKq,d@Y2)`^JlQYΟˈ_?g1B*L#A$7PcAc1jP<B\= \*~u]ѡj1S@T rQhM.w/?.c5ʐt^*I[aVv`kǮg{Ug xe@) . 9p]<5E[%PTl%(5WIm:/!K"`;>}B@ @ FFzZ e@(P[H?H^ eѐAZ'@):ǘ#NJmyʣ n5r:j$|j3|Զ[en 5뗥B?˲st%?:<ȷA0kĂV,\'(Aw@Y hNPhRa9Q@ rur(vtgB}lݍ&}(Ez\1#ⶓ4J&jp?>J0F_Ph/KZq"+&8Op'h@L}K5{͏x5cu4r1umk2;8- }nP٣4'4 x"Kҡ/LǴgL;F39 GO*V@f?_f6j ސE;sUޤ@ֳ4zmh6upVa7zG&Y`0#sFK'~4Ԩ2n>I5P@WWI,>݇ HFVN{@y)}R̈́S@'$J ,hj 4XP:[W9M$ Aך~SbOHNqJ0\ Z+L(C U>;Ej . r oQvOP vonu_Vh ui e"W_t#JRxnW" B,P?{:ɨ¿Bfe!rUA^ݸ1fv~zAWd9//%r-|ûZ YsHSZ4JfSTz{0VsDN Öar: uweonbcϦ;UmD#8Ag#yŸc&\̓7ojZ52Hr`;`D~-$?Rs??)G*T oNԟž5ĹVFMBbg<G1>]/vi/twuWyj{4h I8gT]b[Gu>(~֜*JVոPWMk)6P@[lb* )U-S![Cҫ&^2mjO?N!^*\.$/7>_|ֆkoȼ4iQ/(eA+gG8E#(C]@?tb:X# P+erx`aw-:٧@ K9OMr†%l[.h<I18b z >td`Hs/F;kQ_xbՑupD!CGz}W | 2m+Q /2thEeB6OFoi)1L s1FwvCYLI>XQNjj>}\v @9B;cm]R@s/,/irY@R@@ܽ36DйSMionc[wML^bQo!'p8^ x*c0Γ9@8K>֩6&U)P4@%Q`pB|k;AĵB4!@0oL{NWei;>?9kbPa}(p!8@}8/E( `F5n[{2 o5cU鏲[ol;dAyhgl1z7R@,x?- h[}l\ lW w@kf9I0 {*Z -&(>?=nlc2 O A3/T<-*@a}8n\Rŏ ؈̈́ x9go=P+t]PY0` 8"B< 0 GQD̄+P4.8)]i@< S9x(`U@wH (?3Ioqȫi (\IߚL!\ Z4 *CUb^`7p%ϱᩗmd+iꭶWϵ@ĮoQ&dPXY`ڝ@T@(Vg^ `.usnM2s?'`tHrSO^@5` TI0d& 06Hn3E]m$_'ߣ+PEvQ@K?Y ,z IDATX=O‡/ @ H3iɪ, ,uGE2.*F~/iD` _VĕJH!"P3clA  ( `{)xZ&k="`2熰pW낞 3z1k}uB+Zi/V0.Ee?}mdx9m5NEXWP `}KupEE x!X۾LG blM1=Y/tZhv+hZT!t{$Qt=:t댑w?|E,S-YwV@5aQLG0h-}.)WaEx&XgalWpv;[BN~{C=y$"" nr@W+* &$L>zl5 @^,etV;q}okHWΒ5GA` xe? H[ d5@@;Q; .*w h_1/*}=iOXϜ *ۙ 0M[<h C㡿K)ppeaExQ_$iQUg\3!߮n b |ZwOh>0~El Is:Tf;SY@a[_kl5/*1Qߧ.ﵟ,J ֚ߓBioQC/Z0 ȯڷNN9'  `cEG0R$^6ѤWU:v 2p)7c}@!LCt_kh `4PvS=KwK`4h.e\/'UL5ȜwaQo_ ~ 'ǔbY>{TEV\e7"vaE*XhIbr8ώ${]8a& L1fRŪfza] c e"`[y!$nѢb3f kN@ZQ*0e0&!DA* i_O-pV|4?ۉ^ ѕew<$'k' MaRGcAO\E0LǥT{U+Ho ^@*2c3hZZUb/Vwl% `WLCVuR/FuStALu ޢf;޴(i]`|9RV[ 1a(3D2e=@̴78h;/[_>Oв1 P @\ 2 m^N> 0I,թbh `P<?H; % @@@3@(ы!X E>T 4"2|ֻCf(:$S&Kb<2KbX ԢNA~lu& eb1/Pm YWXWH @EhK<`%zvs;uWт06M3g_TZ8b0aauT,X\I1 ^x .[. (jo}el85{tOEŒ%>@f lu{gnxL]O;DcZ1 轣!1aq%i!ỏ5_TD´3?gpuY@^$va B?XV38H 3-MŦmX4 Cf] OhKy, ?k >?z@X'Skb3[<ރ1t}PKQ6[=V<6l䫺F<@.genGCq׵`q 0kl)ZeiX6ޱ0h8OϞ{0[V@6 S \8**$jrzשƿ2a$/n?KLL62t軁;ޕ l8 ,`' @)sQ H4,j2O jf%˴U4\v̋J[e @ Ko!!`X 5*dl{Xl֚I4`eP T0y0l!"@H4"Jhηf!^2gv @ VM:^7ϵ% @bY/{ [Ȯ "":;M ō-eK88汱{tENNw /C5>ߗqO'bd`_{ί\Y$L}c^SfUPҽ7"_b"` pz!5956|?-Iq[opm. u[1ȭ[[r;2>2ܛn pӯaϷfGCn3=}N!/nzt/[m+%1CJErj'iF$pcк `Bvb ?;uRw}mcbT 2 h8V@!KĮΫz6cѿ. 8l L.a k8JSsI^}SdjeT?{d)J7wd_a xlIDcJ%i qM՛fV(p%f;s [Ȯ, XZP?EHvCaih.wU_vIi85hwoU[A1qЪ o/K:}T.i<K '(Šۭ򐜎͇>CmM<7c TB~U@is ќu:1[u 1=^OM`~?0 .}{. P`^s !1an{UY,hpо[߅<^;J``v # @b[8Yl*/N`,_X"ὁ^@xGR@. O`Re) `"Q ])ۑ-`c}'djP (qr0/^|}! !  חf@- @^ճú~: SZLLRQve1+}tPϸ VdZp1=_?Dx! @bq ]> w*hiz[(1!gR5>0_$ rboJ\^6EvBa$  @$,hBj?#L گ3u`KM@}6%t`ÏPE R-l *k{N#„vj ODMۂxir`Al%0t *!N2١7eQ<.0jU H1 C{X@aUGEYF / @2#L2 Q߾P(& `Nr0* u2:|4y/5c=\"m*N0Jc5`!=k.Ì`wZ],@E@ŋkc ,jQ52@m7j@a_eQ떠,?jͣ.J>C "0`ieU Tz1u0~8 578|5 C%ݛ\5|lky ]p9uܻ5i 53sw4aе>iQl NkIQ ;U:g*iuXOvB pfj{x0P5R pMiOsʔS*xԍ5a'w P,R@  2e2z<JNx50n!\2e4th# (@h{H<HOuiX@ k,quPy)slcRxpx [ Sӹ80PN ds@TBz2/]x1 58sP/8UT|P`pW '^pa3_o%M`"O j]/576T"0 pFE^^ ,U)R@ 0 Ͷ*kHej X=d @w4 * c񷔝VaT3{xwC  `h\?a\ͷL>L [4&$ 0ļ@j֭7@{ *] >M@ `nu4> @0x۫F ` 'f>x,ug @ 8x,$T݄`0L/ <d Dž1SWBHz57pӝRB*|/,. s^kBr |(mjx0`dH؟ 0`%pN@3 x8,gq(iO} g_%~ `/gcq`[0ȗkjO)<f|A H}!1`3mA \S}F\Cj0c 5,?nF0ĤagXXo=-t`%-xoI#31 `@6p">?c 2lx:le,4* @A#I#a0c 5`)9cB: T{e-P-l0j ){Et-4 WVP(`LOh709J~˃wC"*8& #hR `x$jn|Xw-&_cݹ4GjpBq0  @@?) `L/ ^]ERY u9\E`P O8l>4¾>[hAՅ'LA0S"I`Å +'csW)PwC s ` joh5.IDZ7 X sa𶓏"8ѻ | pL~@F}aDj7wP@ {ׅNN3]h;8_'0@I j0j`0cj'h%DP59: 7Qf@ @@.7roSh_PF :X I@l[(l];0cmQ>  8?,{ X )4wk]C 0j2]d =v [Eh[J`_o_ (??w .U&Šp@c yX^d趄1R@dG[GrS.C@Tյ*= _/qR@? MZ4@Ig F* f_aQo] IDAT) OwF{IK>in<|Y⹂:|N0-}9P3T n7 E9vO6]eV6xqp`jjplb/P`_  v7Rܲ% Ϛ ]$lIv]61kwJ |ɤ8EKum9: `4M?0336dvFa P;0tp@wMŦ@ `mpE `vKSH}xRg[H e=٧f 7CmЎn(($Q|!5cx7@Th` @tm[d 6ڄxbwh6V_RĐXaY603c0ބԥY([ 5(#V7P[Y-if)MX\{=kM mqr7 ~ `8l?CrF~B$"?Ƌ_V`a]jB5miTaI `0` zTO @7q X QlRwL3Ǫ@`- >j يpK\-\`@7:n>ݮ[zu €O'uZ*-}m.?.8;l+e蚴L7\$6X_%V3lpKQ0Sg"YsE_σ5ӰN)=H,=^=+R0Ƴ3znn^/>Dh;+"[\x1[?`ΈX@a/j=H_7KmϰzܩxDX:Ub~kCVT!cXGt =ʁǏHN[ P,cd_!*@kwb\b MlSʙp[Q0l1 pV16괡^.".^]|w_nJiYU]I6FfxG %ov"uF…\EnW;iJD1N0PLm1U]YNZ xPaQ^)Eʓ)+ 8!m.=d%E t;i D1lW@#20}cf@PrD.i B+؏;iJEQ5i@y2=Rt]Y9UiC/CbhK]N$|ǍԤBdzmH 51SPWVxWܟ}`iu-e0G1|Պ6t+ hMÐԽ=,۩Iؒbb\BRTCldi?[9{EBu:4"_/Á##>LS %{򞷵Z^)EE%Y_UiW;Y %k˸rX` Bo(dYXҮ(`##<ce@Pr~_Z{Rj)"[ ɴ*ݷ'iWNh'ۋB_,:8Ac^sS8C @ @~"0IENDB`ggsci/man/figures/README-ggsci-bmj-1.png0000644000176200001440000007407414634136357017256 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$WPLTE\s%.nFCT H4'ϊffd1+Zb̔yȵhBP1Ṭ5p1 IDATx읋zFA..yV&jcg.!B!B!B!B!B!B!B!F#FCWǫxW6\G(? vF5l _R8`#5xfzdMg!D8 ;u(Wrh8?k9`xt$w/VR8J%RiblI <`X_"o.Xd7X_פ> w*9 /y^s8e~$o^79 Z%62^E-UV9_ZZo.yQO]Ni *އ*#FE48s8>5ɟ?$;xC1xM/eN?8@m/|@Q<Oj?'Noduz.U~ۍXuYf ("$;Ĩ΅;o(hh!S%`gS >2$=#S(oIE/=!1Xo;CoL`zu#` [84)a\*"@iMdFp̢1軖Y+8}9Nu?&4iAާ`r T;)z{.5n  ]iq+OG;ʃ7/>$o,`K6[X`)u2 `4$; {"5v0.Fr.׵T\P@m{`HgL~x5$XAo Q벮.Zv.vǥT3$ȝe6~<:k@@M7-BdGjgqǥ8PS4Ϗ8@MpAޮ,Cs}30,XӇ˵)YO<⿜׌ P,~"b4-|v q( E`9)l2)O]ʶ&u t9qb0af4 熃řD0`kLzs}ONn/>Û,obmMn„ 1o~;qwLĜibo 7ebI- B]J Gj܅u<7À(q Csu6Ρd2wPY~bVebb|-N.uZ@;3o}e{+ -zGDUTED`xyuj1L1Tk \صkDxVqܭYY4PX,^", t8a^%]jj DfW#0BsW^u7Mb^q+V,FGBQQawE;.~f8G߳WнAޅr\ BXƖG?O d)!,I $@P'}wY@¥:~D2 2`ϰl&{vqz|8\@1`; ŀO %6L5>Y~(W4">lSj vn 1;\ڦZɯ4hTJ;P;N 0rRD|zKءsЅ~ʲyvS[|e-)Dcj@4gV. ^VL_xHD-WM| cSX @#ZK {frQDe7hΰ(@>. CZcl P@ <\)% [x8'F<_7_h~rG'LMD3W;܈HZ\(6@==@A`wtA@曞eNirҽ]@ 3m'm LW+5Hն+ !=.RTn'@|zETSQAOǯ@ ~*hf. +;z / k+]@&q_p/Y3O. P@YQ .ȖXQk7k %ՄظUAӠ)Qۡ[ApMDwZ=PƥJk|qUW@ __]!9za \. >`Bۡе(M-9ߔ,&gĮ%7 @ P*Ksh]@*![2z@[߆mc8|eEChakq{{r|T.y@tW%ky04 77EHַ p%@=8!avDZv1¾] .,U =3nA`j#T ɍ_khw b 7p.4_+_Ж՘}-c9D^@ ~^k΃_AU\} xh/t4_uu[s(u r_ۈ-93I.]AE;@uXDٶmyJbh"Ǥ[ tn|%0ΐ*3B-9/'3$h,Ye!%U: aբ5r9V )su l &#ѸR^Q]q[2,C| @ XQF`ETPkxf~b? 1BH=hS1"/]7'@b ѵq ΕЖ͐}@2 BW[X 󯸑2u_L`@`FMʕ] G`cǍv@n ŝlZ6i6@I(1|QJ*›Q@ *~2]#0FڹRcE,E-lK*Xy-_\.P)V$e"N. cXs&;Dl7Хߗњ:/;UzG1s2+VAp~XM|uQ@ *>ʫ˺@i 3onvI߮6L՚:oIW/RTMP@A86`O [^-^h5 7iR]5mm p>Aeg'_@nTl' @ EsCZbYQnRl}) ƎN,Y" +BQZ}g'kw&? V@n<q[sb̶v"!/EoD U+#cA}UF U6B|iC-&@)\@ރSmꗱsF:\ K/E83-RoHu=T6ͻM#h0&O `5QH$T,'/\'4T&j-`JaMO`v@ VR>`:aFl}PN\@! JU\0^SϏi(h$-T 5, jT L ~lnUԿ+ (R -!Bc:YK<-TGG:VU\ 慔.X|,!ϱTϫq\H5`w?MBz.+{j{l@@;~*wDA̿wx;`G@חW14P''Ҵ+b\.۩D8t:+Ĩ=j1K/b}7n:/~aY %#z ּ. p@L sgkHќNM(SP! u*FK}½1go9Xw8/ dy0v0 y?ldaů+t@CR|GDQԥYmhV[R}1]{ @w~vgwi?|g[v 08K?"4.t<0{]Ǜ7A:Dck\Wq"ԿEd`IeLÁ' <(-P K\@" Y )kLy %%O7:y5[JG@"pHܓTq6?YϽS^ q:1}DF]9 `F@DZכK˅>jE`A,M  O saK\°$QS4- w;iGD&,v}꼙7L%ޠ-/I-` J@N3svmWov ǩkTQ֞ )O@$tY}@<w쀂~ PEB秽X%^I-~zWh}waz!7q0Ci:%/ɕk'~V`u@C'lV)JX+g%<K08ӞImV6bqe#\-18p[d/e .Vk' K 毟x;Ѥ=6B~uwZ?{c?bf֖m(_oMŧtU>}_'~B0 {NWnul $xX&TϲۛM!-|yї{o䠗UltKqyD@r"D.B]Oj^W/}+;`,p,22Lv~P1Gy.w઱W4 bp%1,s7Ev]#~W߮% xXH .tyiТ4_2a>@+*`g ~_Pm=H [*0v @m_ ҙ#W+- 9ZHf 3q k }ڧiⱯ! Z@a l=) @<*^*+tV(2[P7vՔpRa7_QDL3+G~_ d6.] O!p&0M vKkBYFM@HohZ^1ס]\ue﬿PRn7'I)D>+d~;a@1}ax8@VbV@p bl!W76J1vAS.i eIx:`Ma#ֵ?qPTYL`K@ߊ52PQCV'FDXm owl7 IDAT?Wj,4в!uӟqmUga,V'}¾G-@Ҧ:$ v]P;@TTy h>D CTF53ѷ?\{}#( mc(63`gs [|>+!{pX@ ~1T'q.3O@[ӱh>wS3mLI-0Lda-E׀j,0P$&*H+D1\A@ D@L_Fj'a:N߾}>+m n~$Q wYߟR`44/O M@9J۴f$94`ih Ӥi+iX~ XsiaƟfj?nn %pGV.Qȩ ;P 'I5 b4`}#m8- -4/-nVc>n+slGD*CŒ9 G z+˰ɲa[2rVܽrWJ?! yy QvcR-fD` @ZrRE8DfTv ~ )D9A PaEpB*AI&y݀vp>`&uަsld4ikYF';ø^ I9'_9p!^On0ByH܀{&ցL \n15MZ{"O0]fomb6Dp>k2쨆^ % B@ߡdo(껰W]לz?F,"CG DYϷa`a(iqJAHQĐQt~o@;Ko`0T̊å-I6g~^w[ٞK0R`Pw$үޯلA#v/*FZ+@xdXI͵Wާmlo<O}ݥ47X_7Blu. @ W /0=70qwBpP0ߖ哹Fn*l z \ݚf/͟XN"W||rb|_ Mr#?Qg)HA~! uR?e6W|Ü(8T&99KF9FMC@_rА`PHЙ4:!f&.tjPE kӬG} kj9#2Pp k/] S_-m$rBPQT4 vc:M)6GM/`C  +p`B @ n,E<޴҈E+_V\'aFm9tb{IpR>Kn37/$ӏ y" xnyx%^!$@.V_AdXo'~iě#ܵ M̀+4,-gFM.yƂob:/a_Ffțzm =w; ' {nnջO.H(gv7/($Wm/V_=`jĀ;u( X4x?<. .D*X/{|Q@ mfr7~,|6C=%o`u]߈>(;pw;d〲 Mof/Dԋ!2 ? ː66H@b4<~ROPG&:.,_`Wv- U UT<z=%b]ݸRZd]^]@Uv0- ([~\f:%/NXh^ fo~ˆh@l' '`\gL2FIx (&(SOBUT4.Ό\ȿyFuUe#bd~iGԤ~k;vif\@!((UeW Dd @J'Ž^@3"J|7?Y, H11y |^Z hڮ_.Pt0yuQc1YN:1^yȉd3 C0c!?;Xb\n%P%p&{\ K>%t[Y+^ ϳW{9a;0faX]qoC$M@0eQ3[BfҝH%g}/Y`(t |'!i`-lZ **~. 6\@$ Uv< 8_SݱGHe F=1f )2QY?UFC4%kP|iS1 ƍl@ Tmw6p1#e$0,yCyiͻbi|xb5"FΈB@_sa{}mdL$K9#`\AC?wNmg_@mQZm$-st>@Bߓfs4 ]4+pY*'?v[`$<b Hm'n;H0@KZwз KPMv:=  )P H2pJx5 VUfkp&K0hJ4 wg)PPP-v{- D-a_V­*-O6tF 5 mI@T4ؤ 2\/}D0! 5TPP-BktNrJRQ晖dkd1%ϸO!nϯL˺FbkPre AQ$`#I.3**9 Xy:"AsߔDkj9kG lEQ}x T'ij[' -ض`]8Xc]E͚^Ήg)*ѵgMR W1h`zx<> +Z`\B;π¹?E!q$qA eޯPX0QUHmOƽc ylī]-d0?h8@@ hADX#Pu6vFW0a2 HSA~\p1a_PF5dFr, P?(t1EY j5!^@P$y. ġ,!s Щ a{vht%X=o2dz8cCj@Zj]|g%ú0Q2L_~Dh * >#JJ\w6Վ<'`BVhp?Su䐐gzlg$̲ ejJO+/IS @(4!blq-#) EE @'[wlYxfx_1d[Lc~9Pcrlx0 ZNjHv\G4Љ9@"ж,DJܰd7HfUsnq}f~. < u^dU?԰a:=t ZCXKPI{C^7(""=9oxlmv! 2p8,woF]xۋN h u.1"Y<~,0ϳ;=cYJs7}%d&#smvyJ|De.6@:8WJ$!R8o@'pS2YA?dJi?pp?NqRïis}>  5FAcȤģ@ ,Îק@yi^ Ժ" nį% )FC]_O`o'<2㼁Nm00%5&ſ),ӉAu,X[ge)q1[c*sjLi-V7a PIo`S*?{취L ;0nR١{- VI S>q,TIFYj͌eQ`UeM@|:}v}nǘQ3Ft98JX\@]UR@Et¥)*5<ͣ~' x`|45lŒ 0}1g`&to'*hXp*7aGH|\ `dUS9suGҦjW8@zA:`=!޽(0+:} ҥ}I ܫQxO PZKE-Ɗؘ??J(K4Dԕ \m/78XɋCt8MkV9J@ay5E+-t6\G@5G܈1|$/O2$_m-m?N.s:4_m/} cPJ$S?ʸ3Y^!uM8Bh*+  dF b 1'>~Mo26w}:z4&6܍&n5d+ԩ2@ h m>V/bN52?S$ f0b +M@& @J{CWPY_oD&Ge{SMØl~}JWu ?/ƿfC{QSV & 2MR'123@baYq⍷295s %1B;Ph@ d& IDATOq]xT( ᆦeŝo74 @hdV@hnդ(ñ|_D^/oyXJ[[JGX44 5R#X =%Rl=1`X e-WQt;*3(_k%^㽢8.fP?U5+y!~q0 6T}8X@5(q_>^JCptϞ)JsUv;Ew=oEEԭ@^F V-@7ۧ*_b7gh P1.͂tW_,zG5{!!p]QPȎwㇴSj-h5CUP28PV C-e2OJs ` 6T&hu]s[|SPYc\%E% F/AY:?GH-ThSNQ*롷NI{$V 9BT(x=$pW,1%8$/zs aꅈ`d+[ֱ'ȣi'CL pt @jae!Yg0~"ghWj-V0Sh6Kbxk̚ a$ a=NFz,%Lyu}'΋ǬD4e T]PU]1`HL!xp#{En5Z9c~uNW) T@(fHb?=es^>ih'\8#F ޷5$̈́Vtcq5; |RaXVN}6H1U6 aǞB>1ς_ MaJS(ľ*YI 3A-.m˭HÜY 2 ݻ^ky!B.5ӷowoZ]Do1=P1`^@*<% &Q iw LFs5iG1E Kxx a.Dil7D TEiG Ahł*qڵq~ܣrŔs$=и O*Qe.\@e~1qbzM $1p@C2=[n 45 >0 F Gݢ? jLuzm֋Vo*x{dO(g`Vbr뫏mU4ng:)Zq~T-YTP:lsD.vkPGc\1- !ZwN [8)n@unX@e6K KpNO=rvi҄:@Nr(#|M@)%0) 2 =0wB7;3WԤ~Rl,% |$[8b?X_r[\ca'B]@,y*O dO%T;R|yv2;1jC2L:8 mV-`&^>зzcf#| '_ǰe 27ODOh xb#Y@{cxއ< (vNB.\$t>g\O?h& zK;ym^5^k]kzo)D |*ĆS=S$y: !ȾrZV-S`s^qtҩh"ՓI6YfVA4Xmi^5ctφ-Q|&h6EN(t**:~}-/fdу[:-j0Pałza P zEH?Wm Z + 9 Fڇ%,Rز+ Q2OpҲtQ4 2ҹrxpi3`-?Hd>OBaM${,8I\O45Oj mN72 TnÏkö_Eh9DOi1FvHvdˁҮ%U{ff0\@*fjB\,1ĭHiW?H̱K瘓,BH^XyPz]Y˂0qG{TjƦ2i[-mKQ?c&"36.G%W@+XK\@idΰysDue| L'EBb> FFk)kWƹ(@ZDfl>M>M>l/GB|Pm`گ@eq6/a`jdyLcB"\ Q"AFYhc hxƤR4\bH c ^OUe BE}Yp>Z Z0Bj|TdmQ7X ԉb {q$j8 v ,P2 2r"P +bGaF?FhXOVf2ޠPX1041ീxͿ~7lI# xh(zX9+T0~'0:M!  $P}B:4SK/Kb@a<4*FY@xJ%p*TP vy L]_)u";qg9ϫ;HBR7Țdd75g>4qRL^R Lbe~-]i_ Z?l;cƢi-+OEr s}X;H?_;1{3ooQn+m W0lwAU 2O3ȗb |WA$"`U_9EQ9 nf0kb iF,t p"]@"G=A8bvS>z׻JVx9_LX#o>hRR40*&^I\ \2? _X^Л@"1Izd ryDVFRazI-Ks@C u9 ON0z: TKdAyY!C@TuH|Q6{aߺeϴ]bpl׬Д1UzF@+TP3[AꎈF10A F ɺR1!q-TP@{@OLABhI C;\$OJ 18q ̈́sNxr+TP@iO/ONO] y[0EPd崯. 5 @e~MO:'3[ED XG֟EmEwqR=ff: INZ \2 ? ,G(q,q@ $@)g%SoM9 >! Ze%%DfHGm#|gL <m?bB 0[KN9>hoE*507yO 0߀.UmCx)4]%GaTR7W{V25{v8Csݡ@H}8u6cGD;qñ0gb\:{x%A̤i 8Kd'KA8f'pww?j+0pHBF"uuJ8C}\N`cObl>)jk}JIzSy7@2V 1KBJ4yR8IHK{sy,]\\oiN?̬*tM*wn| ,ԾUm?~ZZ CTM]=lzQ<- ,+M-zK/ &+=xXָvwkH'R7oQ+\P_W}NO >s9&9+dyJEM*aϡl3WXЏumHîá2PE($@ xE&>gjz+TNu5L]DM*7tSnD'qNrłD^ŠP- . ׽AX%r.g:*؞8_R@pnpKvNRUxՊ =RUyΙi(`k|hUǶ{w;-<6N@ P|,6,N*TWe+ :(#W'3U ~Nb˅\ޙYJ"` Yy\>9rkRUJ`OH2ݜNjx12UU):_zιd `M׈(붔t9\:`+KaNfĒy"zf]j- j':+rƂגAݖ])@xT;/B */ H* \VZߥ0Ϻ Y=dxE};pYIR%z|@: LF]@N2Fz}+N"GEw=wg-"J @ ?CJ'"P  .1Xq. D@#"ܻa{3y^@@ 1ih/Bw=!8QiV@@XW hЭ G''Dpo{'08@@[]G3m hZ5o] L5<"B=/ASY4A*[:q3aJEZe5x  ,OJ ۯSX)< 0lsn.ZgOƼ?\3a?ysyE8ՔBlX#@_W-[:]ёO2>F!DdTFi J#|>gޏKcaSQ~b=w )ZpF)?j7#r  ]@cͿF,?M#HRxuN `2y>0Lfj4c= 8:a$L[_X7N|@P `"`3EpT#*sM8:Yj`U 2=f 4C$Y@ ,H P wV=o1QW;;@sGSΗ#g1_7g)?|Pk0Ϡ,v43_ba(q,K:/,`:CfP`pJG ݑ;&V_6!SazǢ7 5ܾz.ٕt<)ȯ:L?{\ -ZW(bɁqNoJKQe.t. _W˜P_e5,v)DxK@k7[] f9  B9A 5+ y7䰨>:-U` Rco`rٮ"\ h.7Qɼ;)_?:ޱ 6>TiKI@fR{*An :4~\r ŏʂP@zQ{M`PD%~v FAbA`:~ͧI4_x#qNo/\Z*V{*B@g:~U ,u[[4,G T{*"vER ,@2_?ݣ1/'0*{] f_)|@@lsJx+p %0bVm/f*o zu0C `5@+3@@0YU `P{/*@B>Y@G̢jdE ӋwU0M+3@|~@ |_/1Ĕ Q& ]@Jd@` c|?YO|C ~͛.(t!8aSԃe'cQG*-@<|pa;,qHeo & k4=RIbN^@ ԝIC8&?9. Q0h:砽j&x̧n+h  gTHM]0@H sseRn@L@\Y-ܰkED|s [@ 9 [46| n]M6ydLh,@޳ Ephk2¹E@5f"#&T)@@:|9'Ȅ,zid`.&ެ ߤt6]#?^@^*lDl  r D%{[ & `XNS׌fU$ *k񛀚@gPl31\EضQ<e@b ,ԟ5sp7o! ! @ h#%ϧy~$4s9 r T|gKyt*c``b@p0H &a@kٹ0Z`xC@J0_oCZ1R#. q^Z0^2L@05 i͂_>ȥ1,0 3s`o ^z3NQؿ$X `oY\ ?_/,ջI~2 & 0<,9˹0 xs2ےwK=I45߷\޽$@uW0 )nb`@--y8wt@4튦~Mڂh_vXsM3dXط#ܿ6'$:UH=))0A( > nko ~e4A -sM a7#ZlZ~9F"%`` !pQ(2޼~qX0V:71xrF};Z x`]`kXxǑo@<  ~ IVc3 `'UF4YQoA]S;0 tq\\ Rfݤe/w<- 9M`I `7?a eC`v0s7t ˑ 9kznu~#}{$ `_|C@0A `@ Kt `sдW)/K}r@D" `8]}dy1f0 J),R&col7; `YH Ɛrga90/j < Uv!W%cQ*{]v*Enw}xZ?or@IٶiMv ='{H㑊6-WQIݾnwWxQtGӑjkdA*b0njdUa~rl tjRyQ]:!#>.w3_H9Y:>zѯS,rhﻙnd}ʹXgʒUv;Vab\ SLdSӉ퍹H6IЯzghws`m]SLˇ?bG`hOSUқ=+ Q+`wzO@?ncP,Sb೹pc?a_*buKpǻ D] ⻾{7vx1[0+fnO}.DXGNABC)Bx ULx"n51ˇ)X}0 X<> 0 30 @"9w|aY T1&6So hpC󨧷 NBlB'^O7j9bjtBv9Ed.I '(LEn74%=cbJRʑP0_KCU0(R}BQ4%L0|12S!}9s_z0 %+{\$7h;4w@bz:dXɴw_Prº(EoC1݉HcQ?8!m+EZFǠk|n(9Ex}QbKc;iJEa0bZk[+:dp!6uUJylD,NRQ Z1Ndp!}nlOԝ͍=,i/"ylɭx 8%2S W.{!X(oӈ@I(|zznl:dp9ЅiRDud'w)ﵭ7NQTΈIUJ\v9޳|9:sCZ0>C3cם4b='*厥AvYO) 37ߗQCA H[ `'*]Nd8*(?en*iTż8 o;R+-IENDB`ggsci/man/figures/README-ggsci-nejm-1.png0000644000176200001440000007723614634136357017442 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$NPLTExw?**%Q.-*=HG tƝYx_]`njVnwoIÒQoG IDATx읋v:@C"MxXPG' >wq)fx b!A A  A @A AkHǫ$8ʼnW˕Tm}]lmԒdJ9yfoPrLzc po/eZ* NZOpRPF Kgځ#P3\Gr'K*˜} 4a0"` 0 `0 `0` `Yi`@F 0U`} `e6D``k4RhB`@WE=2/S=00[IΓ[Q;OS=0@` (7>뭺ꙅ<B` 0)Ӣ43 x 06fP穞YC H6f뷪JS=Qa*T_HƓ1J t9HS= %bՑau$6usVscP3!Fi#-2JM.ba;w+3 5}Czg_U;zf} ܴ7?`,\L̺h8Z[(63 `a@7>@ R=Iy1æ(R~_>'ii?UPR%bʹJP Okie$aw8%\zymJ#`Bn$M\\w\@s@Rm){s1@8Y2[<)^6 ?Wʅ5RW{tYڻq?mF aZh `AI"t@o㦏\֭ÉӿК踍`?o<*1_'|9e,ʲk-@01C[OڣJcQ@{Q@ &oE6dj -Q }phP5\-\H/msH+?7<@)1XwO!Ka.  Hh]ą"YQ|ˣ 0~`Q4kl( ̚PI|qh,q!4c !:s du ?CE7޿76pjDiG@pc>auiժM޻Й9> (tn.{>F3-\ 96Ұ#l2|r2~1  ɨKKwkhq:o۞r ޕ0^20@RAJqn+}5j>-D:`c:Du P1w]7?ckrO#qC :s"DF0 f>+yQD?nDƞIzS:?ta9 n1ԨnwoA`p+Rs'A\:ݯҥ 8 o>Aq|vm7%d]+R-n_#F~ F NPFʦpiu*ߊTE < Hm.AquT΋*u[~O,b9Dq?I/c0]s< Z?E}^o,҇ j 0?ĵP}>CԱINಶӵчpF}vPu+"_vQ5O} P?sG3 n2 p31瘳}A(7:'߃hɺUf@n5%ѴUQwk`-@7Hpޝ1BZR6pjQG{{8:ԍp=v5_kF bMl!]}!Ƃ:Oqqޟ1 nO6WGͤQfs{f4pJu]JI>,V^ {bUMt# #և?)y`, rBZFH xm rEiBQvso7UK{] aO ]`O` BRyAFgP߿c)ݾ_Әϩ!¼M*4k%>j}`O_ vuw=@t"tH5VjhF?U?j}`zKcDr?psk갗 |#/[b[J^[La[sx ZA`"@ l7A녅AWj(^U|f 1'3͡Rl g<1`/RCRrQ w`Ih܇f3vn}!m 44&@׼{A0ʞ[C:ͨ4?/)$> XaVC+Ocp>]MN(ct)uo^R}k!2&VqK S+L#v`g/2_MƱ-ov?_|ɴW|Մi.n ~PɥH#^兕+PI@f#=%!@ `^KO]y4 Ҵqˀ>5 ll@zd|P߬74{@. (ynv_Kt9>b^dwu< Hq r^E%]>鬟N!{E5)R 6 /0,'B3V/?V V!vrPρ.TzZ.f^3ULzU4A1RT54]"f$a1_R ?cs[֤DB kZ[Onxmo'$)R`,wDJL}s:߯yIumm3}mu]<b @MU/sUy]%Pz  @ |{Pسd p6 ]RugX } .mFoH)4͔}giC  U^h)O~B# XoV쭿)<0\@r*i*_.BЃcвBt_T @  X}:0 !ސ;Ja)הni@}&wo9ab[Zo>?M?:`-5 7w%DoR m/ Q :Fٳ9=NWcتwt{q{g DӘ0úiRo$ Z`<@i;88`E&igŦKfC 8oQy8VO `u @ H.||h tQy:3̅?cѾc(p {,}w~3/oKd 3/{gJ!?ɟ /, ܪQ i_:1šWQĜ,擓ȅ͖Jçʿa7}cuCm?<^*XʑW plz62 `Y1U=5& 4 p} o}o4buD6^٢Ek9j֟s Keh8ew+v*B@C*hM]r*3 "4 Y5;,:"6Tkyo d֖ƿӫhC&!ޟwOpw>_ ӟ}PFw]n}* ;^_@kR6(:T%Rtj7s~s trkhT`| =<4%Y@WG [^*<b6h ͞[P-_&U]|`~/,>#z @^^eA{ W9#,? Q04, @ (.eD苉`Eic// }Qk[0!fI&גvm/2렔/M r?5ο)gϢ]> pxq,oZQPjxV8l})[ =np\PHϠ" _PuESQB?L<8 p)yUyFMDB"*JX`&t8?pU jv~u. @^@ lkp;Y%ll*4\Pgs^1swoc[0[ly*@s+S/ SA;+:;0;#ݍI\eOKU |0Àյ㱣6Os( n`?G?t AU/@+ @(bg0.+5l?̼}6VC8觎Op2#$@uL@STW,c(!Bzߋ@#S<9ٍ5b/iKg`^76Sx'=93~ ؁9@WԽ}}=86x?<>Dz? !o9e."²]m0_&ntDG,# oV ?* 78ۼH aLpxs̥ u1Wr"*vVem6(@M.^ Bngо!./|.B{x~pvJ]'.LI@Bڳ*-*$O(H0!W:J6Ϣ5( @ !A[ N6EYnl7[_8zp sFbHj9& @Y J{wP ö.\Zy#>ehwy W `?8b-DK)Γ`{x^!i14Ox![FaՄcc4 }y ^)B# Z?N6n.6Pp,@(!!  9F?_'!e߄*m.qZ]3#nSb/{ǑM%]#MrAHЛ 4)_DP=d~ IDAT 0e.WPC}jHҾ *ŌOUMUl!2u 3"01%O< @y  `\OÞeDk^k 7913RlԙEe.Q>mF/Uf_IX4 _-n١/  @@KcS@_f:Rػ[ M810pW 2{ hI~>]\J `r@U Dl,&5&hJ3cu8{|~D/8ЛBe8SQ?2 Qm!U DܙBm?yvm[ )XS?}@AhaNmLE_>NɬlĎGPQ `oӲDP# @ۀU_h 1 O1]Y'o- bG {5C!fОB{uS9y5iJGfAbk^D܋ee(M+e-%[ 86hycbX{ڷҒ^.<BK7&/lux;lNnu4=WϟwdK(Su˯1lvuYILģ^qaPcCXQlCMFh, @7{%y%O~o%w>r>Ma+vX)|òF3!6s$}͚-tC FoǨ/8%GR[5Ưτ)>!Y`>369eC ͩ^P (_])g#S(!8qC+؛О|[ftlgDOZ?7>~[:T_N(^5!G XȮ >uNF!䠳s*`2u ݇ m3$MIqM)`bqx9}'# @שOԛi/==!{gimHWݜk._,y>9yjE2 Fe H)@77QB+"&RznOk{?m7ry ߧ xo Ŵ.u#,`rЬ- DxЄ6PS.ʐ:.( IC9R^lzUWi}Qy Ь WkE (rz(_Cw0f㜘$7k% e--Y h@nI^(!!M ZA?*<_~Ur٧_L^I:S k(!!!4,lf@K٠Ѿ[پ.fe>:Iƨ/VoUgD ?9Ɋ's&iIVCG"{9%0J`Tjc^W[?2EZ ktQi 0Q 7$ sV4k[ȋ9tA}-0찓oл[HȊw 'Z-Վ +Բ}乴(!!!P/ި 8$`Ak}jg e\nYCG#-9@D||AaQzc'~U5}l !X=W3~|, T'9^5}{@#ߣpE@; ໮~?yD"{F<_2mNK[s~C`2MY&L[3׻̢}>a2l4 LJjU ऑw8I[H#f?<02bo6ݻV4>4{~~h<``cjcpޞtzP Zb#)%yNa j]`|sbޕ(C 隖{B%d2GU.B\z ,n07#0NӈT9"mxy]|gd/8 5|KLW'6>lӞiඍf3D7; "feB vĩL {( WITćk3(=O;SO*J^y=]yBUTe?CC`#9C2Urycڦ! j%&^ꟻUfnqX;=1q#7e/b]3=ь!p~$OXl".$7YX9u\s>+?C򹝉F5U*Nl ã"waaXd pcHֵTEv k^Ξ=U#N#iy1dC{LAu!M"J|϶|0i8TUP ]Dn * -[ݐ9@$DPV#ۮNL:a(:$:}SXRE@L%'[ˢ%@I@GږF%)%f?@G@%@ -@g,3悽j[nIIA e@oz4NTTC'[U"Cvy#Ff "H~~~L*a4!V Ux|,bK ^%,P G*i5#sic8hHkx*߀ELTEх-b#1Ex7)Hk!9`;EcrՌ_G[ 2Ù( ^qdSF;z߄m 0Kp5 QU>^{g#gx\p.m$<$6PD~'M ;mV 5Um$0A=VVn3͕Ϗ,-LBl5;VHA@ǁyz&,q $Dlp΍?uo9t83@~>++}9b  W䎀%ң'qg<~ugvD1X4*{h"W}"T@y懡 &܂RKi [IvߨpqoXWahUy`l0 h|ЛƑ6`H [G:Ҍi8T:B@.tTDӨ\0bʝq¿o -a_*m~ H txwWUE9qo-\l-?"$៭u@^kNؤN &$Ql1*Z!A7Pۃ?LUTx-|! #ovdHwUI iˎr]H}G~tb 33MknR 3n6 #/r oP 067 G]ڒ[ H ߆ܘ8B&Oq!') @(ʳT6 b_D/z〸J?D.qH*-Fk"kw!Qs~o<N$= |H34DD k&sa\:L =4 ٽs|M I &Whp0—e!f@r;|kNViW^-lK:gF Zƿ.KzۉSGN;B 0 7k12gey"*SCS 6Ewv! L󥲷|KV,\Ju' 9es^?j@DCw2&.vQm4W=cD!Em=R@r1@,8RE p ` Dѐ[;H"ssT FY r!AA._C ۗ5b Ew7$rqgQk RIV  ۱YAWfad*L%F @D4Y̰W 1,@1.ڟ~Iԍ<smQx$sP޵hA"HZJ2= R*QBB\ggg34h =Y5>p  ,jSS-l9Ga$Yt*1(gy 7Pdv, eqU k.1O61 ډ$?>4B@+ˋ9ݭ-c*Lk%,?8@n`[ έEiǙZL O@c  `[_T$Ղsy\,圵ߋzsˆg!l0N)c4A>?l,./:"5 3B ''Ii_Ҧ  x!9@]2Z`yri "63ppŪ0%nY~Col [2g]/8H_G`Bπu x&Z@3?Wy6 ҧٚOD0o{AI@-QG82kWX. 0%!uٵNI 052˱7^v@dϺ_\‡E`$@{[` j}'<=YTU͑:!~@4p_iLg.o]jI,@|-{ m\K >ap@dO_hd #:9%݆^Soe"`tj~>=f)<o` +J&W}0fLzdK:|n" 23 W/N,ЌNhL@?n1vrXok@P/?df- TXMQ1̲AÿV P8*N#{nt^.3*Ex8pOy}] wWj i+7mkT9P+5-F]0`6a ([mW%2Uo>HG_yU,nQŤ ӊh7AOˍL&JA2(_(o3@-#AěcXZ2]/l*b8s܈=qkUMߥ{9A#`e'\@Zp&N*Y*## 9* g:Qټ El/(>|` <|dnġM5xSbE ޅ$ZSxsɟĶ%eE%Wv̉kK60pFaB b`!A{04M`Ȇ]y5]e։~37:=-h Y Od$m:Hs}ʊX7ED]3f,͐?"B:+@6bӱ`MXneKaҨTJHz!p 9BCկ3 pGOeO:^@J IDAT.ycEӉՒJ_⋜n8֬o"Ѣ <_ N~=D FNLEۼ06Ď`H@:W?"b <HZ$ͥX֎àxk} s*Ͻ'7G;yIzlb|S" 4j& N#@R`@&&c/b)𳱄FtB0(k˥/W^jvxk}~]6:Z'=OqI%3d ouIH ߭S?B h P xH ̭U qx` WלjA+cL\bY6r?VJE!iaP5az`\I'pK@43{f7 `*UrQ @b4MZyDnba-aο=L3jC9KA$H[ th ] ՝79MA'Ø p$ 4Yֈ)΋QM[􅎬{Pظ%sjqh%Ew !{H3@c ~[to$*pIݲ1Rgg_@ |p2N?0Z*E#l,lNQ%ɼ0 T`#@P_p+\@cR`h=Z w"'サr~ZΐH]bM T K$!=nZL<& K:}n+35lЇ˨\rEK˳%28JDY䶘Fh"8>Zrk,ыlJ;0ìkoς S@D{}0@x$n.J7cdVeJDZDj nBiEeU t5ƉGǏF O t"/zre;Q!%>8G&y]z+7ڎD0R?wkD(M#(nUP|V$a3Q -kZwOZVnq(U'ZĕFrN,BZLS ?[x9N Ϳ'_Uxh"*- 4M*]ŏ3f]hM `b`@rcDQ~f$ r2J ^:V2Lx*x ,4r5!+"4L_r?Ig= (v;3֡k秸3.1[`[-L@)qDE]@;Z>+l-4*4eU*"쪔3UyZf.97d[L8Z'pOK𿍣I9JJf"x+/\@W|;^i >T-e 0C&T"{Ĺ,mgiRz0ddmtlHza(>YR|uVFJҘ(&aTeD`Ta9z/PsTP@\@uTp{9jTY; T U^Tp9!m\wz(Q9d'A!D~M@l@E Ld ܠgbhLcO6Um8?oO u$D t8L ;W4&*xU@Ihs'. SkKxo^X{ֲ@E< 'd`j>diJ37 @ LvI`P &(? *}hlؖ23_lWE[Y^ _N7C  Nw5D0dc$3`N "= et!sK󝣽CϚ !x!9EϷ/9QAG`~-~$,}*zhبslG nOkEEUY.#vp<^g;$wP?F~|; dztFScn7W|ڼ>E H:'h$aʶtc\vWK,;l'"BϚnzU6܋ս8w`G~1L@&i<ۉ-Uĭ5IN}.D3G=ݨ 'ׄ<[27kahӥI6ʀ785[1kp)l( o*x/9 \|@ y!$ lg)9bLTH_VbTv2nMXp\eU(!:6{P}[+f0\}tݸl "BO/"{SJ$\JWQhG,plm"~8&C+tF@Otέ๳LD6/lqlE2U]=(Z5}oZT!'WtaU@Vj)'DS7t ke[ۍJOTT{A;aSnTA X9sgsJbu&钰I`zH-az/ _/~a4+ V@E4_$ Usanc;.ܓUEXfW5 kc~I >DS)k]&Mg+!̽tɆ,וp6L݉-Zs%x= ,鉍)Ԅ`%ρ"KÆ"6B@;@pBJ/y 7Bd+ƦqiDӍ񑠖K] ښ 5v {w@Y9#p=eH9tX"A&fp{v@Qy#pWBJYNn&˖MVx8x6qY4 h#KV]SG+[Pfsxʏ|Ep A-U׸ A @sV xlA/X,Qt< )@m[N;8 [Qf ܟD 2p 64 ! חsd^A(,P^@81>%ËP%t.nj9;KA)\_RnGox"e*M8 ehL1)p!"p  x] +\18 ۯ採b:}duR?s>猿5H i `, 2(|$b/Ʋ1!%p"P(yOp]fxAH+2(M#@ @|JHd6l@d}% gڬusLH. dqXD < \6@ _u-N~L~w$:v 2f+M`K>cfv/֝,:5 # ci\p՜}UiPc';I՟A͈伛{m;O_"@15Y@c}H׈pd\"㷘l=H bSʬ&7E 8qAp-Ws-ФMfx u3گڑ (%2dO$F]q t,!(^ iA@o_= jJ@YQ So 6ACSk0ƏnH@ 7b!F)ĸ.^.s v }0 ӁbdyFR;u1ȴg4 z jZK@Ϭ ^2D H"@b1 4ւX H'mD>j'-?8"Jbh6/V tRKgo3߿[$ (vEZ*M!*:!@ `-$QV(.!/ÌsxO…b؅Qf |a ύuX! eF©=YO4q+Lr.N`'uO C UJkLB72 P0 aJ ݁ TEo)VWqR^1hPLv6DXjDY"@ `y ius)3[نq?WJ4)l\7?253￴eVcd"@ `+x8I*!b}?_B%Ѽ7ِ5i-\Z@d,flCݐ ؔl6@. {cjMa2LQ]4btJabGbk}P¤;\ mJ0qLD!? $ubIinyǏߨW Z'~ʂ返h@uDG0H!.2d^~0 haw"'(KIZDd? d4d+"bq8d@a8XD:'rw. .d /e`d18 @V 'wG F N/4O'oj "BnS5mE}<4tq5@a"@ r<`nDu_8ߦ'2 0~ճdwo:y F3\@eE6*PcD낧.δ`tCarMU&1Z N5@Z# xeؗfFd, סAr\>/A௯k֠{|_IDATMS^ lHmoYPsHM:?W4)gr#A'-W3^C+!K4 l. d1Fc\v A ěhj1z &{+8p|yh]b2Ȅs xm8ů4.0n.@۾?o }m` +G\ԃ clz=0>q02MbY@·C{Hrc4QiSIA83j l$혥 SJ!.iJ HVȲ!Ѻ\<2d?Qp4kOOJE9HU9 `$ѼAq:_%2d~{C`A6[ ĺbѺVr%<sw  x+ {C&RT@3Vޔt<3Ł#@F f 2x1vR1m-9w>109$F@. e>aġ? .J `~J`~P<;0^3)Owz-ފ{yD30yaӳَm|{=Kx۠ΤVɞ:X+wyȯv\^]S+(۰O~o3٠.n^v sK7:Hӣ@${nZa>sQO(bC@ͭbb6L{Om {e5rG@_dwS[ ^g.VIQ,J_~!3G_Rg@O_l`vڅP|Y.IXe;]@NMt9=LѬlKB;;i;E`mjD. T\@kc3ٿyA =^s=GYLS1矧!!pN|U>3G_] @4959y uE:g89MFAՖYUHO괉__w#O:ثZGB.sѝB;ia*֪4]$@SU+7$=3Q1[XԌQuJO% N}&/ oBw[#wmZc4_C( i9uDu8-v4O%>Lvh ak 5r滀|kjw^x<71ih^L[4mK# `9IB9pO>AD_fS3%Fvff?t4l(FY ϔ> 4'} D0-ǢVX `Xv%RO^ TZk@۩]]U@t,V_9.~jzϥ F Xl `pRVV`[`c`obTS> @ܟ>D@kw7$R`#`[ޒL[HR,7`SAϻ: XW {(fH(ݎ "`I aX> YS*%%ORTHl77FdG@j7SBW)L, ;R)0)6$#` @@yN08~J60I!|켠 9ueMؿS:_E*x@ MVh; g_ ~m@*%&uz`<D$CUnS l`R!?.nCض`H`BX H4HBup@3}uٺC`0`IkY B0B_c- s~Q(  ѐ`0f"Z@bf_c- \4Tel j[7VE@لR0@3]M93 sa @ #piP6_(H.z`0`_ ]@f `Q<02O4 HSt7jUro \5`T*0t?'c- [9n݌~6OӁC2Z@0 @<uq~* ,Ny)/>* } gi;Tm6y']]@q0  Xh-I`h \JhA8$x )3`RhK88y[ԴFśe~.ʌi9`  rF*kE`01"D5- = c|p.S qyza4x }#w k|b~eԟr,Qw+E$taD,Rҙǽ`qs9. y ӻ`p›mj &2{f&N .ua 㦷J?x;<`&0r*ޖ@´"@0 ,8 c:SB j}2 {3 h #.0 wd& 9`F7  Qޢa@rRs`< (jø~v"`h!!"y>7EKu-:`0 p@ѽbp1 sb\؉<m" Ka0;@ѾxCT0 `sx7`톏J8 F`{0 %&M* 8X`Ɖ.y(H 2 @'_~sv_y癨`odS7F9˦|8ݥ3#X0Q@ 7 Ϻ^tP~< / `P p7|UUW">* '] w 53 `019&OmQ0WxmehNx&pã^!JQ 1.0-I64Cเ@l4 eyJx1DhZN`_  >E5 `;x4r"R0 <8 C4st=Y6@y-`01# `z7 YyG'R.4`{00`yjBUߊ8dC x{g&DQâall2HfxvB<_Uy!N]_p8,Ae~ ӷp8Gs3~-Gp8OpSL48UK_SH" Wuh\XoF_]\o;x +&ǽ|\)@$Yhv p.| ~~' G=K5PrņiD{d{j/<ߌv{ѷtu*J#8r 9-wjpgwNJn!rBJTL`xg~[sp|3$dxpK6FJoAQb:z ^WM`L}eǹs`O &XoqXՁ%ˏH4] Zu @uPKZvX83VˁkZ|Xۿ/+vinp:0 <ϛ8B0x*=(@R|Et6TnΛ.X߿V aQx-J9N-ePr8op6RT0hhrf:98ӿ8Iiy0+* ʹmouK8o`\ O 4Z\ )pr[@8@~D8@/ߌpq񖮇rqZ} +H (C 4 R#4SV0up8 @4]cF)n3>33oc6|3UrE0@Iq3j;(؝>7ѧgs8'qjXX5 Ep6U:4%6cw<Tӹfs @?qe,^Wn5`q'sEE8M,OU eny@Q6r $8Dk/"=k(՜+59%,\ E_"Y.O^u-?(~DWds_D"?E&z)_lJ|~-Ց^Z- u[DӒ^RrDd&oe-DpY-" .ǠsSگflf+(lv\*@X9^_C~?DݏDh珗k1}ۚϞWF{+#[@Ffpr-n/[ W9m87.sFx D>`>#Lmvv 3#+%R|="iaLJHtt?ʎa*`Gz8TG:x]d¬+,'?3#n}%MQ2Cڍ|jð[#=3+l* 큕4> ;ݪ@JD ΂4v߉BQJ&q:3Ga&`Wzɬߑ4 J㥻e_Re(um^Is(`jGTU;W:xO4 JKse-܃emsW6 5:j1J?jt`/aͳ0BB!@!B !B!B !B!B HjN}8AzIENDB`ggsci/man/figures/README-ggsci-tron-1.png0000644000176200001440000006677614634136357017502 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$HPLTE---RSPgjgA@>`333887D2q‚X<Š8dv~:R, IDATx읋B8@ ;b+, jU>}3jdNAdA A A  A @AvīP_m2Ri .f"ѻ,8W;ֺo{ \sG@¦DnojVJ&2#%(u{‡OO*fwkv90 |O 0 Ğ@ 0 0 0j```80 5 0j 0j0 0 0 @ `i s 0ZoO \hf5"m`t`540 ^0 `]$n|޿=x `פ= 8$x$ƽl~l% F >nwG&^p`.v^C~l% Pj @56MD 6 0`g}~w}.px6R_NTdFFEr^iw03v~ /``W; u-s}F3=Mt"pkG!` ;ڏMt xqȢ`5 ~{x6<0j4K,@ p?| l`5 55`/o"5  ``PxI X.a<PxE@ 05 P0jh"`+pU^׿nz`5 9۪c; 0 D0;G~ m,1;Fa5%ƛ e0c$1^ĦY?D,<*cW5o*j5qb$m/ `.w5 ty./?fiyᜫb>9Am`;/ .%6%ste8sw"_owFCr5򿏹gl3bm!@ͪ>5]6q΅<0$V@:{;tQ^@Г@ͺ!uO 6a蜖FyJ"0%jC,''HSM}H- eܻE S0P8olW%څ\:@/dٵQ~WO]*{\}w46NX 0 @QhJu?~sj؁v?x? ~5 X r.]DmٴD}s٥p4}:Z@@$u  4Ͱm} _%_>R   H7P Vmf9 7e8Zq"@5 X 0@@ߔuY3[HdOeT {cNKb[fm,=eދ$8 FnaHU`#?@  3@>03UwPE\~}%L` N<9:K `EmFD"MD`D@lE%@~a v}YVfYv7{~RveaZ(_;njD< p.+|3@-Yj_j ݂{u%] I-@6i5_ jrn~:y Pe Ӏ# >iGijpNc@" J{ڇKUwo[rSgg`bC' TLJOAd[dNE*'fqw)ȳaz n3!g㦷$`c~u߶ʫ~n6k6w _8]nl6mQ@0Pݗ:sz (n `p\)ȍ=K/ғ9P>oxۡJjh3lM'u@:P >o/ `VjfKUa9hqn@0`ӌE>JEi7a {\i 34C*jQ̭K 0 8T DӋIn|Zonpݎ |3r (lwQJ*AݾN F \_EU_C36LOVZ!ꉵlzG=@ȴ})堕j!40$vm3x"0fb, 0$֍ztw M(`{du_ea5*5 m-j8>#4z*=6a-6;4r,@Һg# eUw~iO4pE< 3M` d9ȡ (Qa:usZV\ft'o5AsX(>u()o X.Pf%zY޵(ACB1&Oo6 @6Ṵi-T٧%'TS-]azXF4IF3]CSoআD~'RV-~4P%u|Px71XDP[0?3L(ʂa͕7+F7?N7% x%ZwRNEV_x w2BbEny#P>oiydj?;$ӒT ("WyY MԘvVc#Tf:䉚$2μ}=F8@IM wjR3dJM-$pA))1@@kfW>S?V\c^U jQ8|q*YKꅹ¹\? @Չ= @   > .CheN}X ]A_Jmk/AW}M )RG(&>n3fVJ*np `g236/qgodЛ p8a$(4 O1`ϳK&ѣ8_ Qܳћe pȺ"h@=D4uNbQ@*Z!3%&R @ p;(>EW`aa&.Dpd&."X@3&!)  Yh1 "37عU\[ǝrk>MC&-HH) @ @s`^P}V"h(GJ @bؠo]9KC@ )RG)&FQ~m%KI}PUU? >!V%P )R/2 EaˌIGvAg`u8C/ U:EX|#H  )@t>ǧx;qC KGD1s@cИϏG/0pQ#S0`0)@P UZP cxII#摲2 IЁ:_BVFd֧y+b+v. 97IP )By  2v`tG:ko/Y ֿ!v/[h(= SOAH phP@$0٧.S8>͡ k{&^H_}6`е-࿨@1RHpR 1D"1눏4>v .&5v{zf@;ڍ ;ƄH$BT_'F@1? yWU(ZBxֈUBM>,GhiYj f؀H+}Ӄc@6GiE/4@FuXb@jp:%XaL@s>X& l @_x+45o6w]8IQsPgQ8r/>2R. κLsEoVDti(cn(oMbB}&P .!Zf 'ByRb??# @O>:')rS|3^(+`zB6S* L#q}HbO~b_:&$sIdbPR TKz c 9C@s%Xi[&3#˽"r,Ы_'bq, ];0#6[祣Z"J}3>u\ДSOz%\;.+c /)YPs8j?( `._s0NH<G**Ή(^( qUCyqj[Q@v w;?ϴ hCW[R~ -> 0'0 Eb'4A &f a_I\C3(C}Ho]/8pY[Q..,M /jK@@6mgR m}tDx puW7LGoz6t. dd:$wH<Ձ?(lHʺàS1x*@9H<Q :K{ @z<2auچyTy݇OV<Un?R\  }+@;Э?R'Yu/}) )_Q ZLl&$Xm:E *p!orF'7K8pq,8 @׆6p HB~>}I/B0R@<hnoe')֠Alnx~LA\{Iez>7̫{'Cgޣ# 2QkTNj&$! j֫v]>"9Y2bxÙn ~P'e2!YЛ3ɢ)`}ϰc@̪!![h2b@s<<b,#o 7T9(1`lb1ZJxC1mwDP:;5ǘ}1 @A"ƧNq L"[I<s~k. G! )+q sX337r;pfTf4S9SR8W^PC1LgR+V!t\{@*H+fY:̅-նAQ91_ -Gqꩯfp-+?g29@ҿ(e. ` +eD.PK$pO4y#[c۶@kg'0l'zCexd5pXz'P{(sXx W@Yf h*Z,}_6O&$nYhyNOw$=)"5 p * VA P}nP>ܟ+e3RܯqcҫEI[!D`?F>\{|45 #A% OQX`0@ I,zKœcow?a?<mkJ|\"k=xO~'BƎ-ؠV` 1! .]h[2/_Ɵ>P T;m)ᙤ.|Rh 7{]xE13\ҺI0;T#wxV)s Ò$X1_NqӮ! qO ɐqgQ$~Uf^>M`! R u 9&'(1 `$e 6֥3__g.>S>Yr1R+7wdfoBnzjbU@Nk tr*m6:>J0m37 أ'23eM\aDV/ _$X'4hL8 y `mM3.%A9\'% L?w Aߥ. <P8 IS'-ȇ t)8@7.'_CfR\yVXx9p0  \ Sz* s<+VX|fpR-HcZnpY62kfǬc\!Q"E˿VR+ + A/1 *Wj^vM/!e1 0/-4͕M_K73+b `(_A|5{!. ctާI˄RvB֮jB\(A_@O}~ogT,1=ܞy1vժƹeХԔΠ`;7Ϋ 0niA GPSc G>qsup C3 ~FhhO @-bXFIH|_fGA`s[D•'YBR"kK.Dbhh)bumGpqn*%/3 p߬x bbYArK (JM50`5~& 2~=)ߕ6wr.ܫV* Ց6xz:\lв W9px,(7S}ڼ7W; 1Kmy/hpӿl2fQ80gEf30KލEEwhŴ: z=  I7 LG{ @ҜOy/L z!Rg w+e'g86L02|:ۭ l^)׊HuFPD6qTbN^DbA{7Ŧ@x в? Rz/|x0}jw'᭶FdcCOh6Hv;gBۏFJIw&@.I2&b+hd(䇊7I=B y `xo WY O%U~ǸZqӥ>o+_ i kľe0d;wѕ<~V `}bՋi1䞫?7!gwM.:.+rg1d@J>V/ϸKhSջB@nYxo6=-B?0_vʧmm2ުG^\rkY,N!lleSۭGh-^yz H7 < I>9+?_SD3x0}jw Ƙ9F(}ۄ<߮fQx\\\"*<6f1' ^Ĥ视z`vyRlp3~Ś*2Pl`9mc*x +J|$?<oG: ]b !\4`yKZOIzc, F{PQ?tV4VPŪ0 k@WW %Zv @\7m]X7 ]@So{# B@PqcMmp cg.MPu l՞o QC! 'g"{'7Lp"xnZH'QLaeh DݳN\å@SoXe~ ݘJ槲F"@bz鍞'ܖ[಄,,̀I)i_8I߇},`9w/SF&_P1~ PYSM4(O.Iti|xbJoo&Zt%A GiV5koJr+Ϡ۝ݸYNJsc'"XOf>az\! Q'_(_x)LX޶@SMܹFU=,4_Mg;UgYZ*pVPO#MSb%Ă[PM ZD4R{o ) @SwPQm @ |ndq@?t @;`L8WzE;)̄t^Lȝ6ISM4pXDS'#L%Ä?< 3nPy&gkK-PDMjEIѨi B[+*-'~a7Egm7=-0֎[VC`\^@Vpi B lī`|ßd"456ONpHƗi(Y D !榱Q};<-0"cM`FJz[`xj&!t8tٵƃސ@mM >-s7Y]$ A?gϘ,h]Q[$@R@!oj5 P8[*(-!tMdQi-x<)9~ha8# ă~oZ^$gM^tIl_pdx5]| 7sP-:x}&tAZ@t0) piU9ߞn7lNZc"`o8d? tl'm6}.SSS) c[ s5aU`9n*a`@ n+(>& L⸗ְJ1]~# R. xxrۦnPu]N9p=Bxo <\ǥ 0HSsAVl  1bWm-IrE~ILOh#T 9 0xDx9ӱvL`sEVV&Ͻ*68WG$3*&G QD>>_Y N;hӴPp/5I`ҡJ R m5TR`0&QaDi0ì0_1IE@j}1,;b$yv2K @P b%xs} h )gW^sPFPwL+7/@ON%UljmHhn$p>Heg˞PVF9)4=s@|#`$pw;e@=l72k<m@u`2">vؾ0Q`n1z4jM4S `S@m$JP5fp︂.!mċ|zR1@ʍ4V<6@ cڠ@SM4k -4 p-/}!&H`E`G>>Y1MeBK\S1@ k 7BB?Qh )~/ JƼ'P$}h?Z%MUwr8V 0@2T@u7ЌxSM46}qvE;$$AJ'u A$-S3te6 &NE "vWr7h %cA > Qsv D`_([-p2}A"NpD./ 9xA\>.A45*OQeimg+B"O W Pp`}E|r)98WGLݐJX2`̾ `8-2jM~n`#[@o2 2~_+ p|Ϊ)[/Jh:O(ju@3K;l 36@4I+f@E ܉ $;%>v&h5TZTApL}' z*2o5|Sa'V 9*4ĺzfHZ4Pi̖ҳ/n{!h>:lj )TY`./k(Mg(JKϨ_fY2vY)N/p"T^?>W `R`WTfPL4MPEJ^ǿӟÉ)!Q@S/v?0q0?hǝOiƊ -?(&/%>n!iz?@w] Сh #qrS0 q)"{Hc~24?jE^R<b`L4mV\9n#3q r >=)vk"/[z|?1 N]É@_bz=ʫj &1vG~S SB‰FMd Q3+H B,o1 "naBu^&C|[>sg{Ag N|Wz zI-_` 5LrI R ]@9Uj SUA_~y0' 0su69 -DjR&j@wk4}@}P,6he8|NZ Fk T D5`X {Fs]@2/V?0 ?) G6nO;w%@4!>E,-3QQ޶VpNά&&B]`@pF3 aTj]l셍`HI @Iaj!%1ӡ][3(D"j1۾>uio5^th;-0haC\gbMf8ӾSdRJ֣MKă}[ @>?޵? -S~G^](_R]4IYn/=d#*K"3v1Cs6mMk{RO#( RO%4;+::8k{v!=m4q76|@QR<3E,2y0kn)+?@I0/z/fLa-ݏ;M}z``LXGă)R6M:ײuA>w}p1K PlCN@3G@P?RkJ7ͬ@ otABT,c?ʺm eoS# A/ HX*GF,۱pdBh(x~#F~a =\v @.AsӺ$VRpJf1!@ q'v3Ⱦ@_<|x1q  @02klRaHE=Vl'R 'UHC)jX=1-4A- ffV gL |(g)R>ai7Q/0 `P5Px$ !) hHx~8@5yv=F &W'\/iE:\ @.1,˭ @3)RUJ%02iQ H{F"& 7@=& bfAj?8!Z] e2?gD_(|߫jlï(4[(@?HoxER FPs9gMQ@Hxu`2Tئ\4u4RcLgn z?X!)PeWfe% oʂ|>;2xk>t`6@uܳ @=V Hs%*e[{e}ڟڲ& w'+^4M޾A2!RN` ;, Ρ<T ȗ00~ҢO w޵?W8ȫ{pO"Qnj|GTX>%(?lp XwW\(OࡨCw^@Db+~W~CT ~ ȒէQJ|:ho=EL@-z ){|nE-|+ u ` _NJb-vkYs+1[UAQ ]yoZd-:8 D<7&]Y'b84:XP`+EKdTJ4{#n+ jB^< PQ8( R_ `^%?s2(HIgvH0[CۮWUX;*Jߋ]]u "l4иWꨀ{9`þ `7O6MҵM73uw[ VM~113'wQOF+ ߭sƢIZ5 \ee9FxD>Rߩ޳?O,Fn=7BbC?7te4@OBV@׭rN`)<%:hu QmhqTЇ:NMM!X&⑰Ql3WQhe$ M 6y P~[)5Okl@ʤ!/?S"HkPNy Ё.|k NE)eB /g˹Ui]QVQ[ )/SYVp싵v&%yYG@:GD]_7#C ?Bl)_N10Y 78Pc󏜗^ 5 KXxW}0HX/V.N&!6FT>Cۅ 7xOx:Eo^R G!@y_bF(FŤ9dÿ9*%:WkOP@Y5{Rw(jx-dh͡( 7|lr& 9cg_`Ra3+-n>>*$@R8g;)fg( ]coJȟDL1KcLUP9 G,T>mT';A P#! bL8rmkj 1H\(]ʲ9. ]b뻯ӿ |I-f ^|C;3@z<vG0u'-%SD_0G " cY*'!34ϪTvkq:?.q(|KD&7) V*A3_@:{RުkYрRqD;I$!8[&0N 4NIr딀3:# nz}o!G*z$wh<'I$# xq`iH) #S]nː0LCrZ>~|?VγT$k&NK'I= `MյG=eN} 1eJ+&U'plH#=+ԇ=sͿ?Y8RdYI}Z޳@2Jr6C a W^@vV@b6Z&7iTןDO>oO_a$8 8@4aN/ _Q@ݏm" @%B$wQVg |@@@{ր@@ yɉ7~]uBǀ d.hj'( =qh%uC_"0%kZmFa{~ [JJ  .Ծ´cqk7 {Xp ª c tQiPKݸ. d49,Pr! ml@`-3S |@h% `;I揃c!6S; ߚ8n狞[F ,Z ]KA'[>p\3EXgoN-@n9 '89]wx0j8_ {W bUs0 o*ht%`-`y @@q-o7V^Pc/Q ;r= pDXma3rMKx0 PWG@5&m !nIԷ#ini5geQW^px9Bok^wknK$|np"e^nO~ `h;&E Z%$ àzM{p<䙿2qX~0'8r@L} J6X (P?@D>)9}6E'IcHm"Bt]+د> c8Cs4]|Q<2y p_Lp3Q zCXxfq  @@@J1C="hE`_;v;twxd( @)@=#X j o<"$C]ؑA69 Af "@%7(Dm[ 4dHbh3 Op2b@z %x7%<a+5nf6"^H@=8 g4?EXFc s/( _# ,3 @&W ×[q!Av+H SP\:`@s";V[+ڑ%zNWF~.2/^ hY:4Ղ( 81sW ~PR gy @[mߍ*piv7X{A*:#XO (T;B[A}B }+j u58_vj U_at|a=#EܳSf)*Z @k4,? E& (n(ÜS( % ?M$!=Ent!xH,#C> gyhL#9J"'G0B.*'\pv\=TDWX0$``eJA @nl<"<7-y@G)X?{5Po°.,#|o7M*ۯVʹ}zthOd @4׹cvSW ݾ^$0 h竁޷\%K.=vϬ4RF'ɒ~so[xɀ:}X=TP9{5UI'0,F>>cO`OCil}R<X}. @z,S] Xͯh 89 /ޠ^k p%@ԡjCz~AxUD Dr5$ilǡg TW,'& 8{N!] @,5WmV ߞS} `@A@,exƱ_SUoBF lh!n nbݏBvRPO*@-`P^NߒSu~"@8@-NaHcַ4`(V C@'b xRxDe@\/ @ec&ɶPLwG8v"r"=]O*V*W/ @ؖ/!@]S@]F-Խ @ @"5rx-ЏߘGG ] t ``?IO޻\|L` 2BSV Oh@ؕPLS h`_<UfR3D0`oPG"!}k*ܔˬ^$DY I0R `Ɠ_i*Mϩ]ȴ(& `4hf56Y _w!AT-JH' m `ޓ~S>@@O[D@ ܾ(Ј@ ,IsZV* `[#MK!`0N @Cr}ieK^n~/]3@S PD z#6E; uIxНB9 elJ@ /s+g{ի4^XDI?pL __ ݴ[|Jo?U7Y z8fHIޝd/O8uz@;w rTNI 7A! 1CC@ @{ ~T {9墳o`Ax!??En< H<~hkkYЂ"W.IgXgFy* [Oo)@V'pO8{t儊" v6@@HXGGo[P\Z,p~E+HC@xFF-P{quD$FJ,-`eAxG#Gܿ `0532@!@(,%p~ZGG*«:? a`><ң ~e]@@k~W1>7ݩ:nU`zfd|n(E7  ]g C^6JxG"^܌ mx!:Hx 焈*mK0s   u`M7.7p$ 8X I&@$0[A'dy7Ї~8V&Ь_r L}* W`MX:\:  q<`[|'=! fNy:.a昡+5_{&@w<?"5 #~.1(w:۵0_ x'n> &h sŻ;XЭDLN88O_ w̿1/yo}OG#c`"8vX=S@ڨhЎ`{g DaQ+[-;^AHb0 8٪Ό =m|$Fز? 9 M)Oo)F:d AUC .P_wn!x+[3S֡^KMH]mgxzg{ڞf7x)t7q ۞d+iwb詿䭇Mx| 1ӛk(r+S$P(P'5T6j7,Xbb_GynЌG kyw(}P1p%*)?YF-yjjK]Z1?Ƶ9%.mJ^4uqӯ}ŚUOYto\R3}rc{ocn-#SaP|>@_r(~qLxO5H>U@($pzG 6/ ` ee@@R$Fe3 )P9P [KAP P^P(s(@@P( @@`CQu;,fb  B@@qCetS"}],   ѕMut    *bP pJLËDzTB  * ldk]Tȝ-3y_@\jHXz]X!Dy &vPdȳM_XP(}y AO` }(2)n)N.BKu*қԊ6K@no\[ Ҹp}Zυ;W?2 ܯ*b/mY{ASDfp~˸VDDaR j 9kD @0z!>1ATZ#z8@ k@IOωM+,{c^K0M*l;p[)h|"%ki3+]|y>IӇ)c]eafpD+WeH|&LT~^XV`^Ê2=8vN-h|&,8;4) Mm9IӃ1#8^;myOR,>c zڊTroI٤{0-b;ܩ-B"qiA[ 9K'` La[aU8T9}IҴt/VȩV`gH/;'#~^A&JVZz\j^Ê'&QVv.a8E3>Pmk)Lc{IZ &U3Vadp$gbqK{sc-}IJӷ-S@;iUaOAx)@ @ ɞn3XIENDB`ggsci/man/figures/README-ggsci-npg-1.png0000644000176200001440000010013014634136357017251 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$QPLTE\ 05@٬ g2X_m8`*~/į_Vf`.e00 `Ps0'ROP X*;_^,00 !òUϢ00P'uMU" 1P X&@@E1(,m7{pz_ ׯzaRCAӦ}ǻ˫E͉밺']EcUw`R8|0UC?d~`<pza`ORx%xT@~(2`< >?0J9l{H;0 !}# `wBܿsr` K?vt(T26M]5,Jg1Rӱ_|y13!nʵs lo?T7^lݦaҲ(Wo. `p8}f6?M';K\"i*9ndJ !Wސ4,W(z{F5)'އtpE˕;WQ>>E ğdUkeyۭX.xfcmW C2i`?p.M@À>og 狘ĺ22`kDX)1($N^ @%!oC:Uk+yKH+"vb?l&Df4]n"ur= $ N}teS΁tMeN$~|d  aM6_@R#m+E @@;+0CP͎07}\ `/Bfw4m@eqw~'fIĄ#pЉ0; H6MM˥_6廢 鿿PoguzD?\  Wy'oι$_ R\!kj׷~7bM9GNn~`@+z qrwi`~^cm[p@M80{n0a%B48 `@ ԊV/< |ws.OLX10G@r [CmY7ˣk2}-M{3 he1 `.[ WWz& KvGwvb P)דkf$``3`BʶK}o[a#1{C=: Tye\Lێ\`Bj`3H7<E( J]ᇟ\f*AuIz's l2d?]@<MT5 EP.iUNnfK(2!r 'xC5 `7vXjU⛧8L26ޥ"mE)^ UU\z_eUniCOS0/H!8eF2w`{{c@mk.H {fF&vm?{$){a],"-;⅘]BwRlEr)vVlb_3~ f cC+fC^Lq`Cx1ЪfI,B~8Dē &B$=Z=%`#P+OrN$ q_3y.1\ g8.v>|1pGf ֶmmCUߨ4#1bgx~%NSn)`k)WMqs~vU=|m՗>jyU0Ьwϋ|i6l/yF $_1^3TŴns:m<3RUpdmoc/p%&x={Hi@M;Zo3[nndNuo6P/$5[umZNg"اo1T#8_b{K >톡=0bՠr"._Z@f_1e޵jQTP1*$s7i44]kdI`abV0TQd @'p&1, HxpRӂoGwG%L i F8PXwv}D @O@X|G(,U7 j1O=/Y@_XCxh "(ʠTa1HvnO6G<J Up%-kkր(8gѢCe1HPuGy\Uv&DPc)pjݡTE?ʷĘY6 Zp8a/PhH+C(%vOV}oջU l?lTJ $:;)W/۽IC r\HߡU\8]Ù2LmS̿:ei95]d]q|_KF1""R/{COBL}zLjzĴ@$8`JOyH9 ?)""R_G y>:]uoV$35 T@ih,} k~{k4,6 yOWo&HȥsI7 0H|8?Oa f*{DѯЁ`[M2eB/ht.ؑ|aI$4!}{uf @@ LdAb;rd8ϡ\`C#QOCpHП bhwuڿ,HL㨏^f /e@1""R/g /Z#Bb&"zH Ct=xZΛ%B *=BoaI5< H|H`SGbX@.چnX!`#OC;=  Qu zV kY mS^SCD0""R LM m$+!{6+Ig"W#͜E@' \M߀|NiBkGΧʥh]|Y)" MX# s`˜AwTTlAO! ,trjJ0> =k?Ŭ+A`e. RDw0KMĪz/$F9i9מ -ϠE;G ,b]lП/.~H!ʶ y @@@ GIa)0tUVJM+vSaǡZ3MTEs_{a\wvq|KYD@@  e@}y6 D뿊Y@xj&Υ:VGa:Q5GLpuD]hxh:I"@@@ 7;x,]{7^L-xXa+r}={"&ko2>'e!~G:-&BԸ*H,o,m&v`'u}1 /Vi&>֭Y[i]mGCPw_]#ğP%0)ߡi,`&D6 ̵ݞBSLvpn$7]7/#FK n\={YhݩyT!9 U H(C"Aߵ,3Q,ҝcX/ap|L iCƴNH? sO2xE ^rFROxn5UC `uM3 3%b%IB@kqM{K;Qo*Ny=^B i$+b*H|'pv  A4D4)Ån?k3rK& !if@ *0LzfE>qB1(fxG" 7x,N`z'/b̙ S`e%ZWV6<ؽ/u1t3rKm2N^*:ߢ߻B=@ֺ,@,ז@|'A+ o]v8ŎJ2o=G $dkF4C1Νǝ&$O.v;Dy;CBL32g֯Rw2', GWў(Nq =^;(l@[@A9PXDpI&ˬt2U 㫱z<`5|8\VTH"F<37H N߇aA}^JiJY#iw0+X YtI=~U9]@5Sr[x=9Aeseވßax6[o'7޳[7>D) ZT EħG \z\ lՠ &O*lLG0} \KOB!ɀD_?, EAPh !0 |<\SDS 2u @QH-(`sbBhdȀY2t0֥5O~A~[=O{|5"_ R?:pxU#c>00pp^ J2MȜ@c 􊘞ޟ %xm]^w6UǂYx^DEV* Ret1 H2.5Eqknx{/Wr%$1$A>Ĉ(W&&ߏT-KeWw!8M[vM›y5rvmC@J@@Is);Ry%3/+ G#:QZ/K IDAT Hxzb&\ opaޖ@R ځ6)\3/*$6@|x'0^ sᆸPm47|qM0Waoۄ  :A,rVUUg.eJ9<  ^@vo/oooj+ 1hdL ̰LA7?;,nKO8<Z{)Z;Tf``W{g "| gt-hA l5OV M4K_et~㪽'b_}>Q)?x'0+B*۸&X|hU֘iʩ_Dm euK"A?:v .jahZf7(F]h˝LL~ ۥPV=)I\nշnC~̥ѴtEuWA0mm'mͿN`&&V?߂؎$ bh4x@mJ3ìqVg꧰G6"D ab.tM OLu) ĩwP1g+@\@Si?ƢMzy$2"10*YPR 2Uv"hyp+ 怺-@a .h u /죻V/W|}~>G&Ֆfn؆z,40 .?@HfLBBY00+ GlvC ѿ ) S ͎0$>MB^ux `/+ Ϲ˃,M>Cwwq6^Q'܅f_\h:`޷MU1`G^{x  xRlv JoɃňj SYL! sm [J)?O\``` Xz_r\{LkmYN?JDt3P!#_q!A!ou1 : |əX4/q%Wh:P*i0Z\܌a4>>uc5# zX~$ ; @+[}@|?pǞVZ[tkKΧ!SDF/++ ЦB~2`I`&&GV򯤀0*6n'w>Xmsc6ijN8yuaYˬkZ u ]&C) T# H3y8 L30<ܴ]@=_{" !PFcX;S@I]pgYhk5&}]hiZS@boR{00<x9w hjzˏRop. Ǜ,V2!CdМE5x^aw#CٗY n @'>^ph !/?NpUʶaWcgNi <8Smj Nq/+]"4o85jz2plp3[}w!B ?b~6!_/DeZ!67Pwf``h @; $$ #ԧ|pC$CL~\ HVLLn I9$7Hu[);8K:,=HwpD&Oc NI Z6^ڍM[JHH}EY&|FfSлӧ7gPyJ y_Xz.P#Xܞ'5}*H@\xTvvG|)Ya9#ZWFs}%"zH=+Xsn=;jy ĹO30]v0Il@(,n&[mϚnssq  d,p@'%?6<~(=Lq/|R'S}f5!k@!V|@ NrmA47g9F+T,S,{ ”Gކ |O?<ʇ(;`{ e! N~_d7@a::P S9/xn>dM?eP F="/x@PBuOۂg |GG>zD(`zxd`+F`gF >{zA˰TJ9哠#Bۮg*LbRT bpQ+m@YF@/h.fw_ z'~'ػPab}p]1B.^A:|Eo9f{9(Cw[t3qG?@'b® DwnDmPj5֬%h )R'oY[B1")bb4I5$y֌@cXk)0V97D`:=GXm13:e|mC:=$0 Qtp;Н1g@N$܀xT:cAvAPwP2׌xcR5&[5Q#1Ӵu P envQK {POPojk c#Cqa,;wIw)[j|cj-nz>CNp(C{ )ˮ؛ ^[xx~2x*Pnz?@`hl1 0S  `xb;MC܁oQMrzDkzSR5f^`'o5YA 8'WW+܃:g=v:/S:+ gna,j(lC kla]7]zEu/Gfo)*gk-Iu]Sp5A7YiqNꃡ(p5aocO]ZU^GP 2@4|| _~" 4ĝ>᎘r}~YQZ2jl63PE Y^ %l @w갡}v*ɭ`"fӥ @̂Vf1a`eĢ3RLxwr[^Y.ԗiMy 0]I<;C.lw plYzҦAMz竁'zS 6hc k!^] dofDuO{I1,A m߸y{?/, 8 :- m11(Cv1O?r= FÞI* \3A#p#OV6}]RǵvX'&@N3DZ_uCho~ݾaҁhX@n1ϋb0jo4h Q1TKwxjǙv?QO449qK&J<82(ƏxpKb@Ez)o`mٟX EL$ {p x@c_{GY@SxrPc]Wɨ)j z 'h8wQu6RsҿR&i%[6y}VO,3tc$xۡؑxmIs 1e]P}N?>p8#/y;D$sÙ 6|:n2) >><@uE&UPf/:|ux=_vr+t|v>ε:VPR#2Vw8>K8R+VG`6VTVi*9&HDAdҀ:`-ە!Cx'`IEY] @06i)/;[j&jBGޥ}sC!Q> 4˲@*U+LT` 3`Д>@$b(ov1mAgur=+]1(.:ؤ+)!;  Q> ы.z^`jq.0"t4LH ehH4P'1. 5HT /\G'^V|:Zt;%,+i@1}P j6 Dm𳴄~H OA?1j;c4Oo4?{i2T'(nlV? Y +/yn 9t ޵h'զȅB:KYڥG#&lM%q/,pf'4xy t6 j6P];E٬x19 `"0 i1.(ˁ 2/BNⵛ{J x1 $橤1PR$i5';Q]1R3⾘$/D%SL0.SOX u3li0Josg1c:R(Bkl#"0j8W)`0+ݎ']¼4xE `\f[ BX=$,r= @Vf|G4* "u9׊rmEuW_)#m  V?a0pj"pW*@k3I1Cc,pm9UߕΤtа҅4vI#>,H8 Xy!LӘc(k٤'*A pbU6Joo2O!7!h41e'2&7kQrcHqc8h{7 lS[/y9!\J֒ .bvS]'FdY@!.sv;8]k IDATW>6Oʜpj@f2x2P( #@P2up33#O t5Li?>Tmv咢R%J ao-.@ :CV OY4r-oҹ2НkC-pG:lzu1v{]0xbZPƺ7=h? ^T+Y='^=' 8`DĴrmq1 hs' hFCwV?wB09 S Y$d ?wk@(Ma$Ey ' /7 ʟÉ ^7@ H K=j6P3ŘE?=!gek GBDܤulmBWgx]5zr2<)@2#C5h2 `@`"_(⦮f2 !1 *-(` Z$BXEDp7z®أo -/]mE;nŠh+:P1Rf{=x%YɛeS|]&^-qثI[nXPh ^;XqA4(8TΒ[Y KZVޡ&I8$ p?Y(eF!! ae%/&*!( 42kil?~-(niZ< XxC*:t,c2 B";K^%^qU뛾a1&  22 W ^1w0i4 !ŠN xk{cPQ5. ۸p6+5dٙ`s5^l̸ZvK"18:mB-#E[$[`@cg"XKE؅m(* )qҬuOk8ȗ3vʔ"ϊf78z:IT=#"H0]` D.n젢yCc ~ X:N nW &ML:e[aޕ(&P: C2?ŻHNZW638/ٛ.(~J?{`nf"B@teO(ct1M0`FC@K; ũPC@od;*2=S$,;]*a! pj.^؆"U8sUr҃:/X+ң5G%rR I$( U ]*x[Q]y)pc@Q8ֺ 𥃨PGw{NY %Ohet`_>N|,)Tfj狝XTTi)P(G=ʼnF([t.D oY |o3_8$W{#$z/%808-VkyrN &7.Qn$`bөjKkWst*I E:D?$8.l%#  q?g=k灘 ,43@$c?舱bPAILE>T >Gğ]ȗ 46Un@nqb|fCp.L9G3?ǔL)4o5@)FH]M"M`L@ >J2i oQ(Ʋv3a`D7`O%NGp@Ā;ssHj][5)5 # \ e29NƃbZ Ͼ K @s:98zvD"FVPE%`\'&Q^^2tiA. PM@ej`|0jc>GMdAly_GC )v޼H4*`%"xnYg{PS2j }w=NkvΆzN ;5R\h.IӌPQxb0`@ <0g} _`xw4USGKeAfxo8C@@{  1D!L|3bԕc *TPsJ[/Q0b\?xכּx@L!{͋u  XPs L ك^@⢿'~^6~W CΕ@{ph^( j0 l{Rk?f~מ⭬P0pu"P?08a#@=Q*q ]  _9۵|9i! Tj U@5 TƎv%f/ ^~}r0emf7唈f3OO0҅gHNrG}G`8vwYKaviWb_{gY@b3ߛ,,~D(CUI 솵qq:9Itk*&r )an^}춎*πvֺۘ!S& *xN^͕r$q¥$ѝiw"'weLu8:5A!i5ŚR#,3^^Cn^9={&k_t?=>$<E+(Dkx 7:PIˍה3 a D0zP q `9\/1pz@@e '*$ N0M"io&vKz#/6.4"% dT.]7fg !}،[ײ';W a+w X,L ~DTxI`ly!l T桗,[sZO3e0X_Sgj -.L0j^R2cid{>Ƨ S]kmzO߹ ;KPc&րy؉?`Sl#Ga L>#'AEuF@gyy@csK*i4=N`H5aw(Ε4 Uy8Vxњ:hy`=d xq$ |n+(A8#1 )1lA bEmf2z6v/GdL/2'md?l$ԋ++وbU sاM(_~ j!L[N>c)ԝ>2i*Q  Hʳ~0 QC.&Bqb=st#@yk8d@LaZKNd`$7m`J l@wz,+3(@1Ɍ6X YK3png5Q9~(8R )E2{M@Flg`z4>g0G tTF,iT ~@4HU@ `ߧ.1XTKdJ$6.s ~_ 7Qc <:H*xpP{%%@$Xy&K#„0Qs_EߴuHDi>T@?&Oyd(25Ӂ0?}Afnw.9W_Qp'GN,pJ\l\Xq:E6:RZkK,#d*xU 9 qqq`dJWO߿O9-PlDfRH~_m8 4k@T2!M͇ AfZc,Xek{W8eF-Mеd2C0fܥ !)wVUk* <oObKf?ȱPSxGA ?~ 7D[s`vVՏ`8}U\Oiz1ckZg1;#@E``c@IR$|V&z>?) БU]3#}N]_f0Š2\-laÎ ^4^k̫ }c+=_aWw^^ AP~8#@[M既P }@)+P@$)6@S} cas& 5J&[Mf@Ъ!\uOǓ@T&| )2^ChduL.XhŜJj^Ne `~@XA.V|!XF[NCR`[ `JzXqIX9*R"mE3@7p$0&{JZ@[2ABjtvq;./,zR[Nܶ QmR@oT LP!P2QVlb2LAPy5!t`'*[x@̦IF 1mé:x#Zdo*`ZDKI`g3gܝS c{DarR^5ѸxP䍎*BjZQ/)?L'@@@ `,d ] hymƖx!{0XxЌn Nߗ xѪaGOg\(Tx|f\ AzʶSFI`{RJ m9_ן*ZOMP(~$n9o?zU|xE06[r4? b~WAԇW#h"{'^ >k`$\h?R>dWu֊mb늉z_  fs0 Ds/6}/#""Bo5RY%u|j6Z5r<#r$@w.Y伾 :L)x>4ܙNcI`4\S+H#oNu`OdI~ӻY&8Kݬ܉!_a!|Qwލ]&#hq- 2dOM5'Ӎ_ah>'Tݒc/{S][,0e yJ#Ѐ~OJ7)QtJ{\{o"0vNLo*ۛ @/) ƋI`p1RҺ( 1EtzX@]ʁj'yL +Yd',\ῒ9t?DJ^12JPٙs)h@h #G+'ok{F)R€v5rBMW`6O`ǥCi@Ye;g] SxEa <1.Q c2J@-q, ;!SjqP hQ@51pk Fe jDl `C$cFb4ݟߝlK{."" ̻\s `0bH? }IDATP@a=3d I@ rN7&<߶3MN͠@U L 'X\ H) ~'4Z Y rM@@ `Q09' ~PaE,I`skͫ{k&쑾~ ru" -Bu;+_fM͑rAxL1t$ mjLOYkM4#6PV"ú3x# X ׹R@)0*[iv =z~ӻ6I'S92`c׈OAc`9 KX8qVߋkCGNwC?1(. ac^ߦUcQǢ8d%l@4ӕM[8C nvS 615t{Z '[q`#mgtO=qoN`&Wò]@1A@3R5 @ NP`.jBB 3c.'°jj8g@@0@xJ PTxS:ϭU<2YE3?"  "7͟W@ՄZ?#|KȒ? 33MyP[YBu_ت*b?V83'ndz|/stEnM ^mՂgL< 3MaY}wlؙM@|P#9}i`fd{@|@⻀Ķw7VԶ}iL4ix#Jq3QS(8aLtIX,% rdS]U6{rr) Sg?Wj[5ݜLy񜋅S - a%jΚUN?:vZt7@GuO3+q^Sl7 HF-+ #Y|tƖWN hbi",߼BO_1D(Lmu3`W S~nQϏL@G["#4äz-xܓo~zWZrM*$Xv`دhS9oxzf *ff7Y*,t*c`"a93ԡo :ݣ 1P0n-ۆTI-իsLkV}6y2-K9/fk\I~WnuUeCt7@Gs ڵ [Wsip[|"xJj.oٱЏ1y^=8(8Sq$G=$ ~7} (xCZ2IΫL+B, У}pDԣ"+(jbwmY=&;0 `oO7@GZ^Z >_  }}rSW>xi0U훍.aD2,(fN8fxk:=PdxշAAycl Y$ `LQǏf^}.6ʜ7PF@ci|ruH!ηm௺2)"leVY9fW~o;P ˶Tdo3d]ŢlC6[X#Ths6>7}Q@?U^[@:mYQf @ }?bloX[E"O[KИg- d)e[{FoUGȫG1`!h|KR+Z |? ,į`Ь͟[6<*rJx XLQW3>9Dd<7wLWR+(3m./>x&F>~Ӏ?9.k]B%w6%@0nVbl_tg`+` s3`0`t lb6g.m0a@@6 `]($ ˹Y!_[HrrRl $GcAOs5g @Uܼ: Lxit@u4O /n"@7 Um%j0RPV:gjlc `)86-9!Tճ`)~1ޛ0'p؊9 ॔u!o*W `PmrR̟dVnYR @*/Lm /r$ﱝ|y <Po[T⿧J]0,5ÿJ1ld 5Aq'OS; D#޵?n* s_h'go{6pֽBaC*a/ej_{n{ 0Q_4̹J1{"|O@!TvC!8ek*~ya m[ 8- r<JS}910`[u".04wA. b H) DoP:A xy[x>b-  weh$I`J+`s@ƒ,g0v`^lha0wͲc `{w6~H=CxX~^d" x`0(` ;.J;+8 20 @_US' <GP)] V7'8q޿WbnŹ .Lx5d'0_1ѿPQ1~B0b@O9qs0@:7v&_.  :# ƞin. `  s`0/sqZS ,@.0MMbʯׇoH""&_; `2@@*U\\s)WUrڇPxG k sĸIR^揼^* 0_%0b` 7=UG +q 6Srm9n^?P=$@[O L9zt/fv[?BE+u4PÓx*QGa |TyM_KMƛ:' ئ`- `|^7zRa0-P6lU쯊 J:M@0>S[V_Ai2 `jn~~.CO0`yRWP"> Vk1b@ M~w< |JG)czS _[%uyY3 (~>`qO@Hn&ySkuѡte%O9JQ y_]jӓlxz:挪S"0xn'e)ݝD]a0t!.I) ,?UJiyoJ `[75"`0!WX<rFI `HX8nYvSńe ` 0b XASXg[(K-'`0`0xc@2,L`0 l%eZJC 'S r`|M Smċ`+X.Fƛ:3಻(lOMw$M' F>`*6 oZ^ 0`+|- R `t?GS=Ȟ:; `}I.@"u)`kyR_pMz]M{Hl9s2M}M~#=+Lx{( EQ3c:jA6&FkVfZGne'e9ɔ\TV?t8i @KؙP78K>9#}]`It+LmvJwtՒj-tpb[|3D> W- W1}|_tS9e`P7uoNj> k^4p?@3Zt8 3,oJ G@8vpw5+:^5i&e+:orO~-  y:J7; śJ$=Wt/)8 .UD"\Z9\?_qVt:f ]uގ˷sP8X,4LneEղIn>`ӾjKB.NSwGpwwC@ըKs.ZR%0`sW[O{soB@ )w#e`X2l2`.&Hg.aٮG@F:&D~@ gH=u-7['ŃpG l W1Q8HLъܸP:r|[ן _v7[`'vy@[4/8T:J48M& Bw'| @LԻ`=78cX^,)zq9;.9{*@ D8{  q89]Pk| ,"&886p?9-*1_]@3ై  {7G@?cv54,`QC#KuXE(y1l7 8m2g?/`E|qe8 Fw0<.*Xk`cP>p?5F99"8/ !04.ǘu5jPPrVX1@(8TjwPhkQ /%C7OʟY2W"_zz|vOY|Q';O|vqw[`5yov~ԇi -)p4'- ))?J|NU%^Z$03%ձTV4v_٠*IPFv^s%CWiwW]"&Pf))|^- N`"px-܎xa5DMD?w-{qcKm8{Ox!{J%Eo=xɹ$JsE7Z=4%]zܲ/p wF":{iۙxgn QV[@ZnKL0p0VD,PJ] .#0 lXf9/@fǾY2p,w>` ``8n p8@0p8p4Bf:{!c`/dsAmd88 nΧɌަHM^&3ۤHw_p$I mN ]OQ*߄Z ' 8@&ŗi3);/H.|thsq^dln^OXbJQ# dFoS?'Kw@GdFoS$K#h~|?Mf6Ekt/q]+"1Rkww,#.GW \tdFoS&K( a 94b |@hW [?v{7pB)d\l pۜ.δz_8>>zIbF)NLaՀF܂ݭknW-hx# !BB`y͂N@j9/2^['֭ťtRͮnN=+Z8r@HkxC4 Jf&ȯ‘hE[v𲒦Z=ٝ)vFtyt\@~xʇ !q*fLkT7 wGaBy/Zxp?7U|G#Oj絓ˏDHDlS 6N0 /t@7M}h)zeem`\ (U~\Pw,@ | `%0< O 4WVO' Sg--szH@ V`[@L? xtJj`E <6D%j j)' * _1 hL?  Q ;Pyq~[M ? z7"VQrk oj/'ߚ_5yI孿{@r3 䥓Yb~{L "TIx$2 fT}a}=Is?/u]~)fSu?a hy TQ?3n8)ݠ\yH$ _`Aw @ߩrvߪPj]٦V;zmbHpqW&ƛ:©-ff H=vvC@e5sldAM۾:D,ҵW4_ Z $3(|l]ˆwBĢ3L[VP xʯMr72$iFүI \;r^YmwE_(_wq2nwXr:u2A]~w_{7EGRwef X5Ic] ,qFHT5E]E0Q6 &,%h+d/tlvpQ%X]HO&/OfÛ`mrZj`Y|3sc8 C@ڽNZH:/]ZvM@6U>| i_.^}@ZᄋEuMoIC!fi2jj# ߰"Hc[ x }Gzmq=>ӡEv 3!؅vpipdTGxz\Utr7iCmVyP:t{ʘ?P[z%" T m k׿yO~ۏa6Jw)n, _м!Wzgg|jӻZ==MSMՈ"-czGwL݅|2BӴFس?a_gO"l6d-!4o̕~6\e0T'SMRD;mт7bѫՖeXsaDNNPL@f~E Kڇv>/GZGLRۯ#i CD@r^)gF2nlZ02߇K3ODk{Sʡy+̜%8_|ņK`p*U*Ftz˿!@ '1o NPK5Y@kסeL/x0<߿ |Jh[9vg-7K@)ghZx1jf;1M4PEx'm kt3;x&A.<`mZ/SGZވhYiX 3[?s`~S[,.+ʏ6@ 6N<A#W7[t?7yi3֒1x Huܭwumy;5pxOnN/Y?Y̐P96 y=Y@7_&3']T"{?p p#Zh [ub}8w=nwo拘+PwH `KS6.&#&p\+gy0]w]Lr1DL `q#V M Ā@];\vz=(E 0ܘ1  ^d JOyi.zي24Jl ߻Vf?(ZlPqeaGc̸Wm@@  Nv>z2&\G|aи'o.տ0 ǣ @ R]@]3\8s2>vv~*t ht.[)<=VJo24΢+_# kPz|?6͎` g i}p٠KPpvûҢڸiK\T<5%5?V<0/eɺ`31` UXa,$,p킊`~L15wԪ77pg,2P9K+ v X3AS@* h\'Vyavq}7\25*?asVcXja $3 55~G@ވ툵}?w>!@ ,duCM5p\`an{ZkcOUϳvfpgT|xf ]KP 0%_O&X `9Ti!38G{.2#THq. 䒚Aevi}_0 hL na>İ_/ m@5I7eM=!k*_ `@vVB=O&5{J v .@a@|ٰBa@k3&?r Hmu2m|>{lW<@[wϦp)RizNK)/{<^{ И\;{念MI7#Cuo߫}6USqe/ 0lBzpCuyBnD /bpV n<+u[ `_c U\!M{_% D]J"~"m/9 ״t_n FNl6(@ 4duNy-̑b|o =O~0g"^OBj!P1zƵpg@Y3zg蛞Tzȇ ~H ѡ_tcFeC[©^CFz ڮu `. ­ Yj(_]+A+?(2pnm @w;Ak[rD>sq)yוZ$ϠG(%ֻY[/Ҹ_i P^@6 d.2v@R0gB-3`ݰ(@1i 6<5?`̖Т>Gd aܘsqn ?ffp.\ &YS,r!.itzd@ <0/+y-9)H|Ta+>'F$/k,U׈wX$fpv:q. 3oBNJ'GTjR_nC@ < m);˦yfiXz>#Ù9&f E / îv@*6AG1]F^'F@4ZpoU#ݷ |߀_Ji8 mKfPTd\oel|HӂjnE/nM5G@1Z[Gwz0p C 'ȶ=ny>Geg0Ss z&B'P @x5:S.>߳D %*8>R47%d[baG$ye0`cU@Y)m{+wm,8 dc/6~^N;(;@6 e\'Np5z`%Km̆\Nj5o\yL2=lfomc|} Ŏ su3WϚ]1`3*I[O` ٚYGi[ >qVd}`^*'gXAHe{\| Y#H)o|;ozNpWg  /@zHQfe&OOL 9#0Qw3>xӀaŽչ5.{ZA8!"@ &@*kxҩ-?ȫ&fFt%߽ϝ@0a/k9&^6ymƉ1#}Ac_ w`}t8 9zJNvXKD*j/zJk7+$WM[ĵjTg 3bQ-!X;.G'B_\^%`x[cb@8뿃 8D;vAr=nO~MWn, 4ڹs!;>'V2TޝcG@V"0GkD _" xCdAr@.]V}rF-BBf^^ȊbƙIՀ$X3fEOͦ. }JJ?Y jG n{ߚ@׿vw5Aƃi@2OaJK_r9rA͌gV45r2hċV}цz{ |@7Žb+=N;_AǃGc^ro}rnq>mڌ+d(c60M X7@qaLN0 ypν <׿wtvyzC<r7zu`se*J80a57-zy o;- /t?,G <?An۬^M. |q\8>i{4@sVmh "5"'vMjn~#nZ36Uq|8MX< Ǐ!N?x?j `Xw9H?_{َaJyވr DهDQ}ƪC6xFS+k#mFCyt+_<_,%O$T3нKt6NP pxcA`A` U0nзs`]m!hctt`^R5 l -~"YѧnJT_sN]{@87&ҁF,fpɆ K\iuoU:MH@ 'EH mu Z_WX, v~,h%$ @lSn)˂ٮx_s0/ZD7 U/6y3ܝzN SZ踺n$2` OF2[qDYސ"bdLGQ0n}YZmi?`G%Xp\, a@ ~@Vpiͯ-{Y@3TK{7^ӄR16K]O}DvPb!E@@X@Vџ瞁Vqf]L+VƂ|JahHEJwZށu+?-@ybI]0pJ@ J/3*W.T ZL n )V$(&k2%t+]&/Lf;h,x;~\dcsPЖ z/y԰@ V_Tl*dI_?Em0J*<V\A?Z8[-Y9("@Vo WU`vݘ,XNdDF^*H@xPFW0&! g@[q`f^7=A yt.BV;29dF^ gx%pɼf*% bw҈ǥ!N5\>xI` xW,X,jֿW_엑ZNWEnB. k4>Z#:Yձ4[ @`i<:z75\Arc@CI=L>#Stc$]#*o@UUX@C>aJV39ճi뤶D ͂vtTb&//T*N&H_P-=,|~/C ^Ovj?n2(Ot^!) gS $0}9[__xab t3E><] E k1ؚT`56tt;)r]@Or.b%|̺b :GB5gM1G+vPY/@jt@}q`][G}rv;)1K1"efuv 07ި.x .Ota,ɲkKWsV+/ی* D 0e~^ĢMлا0xM;@P)<sӹFaJ `FXgJ8P5϶Q4f,9< $xN!tAj*X8.$O~*_/ &_y8r5d@z1ƂXr%' 72IT@U@_t1taT-9vL=7Lx0QCۏfEnbc=Ta _'9jH Hȶt5TӋ+o K 4҈5$nh q,`Vpsh(/b*&,I>^%̄~!.QSXƕa` @&V7PO?,,CA](t?#cZD"@IBlQ5E ni/32KXr5CyV_?ѶugLŁJJTP%g!mwiLz&I:o`2!G|p DEz_{n2`ຳ]05sz΃)`5LMcG4(գ$ɂETL1Rcw!>izmuw]Q5aڸ)@>|R DQd06AW}&pQgQW@ ; KhF_@XH{ۓRS$œA>^y4:e`̎5#@@ `hʌH g $3?p#2ZX0%n0hln`D tH HY nVx(Nj!1>6_9[1 | 2Ngc@@+WI|@%$$[u8tq)#F }Q@Zk LPgD6MhK 68FA%UU | V\ hot~J[..Os8{Y`_]:5@wA ` U ʕ,CΤBi/ (FUE4U Ur_M(8P ~r.!kAG4'3 SJk iIOdDIr@9@7c4UUT @>%Fy'CHCUѽ1&xZ>2F" +j|>XS+LG'H Acƭ:<@)5EW ߧZo~2J`{Fg q2.@>Z T 5@ĢWp"R-.\2$j:,&3H;f(@T= TqsT]_ 5"7ߚ.3ewIzɬ#XL}M@ ն+`dp俭'CE53I(ꁺ~YFqZ`gq>h8 X0n.0[ -#]/I_EZ81+ i ,^|& yvC"[W( 08O;'>*^:\U<6d gm{\iv*0kˣc"?PQ `U&@LvD⢗G0q>VhV蛫 xl`}IݢʜVnu `/՗c|ƥS0Wf2'!@4vSح3wgA{<>oDRUQf{E GEpȣ>)$r/SeфM }Q?R]He.)vSw P`. _ eMIp ؓ4Y0:>cnsYryݶh_#7[[ C4G"Es KՇĿ}8 >\j '!u}Sa#qo;XwZ}I |lo AW)y@KHez~5)R@+CB?%Ub Z]j[/fd,F}n> o-žgNW^Z y miP•6oR+t lcHC'a_w՛UAi Z3 t1@=qiؙgh<7"NpZ"䐦b@mؓ2Yv4N̙ResxTbW|{}悥?( |+]% }`%[W4]vR2M@T} 0U3soȄ~(!({ ◎xRo_@4hHsJL5PPF(*sO ^7c`B- o u knQ#Gݼ:^>AMf睴:xHj/wf5-jgh,(~fjŶ\Gx J's>m'ZPQUO{Vx=ajk5// kM@75!fh2~,.T?]`Xン0 Ղas٦b`NSBܿ$I<8%ɠǜce.y\Kݍ|+ 3u  jR(&mQ3(G,*qh~l' H?]0CAGk?2>H aJ>h+䙭 gnc\o8*`{Bi م*ŧ}|58nn0;$K6@-m]e&i@}<qЪ()7pړ$wTLX(4/ZrH p! &wfjw}& f5JD0ހŪIf$ޝ5F& j.#8"IA[JS[UWX|3cruB5Ю@+)|WE"Rg{tLVZ֖Xo`ruBkf& 2N n~N]D!F,@14F*US Z'I V54H l7Y~{N%H @u_&{d;4@9"l lQĆXCౢ&\,_S0T? L&p H >f݊[k0_?-|WxLvhӻH,?KeVEEW͇@^|%6䓛Z@,||&?%0!yE؆ }$aVHx>Rl\0]p r }/Rl*abqS}lK A?Ջ{'@x6X^}dm@Ё.`gnx7Fzm$k5^K:@|h bq)x/{lglTe0.疲?#Kn:e̟=ORr}$\ahKF~11g0^ؑ,tb O.%z~Fa3Q09 ] ؕGENs=VX0!%by&N<9u>k:zRєSOP 0gdjL:j?v_gK/(tE>_GS}'@4ƒR~1'FW0:ؒN?Ȟ/]k*UhMuSzTP]FZ CGoh[" nUrne[0$z?&(Yy`̈́ o`]AfRI\&^=l=>8 Yl & ciE(0{@gn M |SA w>&g0T(;Q;.L-PD|b@x&v+~'^y \*9,>##] ޿M@4U j͏TlM^%W?K@4) "|G@,IڂD-k+ ]VA8h `_ &n?w O_0q?7(o HIPWzr9Jz,QV24(+ L܍}B5ahܩ r56E<žWAȷ{+Tvb"Ao?kKss(p\~~0Yq/3DAtD zG]@=~/ZD}EL"5PPz 5*p& BM?s0qL1P竌=(oǰ+g}Y45bõU̲@Tφ :NMD$ʸ٣Y]KM;(Ⳏpm&v:NLF*ǽHTbtTp~V+5u\J 6ʲtB\USĩ,=q<~'̬Xo'sX "!5-<-g aj{@)ee 5lnm3΄D\1/nv@ (&pJiv}DF3[9Q{g 8jDyn3|8_j40 $"+8+>P4sO|н1l; Ʃ?C@yoG;̓8sp7CbV-ځ{Ub̻ q݅%Zp@ū,[5eb*JlIHm(F-8.OzPH4W脝+v}}A`SJ*Sþ9!NG89xj%* ^ zp u^@LfC, >U@rD|˜KxVRn? @e 𶹀\ҁܩ\YgS܁ - :{taKxܳL(3)~sس'䜅> >5xfbH{SϷF:PSlc w0>"dDhVB³@kݭΠ^-iGP}Խ;.=ܒ{g)dûΠd `>1H:AݽF'M(znu`)ڵKz0(>7ҲݨO'bd @-gFJ[ϘA>4VIݚev+Sxa|c $dkmR tFAXc|#9y><;@-QֿKytnx` 3K╼%5eX0=^dkn;>`an@oݭ KI L*gU`$Z=)#N u `)ΧRALSMP;P+G&+pYk1nOitT0`M t{UDCvnO72k(.}40B5@}2l*˪*M@ ?` `O+t?oSA,+`%@y2/# F@& Ԋ`/1bAAc+$!g`(-S* ́DiK(@ `(=*%,5e9n`T2<];7 Z@ɽEؑ¬Q*:< o^=ZKzK&UAZ{ `O *2mb%!m ϟL`{#V 1@h8(>I<h+ԧxo E `v ;|{[v6yCqH((@Q1(xx[U@a*&? `1e \]ХdJ( ,-X؜g__#Q@XbU7V=]&@g e0H1Fd|lP_V0P(- lx@3[M~@l L7mj  `cGXx7S*'_@Ʊ1zLbry`H7ۯg0`0VE)2Xߌ]|=- bv @W o/va^[( ,;o@Ǒf+b`1`|oF࢞γ3&@ 'fv7ő1 `f #3]KKHyP(HlP'n[iWi@JP@2 b` >fuqF\5n]= F ~yo|8*9w@+g h8X+6MŰBGGҭLo&Nv(pQkgGc03pQsWYn#z-}D 7P#Y7PT6Fׯ&K'9 " |=p*P+fT!l)(?@,v?uM P+M]Zo:RP(0M^zWSA,G+kWY\߳sg82 P(7s>Aݦbz@ ,rZ<o`) @F(| VLˏp0N&V b(oH}Gxj6: 1k@Z!SP{p8<@O V `j ȑvKUǧGnH?+ IDAT?͆-OUK(M)W~vMx.Wߍ `lP1QLy3* X[^UQ(O;z=-<TG(1^, y(>̓{! ) 4o|1.D41IU<:+:M@@L+*&mf/ԙuLs2Ya`q@v*P~@4iצo:MۥgSxƋ(ى h^@[, h@ 0R7 S9HL\XvAl "*}m%.&D`uHL{Nvs!1H}QʐQ r.-gWEpJβ(Ҋ_NjWY)r*j,RWՔXsT;ZRݠxj)z8c-՟^vSKϪLS$RY*}zDS0Zv[ {㹚QAPy1l\tK=N4>֖QiyEHK{POqvjۋ~+Nȓ鷢L]_t=S=<7=5RU67`F_KYd?Z?}؞^SϦt-%ms(jn2<1P w5;TqU&]b3(Ņ`Ep `[dX4vN{]6 t#`  `<(8@ c#]P`K 1@@i *kU"d` \@ dћI, Œ&E"=Y:X 0o}}dFHoIP 4οCZ{~LY*[z$-yxIbG!<!9 wazqrr*Yzb6+2kQeKTjGykpQuQLW;FaX E!B(S!5Uw57qZr^`OH$se\"MwOX~&V2z.Z,Љ38'/nT"Nr_xho9:ߙB LPMe\"X\DA@}38kmuUC-Q^:iJ'zuخLpc9ɦq*("ISBEU@?Sa"LO})s:@JE%?t7W@mltخȡfzpSCɅEQGЛ<6 *nerLO{5veeTֆ˳rXUL5qڋc?6RRQ3=z[+:lWP*\#>~(\heUt.t-`4lH*VAKzS +l$뮟q4innk9,xc%y'Tp /%N?W%a7 %m-#cvҔPQq8bUmW"Jd$>P|۶ QhHcU$cfʮR"o"F"~ܘJKGQ˟^E%2 6ҽ<]`+iO)U2g3IENDB`ggsci/man/figures/README-ggsci-d3-1.png0000644000176200001440000010113714634136357017003 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$fPLTEh//#x'(IEM-34ɜX^VgfX;;)srs_mlROyTKN 'jxxOR;/}c @#``0{0 0``0'0 0 `N` 00 ``(i" 4j0@0@`?6~L40 xB0O `w5 `j0 `_D0 @g0 L 4Pe|cp' Px$u ,/1~ֱ``b;ĤKڿxֱ`, <l[8u,c" ٣t :aw1 Px42i3Sfo:5=܄c0nExBi!0  VS'c GQe764;&:d%ڽ YǢ;Yt-܂يM ߏ[RFx)Fؑ0 yqw`1?:5A-(c<Iigpcd|b|Y@0 So{ YǢ;`޳dd0 xn@nuu{߇YǢ;0 0` :?`:?D0 p4y +c?K `<'~y `*0'3 %`D0 0G0 @f j` `s4 D0 0G0Y` ĽQ; `B|2;,7ovN~a`w1 vBL_} `~q80cG 0x>k;:]UUmA:uy۾~̣t& j/<v;4]mQ6Lzz~][?a{0 #ZS[i3_6,_+Ѷ/L_4`xt+]!6E_a_ۛ0] 7Oݱ ϾoxOj&1}8uJZURwXUEaw%7XT10äL ' 5ěKۨ+]kbфY[O& ;-`%]kuǎ8h8BMi J Ah(!ioC0&Vn"v-SH 0 ԕL GR&"VO:MቮuD7̽Z m \@%?L$}ܣWYKU,D>:mc 0ekCƳާgߓkw WQ5Pܒm#tOB| `@kU4E5~`0(@>bkm m_6QEnPCT2t-!y" Ը}+a[U+Ua|]h 3keN=ai ϛcȕ`1 @A޵A_*B]KYWڑZ,̷ӥup[o "|ޚgުz~M mUA"m SNzFl.[p!<#sd+.n8b7o @HtXUn~AG]"JǐrcA>|$ 1\;? N_Os|JUy{ +uY{xy?R1@ Q! jGUկvuꍘW_z }vIT}/`q@{)!~ | 2ZX0xhk"* }"~o?SFoq hh:\Z 0::V[ Pn|G Co Vk @K YXMIDT6ȓv@?}M`w1]kyBg勋RKi|.Y<:> 8Mq?~J ظG/wn`e; b2|!I=7;&ދ%G*hm9vwSnor<Vu+;A= | r3y {^@̫ 0y5)?21y~f}?1 Q9@6;Fu$ v! FHNt.s;bզ ) x(n=}շfߧ_"$OH9m BB>vj<FAxA{`IChhQVC@wgG(@9Uh|N ӛLl%5 shpal8;b GQ4Ͻ&j*6AA9.7 Pi`͓rJ n[: R9}2Z;K@QGyu=ze~[f!  |>>g4?y{Bl@:5/5Watʶ{P4v1E rr"m'o٣r(`.F |8XAPL@Qn!2i@cD.|3; ^KOc4gH6>F ok&dzy>Ӗ]8f2w$DFeƐ奃p^p{d+ g,6CdwyK>t @ r%g#8-SS*TTp|-;dKG6>@ݡ&ogJx:=a˅KMZl_ƿק7el@޹Ig]r^ҹܮ)29>ܺ〞M^/P]+e_ 9O|4C xol 0YE0t1ٿ'@ | A hS鴍6*:ѽ42P Fߞ$OvTz?M.ۇU?Sޗ{p/aRϷZ7 \[՚ 5son㝵E`vtm]"!:ߩx֔Bu0R#(lcɌGm[gqþ_an'0 Cqq?VX .\U4YC}~jY؏sn ċ eoo @ rf5I Z߱vCSTFOH]Fq4ÏI2PVRCZnL <c@3Hv4M7 i:8 _z5ݳ$XIm;>Bn <y;z:+3,+4Tlb{ɂ>Hg $;A;N! VnbarԂO2Vj6Ȋ@HfB@ l.ILx#ΐ~6~g060+YNOZa Q' UX7)&@&`1D$N7dpw*jt#3w]q!p|k&Oi;t+Gdۡh<`Ip u@@Nm "+T4y8Iϗ4|N%8v5&T<2O=OEf(eiA=V?y`(x8F,:Qkd؎3QUCU/3`/#ؑƗ6:c_62,Lr"*k{ttuJc 0B@`w-t"zyȭm}X$n$ (Klx(^ʝu#xC} b f kT"Hz0X1#A<wMW`Øx8`ϒSP$0l<| >niZNC dILV]LS]L1Lisϙ<? 7Y!OVu ZyNhh6P!/ܪef.;:}Ϣ,L?x#sKG3#=('?wX.@S 9oDi5`H(.m"F2?Q-w2>όLzlb _:?5 ٻu jy&&JӞI.{t*QS;whxXew@V!x Q i]D, ݠI$.g0U˜Y 9AbwY@Dd?m. |C9ݘ zsTLa =^ <HHOt*f{NңO-[/%X=xi͠4rΏ>e7 @HV9[$$Hwy-p.Mj̛ v47;|>$`cCׯNRW 3/fP'v(ِ̺ͧajHH}^7!2 y(`gcJD?5ڦ.`"n1w{j?=+@|DH3 i.#THW}^MP\e E~ѹr%dg ĤK2lt.E#Do.8Y0.) :NX6P]N:hv0,;E_)iFSI6 * @ ] ~z^ e(sTHMM2DH8||=-5u̠}h=*0m99pŹ0_ဥè n9 ,o!;oD՗AEؿ֪Gyۃ\E(wrcg:`PCMx4d4xl0np(;-A6o/D[N #k>Nacelw]]C>KlnR@57Ԗe??m_Tnh㤀͆E0i1/+ɜl`d'&(:QfҐӭ7Y!䩜v?O= c)e@Nՙ釙h7o쥒M'{i V? {L9<϶`q<>=I1TuLעc*1@ze\Tf89ON8'?TA~OJP \Iyߌ/+%:> + 9V-Տr4C+m&N `#@6} 2.)my0>7 _~$0'oG`l{58$rzk`c[XKH]B"L{#(Qw @y V`N(U5;Q` Vp- b7ǦWC1UG[^6S IDAT"p; ҹ$ab4Od3 u 5_ 7R\/SI 8ؗ|e7M5t,!`r @_my uT?ńZܥ#w$}`ch }#wTsACQ@d Nv?Rl~x m4 _9*e.BmyiA/&vP⢒i44g1 O) iW=6jm#Ks;#Eد7W6 >lkA#,~/p20_ f S@g$p BIs`3Q_ɤZJd/O#)S%T$p7i4$ w/ˉnۻL41يGܱ\0nطad8MH*TK~ +)l;FjکNm+ cbhxG[ioEnI/THl i5tg?;wpT]_| @"B~i25B8}2Q"e~Q?K P\zp XAuM% jE kN5,yi Gs&W45 2 DX h܆'A) TX@V8Uӻt5};21+}s)Ml#3H嬉SGTGviu%`<1YpM@Ͽ8*TH?ORz@=xfp$~.lgiF@'j87/}였>s&PoWe-*$_Lf37JUq؃ySN_3}r!n.< !6( 峕V0sM(@젿n/hxY[S P + dJa8L?t%1k,kПwy-%@jO׽@2Zཫ2^5ar-~x>u~0F0PO?kwK9W{Ѐ|tL`WF NMwy &$|_m۾Z%:[ޕ&wpp@f"Ճ%W$THH7&׵΀ąIf!@ژ "0u7I-}#`ϣ1??1 ׃f @@)ek? ֱ۰{2:pSA<>[SN0'Ņ; ȕ4"0* ܔHńo xbOf;Q3xYm!lF 1 ܶ6*dTAf ʱɖt8S)<31-L2ro1FϺNY70)sFy,L@Fu|/\Ktͨ(LxղA<L b @5B8@d^O`j(PA ( c?䙙.A0I K>ҀFYmVzeqP&r_R5S~@% n.~D޶' d# Q;vg?f{V  ,+DlxsN$C'{Lpuړ4}J誯)ѻ^ F\2tL\t~o^_@З_Ci'nӭ V({h9=wEm[^UcOz 4)3h^gR⿸ ao$u#uA+`(h㢆#@ q3 {!MSl4MDtdvQ9?xWY@@TA𤒭d?O#?m^Y{8t~- NCT;OJE[ڡZڻevw AlD7C^oepCJ@A 1L-pZۉۤ]ajdH *ЈJiUG$#LS_d!@?´l%:S+{ +%o eΆm+ǰڰWD| -x_#ȡIA kY? rꇝB/jMuj:/LKv|7趹OJ-}svLF|M7|HwҬ A?7o$&bQ n~BQ ʇ4mA^H O1[ʓ8rU**f5B0 u1o(0Je2J&':7 {%G y:"d@ZE&]&΢(HIt:" iLI`[`SI<ܦ:\WK@,*~4l)l,3ckf^\I@ ~>^_Q2B`4{AM#m{ě}@R./Ͳb0:G:b,x CZ12|Q~o1/1WVL}nͦZ$Zc, XY?П$LˁRD/Y8(/}O_l/_ 5O21ěB#\-h P($BWF}`2KHɲqo{+@(vѶ#nTy~[Y qPm# $]@$<[]Q)Q4wsb|@xajJ_x.i3mSr~D!H GZ+~qEk(JlP٦ϗNE~$X6@2ܙ̺ v]{k[BRH˃8 `i :~/5Bfx{4 ߪʞ mҁ3caq KWݸf3ܷcB@_tMoaPbGejdтXjاw1p 0.z5 #\@!yK10'|&,EʣtP#4G1u+fP3A+ftMRx 1N%(\][J7}8ʧ?YR)刊 s\B.>|e'|Ł+"@|y %$O?^FH]> |w忒IO~H巨_AxwL@!槃H@f;PaRC|qM*[.K/z^,K|qv;| F&D+A$`4o"/@xٙxpMEH`'4aRM"pWemzhu*!A0k# 4C/" {FA.k6<[K%v ^gϽB83~u y!q[<529uHT}w%J !L8}?%=os0,$91]>֗6R U?.aOiLV5+``D$m|1Ok(˖_6=N,ĂSj@v]ݟp:}.S!,'kcnN6 ϺA ͕x`"2 y|h?U!@' $fc~Eғ,!ȰZl_`x+ov ()tہl'# 6qć!э8z) ]&a|D,t X%hF}{u Ij<~<{UF3cD $泌йS"k {A0@i_)ۏDx(m&Pn/r܍@|kF}NDא %m˃ZZ7V.0 SӑL4Us70=HA|aFЙXL𶤀 |_?$"5h{fE$P `}2?pIY߻nU"oH%9VcX7Ua`ܸ7ȱʹ=VţL 8M"}nإ|`gKS@9`.x[g`t0,4F1}{>-U3;O;M cȳ `{^4Xo%StWOI߾џrF:F/*>ʋ @"1d _3 -o. tTQ3EߌԏJM;ijj(eJρ"AKmG0(% q-2s\%!UH#PI:5e0 XT&Xdʯ}7Rc^{"5 R2D^zJgJl_4[@؍j^ 0<~#MÖ7:Ԋ 0xcu-(<\D^кjm2`\1?/C2![)gf".0ĭRG# `T- @a?9> R5G{Pf^-+,h@H_[ 0` OLkUBq2@$! ɄY ՄHT)1T@R  凜~Xw&aKO6)14fv%-M@ YI9#*,2@ UtS@BCh+XR&44DS gAӜ]a ( QP$ &}Ol(4z3^sd/3/!;'$ vVBDe$j(U~q90 <.i2-@5뺟" mUs8,"4R@jAQMb`3);@if8$~U\# _VכX>) K2\ Yg@9_9*g1#sfb'43Q'A&fal "*')+ FOp[ } ΥO]O>0{!)0Rx,xd![DIgZc.0d:,c.}LO<{6'&1 Vp.(iHE< 4W3C7!+^JPcube URz# ) `bS@U~ߔq0HX;.DK?DQ"c:b[|Qbګ \ w R@ u_azk ( QS3&F8?@4 te\M'sD`]c>Oxk~;1GKD :B O><KW+zAn@`W!*llצ $x@hH,PSe,\p*0 dJO72hFm>"pdO'ӉŋSRIE( z6j@C{18Y6,Zch (5dH^2&7>v:}-tGQghMK{Fof6_=nq #Z+nX&۷l*S((!@Ir6k]`l v `lԿ:,n~cEG0^<VP ,_m :XP)v%]GZoq|x|nB@^b:XlEzJF Fv޷mKdPHN+w6_@M};}+waw./v@Du# IDATl9jP  $DUɋ"zurP:ui*ð5p(9#ivɩX>!T4PF \GBxi b QjM gmk<^S ݿ (0N+@)I|QQa'FR(d)|e=iaXpbp~hKh9ۛ[{Z\Q`L?]j aSw^,S,Vg,#VyX'΁ qJ6)9FYxG0pz wY&o6fHH蘞s6LԷv6PK2G]O=@{ɡ,,A,F5n'o}.LM?hǯa@i~ f2* =Ss0G!ѤЊ')Ău[F"߯M>n~csxa^<I`*jײhr`]S=vo@"Z՟Q9|3 !ZH7۶$4>Ca8}тnKB@f&V&1:2*j xkftKM2n`^@nxfޜc,4B ]'t~yթ_$/TS&O|0qi 9:Sa Q"'QGo7w8Yn9>#)ƸFC3h1LC[U3n$$>z;beO@_T< P^ %>^,~=BtaA^Ma|?l  }Qzz<ts88eK6cZhtII,A^pAyIYA>q\j)98S>ppQ"  0'WeO kP@;<V]Iy.3ѝ;_:adb(R1c_9 zZ<";2ec[)@Pe 8.ˠ3p#ۙQP\ E?$oJhOp.1<~H H16ixrؿ5P mZ0X@]mb'`x(-1E sH@16bP$0lCg 2q(Jr2%VeN܁6KQGJ[0T=. 0 @>pA6g#!#, @eJ!Ql!/khߒ>@^ZobA V8rėh/@ҚDB@1>P@$NT5)_AM$eR_V|@=9OmXȗ~@v#A0(Gaa$b _pk*@@WRrdykD&&Ն~[K? uGs% BANsxKm @Ҿ4^@eX3 hcM1oCE'rjf=Ev;X BNWUD T֋)4 T u6wUtyaݼ];MJK?0caNRFܖe4| w\sw A29Usiǚ@.~pY|/l *g:4l}u( 689zE-_79+߶Uki"3 8C@Tp3|VW LQQ_'S r uX ol~9?5@g ǩuGIW ɑ2@,M0൴*VqVMrj_H 9Vl@^!_<ͤqӉl&8tS1a&mѝC@u@ ɗʸueYYF0D'`>fJoNM5t,[U - 1 /:w <\@T\'-2wy32oK[l#Tes4b\\L[WfNj,`!sx4]B@D0c/PP@{0^?7U,lXoY`6l,.,`ߖhp N'6>b.:&T5[GC=<ZT e姀LUʉa'N .Ոv 5>R PXcvgyd戚hRfrV FrP$RH'mυ*PckVz Q^ѵJ> śdڻ! OC9Pa .T@Txp@\a (mC{LCRTBݙa$?G|\J0FpT `A.Jk#ʁSd#kϗY?kC@Y?yIY'Z,\Ö.{oLaMZe{V 0?2j!_){13]`D?VZ (I^qos *xb?.D(]T+w h7J>ڭX u)5%WP31w좷/Vzƈ_߼>ҺY-o]zA !  y}Fh^h &Mwj"&mK7Jojhl;[9b*<f^N(0{)&J! )l?Z]f sA|s%hEy'sDL[N͐^ǀֺ_ j } {ꙏà4c  tmݟ5?Rp~Όѱ˪Vd0rY n7zPzTf"?< }*#$& =}VUd B@kSs@ׅL':f܏E?i7gˡ Tg_~g bW#A[; 歒2ph:w8h{pe+@pNi-F&@E~7i_Zz`Trh#VMg:?R&\U|xUc6CMg*!^~hM%n@d9xMYtد= 7@(-wc[G#'ӸGq 2rЕI`R٨+vS%PqW' ;@umй.p }Ezs =hZ~Ci .S |49rL,f @ %D ցNmHF?s}pj3wa"0 Uެt  );r<=QFUr?0P.|SK_?'|_8Kg`]@qsT|M0UI^za8 `"W? @,]2e=  ^ h"23DL*}(IQ=ΒIX9 ~N} ձtVn4Y) #f}Dd:*6e@r/eKT}aȾ5m3a(Hg,ɑHXypcN՟N6a= \#C-}tcyR }`Z Or}J Y8e/#yOE)27tp/dhfy"RŴ`YHy[>u3+C@ FX$`Nb  !H &@^P ΈͨUSwZD.DNTX28,QkH xn )~!LA"lE@BE>n֬_o_¿xܛ9-֋0 C 3P)O5ae138Cz©Vr)H߿nRH`dWT[p6A~&<7D?{->o}:pw0nxc }nhZHV@mcvs~.vD|+d9qSvr 44P|B0E>G&@Svgs@0Mn(hxR@iD 4b2t~ИhvG*}Ԏtq` HWH674TIWR3` {Q`Wx^O \识5|>> @ 5Si5 Z@'9 y J5H) Tuv~=Ə&p"ha#17~4D `6 M܄$Y4=y9dDr)&GHvN"n0-c.uzB aL02 @@ _6V`7h]J9x&@i =1T91 VCI0q3!!b"0$Tb<3!o& @χK|oJ(En6VopcbQMW n{3#ҝ@U@~ u,/]%Y?Q&1f쿯܏mU\\?8 `)8=D KL1e_4}؏>`A|LH@Ćۗe\7f&^q3=G u YgO]N*HEh׌Zh"dߒ 1:B, zxhx,`zBNdx:O^ָQZ 1DC)LB&$ԯ(h! $df5Kx,> (ȮSUr޵SCZ4-]'@iCb #ߝی<@²id&v?_W@ b1`"h2JXLmm1ؖ_#D@ `}X~ ^V`~b5>CIʀ~"HRm2|˱=^C@v-Ȃ,OX:TLuǛ# mNx߾⼻{;m߹.HlIb_+`fsRx\@ mo;>߇0LORl:kMTe `UNsEbW1 E}޶!-ӆv ϻ 0zf @K8WoGA6BMPy~z(tP4cr_`]"D%g^En8HeE ?I 4o,Vhe*OZFV!~V p1ף@+)sRՇ~-.8[gX$@ :>`'[P{u8VAiu7Xa4kW\܋_132_N>2臡ggR7@ )"0l99nl-n2F1J^*`V^]aV_5<LAsx *c'p\W;3` Db; I i`* q萠ł7M@i¶]= 9X#ݢ,ѱWG@gQyQ¯JLC-P @B KAت᱾5ڪTHJ/Nqݫ+7hM, ļ6^oީ Scg.2 D7@;2lt>#@ Y`u -h6K2RO>ĥR&,r8@pſp'@ @z~6~'CZ>Fo T U/;#~k'x  v IDATAb 0ufk51b?0~@Sn =Kqa`xFKgRl9$`̲),Ra:b?@At h`L`ڭ_!Ts+3f>7&wT "{&j+GO^W s: U^*նvcZ-+uyaPoj*̹YFU) z/ Uꙭ|Pt8 q>(gMeb/bȤA+PA5h. [v^6 1{(LLd6+[YS2.Xi^@v X6|Zfpn=LavlTEbZϽ ~/jvWĮ"O ]@M%Tҁ*EXCTʾi^-@[LA'z|:?W, ) s]BncUfO~;PJ`c OQAF Y'K6kN9ZлrVnYSm,Fe@껠%dN60PN k0ܬU2zO!q7ЈSxH^º3΃]Nh?s(`m6P@{sj:c 跃CQ&׉؍ ;] z nO0wA $:oj4=9Ĝ^Д(dG}Ƕuq.9 t/zxw"MQ7ڣS3DwfAPFv.dN652M#] eK3x/1,d&Q+@7ڣS3)jD)<7\kq `{/ܜ^]- m O\3z@bIk'8V(<߰y@7ڣSm)fz6N/_Z*OB϶uSwLvj0Q_o߇+ȅ5>s ׺iۇkrU$=9U+>W7^mPj[lWцBgoe /nvD* vɤD_䲴| HcQR\*俲%l?透NܰOB(u1 hzNUWsY{ZZӴ;?D;zVta >u!.q.[sÓ:(,م@D?? /|1E(nG=(NZWoH&sDUc7.7\yV,l-ԉnݧujG= ۴QLUh> "-AP>M8a8~F<%b 4< יa x_0CWQϩaot7eVz/2?Ff)5L3 Ihe0efZ@b ,@Q) Z*RN: ɪԫp>}1hyĪiIu{hM:+9 A[A*gE.` cά `'mC)dkQ/` `` k6W>r#hV k%b_Y{&Qy Jr\@P. 6d歀,@@Xm<mwFS= |N΅j$)`1 `tXpxe;>4~ݖ\3Js,G; dA@|@]uO cפEuUjMXow:DeKDoø&Pg+9[(:>l,;:~( O*@O1zO0W0)p.e^ia۳_h),A` `-] v_m5w 5 T#d f)bv+kLTUc1v4A{` }yChK0*0\hV `u7ݾ (X\xW:=A ! `i57r0賛P 5iA׫6 z21eED)GoY h- K#@yܥWقӉC@|,pg±7v)VqMW  zE7b[`=ß4.E?MPLxw Bg6=[C k:'(5 TT |7u@ 0P}dzP: # \@**GfA`:T1OؤHx5I+ $Kd*a?t@M@9/c?úTTa`+@y (u rϰw~+Pofرnl  nwCsˆ 7xx@p="`;t Xh B`(;t @6Z{[{٠Eu ^<]! h&@DR~Оw0}~ӰY@f2!&* u(81ew(wOr!@@La)xLhjs0DWannR=Lcp(j8'ēGNov ZW ֯tp ;0.\@eWO|4X~V ~`0M 5(+ QQw% $CexÒD?v kWގna#ۏo `8]`U4g'! v.p(E4ax9 ! 0_W* Э3qY\0v>Ŭn8o`e<`0E_73O! br$$R08cV7 jPBw! vG2 ! h<p4/ko߉Ŵ@^Ha0 2M  Z!@P5Nyv  C@_Ү[uos|_  @.m[AI@ `ox +܉G#`0:`s;oA{#j fes5cU@aүPW77YSA`MW/Dc#͌ĕN`0 -C@{5靳Sz 7?3~ !`ZcXt8Ho7*(-`0C@/{q.PoO08c.HoʯuVjgV6ÓN`0~M4H]T!MU@K߽eo7(|* [ഝnYxtcG@RRsK}# M;ϟO(\? > z9I~7[!."2E@0ox@x.5>V}7 P;($aetF`Ё~deO>9 7 sathU@Q]9-&03a0r\qD8˦o&U@܄:V ~c""kaTO@fFDg` mW~Pn|/9Y&_9 9Z+0Skv$4^o rSJ;`Ck `[_ px&0 @<E ~XMD_j޵kj?D!^<\ʫ#imk`@1#nMRPܗ7r HU[hI7, 9uXngKURZ">"}m &hv(ti>a)rѮapbfWF#g9d@>Jfr|M`Y! 8 Aq ؁> _'?96U@P`ϯK\uvx-^,q̗]XIUDY7E\et]n6S_* SpvO/{Jbў=L_ib'Zmi`,2bti|h{MNu>m0mO= T=G|upxyW0c6\Ťҕn8[@q`ey\_~40h[G0|$Sv͛; ?4QSWhd61ftsk8gH SQ>GmSх1If/4vg\(@m &+1|߉+C@. d(     Pg6`0`02@~}It ѻ}It OZ ΧˌާH&K`0Qpmf"ݜ$K`00, 3z"},_c{.״/D(L !Df @'N}f>E(Y%eΠˑR" TF@}n~gFSg؜DcMpe\!  xOO>MI`v$0 .3z"}&Yzώ.1MS]f>E$Yf##ox~QdUUVgjq}ZD"c@3.}itBzA=_Lຯ# "->Zľݗ;,2)_N o&>ri"~^`~zW(t9\#weAzN 2TM@ @ @v(㫹ɩ ¾qw}{O(.m6?ĚdJ֢٭9`{55) '~<.7;a* Y!C @E'Lc{tΪ;_.ȟU4an!$M ]Pn>8UخHX4f䁒iÈzdi>!$M w 3 6^Sa"An9F\3v%g(A$7..жo&i /.s 脙Fz:lW;3 @Ճ"Jl*Z?RO"r$M)=Pn'o+EjIt쪑W mrȹwSy?\8ISJE3͎8avEt8-dU`i)oIDAT‚^QEǴHXڏ/"W Y<9ଥ]`#jSS4~,-io~SRff}]'-mpa"F:NW4X( Uk)IUevEmZhp 籖BsI*+3fڹJ5:lW"J]_e5W@Vo܏\3NBǓ48g*剥vEtx}Jk6Pr^Zd9k )"48eTv%tx^w0d967⸥@@@@:D9EIENDB`ggsci/man/figures/README-ggsci-jama-1.png0000644000176200001440000010041614634136357017404 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$NPLTE>MOy IGܐIƿtk+48[_`upr(ݩHcg,' g`0 IDATx읋b@H"?zŠVθu]JY03P ]bA A A  A @A*#v~&.N.;+&^p_ c20Yl"k0zLN.^maB|\KzKeИ|=Wdzś3\@^xwݦrlVo8SooFmo |=z+v6歖k6*NmѺQ"=F{~; SU '5`00 `a:000``d'`ޗQd`ؕ4oC`x{$`࿩T``{400]. @z"ʼilӫI !+7FA~< `l S\z? ^x51 x ½*\^ML`HЯQT{3jb(`<CjW3E0F,O5s 2jaMjbR柋1fa/O9_@G2VyދAĤɦ˜lihx +{7@0p|= sr2=:7`/&& PJz`yXPagĤы&`; @!ۃ E˫I0АF}r߇Ĥ/@ 0\.cPju_0'00Ox2(0 C x Qlo`1`sJAxD`[^  `#0g@!`a_ `}'``* `060 ]0 `iJa @_h@ ;7e=,Z:El.MShu~V mtIl\֒ϡ7˖4}zܗmy* P0QT@v(&)̾W0{9 +븮-t:!WIqCUU.-9lTO=7pfz/W3no5~OjuwY쩵=+8۸CU=?lkY`_J@>=z`~o{ԙ|Lb= 2BDD5 ԀncIF`lp Q@V\+ψ3?'?OJ@Eۗއo-FaW `"|@,eu5T9 Tu =W* 3]y cõd?9+KD:E0 n1gaiڸ\ɻܝ]{ ,T?{vOқyf,Fak@b\jDͱ|x/ _ 5" /%h}d`<05׵~(3[ ϧ*8Kb'ͳ? [ V\ۭ(c3YL8tOE!7F\PI'i&hDk {Gg` mڅ ?/y?C.a}{?>$$Hyqh{"ŏ2 XJL]CZ~b}4?\. Ny2RG_E~R+=o jt]0lrBvM6R.GQ# $@3MEIX'#مn7=ڦ4) `e(Af@U[y%fs]DM&MsPm:|R 2O/(s0k `P7o[i"J+q9'],\S<>G(~+,$['R&)Eʄr6!߹a+UM?2k?|KVa._qq"^5/:N*R1`\y|E.NZ%8ωz:][LP#.'Φo _ <@$Z! 8st]+dO1@sHs)y %)ݣv4e1ޖ4}7a?`p7,WN^@I׶{_0"psPiZgJ[E(%Upd/6k$}]%[ICϹ!@x(giz?@@! OWZgg@~_fg{h#՝a=`|CQTP6ĻδΓvcjT>Hs˚!l? 34U'O3Ī!z:M`35v[!_ tP h|FV ] P@@8j5O7;F L#wWt/7+'dTzEtA.yB,?Gz7`q/ nzIhr G,`fv^$dbޡZ2B\evzVhjiMv w59*$g+i+= h `w]@nr]WJ`wE Nƿ9YnG; @nK@x: %ɱ,CG7T~'TSӟ* L8&L8$/?TQ8`?*_L]@w*$$+ D:s4q{N`w.u%0tX3'p/Za2L[TH>N#@j ?GJ#:z=4?)Bew ,}rR~̍Kysz/@@4 9 `G%xO*h|٧|ڽU}Xs݅Zӡ/_Ln%-TIg#ݯ;p)@<^n-urb\MJz:o5A/J k0v]${*THV4 ɐ,12ޅwo)H:G[Wwe0%Gd`+?;ȨP @$>:RܻZWqc >jii<^˿[ ELf-)>iP  }Zp%Hh>>؎c7]$E8 iWU΍Ld7_J|kcH*7K"w2mzր Z14/1THHv?$35 2/#4;O3P'7"=܈|@b秘Cz݁r7* Q@c r:l } T8 y, Ƚ yJB0W'K({S;B *$&~:7 MR7lL&ID㣚AS{1^3cy95xNi" }pءʌߚ! mNkW//. VmI39cef2Jۿ72%@p^c @p oGre9F'ie{שkFJ@?.@p43d,x̂G*TH_DWCf1P u[௓*WC 1Ez//ӤsS^LM|*$7}́ )`"vDo,!,}@L1͝#if)1T #K_wKl`Pĉy\;^!o]L8҉" 0Xwl񯤷SAN9$ 8P@i Á(@)k/4@Çc;hpWyZB$ma }(zY(Y<@J-}@$p@ 9@cv˔S{-}`f=t5迵TUP /!@-wյˢⱏllI ߯kϙNO,soVP@9@Z[^ ~,E7nq2>wzQ. giP? =[\sQqO(8*THx;ٻĻr]6馵k0%[}L~u|`3gxZPk(tx1 $v>}#谓gqp5]JQ<s3c77,L魣8K~$ģ1TR 92&j w%4:Srp^֕@:*;ӵ4OELEtYdfn FgA'c *$D$^'y'm`;*Θ; vR z{hR7[:7Ғ{~a"؜Y#(E8P@UPSW!.K,ȣQoIuB %ߊn&LJ ^ 4ŖKX 9vN⾀!äf1p0Ux]//xg G}+(8?_Q;d<Y\HmhO@U` GaF#$xb5Tx[/L75ї[}@#ֿ9@TܲBY@UfwD X4"q1rU{&XdxT!eI򦆠Gw YxT4?^ tjG?rZ8[pLP !6ajpدGePJ0;9tV^VU2' ͂t$Q.5`(/4boHTu' l !MEGU~R ]կsSG{~``p<9/Sgd)S,u -S_ìbZ=Q7}R2`?"@NP"R@ZcvoaƩ3_Oc NxA]@ 1R?$yƈLRPBL 䗥Hs`xO!FϏ7P?y pXOƉ6q_+8=HO:_m(:/fo9 ?,P[FdPn2,/KP$X# `@ɫ@"4 ]^+M[U}1Gt6{s*M{@[&D`&'Z%`+ s6G}thcѾ*5|qw4kX/Cr|Cd Euf )@j{<.5Uy1K3X t1.a$x~ܣP1_@@P<4z~q=ynv IDATtBhd X0| #A<I.F>]@.=EĻлG +>Ƨe0`:8Al:MGP[ r$`pa}MO(X`;vgk6 yW*_ZXвxt2HW=DŨ}[Z7LP=uuq +&@7bVRӥÙ)p/}#l'n aE61QEia?3P-2ot2 7M3±p^NjkX`v h4k[%PKłt/>AKlz P'Oy3PHI,iQ>NBcp +&@j,lm:Sx5 RWxz1Vi㏏=dKbi0杆y>G+9@e@䩴n` 7#ɨr$Qo$z=3tXYTWD~KQ_HK 䀨LPQ~vpY`)3?Y0ĭ1w`<PB1ȷT?aғ)P_@X?qyN {f4Þ }w95 k#T@qڅ!T}rgj% H|!66L ,2 ugF&Xxa01!c f8ѯ`A؝&Zz>9" }Il-*>/t j95#AY&{BM4PS@6me Gxh +'oo۟DY `La=ĠFx+Fcک2(џ4MgP+C"6ng1Э) X1[LX<Ν/E~9S;]>'=rZ&dl?DAt*;_)7`m􏈺 L)[%@5V @K^[-mWf¨<۸_|¾Gu[)U;u'9kW +Va s22Tzє.A1hmu(C­c1tߛ ϰ HV`/,IS@XUj5nf&NzgOz1< L- " 8&X0]7'4ݟ|SķSBl )&e2`N1ձN"0 oWkMkLU^pP2;J5z٣\wZ.4d2pr_0KZh\Lf|[Fc|E&7ޅr%jY߂ippT5/>q<@&V*]}y[g7?͚_uO ITti0L*ȧ ks~la,MF~(!GNFP@/J?E;q&S``h~h :Mh4>}2jULA(}Zp RD :LƦm8]@H|?x5(rw4/x \n?<:, 9 Fhv?*`eMmuï'+}' ߘ&3ui^trdjU^K]<1RXwRڐe=,gdNѝ]@c~&I4稻:Ơhl]!Xv+P q0)ۭt6&Pn}̻h@"B]\N/'KeP- M~ubNLb~ @ D7_u{+_O3? gfxsKd͊6\=.N`*}Ah%'##9WASȣgVL4ھTE]RG0{}ᅰ;rB &g hu,~h 1G%:ճ~!N-"jn6}3 '*p8@?eaV,W.pR 2 td'儎VؗRW["!T,9@Iꤿ ֺrgKĺ350Cn@8Wd 5/g%3H8$l2/Tgp0f֔f.Zz骛:\U(n_=JҜ෤uҗ;p R@%q|N QrDR giJfZ| @1 з@cx_sn=s~~681jۭ_aEV&Lw|qQOaUJ@ŵCg{q>\ao9WkIM#+Ǭ&Mi+xH|~&1 KVV<$l2@՘]z\%톱i mRʫ QT*4 ؟҃pN1V//p5_*.jjjMo?vgVE;ʊ4<묃 Q\~Q*hD<:$lc^ 4UJv.WFt62W6m%3Ey/i2BV}' }d:n$4~1Xpjn40*6($7:FeǥsfѼ6aS= kDh O0S\z &)os>aDA`p $QS]pDՑ:Uy_pWQD`ֶ}PZ]iT:v,_ƪ( a䥤Am| T[ TG%)Vf^?y I4ߋe=0ABzOU8Fy{C@WřKdf9^g9Ā6H٤n}CŠD"y3=k8 (*rK bq0pP kg7Ws1 O›&as%XI5  0+=,RRYʪ*Tڠ bՃ \?DhD4+0(/Ѐ_s~n&!a%)V2ԣ&M~ \ T?:7^4KS| Q+5"ܦG~6M'F7wأ$1mju?* "J t b`\UA r b:D)D\ndԊmP;X@ׯ0jFӰ6f R !G6$i|^JlXjˁw$[ cp|2cm9͎޹IywuW9s?.w?pW7 2kbppw4P7YX">N-!ʍwp0'Ob5jo-), fM(V:ڙ V9,\7~?l`R2- M}:(ޛ~U.mc<.q2PH z~Y@I2Z ݾ@ @q\<l,/g&8 B BKXkkUlj&6T/mx'p _X̫'3%, @metz[ 42WJim;Y : tx T~dJ{i;m54+*@l s̽Eg g!4#Qm 7 .r?М\`p`5~xC_Ȭm 1a{Y@Q5X$@2yLw9ylnN>ؓb5Dg]ǹv,=+m;bՂHJB2NƄ'V@C]Ë1Wͨ OQ v{B6o4TAOoΫ9ubRx ?&jWbŠkm~ W V9?9+݋^@RFy+$Q O.pLo;)<ݴW>x IqswʍXN`.L Tx LsG籷ҍ ]({ h1[G8 - CA<8m| D!Ew`)g!J87vEi1$=*`p)r/9Q玓cq'"ʲ5tbA#}y IIU;{- T;ޜ/i`a?m  (@_+e <7 Pmߓ%1̻!4cv&$قϺI)e ko=K67$N BM\@<'P@qw/Wt:=1?@xs#C& $~խk&x*.þ ЖW,A5/83vӲeX;~, r[ 6h [{@; @ۨ忼/ʧ|s`WyDކ( H ye8 QT"]v:4DJزcc?z֮NM!:fFYQw>rets%]uOmh @N_nb)[mb<ގǻOA/wx!4ǵvQqTX6CB|5joجInҎEtE`R~<䆷[~0Tr mg"Ճ$ttZ1fB aFšyҏk!3@6v`G nH`FMW)FLwrē =XG7 + Py@j+1^ _Pi;`LPv'Nu+P0@n{ĢJ(rR ԇ@z4h K ` &hϫ EYSnmcXI+9Uq);=@'= :PSJC-jRAc8bfxDpv5q‘M4)")x.yfAM$6`ˍϢbcz oyn ~\C2 x\:z&)DIL34HϢQh?nCW-ͽނ#[3,`l`2C@.Nv$S`Iq-= ok@SM|!. pG:<2X?:H̫@ka_!E: %_35a:}-B B8 M'$0<,$<]J[A] ^[9<`鶈'=ɦ 9kv@0qEv|k *tKn`r<PQ875)N& ~0=\-8{= ӳ NK@SM<t8p) 's<ݹ0v蕛@Gƪ08`F1B1PȢ@4 }z;!.h|Y 8f@; X)WGO|8(Ai(a^,rs''p> 遼l )ou`' Y]M(~j wrkIaS9}BGBf$$d+ǀ()tޠ|S el8{Q٬FpZo<\$6uK#0Ac䊤' (v}5(Ţdz v'&{N]M4MV=*!-$?/n>{@S}?b@~)h@MTxMKuWQ߰Bty$̔G17%2j `* > TG9_;*YN\M9Nlmt[tA4zC_D<&a @×+䟰Wd~wÉU5- i+%$c5 P?m՘o $$t1/[A`s1>0c%c) :u$82exU pn0n(-HN+$$@8R)-DF)$U@Ϻ_Y0qjpS:FoZ. ܗxt*I`DC<}%ZL64>n!]43@P/wQtNea@r' e|VB"?Gqݽ6늿FM%07?p@SV<a6\🔁ඦá(* 0jG}w\v IDAT`h挥&xWz"Zŕ)02aGb<Y&X4"@ ,,(npYtNYj WVlq$,+M;o+B~me@rEvkzrHj%zQg`],$c,|DY PLIHJe|ӭdݕ?p;DSM|Htr潀[N@b-w_ܷ~pIJ3C!fڜ#R(Pߕ4Cpzg*DJ9 d`>x0C/M49Hgz,1,9Q;H~|!hT=XQ?2uut&(%@tJ#NM4ЪUg^aYf1D5$E;DD0e. 7Pt"Fu )!_RK(r]ПqhQ`J9E~&_uIl_K'x^D;ěu@;%fqͶ`U" &u};Z4@`P~I%WM ?S{#O P;AW_pUB$"ס0Sў$fL@JE_ȕTh U:@S  prP .M]OQV4d"P u-HCHDDA@aL=` LmYs4 (D3`rfJGPӟ5l6!@_Ȧx5 0zZ RgPyd, (#z, Dh ?{W6DE#HbtӺF&!hS7<7{ :&T1 w?>Ѯ"MhyY )4 !mh/;x҆GnxPE<q}4ZY#f?^j._+/}?m/4Ɠ/,y-$N$&I*7[cAYKr%ҝ:DJer9Inv%2-1!'/AH6,.#JR*;u@--UPor'D* srD><2C.`/*|dI'>ȖO%8^.%B2`JCZ~M|Æ(QhbMg:TPcƍB%8vOaQ!EI %._9iŕe-{c\"dC(Z;.+_~R  TVAE9Qs pk.,R걒dB>E71M*S' L!ܶpS6[&"XT=@NEfoiQSEJ)D2`L(ϴN)x<0l ]Ј>p1S$$3<zgSE4 vNKs\7ȸ(71:^xU@>ghUzmЅFB=IJV$ Zk"QQS40Вo5 \@EiUW柚IY7x_ Tx(#P]OW9%9-Q(~aL)[T:CJ$gE?XxȠŤh h j'Vk,:m L:pa'ThOZ R9:eqM"K:η|B@WP@E8{}|Uve1eoUPA _ѧ2[Ϭ\_`ʰ1bHӄN 3@!-8YXq +f+"s  ڄKp{xPET0arV V6[Vop/l";|T8¡zE!4-T4m/=@c!:#Pu8` L0>~RA;9>w2qW4pP #Ky}bPH[ ͲhF9Iy}"* Kkfv8L/$Pp~5 YlL?1NQf5cJӴ ƥT=w[{tи 3[|mƁOވ*x\@ּw j!"4RCw]fqAx.<"Ax4y>\Tk1EA-xpg3V޴7֙h[aP@E{v? hʺwhtH\@t߆3FXoDE!ʟ"nc/%u7+qM{U@.I-cxܨ ݲ]zw "_k? tʆR_=@^o$bzjL#@nX|U8#oZۖJ`q.- K]u`+ɇKfTז_FnhzbLDEk?ѳlkpaw(c$3wTSNEA GhAA^Q}Q>z;8haq:Fx(y'\i\>XSh#?J(+B@ZM˲fd<DׯV kZ[uyL֪2(IÊA(**Rʉ7$9uruajEgPh12cS9MK }FEk9(-SĕR.@M#lH|x[XD\EsI3zJS( 9ٹJ ׃ETk]uXTP{9OI Sҍ:".:lP_YS" K(-dAoupXjZ%u9~q qX:T^9A%)7C`:  qC ;Z)JȒ]og3ŚF:pM ^\M%`6L'm->!_wdB&8k㩣pe #/wo$W$ :g4V<m#hP_‹ڒ]&/}iXXڠoьo|:XKQƲoɍǫNC~tk0/PA2P V%nc YC7r-@9zS8;hxOmSR0"ɗ"EvA)Y$\~QncsO@kܼ@Eݚvf${nE_ E_^ h@l0Q5ʙQM I]Ga~sqB{ާ<XBypO_ H\!5)jqzܽ>k~V`Shb` |)G#̡L޸֖:s"nl#V{pa$RTs8(#5ջwiQ@g/"tL7+'4iFjc f~g޺ޗ>,, E3v$hr(>ܻrtwEWPqϝuGu02hlVdm&^CM a|CWHE tl4Q)!\kXBȄ"* KEY+[{ k8x3Aٵ '% oTW U%5D͵"ߑ8% 7`-5bfitf߇ھ@l&m-C;%1QIĜJ޵'F!!@`CvW᜜yX&,i#\{s&q) @>R&,#1P24qj¹/&\,VER'@Oe&@[")mj)"C@߁Gj7!VJ<W* } VT qj ` [N: MX V@+) %J;3uQh,<(㑮* z-X`CN;/ľ@=4 x}yyӡPVx  7Vh8g @wSLn?![,Fͭ.9}HxgX8ޓNhtS$obb@*Xvh@|`;,i&@c9S9:Ix9oJ-h80,ͬu݈|uHILq{^BDTۿM؎Zx2Vlg c] )B*-@ٷPR7M7HEqP|H(<, 3@2$Zj[eoO!v/CHoC*z,׶0#^@h+)RD/x9:OG#!]0~ MZIuv~r`;%d!89H: ^^߅LbH  ƤPS-AQ;U4cWd$BXrګ#g@*\V!hH~vw/~U/m| ;Fz)7q^{)=hqY~h}>H%JrojGBΧӹO%l%S%d+O: KW)R;>7/hV 䥄$X>zTJx;!u ?~@f<@g؜1 "Rۋw}?}6s7зȋ"o R|^/ qYAD_|ws] DL0؊@K}l7BX2~h!z,sH k+S e 砢(蝻QZAin@ @w d>$@/Xy{A\ UGf^H|`$ebPsTyF=.VݽQ؋/@ůi0] j^-.y %w#)R/J@P E0 5hlYDV<|B@[}9_~Y>ʆE? ?.O)RmLeA&t^ݔ+VN'teYx6,=k_!g&X$ @Zpx]ʿJRއ6Z%@1jDPy8Z@YѩV<DvU6sr`VqTv6"cZL=DDw@)RoKUņBAX"4f8oX𖦩7"T [Adbkj@. 5={3_h{LxmpE@Ȋxua @_¶#RK_Ra>p4K#q5c?!Ȼ0BWM^T$23y1. rhcX?r3&;u,F(VpN IDATffp-  @@j' GQ5-Q"H:|fnn_`NC /Rޙw{R p P%Kw~91u_ؾ/%S 'ec@I``@ <. ৫`i?KT,$ VrĭѧnxH7Uȃ q eXׯ9ò9TcrXwyC'Q='3HD9p^HxK8("@3['E)=Ĩ-9?Za 7@-(;~x ^@+#Omak8ר l)RQ&Ww6 `]U2oWYiKpx ^Pp7qW CxԌ@*< cK90^8yfA}~jb]Cx\Wɭ4 @ܽ1%sOӹ4s յ`9nX&y^o#~ pȰ- mFz"-2W>\7%d,ʭ|P<ͫY`@ @[6#;dVj{@lxM>g0FC @U2G}Fzk@<j/@j p3&;̆[h1)-5(RAIiWo11:nYպ `0/SafodaHvovyByp,zДtx: ;?ݯh˛]Ͱ_!7h䩦딳d2Qavm6l:s0F,I0{̙|I>gwdQkA4=wN<uG_ 1+j^_ *[Su̔|*g?KYjBE<}x;lJ`+(z=W hW &_|3ipJFU]tY?8urVYzz+<54F]}_yk nYw%yT~ 2;3jTL*er_B4qzbM24?hNb0tG#ObcTW* %?Bktx x1us (=Ga}$igA. KhF2q @w4 0_GE_ L]4mwo%1H.*},`zr&xߦա +b ;yjQ@KORlĊor0P( uё^n(k>?<=Liݏbu:s `?AFr-nK^!^ڎ)WN3whb<70@ok*ҿWGny>`ػ^g1-.[YzũQ漨 `@am7 YyF LQhM(`Cle[.W 2y3DQH*@i5P٥:'#[@4W ]ૌ+-ٮN'O0;#VR&| vr6G2D&guIHa `+"]@$͹buY9rv$_wՖ`R)p[@qqq= "X~xA G `* h<~DV@x5eGg(ĨvIzb vBk,HyxCm!#a_ Z_*`y|b 5h6\W 0_`n `+`cDg*dc& `ľ6au ,JYKt0(.!˗ <"c3FYJ^Uvk"> P<]\H*"տ3Kk8 `VăgaG3=/H+ߕo:/>;!`: wq ߑĵM0G2c< GIb`_m;@. gi?E 1wRjNؿhI0.)obЉ#K]lޙH`s@\ )1.ޙRQ;4/_zj@ ؏h>X,fȩ iY&j9YI(sw*H0bk}Z@sߡdE^d <`4]߭ 'OLMQH4 p$@ @ǁl$dޜwo0(;C|$N!b<^y @7b FH`@ <Q @70iBY 7 C/]5 4w[~N'd=Fkv y;? p'SN q@n7DŽ`v ay2-  &`01xizs=>m;حI `Udg"%eiຂ s;P1U(pӜM :nmA1* 9JW1Z0[1`. F3tRNr ,ludj 'gQ G3z(~eޤe)U+zJ]+ e% x ֛,Iby=]V9/y,B ( czӑTxD%u ~=ºoe&K[b+@7YJz1<,J!<b0;jlZTPOM飂`Zr,3k&ߦ,\]@'t[`ynf*&o 1` k4UTb aO#J``{1Rh]f6`r~j0lJ~ \j ))esک ```]@dQ(q9n?(_@ Flx'y]͖HOZzs txqd_\>ai N5@W㮂O򪁟N(&TU#KZz&+Xoߞ4k `) `.|Ӎkr `X\mgfƉNo 1t}Q05Kq=S,/Ku` lgix@ p<X`9wxdUS羱>t&xjDEKN⌏3NFg-*&v6=ܤ[{ (9$-s ` vS"_uw[u LAC 9i;^[7uLA@>1/'2]ܷSAO p2 JY<0{i0 8N_o;ƖRh*vϰz`  1Tm,v_bGF@h ˠNx`+MrK PǑa?M#(1_pQ10ZT~_DS@NPn*PMF<WqcF80cP.%>gfs+lֽ{yp瀔 b{P`*Xg=/$eDu O'\W@{`x:|Z΋+$ 8P K N+V呪fk̿/ VZM 1D;0|V1JfM{""fLM(((7[xXp57ʁ::(^1aVPXA\ #XE6XZj$t/Emk.h*$(HԵ#-}1UCTp; OS4VFi p8v^ٳ \` @ 8_xr_+z ~$bPv?+ǃ]eS@P~Vx'bieM`mݠnOEs;R<_ (['K@F+Xt)+|~L@clPc|Ǒr 8M5" f(zV~blE ` cbw>cx[~jHh cE0lPP`W + 4^-M=$eL4@ -V Pe@&uo(>fKԀl?_MSuTl7 3VPPūYd*nToV`[@$ջPU =(wj4Oc ^9NFca(cꔣZe|ھUI+SpAq7;)VraJd:S.<]Vx>E60tq+ndI5V* (o 4\@h?1eY`?WcW +* t m `L4VL^S95+mQ6 @ X#w(_P} %%YA@دO=VMA@X@/)0HRI*-?RQD=_e_4͖C U.KFKʗ@cF?0,brmf蚍@(=:թF7Xe YFt[VEm1X~fs {X{ ڮWu<=bj1xn/0` й@83 s4t+x8JJf@.hE f @(RMmhblcCh^S@%z"Zό*'*eP:S&6J[\_|7FqMN b#ÏBW[^sh_=R~)KbGS5SUϱGDPlAx.Ǥ)vb;}l>%){AL ~V0?6اOv([]A Û1..=\@&q*(pS  ((d   :|mO, HhwCoޓC@@eueFS'K*H.3z"=Y:#,Fi 2)G.u6mټpY1a>,l}X z( ) 40Pl骙;#(anvà`Z4 0 `0 lP2#K"J)%}o;iEfmLRnKhim(YY#7Gs3Tm'M ܙƸm0u[Ɏ47 #Fg}-D>C~ID-BP`{gXhGT̡<[# |&JUZԠ@ʞI@-eLitԍG=;ݦ03 |& %[d]-JME";iEqlL/}Rmn4oUGTtJJ8g|~D-;iLm6Uؑb# |*I`BIHˍtNjo6tMvymE:@6ID|jNlk):,#};i_ ԆnŽp(#+ l5NlkiQWN"W/. ;ݦ ¤Vq`CA0кnjnXM޻:n?Z}O_=I3ftUhGYWfaϩ(9~i;6#ґ{f*f*]+*x~FY yێ\.a?,+;ImP3U}_hAVxͻU '@'[h 6IDAT7rZl@ @'$VˇhIENDB`ggsci/man/figures/README-ggsci-startrek-1.png0000644000176200001440000007347714634136357020353 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$cPLTE}_56)FHIɊFH:]^^%tst|(塉ޟ*Zbi^Mp? IDATx읍8Fe5` mK8r^GE*I@ņB"#!B!B !B!B hIwoIb4;Ix]")F&ƮA_2~;ptVoM"B|I Mj)Goa޾pvh_ޝs;z{PV(aζyVkJsx.:gO o+`36ooA63rgα Fu1~{`0;fٚk3$+0 `0 `0` ``MPF<~߾_th`_ '@H XD0IP8(D61 xl0@Tꘅ< B`%M\o:faOkcs@bL%- >:fa.35ϩYS0?$;UNur˧IY]pl^dh3/y]b|$Em.5PשY $7 v;.$3QJɱ ѫULQ8t\ptf vp0Sna/\ 1 l7Se7g ?:6꘵]ٜ91  `>k^ 6??0, ck@?$`3c %L^?K`s@ xQ00 S1 ;` 0 @O` `$z? x__1#UQn7AQ&xܩ"Bb]2b?0{2['bl6]]@|mtq{i!Р` ;G*VPJicǔ}U*m WefS*ib8.gl덦Z_x{™vp{DW5%uhS}u+ڔ_UUW;vĎMsP(iSh & KLIG֬aC?! E* `;:~ H&?R301pzRwğu+N14Liߴn ۣku6+}wA. | @0= `64=7Mc|Z@9GI0@ ws?f<ZzӓԖ랑wBm{ZrD@R6]@4uoq_bb 1/t[Wbx cClv*Dͅ`_:J9o{U#k97]@yؕǭ%QP;frW) o:Qu^l*@ "uBc 0=:N izR}InP\L뿈&1hL{=PAR̓U]׹=z˿ngY6zGs x|@(!e=D =P`: ( ~AT@FhW2] b)1d'@k K(a\s!!o2,]4.[.x \o ~̭:a0t7c1uB@׌~:>] H|gs~NBVs 1[FFڎF` GOZ*lӄ-"r{s:~'-?6^J kW?GI, 0)zp5"[S{c{ N(ʍ#9vMu/`jx X ?{~@rh 6ZwW'kUm=֖:c@߾b ߺw?S*K@^`KP7}DWVeu=^jpZjDmH$cGn|+e^:mm{jk I$Te[uT[Nu= hunÞ?С6*,%۞ko=p. Շ?>~|x/ b2o8{$UU[tAOr>^8 }uoLC},S?>̃(?^K_7D#H| "W&_:˴i4:c9;znX̝^o|C✚o,?JH;UZժً[f^BeC@<\e $ʴgWiYA$+wQP{p4æV/[L=?V'? b]^+p7*q\]ւ{*Vj[^f4iz3$6l4Dknp>l`0wlg=@R zybku@9hO/U`q0.?@TydR".&(4]e`@?*Tb`W[D{_DJ{́\1U8H8"5҂}"JD00OdhibokER9`X 9Se`Pfm߷׸xtJhNSXi>~0l0%t`;w%RR} #f9!!!m\i?RW(E:7?4=h͓և?{?<KP.Kf R׺uS> n`ac[u0 5#0\F yʟ= k]_(ob.@I71Yal0rsC)0aQj 0y믜8I6/S 0/MN{|W4YH}p 4@u~YE x4͑}*BOpoE%3f~kޤRaa(o?`{ NdcPT-0@M ,z%eM-eH'¥~m5"0"y%W4}]EQ~ԧ= Vb^v%! RSvRT:,IhrJ)yzb7;^/ViDr;ȃ 2{ Gm9 ٱhmC=Z;K5S3L=8h.~E /IP.)g8zr s19R{Mg ;xKP@@՘uѶrs`l="J|{HjA%$>:L$NE>Էl/0 U@HX>{i@7f `5$+pXt[ ꮤ ._a!tk}j*VXn*as֨{3`0#9Ust?3J)y0mZ}:P 4և@O%u|te_aZNR`|S{ '1ҝ^<ڴQ C`G(0x!u#!_/8PdWG}[֊Nx@QYM /Cym> E@ǽ]`&d= >4X fx 4-:m[yEN<Vq ÏK7k֎#xrmg5!`0+jMDR `2`@LM9貌j{C-4]q=w|WFm!<.<z@qh+G{(A;JOA'7D~M$1S-7b!dR?]H-> `0v}5=e^z_yڃtۆ0k8Ͼh1CmAOjcjJ?S+Iϡ: J.x Ǎ`R |Uc,ZJ $tkϿ'20T/~p/We=J{_s`C PZyȍF  (̘wؑbKHulU.c# 0lWa_Dnr=kn{03)#ؼ(0.ퟚ  *{@P*F0 Ԫg9?Pa^PGs/}FZVix0Eτ `LlOK7yӬU 68jP?0q >o f]@SW>*?g}p`< k=ft& 5}@Ee'g$=X/}aKG0qn|x* ){wLj.h9;|70^, PwN-+S1#7읁r( I ז6`Ivb{n8/ I/6Y@7;yG25K8Gйi.K>?oۻ=t{oo#н!->@4/Wh \).>+xEthz"6[)D/<:'1?-G;=,I Fl_]tCLJl\jH1+h7TK6z;Sc9^y\'CDݰ@kM}?Gp6UC@,U*cS8 nA;pPKˍt!3>87c Xۇ?QW8m>ZJ`j!l(EǏ? V /`L('՞?r@xRߌ;Ք`:8^ uZU-9(3/@PI}{ yz$N@@D99oFu0*8ͺhGŬ(& ~bQFf9h iXKWJ(aaK3 un(Pt8u7`ME[GB\4IEߝΫ3uj8 Nt2x`8);o'fpxZ%Rp#u/!@=`J>ʃ2uY 3{OLଖP)iy JZ帾rOPP@?rbq϶K5`ZxِWӶ+w9?BGdX׳sYohUp7p_yeǥ)>Qw܂U zh}S#9_>x#//KM>t RaC]_Y-wpQd; `11 3ՏX .IxF=A0r;5<^ `=tbI 􄯂C^uE),9S^]e @QUw"`ݓG{O xj$06pc(fя2囁d񗓍>L;G"sẠ0D@Pt6 8r|% A+V TLgm)gp1qUp+Gg6@]j>oL.90& ?j>Ԃy}o1DG+,e0Ϙ6s 9ުI/==KDL(XwuD|ᛕimq'h"9[>^*0MJq;إ+_տdgsa31m IDAT`͂EhX@-@}-INF4(RǯyT<z=Jo'Bv 5I:VԍK|N\ژ1 e$]9rw@x-vtu!b%^_#kJ5rFk) Ψҟs@ LJ&NϧpF8`dh/6&@@XGu aK#&"Ï!IZ=l F)'g%'+$׊,xS~I>D3..-7vnVݎrZrSi.Ji`\ś< IdS~FghwDc`/5MzF8u@b  @ |kHϿ .rI?葉ra`=<ݩlN`+. 3|a@hebHnt,HyM$.C,y~_S^2糁(6c<~-{vQ iL&|@sI:@`ߣ$ @@

?ĥ h`q@,!C}}"$"\1S4:W*4?Y$BCXg:/ <Ҭ f! yXR4\S= ],KѢFH/FsTkq.C6:H/4%|t(k9rz h ƕ^c־_k!w.q Tq̟F%5@讋02Dn&}'_@9rle-1a{}k@'@DaW.:i鎩V)>T҃!zű,ؾL7Н'uաpqg6mƀU9}PɐRW(} jH\wZ 1||Y!ẓCO^IPu݇O, 4B@P\T7/rk:K_6i2D)J{QqY(ڤQmq{x$mhGAZ F<'ҚbUu B,qs301_]ZFBp :#¹oIܜnE @ %Y db߃ezN#a$Hk͇ V |܈b(XcX3f#?w 9GDb-;w=w-Pܔ, ~ I֪kHU0ޓs.9uHzal½cG5E|伿 4,DDשEƦD?Yrpe11CL -Wl֏) P\ 3}Ac\: S== h0l!ςU4 e*?z-?Ʒ2 tM$0 KP`31/Qik'd[cއt͍E uvsB Jo̻$'yp֬8hWs9Z'0A:SIJb6/chDh&!h0˦hg | `;) Q"[(2OfϙpNQ\8ƼKy+A [jy^ywbwLO?tT*)1=5]o+cmz쇘w~ Sڏů8̈A/V>J12c/1"[ q1=jj i@f{T%:wP.*jnIh يv`LMJU$4 l %d> 83Kd^x01tD9lEW6@¨o7,m/Fuۦ4e͞h s)FfͯLDAI?{PWwu4Xb `#dFkbopʙTi: r""cG|ޘwjXCan"W秶-tbtl>M5BZGܽY*22N3lTbFb'\!_4:0\H?;}uR n *DxK|0~ gŝY3}#&d#!Xgѐ$B\%ae p@O Qs4 +O}nlwVTu¾>(2o;1KOA0 c`f$‹Du.$z1fʕE?Vj$˼NߠՃRnCKfT]%aV~b7κz?.c_PR .&`PG@cP^]%tcG cAQ AK$2Ah_۱࿑sڂsj$Yf/g{Fw<cAw@[dLI7"h($B<)GQxDLwt[Mu}`-8Wq7h _Q¥ʴ +OɲQn 2 d glll7 f~^Gn0MJi@U(Fog#h(@TotHQ:qF;C n 2L腎-ȻiM/`{^}9:Sl- D imoo6_ 0x7l 6ScAj8U~a3'X8?(H@HnX F 2'2;4 ?[ yZj8-orK6@= ^ 'n["pMjLa FFfq$lpj(v[>6\"x$,ȦjպgMXýlȠ[fAbqYS77]=7z,WH. lstg"D4Pr#R7_`j6@(Eό-(YDgw$4}_U }zx:MSw. 0a</ v 2gm 02jK'aVLi&=OցA"Q-M*;IJC$j'tQ@ pTGG -dfM!=yr cxe1"G0~ vH3#`&hC(B;H/<O<}!N+}"8z]-B&'HtF(·;3wX hpCv} [EdqrT)/Ru}ʸg0a+-$N;K)yB{4@j04>xgPu~6FD;. 7I ldtAk)DY(,`h䰒ߥ @g~spN,_i6#â@A)к N5zj;{l">|!(9v;F*#|v `<.l ( !%vqIv8f'i;&е/WE W{P w؏x)sSYo/ h1z{\0B>a&pD?u& yCat d㲠~MTTJ ؼW "Ubb%q i ZHtuCu]< 0Ӄo1{ @#!9 Ї`b|ڏ~W"@ fwb#HQ`v?g+2P ,X$s\/j3032q`tE @HU%&B(* ~R3ߙ~#O`K`gh4@V`X(R|5eN06~]eo2ȶXWpKj2X72 }t&LlW6iw0}u~#WV 0;W0jijk (OW#w5< Mm+iLr*P}o=U.C\t=E.gaR@0S>O9@/Oin |?;rDnu- ):Rk ݙF|Dءa!Xt~a[JQὰBh5|y2r\y*l DBϥ,@Wu^px-w=B W{$޺3V^lC(%Kc}VptN'IsP@pP\ iaxyPdsu"2 Ю3 u] A;X$IJI`g% ek/#VkyIq_'tXX nC"+-ްl dD-}lU-?d:;7>nntqy/CW35` 0p^uw]B?DckL@b$@*\a 1m4܂nss80CzU MF[U"Ǎܪ"bX TN)XnMYLEtl9yDDDߪ8؜춁_mwP8q,4pܯ}!5Fxn F2R=Z""RD~/?0Nzc 1 "„v ))]SQE|`|'ҿŠ z#ٮ`.f+PR||_"] IDAT>,|&YqMݢǜHq?Jr:ACXXÉ+I SiG)RJ]""o$ 9eS(mkj4szXb] 1@5<MsџWsDG0j+ Al1!T0)R~~x' BcP(=/@%2 p`fV}3U@ƫ 랙Jm)W B˧LTH ڍIn\#ݺWxy ȍ ~ǀGL|d_q-ϒ.-/ \0ς)R?@[z/" P2"j齵-c!γoj4-xb]6'7c,)옳.64+ei$2,pϥ)@ 6i6y* g-u4^AuqC9 !'263~rV%84VᓕWJ   Px*{22gbEA<3^l% PS߇.tKT`!8+ߗa,H,*[+'L\fHgx(nːA'\aEmFFcC!Pؚ?E1q 8%4Zcܾ[n@n\ⅬvO:;6)\u !vW)a@KO @mn NԹ_W̿PE+ ?B`R;C/ beHT-|Tޕx?DHϪuԜnx^[PPL.αzܿаHy0yȯ:&"Mk@ Ϩpxfp/ eL[ktfe^pP^gS%@k߃rόB\@TU<$Ǽ?;@&@aYV@{KB.BR>@i%7K,*+@X'NUm,N%J"< LuUx_9I2;f/@X7u$S+S/]2+_ (_ }8S5@}z0њxnj}dr(j&yN6;k d55A=K]G{k`([>mKP0zܫ)kן^HQeʯBYL?@T `HEo=XcPiHDN=6N̾FO8EmP $V55ֵNV5n8/h]_| .^ԌhTG&W)RG# K`D=z_mkg0yBUfy}r9Y+OR (tW?t Ulk/RV/rţ;eit`O& ϵ115}}]Gݛ=@=dF771 :}k>If?3JeOk/ @'ő.N>^& H&@|/uۙ2@@nVI ivT/Ǜr{1Al_$4{ ѿ άt7(P/ O2w@}xƭf8*=M`eh0U>$(P"ϋf`mW`tO͂P՛mUy0 (߽6 Qh M=׷[&,Cc80P@AMYh*9.xl>*I>{t˒) !`Q3m;2LA>  zRADG5 @yf@OJPqꊕ?a R&|EpԼIP>'RV㋨PRDŽ3?iuQr.=/TGuMQ Z5v%$tժjc*Cr4L1DEwq% "*TWc<@3+i#.lnz{AT։Uۜ/Q+)`q!HIٞ`"p{$ G$߃ &k*T[U#5Rmʻ]/Isqz?/O<؟ >,vQ"ST q>Fث Ug'XW"Rr n_EyQ@ՊaG1&.ʎ!h< *Ts`G@-@am:n:6+>}6` `ւ@X#xe}tL^5<t!:,P  l*TMdko7LMo+Q-mK\@~Q@(/C -9l `83*T@Z7YK1k\:[?@ кR'ܳk/QeF=CU@ `# @͞z&E0z._:v]LHQ@0u0<:^2߄$!P'Ҵ#ͮWgg|PC_A }x꟣g{"X醠@xY@sî6pdpb( n=\tFxP %N0O咑w] <hCXk/  T_ۃjizg F@8꾅׽ K7 Fw{p97Kw_28_D=7 *2_m2yAwG!>ش Wnps유@AqYV[-î'ͦ]ްbCDULvp Gte2Z 8sf *NzQ@$ k*T4[]kbZ@p["FiS(+UIX]{h`}oN=}'b_|׊3vdmX]ݦPUsnv?PgS׼g{ZW)p5J}<qAb6!C Bs~7B}HE&DV`)4ZlepLeynv3U;rsDr`X:ݺw+<pNf4 ȥ,D+:qvGd&ky͋ť,?R2aq߿< i9mACw3. KNMi nZ/?3⫞AФ֥B0]T EJT^U,K$v*x;(\y1^ҿaz¢r|7 ?1i 4[]c=&xX~Tto|9P~w"?e֪6?e:!k͒,+mlƪ*}B&:)F ٿQ[-î7ܘ%CPdFBU|A`k}( 4p(R*k8(+xQm6PL42ZH [% w#+}^lP%~I.:<@M)rϷS.{ `]@SؿETf˰kW% ȻUtTD@fPi(?LV@tPS3*dp0,e. `d3@ȔUt9G\q< g!eyQZjJmW/GT.K,(K5{ (S- ҶJ{-t. w/B.)Br.ś h80 \G\&)U!U05!A$' h ߸P -ە']2 T Y 4My@3^ne@ȹE*-+܋?mTA`D tsRUt_@C> Pxq-~.Zk}a&=W6Ph.רPS Bǘ Fc @}O= ^IDAT,wo~=TܜL@@7.tD ՅSG nS|ިNސR4Kp` X&b cQe x0B"*}XrY"T1@;Tq5+Vj)ڙISے߬4MNBC0,"P /I~ 0a0_~ФDO06 MMx?O&Љ )wiK@ <S ?V`" Q$@8<_D0[,2lzx 2`!H?dr'} a0 a8tfhRa (  `v:14)$L ͒dd 0 pؤTg0@''X8%0 @DS$|8zUO0 ]NPP&h8J`ߛ:{ lt>ޏE``M sa\i gDZF<%/g0i,g;y:_Y`El1pg ʟ3)X5B-D^I^(`,Vx?0.j gѤ`w>0 `*|E0p? >nR"8 ~=`>}jۤ[t+@8$חv0>جmREWa Oe?]Z+``5J8Ŕ !Y02Mcr0TV> #a0 Cә4^6lkWέ0XߡI[{Pv σ00><'(rn6R 0+8=Zo?ű^`_YPIL#@yՋ60 mʓtAD^b00T{O[Oٴx1 @  h5۾`z>th{sxm`m'3a@e`ӛ+ibu/h7 WepUUx-.Ve_V}xg"C@o FIx q\iU6]ǻ/ 6^lz\~ (A@8s04雔W a9Lm&`nRaEN`@1z@TbC@c`H @ФvVqR = C @ UQe ,`uZx':_0d0WxKlR;5\SH [}<04jh>gxEz! `{5ZrgFD߲ky0{@X/pJZ Fݴ 8~O Va3^+@k~F.y 0 `:. 1zǨ"N|c0aLcX94ζ~'``6ߤ2oGvL0 =MgMYc0  I:Fc9᝿T%o!ydO0 a}7%!@ +'`?mp|-7IK=* 1*fkzW0 t*=G2$@{y)2 ` 7ruWxp:$0 `PE<mL+tBÛ8Pl'VI`0NF?' `1fDU@n Ka&_ N^&G -xFP4RUD `0Zg Li`k@|iV0t Qmߚlw `;t]/ FYe0 6`ftG}UM` 0 }gLΛdv% `[1W[WLJl0 ׀=w'@\i0 @1OSC+dU 0\>ޗwnbi`20 @ 0'@ Yr|~ydq0+:In*"lghn-eS@1.qΊ_|O~`S@8+#-r=-$'S~wβ$L 腙" 2-_P.0@US@1.)Q8j/Om$1&`w x" HzP;^~p k] 1 ,Ա9`#yyI2Ƒ`6[۹(e&4Yg, dc+mO<خ]<!thNd*U&<P%۴ @d#P``{wBg0 ``|ϛvd8Q'*PU@EcKMG[sOB8` `'8ahLh执@p?kjnv |†Tb1%m.ipg,`C@iy"QOP۷ʹw3qkbI x{hAH5H@UsyxA8c@} ǵcv0C@/WUtpR)ߥ@etإ&4Լnj\Wڵ9]P2 `U@ 6h3VKC`Fr<4qB3@zUE4_̰ ڎ`4X,ļO$<x6!)`a5C@ 82.DM'@O'N],||Sv1 t8~xU@G<VC@$Ab0'3rs4!7f}Y-uKeEU<z NWrǾ.dMȜȜ}ޫ?THu8Q߫2YFLERUDVX٪V(~T!I݅,RUhj{w*MM;%Gq 1LKѡY`Y%sU. pKS4~DO?ڌ!.@׭EMp_*̓.,.jtë{eB;wp_O[~ٷY",a[?G9N$oDDܯE/f];Wѽ{KC1 1޽<}w#;~9Y<*_aٷdGQ Qp.h]tkW!~{X sC>@p 2,Ƈ(UƇSoɝ;x m#ZF}MuBtd"ؑ.e; pYHmC*Һ|Aiт{IIɣIAT"1yW3' @P~}:6-Տ(($߷:rqEڭ XB36l FBFcO;iO*~ݪZKr3`Py Y;yBiwo۱g:i:F6$ RϏ[2JdLȱpKm]TZc;i"D#iGڭ X1Mm &T7lvrȅ.cB*A6$8}ŏ[p 3xznS=waA:\IN1(d#|Cڭ 8NM4ҩ7m-Ib?vi(r'|Cڭ 8Nn9Zdpv\ik&{QH2K$ݏ[p 3\/V֫1g d- Z҉cO;i"lIAVyi&PfYL`JwBe%;Q ےi,xHu1@&LHGCKm-#wٱ?ypd4KEڭ 8 dZE |α}d    0z|IENDB`ggsci/man/figures/README-ggsci-tw3-1.png0000644000176200001440000011203514634136357017211 0ustar liggesusersPNG  IHDR#G pHYs%%IR$PLTE ;:;HDHOC0F3 d,nkm $%(,y6n$1K VZ=^5{A~ |muڈfSjR86qN, ʻܰ[k IDATx]KkDn% dl?mwFfv̅A0`BDfEV77YnVCz |HJuJzHSJ%>kS)<qJOw!y`?+S5Ȱ?Ofsy4?] (*6c"O!q"EwWAs:'=ڟ?2?3dD ,n?)pGJWV SB.Ryc;' Oan0RƋ509n8ܤ9W!p$C8 ~SZ~=y!=)nF[(\5:@B&~'~?yqK t9Ѝ aa%B_uٯ23pp,Rlj @0bug0Sԣ !{8֬cY7< { 9((c=j#aXT1?Gr6 dlPk˜ws ]o|O ,D<>f{Ot9;T._v;PR@|ptJgp (?=4)ũgBMnP-\_08G:`~7wC2O) _VN0DAS@"lVIY@a$<vXHI@'KQN13hg|(9‚d/]]5Ug'+A`PxȺZ2s율Y15`|`P~ 37 :*L4%z1~1!C.U@[6yǀ躿`TBib O;PHG|T1F_|ij0P䀺4b\Fp_p@>43&A`8 &}x`\\AS"!%;qLMn @S*$ g+@qph_J4dF @Gw{B`GPdfE` ȟp`. L+/Fwb YP0G@%piXeii;"$^ `x>WPh`6ҫ٦7  ?R0n8gtU@2~ik$'U@@`4`RhQ7@M Hv4.gնW+ +AK kxH geIG#j7 K @.<* ,<1Qu#49wׯkjyr2VX),E`V? U0a+HH>\# x ȶ,@@2S v ՟\4W<_s{ >E`>̝t*e+o Kՠ7țOg c7n4/2@_T /b`x@:*mI=6; .݉a1>e}AG|c*@d8p` Q5y_1'1%Q4sN@ 7 `$"`}n:. 7I O7BD`\~ Ʃ+L ,};З@I+X6 )W:`<6w$-3D g) LHPydp/)#!ց{hr@Tp8h ٗ) Q~G<\J >t8`Ð 4bT{U_|\{h>@KZ6aWhPHe* 9ǃ <F:V?*\"Z)N,TU@FcC>ypB;*`^0KQtz2ܡn @@6>vh* y$ `([Vw/Vx vF@Z82yo6@^@Hs'0;o /6V4h$ `U@Gx,T4wہzd2fܳ"ğ +cm;fj@@E :2yxy EῩXcňlsW\؏cNWGI?|)ُoUبTԿlke?ȣ\7Εgs4z]in?/WFuo?f`%j?yLlr#ʼn>(1}ؕ?e} "# տ?kDgilcۣ.8.vm_}L~6Mk?)ʾ2_i|OyBUSbAщ>*w/n qӗ8_<VȰq^C9J,_y1T:Of`d]~p4ҁ=w'b?'ZaDwtW3;_SW%vʾ3G:Ago`''w_AyWs#T=|];PHypWan?]mcssb/=;U3p0 rM5<p@$|oͦ ]AҬ.x5hΔկ"#0/_?0៵fl?b^Fut0,"H&3@I1oSa!{w~ϘP(kvݿ t4w@$&ԁR4Y0&i loD6 f,@knoov;%Y2Ksag0@J㑝Χrz"_vۿ#rZ3-ɽ:j2K 646 ) >Cb|?>0 Ut4׆ jR@ q./0Sk/ _z2L>/О9\dcdձ 8='4oe): @*Vsػv涑$l5|iU,)EEb1"GrtC1QpSU P%믻gB|03kf X?lْngtC!GȤ(:`I KTo-8)|*ID9 5`4 `hz#xt @8' H`YC@=d-k a~45W(v]MKYH>o{rQepB!P@9V](?_ Ck& );mt@`PtHʃ)PZ@m$ ,ʼnn~Q@w{ <l `}T@9s=0sOYa:U38 Ҟ98 щ?pZ $0=ka y5RU@/ [?5 ';G |d !O2jH`ѯ%);90?B ̩d+`z@trkPY@'C:KIM5 pA$v>clAL; iߚ5?Lפ؈rY?Jpw Y@a,\pwY2_3BʹUm@J2prGm@=~i^@|BZ,؉* hm|zd!,5W Pʨ8Ka 4>Ԗ"Ia" ~i0P (e 9o 8xX9 +(pC@q37xWҊIdF?࿈:nvGI#Y@ mRpjT@2@+a,dN(IgnF"xf dًf<xrYg@te3&QJ؟^" ,IXP~?84pfZʏkWy<26 |<*M0(Y@jhql **'F5-<@zPu?Y@S Dx/;`c :dP(]_P'f0 HKxH)A8 `T٠+p BLAFj*J!:X(Z[B($7>`)-8:VG"$ .W6VZxG*tд?b@UU/ '`"C@k[!0&C@܌!b10@* mupQ ܲ[ hoi؋1H!9guou3'C/ :b̩tǣ@ǣy]o MY42sRq  981mS`< }& = Y@6<iG:5X=ևcK0],>ʖ `|Y@ ;D=s%?^;2`i@mOCf+>`BǙ t8)X}~Mz3 |PO[i%fD0y 8@;@  v"l A3Q zpx)ω`'^ 9J6}z"י9ln9uz `'Y @1~`հ  T//.RNnf v+k{pMgGpT\cT4vKdU%5`V~PIdu#?Z)Iy l3m(?6Yj>/ye@9`Un\Wr!JuO)ObqPw8|?6-q+ᇕ?5=H^p&(P%+Nk$K^߬Tq8۔bǏH\X(>*88"sĹݹ`Uq]c-g%sĹ$HNG, ܠ . M*xkJmW45`! a> a?>!Ju[s5 @ˏ/6Ů`W{`R<~]nhmLy?nW+ s\cdV# hC?Q:kfzBm @3} l[")~;/}VyЮkE0#7a7O @XK=!|,RV||`4KX9`m.EVx'胾Vyeo`SD\cm~onΤj_*S@x)_U" l~`ca B(G6  ZWEqPp7J 2m@Q%Ab:0`fQ9&@[ R8 xX^}# %?V?t#``🙀<>(8[p!a;P hC*܂Ȧo }y@sB\o:bjrB@ҍ. -( q f:CR/ p `%=@7&+3 }#$K8T/סC@28놀sW @*Xx?{, k@C ~F:3T, X|@*; 3,3`_0  \~iD#D0h`Y@@,#蒇D =+PB;*+@+ -4LvpY@, $`   c?](x~%#X ;P @0 pI,A?ͣGQ0. =M, Hgjz6hlv Rc>J9 rN6;$8jaCRC(G]|ޫ(OF i$0*4  0 ִr4AF{-*>ӿUz0I*AU@oV@>U@qYtZ@*DC=(J HL t2ϱ IDATL, H*q??EXxA!U@=ܫ` |$=2An P91@)_&;qT@w3FBL`F,hղGQx`. . ;G^}o6Pxv|e?p' h\*s5K xG )* Pk/o hYCFge@HZG'6~ɖ j/Y!p^:>@2^@NyTL.UnDU@N`C4`WEÕ?*2k~UZ1Iˢ ;+YJ ZART@efpZLp&x査賿 |QT` l8[G'/,DrW`CjwhW(@P5P馵w c :HୁZC X+G)}?b ` ]z*v:E SGo"-/݉gO"$ @+ q% YIbD Xw[༯`'C E "@@*AI \ o3zSAWwk@@z= t 1@q8j@ aKd38^@hfmDNZ PV/ |}]^]94*RK>Z]$ K?!h* #C3@ $P zma7` l zQU>RZ >=FW{ ]}.]LH9 ]J 3U+mVCpbp: >`emy^clm~Ưz'#[+=Ϛ7ڜ~|?<5t:UO?;~] _/POݵ F}_\W'V7u״6fh _a~[A?#l_5t?_U_&3~豧  o7s?ϟd?]_ !H|;D]cnH(~G+ Z;a}-sӠ?n6kdO^|=W A/i{ uObu xzv-~H+~d̎-HP9L |7B&@` KzM3*pk"΂P' *AL4 Pt(AXNMz6863T@;   _ p!SJB"0 9j (nN$$? <( U@G"(i߉,q eg`.n!8hĠ@7t@76.]x*86~;  zD Pm"!x )(*n׉BP*rDdtW#39O``Y$#nT@p咐*0 V*-%4'ބyf8" ]@ hy*YҘK0 :% X+1#\XwLNDC h|M`dDU@>Q7Pہ'2'zT@V>6kFN%! ֺ:@1$ML{l?`{*F[9zyOsgŗgi5ٺoo8m??f/yx-:lT 5c.No?;tnCȽ.~Xg:٧Onn]5uw$gcP|ڔgd޽/.%?{%~F&Ӽ,&5+LcH(o"69?Z. `?FGKEǏkG*]j+l׼ hyZk^.](8h Z:p hK* %چH. q&PڻP PK)WP#[J jK@9tW~K6$ ܛFH`!3|;7+\{UM5 j4x!`b2ɇ 9rȚav?^KzW-4Vv\?^w=A_/2$5#T-;XRc˯&g I!rr&*I$ R!@@ *!@P)r??Ee ψ2Po}Vx@uկO} !"*i! 99XR?IMJi; r̆ 2?9O''j13X@ɓ>IL{^" ġNlHf2 gFU@ 0<ҏO {Dl@I5'Ej@ ?X`#@,I<wy~U@*I`IAy32<1~Spd§ 1B@R;Q/<O %_?|( H ԅ8(BEMP 0 lk2_*N= sGF8"P cЗy_h0zA!)4 1Ay'@1<^9 ɿ|%x.K" lU?N+Qmwۖӿ ŏzQ*T "̥ ^91HCRUJ VGIn'`_I!LO@6-bpN0 XT~O8PK)*$t@Rg-Ht%3yq埙0Z@V09kyC*,UP'07Y^!zOn^:bCZ? @D-;hn{2#pD@$t8 $ {   .={?XsQ}`Kpv~E@^?~* >)OAƋRgƹ !kx@ϬN f8t'pjՃrx ^ (~Ʀ!cp)-V6@U@Ɲ[P>[ q5P,E'-! pN"'h +xN`JtE;An-gO$,8 x8\d.) KA1)ɷ>E/1~2R,R2QbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}կ%)H8x $[(M[`J2IҰm/OagF?%_ROk۾sRw)%-?Fچ_H*z3xF*8=_~MFi3yQ %SJeH*_SL@ҟ!߿P)o>>ķ(M$a[/d㘞ɣۿPj1o(E/o(陰e^Rϔ%iJSzTtgq%Mmh 3f`C:[>^o '7 `EEn|Ǫ{G2L1-5{b0<": [@sC!|7-pwV;- tFIý{['йXP 7kѼ `)|ܓpX$o6B ^ =@$_ǀ |0Vzg){+U7d ؇C/t?tMA zSڿm Z=^o|@ +~56eмOB@Vݻc ؂_PS@4+zƼ/.V@ U@vL=p]M64 @&0 C'p>6^臋: U@ $Cގ8 UpOX', `{xc bRݡ<>PH0ݞP`n#&`VX޶"/(Yt0Xw `jNשozc~ /u3EF`й1}AQcQ8`j^ 6Nz}[O}Wzw+nvp8,* TM^pm?y?kim$I O[IP-^X|X8ivcdh<`{-X0Ї> Xlqzf#"URzK!B@ DСA@;9lEP?F1bDzQ@?h|>b7nMD0d,ث( l^ _'\Q@k9bZ B$ C8.Pޟ⡍`oۭ:aKDl0SE4C8ayMr.`mvqbd׃]s@"jq!4039% IDAT>,j&EeM>ika@y( 8WA@(99 GE{jImq@&dGw@ #йp[80y0( l03 HW g@Irj \aZ@K}i'd9dlEr*Dmq7tCMК~@؞P&d~X;M֣>ab6KJ70 .BPt- a?Ga,ثL`/d4?@anLR--wk{O` yġ'6ȇSdV\]kkn qSf0)B-Q@ M/ TAhµL@9OKg9fNq]sww;(€`2" pk9la&lКL`y<H@f4`zH V[qQ@sD`qP<0*2C h@/_Y&p( P:?6+1Xtry \;+ 8Rܶ!.4xl,`qxO0e\@R-I`d9c@W\DE`- U40#@$s_P89ax9 hH@2SY:2 `6AmZ@A# ǿ" ,B@s{к~BЬkyMp(z)ɈXiZ {nmlqp$fg9`|;x'>6 xϿy瘄Tx_Hyω:#{ _b `3ThN~KnokM 2S("uDhϗu^lIffٕJG:K]jM#XOH E?j]*%<yC^nryUtP!P7_T4nwU]@Q!Q7G   g穲 ?QIY/>臜n. g@~Cn. Tu?P!!g穢 \?橬?y* B=CP7SUq؃cxVgE4Q@#Ў7ߑ,8j0<b @wP 1V3d_\tW<6 F=KneQ@#2{@b !˷``@t"A.3EU;Ƒ# 995`DC3w%CN!|ľ,c蟍DdUwUKhQUկ!'z߅P,BsG愀J槗l!@09Ji1A6KA tP%<.A~m |t&bb@pyrEH(NFr)?!QPjh!uP-fvuBB@lV߫Y@84S+z@@l pP'\ H&Qu *XСj&G @IxmR%^ApY@d!؞uVfO@mpyY@dd0Bvub XVP7< bd.I+u/]4@*KdŰ,p# 2I#uԟ@ Pլ `z * b@FfW^h& i ` ru,"*|J/_fpznKBV$J`e x@$ڳl:hVۋ^'D|E0btR hOjP'D, `|py +MN2! aF{X`s?vhnycw/`!ܽ׍:?k[n~HrQF^}g׿~=q??[J}/u ΟoFՔ>'w?=G<֯1{o~W2e`3ٯi :=; aHcpLSX@:c6 F O~Dnk#[Gf?5s󜳱~ !/_󜳱~!+vxƅ?`wrՇΞ1r5tƙqs6ӯ>tk? D ]@rI@^w qW:?4dK5$PvGDMrw<X{@Bg PuO3_*ߚvWt/[ ``!'u2_&5Hw5`Y %ޓ| W s&fV8RQǟhDy8uʽ!bw;tKyc' čZ$(W#"pQ C @TtdyP5T+zvNHس, @o`I@j{-9H`t`Ⲁ'h dY@膫`ƙ?P[~ZzN .P @R& "!ڼuPEr/4 ). WjpT؈:+9 9/z0pf bPzENNt%@`г 5Dz2X:LDLXZ pu?qK"U, Pd; $RY@Pw@Y@squ۲@C@  " ur,; U$:hxH`!pP `FR=0z2`ŀR ,12FJ`kRm"`xV`/RL)Y@TwG(.  `J`o.K:@*zh **w5+e. ށuN؁@Q `Q/ i" C@WT%pA. T%R)SҷXd Xr"% (zAt M/7> @8zBXCn=. XOp6)@Q?"#, HE;d DD%3ndD?I yP :DzVp |fpųdN lx]|ߗh @fH J(x{A(eY@]\@ZpCunQ7PI Y@1Lhw{%p.H-"gzQNx0j ^sCqK. _O/h\#pKDI1D3 nqbw l X_fZZNS*$PcC^*;J|u!%@B 0>+XB r0iUL& ; sJ-DNv |O45P$\=f?='.  5|_XM Le7N @Гu2Xr> x4Xza jj"PN`P\$L S Ns@([܊`v&,f \e]?m!\C4 HY({4Ŷ'h `^DRkbAuRW'Cj@,Hj5hiOL20LX<KHتw @nVȢpGu* @CӲ̟"Y,d8 h; f@74!b5$}l, U fKnm䊆-m*45AZ7@}q8V>H"@nCůX yP4d.=ޱ' /z',dKB4,j% t Ec:M"]u"iPtz6̥߃tO۫V0=Թ^ž&2#A, e5b?&m *1xo[H|Y@TQlNZL,Pa29H&e;q[- HR% 4eaS:2Ti4> ^@20LF)V1@%0 e`5 `*Q=u?y @*,n-kadHGr) zjc\)A*Z hj12q eBki 5VI1 IDAT@MZRqu@\4 4PE n Ȫ,, H蘷@揲 u5K]@-4O'nuc΄jȩs 9w?SuH7"~wr<ٯ+%wP#;vl{,;(wkf~l/?`7}KFؿy^RGlo6|Ϗϡ?_ uGk+zGG|Oaf{^8W:ozs>S1 9Uf!Fb[iaN' 9GNԟr,By";?:a9~%'H!~tȩ{B-_5c#rjf?9Wj8:IB!DXDRqQ9_+z #8 0ILv1k\5c1h^@'dTkB3!]c46 ܶ$78C=A#-wm&-w_0;bR;v0 xP-<0@IuOv~00U~w ٽ1nJl'"g2lb{?w80j @ncc Y H?o V!! 5bQn/80e43anT{? q9PP``\"C ) 4X1 v@S$lvڹdO`T5A(U _TB5 ҙ) Hh^PGilUxM*1MЦC@7Bn%]kP%ۨ\ P l 鵌gJ$w4<r@X-TJF4~EEbT̚?@# khi^h SHCtC@HBAp`dRKP0C5֒Iw|F8XvRr"@€$[5 {6fB`H_5(B@AG00*=`o 6) ;Xn'$_S8?!^^a_Xn~ q"qUg{O(L^ſX?.$~Wb2u)ew[ f_̱|Bbw[WI[ƽzpzG1=7ܳ+nV3v5P}OpN(>y3wfC=vR?&~~|;НJ NB(L;cp mwDߟcfCgMa\bǿ 1^?O˿pz)ܣOpws{$"|Ca}H{Iws{\jInKΧVRJ; B%}éwAO߭ĥ-!)_p&o)ws%?pQ(ߝ3\5 Њp`iR%`΁]b @>ج ^Q- t_ * PX,OfJ,G 0@ ` WijgY@S@ |u5`Õn@XN @_jaep`Kemc7XԮ>B4xz@UtX Ip|gl[iV\Hqݕ#D?~ gtz@P_9`rPpkA r f%,ŀb `J`35@pU U;PS(` @, zY Р ,  h!+:P?h;';pz@P T+)8`Q/aD`4hL S7Я@), 4 :i425 `*Nܳa 9p ^@VYh8 ` @\{41k3 UX nd(eTֳ\Au9 J`41 ` pc dEL ^@a PJ`W`O7P~Ru=I 9ߕ4Y@tAZ ,* 3*Ͱ_no݂?b6&3ȷ͆_v /dl'zx٘Dh~f{ ~vIFqn2Gb{[g2|qҁߑ8wcrd? ]O3f}25P>f2_~7xx}I_nKcvMPy=з ͟1(.Vȸ&P#w1lkg|1L?279R3kзdr~t%/0&2MFFWWK`no}zO];8j؍t<;"خzYRPS _pF x88cM<) {61LtP~&=<`>H&ށoUaC@bfi垟1$=obI_<=Lgg `&Pd `\?Ⱥ*hgW${tOV_Z;9Lf?GLЬ^UYiB@plL%VO3 @;1:001_Pc; ঄DfO .g]iż;dk5UFk5sKRd80@Y#@j[U(DmjloC?go1 ?.,3DR : ~0iaM}Q к, f4;v@UcO`Eʟ$T Ir`;ש@ྡྷ1 @XDgzZ\?'T9p`% 6h1 HT2L `jJ\B@ P 4diɶ}4U.4 , W Y *d[% TTJ9, @2,B@15NĀZX=҅] @uleeЂ5hl@"20TPV3{\QX0Ш] @2y# U-X[P:\ rU 0ѯX@@dQGES\^^\VjAi@  jP 4m @[ap^*;KIY@>S |jY@\ `W,&f,Y@Zh6SY}= m/ dY@}Qeg:f^@5APp~<r7ВZe`OW@S^@. 4, zUbV FeAIqh1``{e[eQd 9݉d vhdvP) 4feДT@^$@r%C\+& :*0HnzHX<}^@LJidU Y h ,HAO4 'ס<І;l0hHh; c>W ?8e:@ Kqi'&zKSҖX%] HdW ({ZL=O^@J @ @} sP/ cp&p @ۙoyqE+,ULN@ j_+葽Ǘ7F?qHq69#0?$96cQ[C2z>oPkyqϟVHtH4t /d[! )2BUG)2FA#̶CT~`FD?f~6W;.<̈scJ"*?ry"/K L`D4@p`Mb3K2Ep@1 '(e ?:`*!<3 j3㳀"1d@m 1yg"^L_9 м$9@Vhi0hW ! @ e q=dyul1 @V@! " \?q@i/4dwy2u `,CPӀ}"pb Z|>/* &GU0틕`fD*il :B @i/P¯x-1;`ΆIDf:nMj}sCo: N/N@Q r"KJ\ /*R+;ZKؚ:;AT~~x@)cb7P>䙣P"s|PPXlЪY@Ys2M,gVG0ÞKa0B28Z>28W}#RJcuKU%T8 ȅNЀ픋{\#!/e&0R mmu%RʗJ|Gً^ۼ=/f6Z~?gܦGOq6?uttoqo=[ִ9Vc~`w E}GVGd 7(MUԚTU}:Z |Rkf :5ڹ'G2?:-~?:sg-5k3bSz?ߜ}MA@wXYT]@nгq5# CcUj9IDATꖞ)7w_|vYb`N#30, #_Grbz(g @^ x@"`@D@O"&#OMA8"sinaIpj `  X0QPU@Y/'UnP4B9}u}Lak\qE@@@8" VbS@ `U@F)'"Ȗq^1I`":༉` / [G @ѿg$(H`U@=EOdYև0+c7<*!"U@'ݽ  :at6h0#U@gpC 1sT8 3@fUlBRA@V`0AtS @*I8 fʘ9 *_й\d}` =G@O}L4Kʦd͓gyk@\Nr X:8_@d&AT Q=uneI`Bk`RZ€#ԍtFP6t;hq 4dp?`ie 0 Q8`nf v#fS DX uIP L6XrPp۾:$3+ } S:Q/Jti:b:L3d|7 ![L/ $,0Jty^XLP lJ`7D熌:p<@Gs{ pTPuʦdCN=pAT4 8Y tșE* :!iftb(B@ (  8:j@`hXN T89DP'@Dz@@vH.I%,6*QkUǭy7V{[Imn8[+ҍny[ O>+rWySu*ON z qOn{G֥k??9k{&篹ME ,) 1P~R":"B ȗP6 ?wHN '%М*}Jg0 lM1@m!Q20 ^@pb  qOp@M  xv~WC`q>`H81xA4U}u] \jҚ5KަWێ{/q;ηfjقU̟nO"pŦ*os7y-܎75a/6}^|k?aMo^^^m_k/{Zo{my[*I{JG8;OkZY;Jkߖ_~&M| &tæIlRS8)6٤;6 #k3P{MC0ϐu^"<-SbtNdXtד*y~S@4vTLtדM/꩘H{]O@{G?g#  8;<ߦ@~=%Zu KEFuWwzfu-N`N`ۏB @_(jqC?#A#@5u!B@&5l `N4P{'/k>0A'F=)5'4]仕u }'lM*l9uZ@U@אz /֙޻"pxPP?o2P}C+y_ WBr~W[߸-dE j`j`/C 9j>"8 ?!! 쪀$5SE:HfdmQ@hpLP}] /WK_`2кL * 8#,̒.g9y@z%RsA^LPCJ5gX'pW/:}#)y~[,# Gv"ZY@l"䩞,2+߷) 44k3@nܩ@EFAhay)aDp*Nki\iA吤@tRڭ[6M0>A׃TLYBexR nR4%dµ rJ0O|N l^[/ P*v[8.Xg̞sR@7s}\D0b:oYL  Vu:! Ku%>GOţϛ/ų}1_Oǔ׏q܉58ٳgKG_o)=r:o?>z{?^>m|ܕxP<6}vǺ^nswUc |2IENDB`ggsci/man/figures/README-ggsci-gsea-1.png0000644000176200001440000013151714634136357017421 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.png0000644000176200001440000007231514634136357020264 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$EPLTEa,rvuGRRL373ļqH8R#%Iwl"q IDATx {:@G"i"Z7 `ۭAKgeEœL@A # A  A @A A X$Vޓ=h^ x%X9Ɣn߄Ǝ;rrqP!T4k>n,Иmt8˓]faj؆˥pToo,c)^Mu0qlڮYhp,k %S˴>0j a `O j[`0j a `O j[`>C@`߆nVf`f {0;@Jjwn=^NY[O5VջN,n>ەˌwZ6|ubj 0 , ŧ۫0@(#  N,Zܷ ``qV{W'a7\f XOqTĢglxSa΍D{.̷xO02!1އXu <=JeC@u<Xf߂1(~qr]PTPu_N, K+L OFfz^Xt|< g@թwW_X,  `&pW>N,Z "m0?0% Ws[`50 `4y"PxUD0 `%@ `v+F Q} @<>7>>X"xP, Y f" k5D0 ` Ojj0h$nEj` @0^n `diP݊0 nSeem?fw0 O Z`[ﴪ0@sĝw1;0|hg2?5xQ0rs[5n۶YX:Jk+1UU>"v͵ <<YnWֿَ `7v:LLZ\Nu?|>5Hg6evwC򆁨L A '0@ - ︹Cmzjx~k]Z+HRVH]X0`,kbj ;7 @7 6) ŶH~ws? 37Kǟ o@.0Jf3Fzhs$D!=vgo 9 %8S041P躮7=33DdD `0kcOEMY8GsbvP V1$w? (  y"]zI_Fps󿘦#\!$0 yK J,i?jí lj\P:5$=200nZ˜ ?*@EamW$'M|M]}2g\b:[PiT&'L G? ]O0 \ Z Εi:>Ǡ}.jtR=# MV7 H:Ϳ.S8? +R7P1tM>VZm:%cHuONF-'@ʾ l =8{/iJ^7$g}*3v%j5o`\7 ; R(b$SξiʾN}m}r?-#=(~'MxoC n8ur=j IP=ty)ym7oc|oMCH_JOS$'y_Om6N]жN p!W#6ub-9m6ypM:[oYi*5ʣcZT*3!ϤF 1]mwM\ \(isf J^g>=!Sz(^iЩrBa;)E01D`\ 8:fб_Wy 5$L:Y5EM@َm#Rb @P+ekMO ،5*mu'hehQ0E(*@:5dG,og&#aKת5cUxX]H/ zw.Cz$ {iW4_w@p~5p>Ưw~skYUa~w:0EL2B~M u#u~=|4W .ص .o7hsZl7b%g0AƵ.?3@4SA>C.?9P?w@aCe6J =˅R!~;c N5cDo{^UtcC⧇ߖ+J"@C@IcZ , `j FHym0ƍ!La8\اMur+N`@85 XNг{x@zPi N8>V^-'ynbȓpwQjrƈ:jE&-X>?5cJ:) Wl =>~;Zf1?OA9PK?9](>2UCwR,u-$aD1B)O㖷?|Y@ @x=T,\'@(= /qʶ]n[mc1Z@4m @z UU.7 9r@s@b͡.1~٠yRh ($,t7xjz   @xk0`rƘ5O G"KUhz.u~>!Xپ7YurG A$=R2Ngn<>.KX^婗Λ1ຊ߬|6<_NŌa,;@@`8v*o[,H۸G胤:w%$: /&Dp|4r/`DY7 89+`ld>`%Q $ ~9?`xjkOos-Bৱ~Vʃ9+;B=z$/>]x4u^i6Ɓbԧ ~=IXϼ)exV~633xSU[;?Dg5=f~>c?t < kx ;ev]X?[e,: 4fƨJra+#?8Ry;+r/;LC9Mc`D@^ K!.2p@ۊ/sjkT61+Yn],e&+_LC@r:]vw շͩزǏRrxMAC1_Bǥ]\RW~hM넅js@X4frGRo ~ (p`_@;ojPNłPظrt|\4uօBe>qS@/z'[~|Oz pJ H>69rA} A`%j+e#_yhSVwk]zǮ L R؜P"_T8<y]M.Cp7E-!MIx퇝14o7=P WK-hR`{c8<߬r =_eP&PsK*@]&Z_JnmſĿ1κ<_-`>)0R70@uOeBaClFbx ܬ7窸kr*Pw03>.`X ,ט&xe-$#w@E%+Ek}%( ǖP!a;KH KS6A!=ᅚ.BG̒^4&2V6@΀,9r=gjpQ;cJӆ #1j})fE:$Ӛl|^2pNpxie?7.nl%u-_In  <@IHOMSXxYZ*Tu\&{L03耽:4X*=L~@gw@~y޿){-r[}ݽX)UUGoZ'FP3:̟߾Ҙ \]#5Yј2A 8_+9(^@_fQoCoݿ9V 5vPX2P)5aا5Y.A{7Юjƪ+=)c?@[5  @P: B(HXSR wG#({7w %'T S}8-'pvKY B3(%D v0)!¤?U,Vxy``^LԂ(67c1Tn ~I7#&fO1kzLGa0JFdqtoD( ` CyZKUM4U7~FSo߽a2X# /@U<եYa0BGrK #n5( U@m˄lߦn2{ٽ$mK!a_ LxzZ5)Bc'6P+&G:p<#bu}P s1s6ցpjoM?LTHy!(CAD$>d*CcH @\X0yZcrrb'ӭ]j K]7'~e4?Kf$|@ c1$cAd IDAT:@C*mY?^j` 넀ּ_gV ǚՀF',G8EpL5.*3C$֞;˜$ z##~,1{""(sS$ ```pI* i:/`w b}zyhyz¦2?5bYo`* t, BҢTyNnVX0<.XA;_3)I)} u8:M) 19A ±?/J*!v(tCA^X08ѱkBYKtI눭,1:]]HˁI(G6?)Hyhr+&!f0/ ?ƑpIӛn-T} 0y'R&Ă }"a(uL+pf_6"So[>ih@:f="4!@},^n;b{-n `] )eVx +m9!KDΆiLKϭ_Ie?ºIW1%H=f-6חE`KD& ^ Fp+Gw  Rń- Ј+Q03Nd8b8.Xc:mrR!̓) I @` @g^oi2@?3 lBojtx 4;ζKO_K09Ez 5VBxHo(&&V@2s ,$NFH'\ CѲ tvX'A\H7O_Ǫ&,VV$(q8o ò)^KS?DڵG~'}L~x_^`Bh=á 9ڢL`&M+! ]>]PHmOl$@Z)?NIjao%E?dze)ψ#" `(sRIY!9VUc!smCt:9H6X $ p&c~Ӧ36>9U1{{QQ]a6oy@ ?7/ B{qï=֓]bwCMV@J1S@g KI6+ywQG704J޿;;/ _ (z|`.Ak#}=wl|;L"0 DFNN~*hʢ4 (@)v!UVqF"fyThhGp?^`I{o.+VOR//mbAFC:Ļ6n'`LB*26yPm[#-S4yWYe9dtTe"T}!FC21y% HHz(h#<6k0G7~FXO[~ /s+MnSPTO l]Yz \؅%iHK}\x h. ,\%MDw c0]W/}:n}IT~BYؼUyy+oM ZF nBZ"/2 ڧI> @ao.DD>$z+R xxW9_+(hz\b'HtW FfgV I\44q+U .#@bX}p,_7qFe û c`ZupLo|@ At+4&rm`7¢1$ m-@fW#@:D PKU=`vG~M{f 7fHI o~?w`7O!A+7@psF(,N  JSVB˹i` ${#P: `{VyAp-dJ @2Ǒ0JV ݩDk\J[4cݣCЭAD#p\OWJ j "`I?-I! &9w9B@¿=Dr_!& =B`}w`ۏL:M!Ģ@]5ZXß@]gdNz7-Tc<Шrskuf uRsUvuz ,8yXNJ= sJjio=TAdf3fqxR`h O*8 $"~s%6?5mD({(kǦ+j`D p ax 1,,41 1;{SZv`t"R`cVsۮ(}Z3 6ɤ T|aVHVӺ7 *I?PB<CT]X ~V Sݘ'09Ɓ+J,qBP6ZP@nx@W%^nr ` lNQ)pvn]ΔJo1/B@xt EURP1  crV:=OE1ie?ٻ^FB@Hw_rӺtpT5@]ʢ<{L⤥%)GDwnH*{RzȌ"wSCHD. nSMG+xǼWPq V3 d/Fq` {b1 0P\0O젩⤰ +N&"5 qI>1"o-7@PjߘAt_81'R{3]黆l< 'Б XL< NHHMiQ-U4۠7j6̆ h* T˄j]p/E6)Z~SH\0ІhơvX%9  H%4d)ƭBXῬFbVc ¿,R~E<Q))Z[x)NF*h(//oL":tO#TGwd}(^ |VëQg Sm/A.ȹITp&I& & U@*LOSs|jzY+^qS+v($\ ա :]+QP4I@IFQ(L'MJ/fYN-_L&=*W[+e6]&kQh{ņ(n-#?ZFF';4gHB3kLPЮ+zv @ȇד%<+mm `rtU`ow5j0+*(?-ԝݮڡ9$ #lw9dI %F(@u5'ZbOPqd)c`j`FCߦԳE_XB.D'9ʷ#cl%@SAǾ?I:o[mkfǁOg6UԕO ӼP;2- (VlY:wΏ?;tx^3I 闒*TM^w#j ܧؙ\މO+TpBZPSo2r]7|[&v!r$K>D9M],<Jp9<`.ВJv4儚Ts =o`ywS1?xNAl!P!@mSv-aC@9u |FseFeƉ佲n# %^ BU@k<#x=< 1Nyg|N@ o>4>0!C@XTw11I H) 7<"/".u_X\jۋ^HN/qGJYu vg50 _ݠoلv2n5yٻ#nr~ pCTp&ر3ac4h@Wgp?l16pZ|FVǫ->ϱ9>hE@ W2{S 3Z@sy:xx0Ծ0BS@z9&zU 𾔍$W|JvĒ-C>Lf+ॕwҿc^ S@qAx]11 `yh2>c]\>;5Z@g"0}UͺB/OE`p %!)d:`]U m 0"?b4T@iJ[VE :`30\ȕ5%XrԢ $M )^ʎ0l$"|ýog7bpk4g?uNKX~PI@NCul:pta$9cRrZ%Shל0.+BL@:E `Y`گw c-zK\Ώ{x$PCY车05][?Dlm\jG  \ź_d (gGO5qQ:`:@  aO@Z TE3baNQ( a >oV~xBT4le! @@>Pd̹v-C |4 {J/'i`(<" sȅ( D@@ G2V5b`<2i*MSfH$wB u L(:̕⊀ $WJpöajԅt@ҦѠ#c raxR05D0!XJ&PkJ%F˃$E{C x+$+^IqH,(&:$Xlû)A3<#XUgpa|Fg'0dɫU \EZ2c&Nl h`N\ԍ ЄEn@cIwb.gZAAbp~R2L7L>cBu`ɚB[p# p!]$1 D2`i 샱`JVO1E @& @@6q `"Q0434 @ p| qFPhP*p% {DI5befZa g"p|]F 5 8ݵ%0 M"w0/%tO@  x1k"\1U{1?;ؗH(k @Zn w_B/k ;GW01Fs^3_ek8b|j8 0? z#^48DNVM57J -οv[ˏ|fm1o^dJuh)\ غūIexT῭7Y0aPպWZO;~14miO_w'C OW|vS#\?nCN'o}^?~oSt@O|sw1ʘ%!n_?,_)'[|JwFC/b^A] *7h)shn밀eLJ&{'bN->V1{4aQ*3A ŠS}V:l怚 `-q9>yuV84C>=1b >4 lU W)g\%9E;EA sEEm `f5^m)|<* gaQqB@ZW#dIlwhsNC ֚.5tۢf@s(|uվӶp,,4m*З) }M544  ?& (P'*s$Zyfj%N@q ݵL=fsk̪汻viQ,,45 Z´{ѦɤPAӗj7(IK )yŃ+PW $=eή`#{ ;}vd4g7E;^Fmwϭ(`@Җ ]h6Hr=K okMjuLw> ;)_ID&0ٝHw^0sm H,3עr{?m#~ |.YP,*V@1>sN> '#h }}&EB7B u <}MV=d }@?۶?zg(_ JG hKyC&Tw+M05M[( OljAA^w`Qx<+O{4=xSB|+BU&^h/P2r2AgzQ.T @zD_YL-Q;h QAo9O8qqsQ6SڠO0jAUT_ :wSOTQ0O~Y@ZfG=tP^S%0&H[5}jybAr@MŔ$Q'w>58*~3@c&vUvdaHF?^ ߫K a !j ࣶا@:)F goF*m uwɿe }Y`(M8G/  H. R"ؿCra؃Q>^#IQ@cФ{94cGD4OX#*[@rH @ތdY8 Ttq8g ˴ttX e)U_ l+@x W*]FG<ݯBD+1mpMx`yoO`-S KtVۛA^2(Xo.p! @`R_ 4݇V50yJ@+dd!բ50 n[@TK@_ 3Zon s<؅uU'mh,{*@[YLT'}W^@m\4' VR*4ZKԳIۀ Pa}PS/@*`o@VGDJ{?@L5&ѷh>d0@@ `a~Qr ࠞ\^n F՞}-/Z4(@@zv\t&(0Zp+L){)`@+E"F{.YJ/#w *YpP`KAB@ vML>ʳ)$5/XU ,0xPx bgᮟ (\4&JlnC{G 8XS3<՟`#"}&jfrR( eF"n~KXg@#S3&{!.K)FV\TEA'k=4VW)_J m-d@w~Lxɀåo{L]\9|7 ^}"73HpHÀb @~ { 1B!55MpE?$$LFW-C>fBzJAFm]KLT^ [$z `f ܳI genJH/4;X0X,.N<+A.܆ ( `,P5O3Y٨/X7{w(m^rp0B RˌU6TC}:n]>XuDbs >̓،-!2,jF@xXKW9eZ7UOJy 뙘%\fdWAr'?D*B$%ŝ)~T:qYq6Z~S ""j]Jc- 6Z@SV _tks)"3p?D `e A `* 4l~ O&]{msJ}[48Ճ䴞Wcf;@^D-5WȴFbv*ʮP+@8X#\TZF:Tu;ڷ' 23@}}H09]t%-:XU-*72>3_/H@Oڝ*nyf]S[>T/U~0h0_%_ؔQWz39KAx>;2}y7JUKDQ@\ǑU(n8&F n#f@SɍT-m/! lCiJA''=dm5P|mix~I<|U]+gyi@Q`U=d1+bO?3y O4r_9p.AAsGJ`PKg,3 `I Z4 ͷdokELr#?# >-@Xp`K*ڲ ߼;SBhvZ^0R|+; [@76vTO*CILO-9l&!oI1PN@ `f6P̡I)!( [ @@PTs(bt^ B$;g|E0Bov0F;:3LU'H93@z#@=kܷ,@r5`jG [L_<@``PwNǹ_\Gqn'aJ;Nb3_@@>] DPR{` /}k a.W@, X\'ku=ÓH \ βV@@ًv}lUMD~w8 ;gLLtꥑ\VM @Weg((!a pDR4B@P@7{Y=V}Q{h0@ 罀|n@]y+JAa9qh^9@DW6UȷZE,(2f. *l3[ɻo O"2 ĵ(A( l @tW1vh#(]jK&[`Ng^Z)Pș,"qӫN:p40j$ ?) ]v[)p"ihSGP]J (>2 Gw̆ +;p4ԗ(_*d ? (mt((ӄ);p4W(=[Z<`=A7DM-uGz7GtȞm3~>Ţە=0M<TfM{PMotMNƝ`/7?eXzDofZw\ ,m}+`O+'=zd t(lEfigKmQ8Zj&HMTۮ$!Ie<1d}OxyjY])˴2Fe,yzEsVP:҉"–ta#z3fz-[9GΗY:ԋh~l'اij_ ]4@= v0M<$0KmYL]h۪4n -fL< @6B#QdG`8*q/$}н iƓi'XK&Z4E8(nI4&U7 TFJ|ip)x\<#fѸ0C,8!k#_ܡU+xSW ,LDW2= 9o@pAG@,S4_ܳ=xXM!NiwFSًskؿEth &X[q6pF4E @e퇱樋n'5 3 S Vk[byYcJO4>Cwl*>E:βX=|7С֢ DPͅ7P(T ϟ6GOpHP;%b{;4Pa5U ʻ̄C 4>m&G<\\k:b@H[ApՌ}+,3ឳ쑷kR` XTaVy[h]i?z$0_ Mϻxm n?ȹ_b!``_ *Pxq`~ ulэNĤXC$z_l{9G,lR',cP@-{P`^>c  kyܹPBF,"JA;P@SQgo^@D@a|ntDQYq2 `࿡v-?w>s7g`?äR!|D ,s+9{MJU=!08p`x>pz>}?i JhΠ8Qsd! vx6cr &x.ٶBhw7({ m?[l z(JmR[b Kic@?;^ B8ݡӤةB@(9nXY@ `VnR#H*ٻh `:xhzθCI%Nuk^W[Us !f!qϤ3<x/ UMPK.pN]84Ǥ|g(QWUPUT\pbP! hF HTVpV4+r1` t@R] Q*8@XR|py;@xaM ;{ ! r䘳| IDATr(0vH[y4BJ4vQ`/ kw̟HUSiR*=@ߢ>5&C?%B<;W`P\ @a:WVV=^p@h?, `srkvW'"E]D N"*y-:`cvJܕHN%pPLpj"l0z`>hFa@QWa/ `Sz@Cr9{V@);$(RQ\! {0Z+RMJ":0HwH4)a(O<܇s8+& XWo>/@yr x>J۪c{_RxPPSX!w sK "*Mȧ~Xd D !toWK<'P;ۭgym(@T`pDwu{K{WkHf!:mQRV b]7ei</KE]7UnZ%X@@@ ! Ԏ_I+x ! S@j> k]e48-cr^>l_1^b! _.x_߰FkZ/: 5q#,FKϛ ` />U;^dS/o)?* 4y/$^ c%m%px8B@{8sJ`^@9>X@t5F"ғ l0WFݑ`[ROD p,е;V@ Q[Ξø(o ^@;d!lSiɪ;흍*!TL+ݮN;c9xp (8 hVrv/a DGJXj+r*# )c_) c6@1,pjP`c e_Q*67 P?7Wm61vlX8!`s a|w(vw3x8)w@P7RƑŎaLi$< S@+S@L 1WA@=bh}pΊEco*ipH1t) W @ 80_7vzn")~;.;F\ɷ-(^IEUL d!`㍺c=_ֵ; i">@ pݎ/ s5P;k{1""^TвE 6o%:lY<>|!ZUX=2y @d Rg|{FW $7rh/xH 3"D1  #>dlW2η " P{Ǜ=1o%뤃fbKͼp81`c$ؼ?M Gc,R U@;b`xm}:W7/sJV ,NE"!ݟQwi3A if3pߘ7)"$bX_m: T? wbaF0vi8@1L ] eLb`!P6cvQh=^N@> iYM@OvC `_"ǿB,@J}y)aK'PWyv) vR@8}*~* YlwD @CXR sy@7;q%do ywͰ 8WL1׫!vue@'V*8pxm?78S@XF!t5g86ܘ  IJ)5ЍP ˻f!pBxG9lcϭLESo~ W?1$9u/83Ҵ)jdz1@Aݠ\Z]k6W/_T*[5fH:rm*Ō~#F|njNP8d8iCWOӟRh~]f8~&/6\j9~%R=,-\8wտl JnUfKeQC4tA:v<+5˭ 8}UOp8 ju&%5BII8OZߝwq6IgPJ.^~(J_&WzJJ_Y1楛{rG@vk\@nEp*!dȌ>HL8܊cd@,23z&Sgb@]Jd}̏5ϔUq4[R=k]ϐ级rJq5p&nd54'$3)gS%K9ӪhOmT>9˓S(Z*D|P'71B̌>H_H޵sE!b2z5.X1^fFS&KϊEQ b/DQڃRYR=/E y\,N2)?, eLݗ*%Aʁא.xfVҰ*KR|ef1EG[77h2}O-5H%@ӋL/O HPB# 1Q*Ћ.\ocݥtjhx!A@AJW'6)EVQZ;II)!t1MZ)p5\ H0|"䆒XS'yD&)KGRt 8ܘ0)h!(OH %g]>GR4XG;T`BP-' >rCI{dJrC'9y#]E"k/laֶ=X j |*䆒bw4 KI*EJX h4yU~4c-4 KCS?Rג˷y) Z >]ECIRT$t_G;T@jX6 >eı"Nvie)XդC0~4CSdu2*^IRq21hv  B30Pv78xϝ4]"iLVE;RPj8H䆒8֒c4kLcX>4CP*LdÆN\6nk{wҴ[ @1M6K{x)p(5,S R'/RA&4S              'aSIENDB`ggsci/man/figures/README-ggsci-aaas-1.png0000644000176200001440000010072514634136357017404 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$WPLTE=JHdx쎎 63JIKfggo:L!BtZGH? ;i]Xhqs IDATx읍zEKbdD=$D1*kqtVdBhvBB!@!BB!@!B-b= q4A ? 钵FFڱ-M1m"^`Z4mζ]۲17vx;zwX/b獾#<ڍl V< z@w|_1v\L԰g#4,X8pS`pp`I58'8x8pKr0( @ 062p _-8Xqp?~b,``$pwȃ0nb6?:f phtcgl?Ou <0BP7ߞ4Mup8033)T,} OFޢ|k>1 pt"7,78Ou̪"so҃4+aY7,^Y^-(8EfR@Ϋ0]rE3RۄBu6\{ꘅ"8i^+t}کYKqypO:9 p<D@ `6<,9@ 0k "4f<p8 X9 2<KtpE:yJ0  p) `@H X@ !:dvE 9wgK8)vbvmmbp lؿ)T8pævd06cE;m65ю8(}ov^866hvT-G_៊g<tJ/CB| `Sy&&~ Ul,xP`j:9y] <8G[bh߈ 9d W]Nu6|N_e3kW"2g/t?]O<mҟeep'!sH M 0 j>;f̱ܵ Cvdf!;t$5"DlJS:Qߛd'}-FfRDը=jSpA0]p_{Q@h=szq>lK@y >Oӧr"Re[4 R`o8FehHCOn%ijɧ@2Ǥӛ}}mby+.x.xNt0ʤ`kH9Y޲9N$蓾h㻚>;}қ:ޅ$1xp8 rPVE7`Q' 7(N 1p'4{)i㿚j+pz `S%Ie4[xܐn=F"`:5{_pDCU4 - 6%1Gs௼"Lt-d}hPax{S7(E`)("fjd{^wv 3m2 rX(u%:_+O. ȿ]=wK n!򦟣o0<~}U#/е5Dÿ2ϣFﰖHq(ؗ&> ~9+"zTWU c<0-NJϣ_uTTu4[ PU,r{#!3 W{ h2⽋LJV-$E3 4[7CدVwh(`z0} ֡J? /:<1@kreHXZQ}1quQպGBwz)2׀q35aǃC(iooj)}Uurr6L~.Xk9 :z  -p~ڎl[{Jo؄AzY`&u_6]"Xk@Z ǻ82 p=`\7P``ٻ {V骇Eӿү ;޹p'38@J_/ ڮD(+ئ}Z (q${u꿽]e`Lჶ@G2X1oWOvqxXn%|r¿Aɱ) V/_vhqud@-`q{zP`@KY?C\' @ iT@[{YtխB_7pbxaMcey+yۏyahU(w[+ N7d@lvHw]f٪kݻ=xy0!w?4}xx{L78/:cXY#lLS,ЙG  9 CxWcS^׬pJT -)^mkHJS*֌y4_jI/|98Ky1o۵ܹx!d.SS5%]IZ@hOK .Nx-v6~jIG-LjV*퇯KF3M'ZJ~" @ vAyWSOxPyK=vs\J< HZn r2KTt%SISyrE)DGK.dMxe1?2 w. @ybWMq ʏַ 2^Xc/T7c“?zyOuw~>4 0Y; &X7*ރ$$Y^@S 03~XT?GA෡`L~eOE>=t9lP@jjTl-}fpō#\s8h7@v1JM֠6}e%R/{@gOZ,qfRCc,{yJ]sKou:`*O$2ftnz}'Po4~*tpX[z{,ܩUV?^ t }jٞb(00t)vi,3A;ʌ;?l7 .Рt<a7c$u\euL,p2]KΟh7#VLbIoYO!@우d~NX!]ܘ(ѡb\uP!16z0XTw)T,+cLL bn0rX8!B9u>tq&=WXF-[yҟ31L<S ,$ Ru;ujp~$|S% `ZK&4A87鵣f/8?+ƮgDxf[InM<;@Y@z8X΍اT:LeFw'EiIg?:H޷߯J>nq`E),(@r/QZw#dʥ2{=UlX]!0 @]_R$021T.MM@ 4hmLSIY;BָgӮ' ލKvP5Mud)08Ĝ*QbLi}TLMcF:[ r-W+1;F ٜaPhixjG7  8;&4GB0(f*V+bW| @!_ z xRm^N,z.Gn{D\b 2׍z@  [):Bô$BzӅ2]. (I>m7^@}FqvA`b^r !Zs<8B>Yb"F%+)~:ərqir ~f @~,! RH@{ 4 PW0?;j|<ǝ;W]~oOT*)vser/ K+, pU|wG@[W<1_v !Hnpt{ݟ+Kyjo# eتfШ|DK<*^Oo]*@ i _pwZX)T1ISA!XnV0+rBf? m:Rb,oB%>h(ͩߕO)2gYWaoRp;MPg y]=Zř{fԿ:oIt2Vp[/~(1VR _I`?ok) &x6nwQ%SYvkmp&R}cBtnE2H:, . ~E( <¾%6BJv.`kj)+,jd84pM?Pu3L罓lEw? &6?Y@1?$\} /^KLǸ@bMٕe<7w|dA7PC]8%fV"&݁.HeX U`@^$5ӣY\am|N`2Ae I IDAT\!!1%}8e<4,rN6O4KC=ԙ+r@7_,6=z59[DrE=f伵R7oG<[ fg؂&$_]nP SQ֐ bp^@ ? ,ҷ)n>0(/ߩn镝ϦE]`<0`@lrLSILد~O >@eY K~qm]P(^V`Pː"˪l:ο[zQ@ UM`HI&Zř`w0_E qV|`dюAL /mG&='gYt&A(GuTM=aVbJίG(  /݊zئ?8\%Qg桮}BB>۠H,5Osa,>} XA*AQ,=yn '3 e`sn R@E?}ZKnsy>JϫOD.|JD_ttmkE}l,D!@]rrn~DZtw,Gey7`K)kYJCgDA&%l( <19 `(a( ͫ[p0ﵞK HωYᕾ.w>n@xY:<^˟s9T U`.=T&EW“˔ժĬ#`z˃>>@@Js@-fz{t\Z` ND*1֡RF)>!1%T(a?;u7^OrOh!8y2_Mlư %K\ȅhb"\Ķ yV@уϦ]]e=1.a6$.v`Qsz?01+/Ĵ! uC ڲ6쑥++ӈAQIEPh*g^7!BH <l/ r?IJkQa +\@W-~&6`V~{( :- ",U27e"O3W?_^0A/W(uL6/9kʘٚ\ldcV j=Cg9`7ꕟj) lsgG';A& TX J GdP+ x{P{Kii?XQF9r Bo>yRP1IS7Dh{O4؀k Co>?~Od 5`SdONL$j q=PG/ۃ(繎@NYuA!eeL8;y=UDzf+_vwE}bI-pt%8 ?Ōl~ |_LzZ 3 >g=pMd]«fCٴJ=<E#^Az!v;Iu7!@ohGi?诣,P+UG7nYb1>eQS ,&__~&1[2w]@P]zYw9lú2@qo\_VfPp_y1mu⬿G V/zrUuvN b~:+D`d<w=}ce}AcID[^%ERA42(lė~ٞA TC7l"6-x5]9ɊaT uwtYMw'vx$&I/8Q'?\@6In[$- {e1DHahb[u`s<x{4OKa( ǔi3_K6I[xwyՄ :_-cwiP;/"lh0,Hjg?#@rQ$Z@M'@>eHc ` { {z".ߟX$luƋ>~T!ϕB΄R0ؤyܛk3Zd)8CsdN exC6PWW .2tO MćMOXQ~{zS@Wb6  RR5 amBm0fH3Oo%J4@~3!ϟ_>>Îd[ϓ ATiO4변b!sotb@ vnܣ4c[߯JFJZHjV􀘘KtW<Dž^$v0+3N:,J+}V! w ʘZ+te`2y]H$69hM @c^(;d',).zI&Ϲ :$W?1 S|mAGڬ=Ʈ &R11 V78g 9=E9h|"_$Gt^P@c 6KpíL)9 N ׀Nj?YM)(p"u!$}ߪ6}ca}*h a1|Z/X_~u^I  ?T2l( rohg`h"9@Tci!Mc#+c\zL y640۠{ /(`°Rl,nٵ4n+=ۋ5_*Ly % M3/e&5_*5. 2(o4; * i+U"c?'^`f&Q%8nۉ#!썻YMY#D ,#T!JX?]@7/ 4h \@m@ @a^*]7Lc X`kh>}c#yGI4!pZ`ǎ$aou0X s^4y @x-P=>/Ft_Bm- n%c;@W Nt u߅XMBFMc],J32 ƻ FIKl?zM'LߢN"Ӑw@GK 1^͉x7P |@k +%ʺ' ICn2w5a ,vaڲ x&/+|; `-]@'ЀjAx, dz ^+' ?lar)Ļ84$F`9c@4 RJ{ע&DiF@ w^]"ٙ1N;Y5]St6^|/aN&##<L0|z tEd5XO@.(X@/+%lu"`AtTK Yʹ_@3ȿ,yWCvW\#/K@~Òfg<ƒ<~~d{*~$x[@?u~t:??hd~

ΪtCU uթ X\ X"jPײ,PO!q9o&Wa,r_N.YPM C=61x%P[G Y=` UY 1BG( @a2 _L܊~bA=K@U Ja3V[>VJZc)}fkdDh.[Ȭ¿$`I-[(qR@a 9$$O.ز,6 oZiFYCJqt" e Bq^B0c''寋 $noKaP0OZ_ba:sv2v} YQ (@v(C=:1cĩDg_L@K^pzX#61`[…(P3t.`s }XS㹈ex,p&pBZJS$X0Ӡ! 9" W2N!R.ەmP-s FG5A)I#e_[WUKdins㒑~FG F#zr "7 f.%4-W<+fq ZU:"`~8K@at} GE~-,&Lg}=8pW0J$u^}fwXNqQN ڍし/jVH&| F8% 0pM7۩'u{940ouM]&W~ *D^{ȣ/[5&0XK?&Tc! crM`(V~hŤ( yz'MJG(%e $ SHzI0rr[_ :7VRtcP-YK43W"jDLpLbp'q?O{KV,n+tM]w$,4u\GGmjph1X1$_b ^;q6ړ!.UxCxc[`y12 NQ5b*p/t[dƴiS@~|I4 _)ws@2v2&tx 1S0f%`!i t1A~lӥMS~}/W{ ci$2{Q% 9 E=aiOTi&_OgnߧB'BD @()SI@ׅ IDAT6c4xėG~nW{3 R@wdO_tHcLQNQB_9MஙF§(5܎-)D^U x&uO#]z,yׂgů8ςs% wi O7I)'( i+3` XNX>Evz3cI W\/6fD`0eDo _8;^$'(ߛ>Owja $@).W5PNf`C uo P_o&+u'٥0ou*Lb DOT^:8C,!.j*`z]4AԫmFY.d )I!ev- 7yPI[cs5_+@`@ŮA.'u{;40ou4Z@֋*︺nuj~ Asd^$h:PP4L1{Oj3$O824uaРDVls $H3[ag>0yV+:q (`5*?FP+TX4J$ ,L pAMozQ) $n̋w^U*^,@6{%td nɚwe TPk2+P$XbƬ[X<ʻuA rZ4yVϮ^2ͺ=!a3h|ZRQ?-0|SeOi[&LbȜTE7с~iyzqo5\.tb]CN'"[) 8̏f40Y\k 2L]b,T `H,2FN~w]JȅӋCAa R0Y05 |vB.ll*^`+It+]u ,]pI V0Ga߻c(8+ ّ^LVIFZ}LW,bP@e?r8VTH\4K gmqۇ&윒['d* Jªl:?Gy-_!EԧZs p|RgY * /,lW=$nyed `ocF/ky?3}XtU1zAّ" `ec  *2M[_Ae0r:[kzPd !}[/OjGVNLfm!80-q{R~0X,WP oe߅ t~`$F>"e/"ӮĜ^t2jCt @E=_>D@VI1a& bHU c}8BUVP41H"tg{@l]R)&L:"J S%h3|SՔP(Jh^ 2 PK`WH?]Ɔ`91q>'*ɮ\Zc@wޚl! ݊HK. TX mJT}GjVQM Q:>F-*? Hx'0-6 . {=ͯ,vS*dȔ|$TH cA4Sf,H-r|> J@P-5D.yt֑0; 4YU!uJ NFh80O*TP`@o7b\#gi z֗掏_4IJ`_]ݼ(B.2#$ '%(2{HZ#*P@29⿞-~ Z\?l$7<̎V!;0}(f@S]^T j26RdpS@B` c0\wNI(<0VYmixR&kp! kOwT6@e<v. 5ckˊS=ʇݩr㏻ې 9cakxA)`3:ubM:J~FC)}ХeY TZ)gk@6`0FMM"籪e#2]HVA/7dD U&my4U)5&׹SZ/NCi6w)Pfs#&`>f!MW?m=4D6bOf $I?uz$Dž 2g+}w8x |yRQc[qSmV8::zPWB{l>.ԜFZ<ڟ8*x"?ך:AYR<O ߁U5ӗK; J]q,ʅpl޿7%l:[ T2ImLwX#Q'NJtlɞQ fsѫ 1Y@_n}Rׅȏ#vUb728Z\cbqE]ʄtkG@MͽXa@`r:u?Wڹ?G~g67&7 D#ί*Hx1Cz ؼdV@2^ s?u'RHrE⦈:@hqf(~xœ)C,7QZ؊5XVV_:W +y*Y(?B۱iom8s&l}7vDF_lg&jٟq} 0Znx tiqa\Pqs)"'stw<3bev(1`eobV.R }7 QY`}r\0eosʊ)v2ni`/l[1b s! *0ť%V|W+YiVF)SJAX* $w8 D?-m7Csr;<尖q-Y’m3A0h\*Qr W 1Jt oN5wlu2ݺ:JMxM }x7:]GXzU7D1>)=i9n1*E@)3Kg @MFo"HJ2ȷZ3L2崌e4?n8BB _F 9ci` e`iY&1S6(MA})P+TIPH5o [0! (*{P F1')V2dgr@CoR𫀜QiΨ/ –*:aO.}D(@ ybT^!PN*@(i4ϟ2 i X4N.x'UZ2%MK@& x:_)w:(@0ĶoGI+jj2[3j*<by `)OU x5`tD`Ed&.Y'|`dsf:1\%b6:_Ft=ҵ UnIl$j9 \bheZ|%2@2Ycb^om٧&,LWI/ X^"@ erʏI5,L:uo8Z?G?`DwA1ʰ!"^@ L 5s=n6@@f\WϽg7#+ഌ9jl- լdDT HurՎ1b>ТSQfA18wr=6Ĵ',iC7OU@"`N-SMn/2 sƍB _ [#øFt8 L_}Bl:ws>guC@s % F?| BnՍž/ &WW{/ <"?KX9~@L-ih̋fw>\yfpֹ\0SQc([;4 bdku b}mbvƑTtn6CGXI!cjmY3]v5oaecZѽg'"V*?P]aVdE.oYKbTZg߃.AWM;NMmnq 'm 8d/#%_)ͯ1~3u* hVˬ& zv؊Bq+ vo<2,WD@~&T(WPH)P#>YTR,?JBEYŬvA}PX0 @?E]z qTl-]/x` h&1=DH,9TWxՔuNHO}W ]3K=l%.cfHzџ_zy^_"_  `:$D >4*~v#‡L/XpBkMϵؽ^w22=kLVCan=15`)WP\H)FSĈYbHM^ph]po~x\ lk3wiH h@ \^I`‰45z7J>hsWH#1=%A)3鉢ujYv9h?9R-Aطؘi% P4‰V+R(^ B~E42"MF=q"kQu):Xs>7|Q`M۪~% r%@rnـѝaTan丩$b֡׻Wyǝ5K3%O@bUT(1v3ч! Q Ķn PWC<2I *zlx !?@7t:# <G,˂L9e#d L<ֶeֺ/fo`f@V" 0P w"ȯD~k4 IDAT(BP^dK;NccL,6 [hx^BvAXN)3y*T1b/)AZ@n@D$|6!U@ۊ)|dy]@%$kj5cPΧO @uM@4?%ƙe l$z!&s?2ĐBer¶4՚›U@(JnS(ƹiy-uӀtfbD{!3$UئsIA xabiB'E i"_7unΐ("k @s1TD 1~c]2PJbRa.&)^qY_?>k+Q @ȇkJ@N N//OY^*y*3i_0 eW,b Ud f ZU@<7t2 $;Du% =5RyInIB޸{)yyf&3j&xjF6/2hKf2n!f+J@|rL=eb\ETb>c%j#.6E`RtH (:Ͻ1Ho v\ aLI+v/6bvf! x AgsUHuZ;/~A^F#] k@BTgY!7Lj3H%]@ vcޣw$u*l(1;Y@ ̺KA FZ-| `"KlƇmS5[)zY@*)?"S);  +.vk5@?: Y!ӌD㝏f@; yj:ˏӻ" `&ڙ] d= gݥ/vk䩕@XJi; Iz Xw7\g9+HTV@s[#OFٶ@TeR8EbGVu7?`NT Su2]bm yS"ccLkڃWI+Ր: θ`wyI`!&|72n\d{3XnKO׃"NqaG<T80~[a`o#`*\3"Ze7^XhP##JJf)Yt\%:p9JD!x #z. {~@Ŏ8>q:o9XGb[6ƒU>:P$bԟT|i{8Lq! .vk)_ yz |Q6Wz<ǝ>h `jAP~:dlp:&Pe8̽ ,6 w[#OM ,?ޖ~: Py.^MaτR@8uLdA%L(煾)bid)A3@Bfz@5M}6gLKf<, 2WLBΎ)A2rp^'X,1-лڭ |UN[4P"4ի @ ~K?[G ;F{hPE Oyeʖe4ЈsZr%()!،\ M q.,[\B:}(p"% T lZmY.!"Tluq%S-o?Ϳʽg(@ۢ @`mEkp+M`wFˍ4 "iY@uL#@Xbo@u7է:=B]?w8Io)ᇣY[@%.0">TUv,5<$з>]PjKEA|hq* mXbGh㖢q~O$ I} #X̓xXjo5kR\ )iPB=Hp&C)zuKA,1AX@Xx!h/Hh2zN! xR,7z! `!WDp " (`sS!Ih[H&)Y@rr~=ƂCߋA@DU{ gI.:x? 0GU6Vn:@H0f7Attr?KY@1`j(@1u0N1P_2 HwUAJ gdoP52O?>$`0W70}`OϘkvu+{G5@Md3]⺀O L@ב4)|5`z@T u%=gPUmM3G3@q ,+ul0h`@u{"4` k7]SB U1ynU #fO) \C)1(. gV 7ߤ١ϔ_GԞ~3q.)uHD')T"wr5jAnҦԽRUyw1 1 @, L)&En\(9 [ESxdmlvӳVsqxӂ¿@.,tO>L%TSx @\9TQ9TxoS@ 4 ?MW'#+,Θ.`ٯ`|J[ @ u;uanQk44P^I5F1rfGsewe+cFNF8`zF@ #:b/$ٺ"1r@6S1_@= (10?!!0|Wm K1C,~_7fRAe0%Q  bqcZ$sP((lp*BE\;@b=1 W& T'Nhp=%0b_$uEcY&ȼM\ظ{P}jJΏPG&GP W@zWZǑ'_"QU5P1W@ :1]V&|]2L>|ϽB !,+*˽ܧߛJPii 5. ( p hwЪ${Tf-^AS ,s fs={s hrVW@f(78A. T. OTEpϻ@@L`Z0Q8Lva4O|ZT/TPP[1$s 1`0T |:(Ljqn|(s*\@_ ˧&naƽkj7H= W@ňYU>@ BIΩlc5P1>"wt3 \2WuF6hw̦6 07mwg,Syrĺ@ k- vk21e:!0bPT 1`Q_2ߴ@5슊a8w -$s[|}Y 8@ Xg(@P*B `XqaJ{n jr|#+ \!*xdQO4v"p.|o*%@ }`CsmY19J_E_|CП2P P!j(O>*Z*bgFۯ__nɆŤ; vA,к-H-]8YZerK@)?68LgL9%Ʈ$ 96JP7@?1A]{i%lQx @ǎyNCOv:+L2JP&_E+_w^X6O}́ кZrCV̏[!`g,7PH*v]@!b܏@t {ļx,OW@PT`ŅM gP<®^Y:DNT.mIKMQNjb/Y=||A#x)ڶSƙit&Zjlᜌ`D5@ DCv Mbƙ$זFp W|9`p]@&">|}ҽ7QrkRyu1s)DO Dp7 O0 @;(@YUز D5֢rI5DfIaU"di|Q2Z(r9˵܃?U!AG9MhKT)W δT%vUKbtTKi,ڠ4u>ZO@Tf}.EPL+W%S:j/5c?F4C[gr+58!Y@' xV˲M_EJ=G()"ҨbGC'L1)])_r  riiGsR}9zfrL#_n3#' `X8+fP9MQx֛I^%K|p s'B-&c CDL*9˰ hkPT{>h^N?8y=3f;8P 5u/W+S`T,! r+Pa1Ń*@!߶ѻoҡ(8 loHK,  ѻҡ(Ț63z"=Y:@BfK>Hg*Wb2f-{ٟRS$ԏ^؟a k(8DTJeFRDzJ.(6-y)V6 o3w)҇\A@ @eFR$KW;^8xǷѻoㄍ97.NTBlScB=qTX 6=iG~:3z"=Y+s*<#f1F\{b ~`܋zaI K,G@ "r'<p(  8H&}C\zS7wi!z[͈H`04  0 s-(IiҺ^I&e(ֵVII/&ldK^L%cYB3;-(Y'tr3^R]4]Z`dڋiÁpe@d9.aY׋,u׋J.zT'cnQy8A m/bPmTtЋ,LYz~LE34 a lt[EtVtՋBRb2mO͏i$fE9 @6%wʡ:E^cb2 綯Ǵ[@F*ew]@u֨E\StvmE&cvJw1u8&ApQ0TJTUsUYKwmREtԇiÁp"xY-Ő$u2)ՅG*i ^-ܮGzIDATv:e=U=+({/kph{%Ml&SoVUO%e fUuAm엵jˮѴm\Is^vUˇiÁp'mA{i'rW֒:Xֵ*iǽ;6($B 麪hgxˆk% ~۰O~+v@@@ ~OIENDB`ggsci/man/figures/README-ggsci-futurama-1.png0000644000176200001440000007773314634136357020337 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$WPLTE\ q B AJK)45v{}[`aR&RA\xBU'LggK< IDATx c8EAR&,&%hP[έ,Nn^G!I !B!B !B!B ![\'^;6@s@!CJXfJ%i:I.#2w$ޏ SFijRu+ζ&z-9gRoP PJ'd0V|u VNZN`%`A`2ʅ̬TZ-I-~8`Cp%@p8ؒ 8l[r@uؘ W pկ_9r Ep"8 s"8HtQdnR]|*@~HqVu!߇, ڌx6XńKp.bc,}, .KvJӼO;GpYXxDp ,p; \Vw~apHJp(avO( _XxJEl68DUFR5RjxW(ajLU4 ևҮIߣ.OZbFYIxpv BͮE8Zb\ .v>ϛ\V} k]}[*WҼOl_ei`#%Q@@|m'fQu[Xl{, F<H\ׇn8-@x Dp `O8M:p@xEt؊x|@^}?Z7q*#pk@[`@[`@^< "8آk9DpUEsX"8' E)d|xDpOViؿvwC,D͌8 @;8OofqyOqk+>6ڶ;Eٞ<+FvWj媥JU.WVu*IEOeub~o_jZg\Ɣ)NVE6( cp<&sPn5B>'nS]Nm;Ȝf~`Lɡt?@|@X¼*?땻LAa|621$XZ}Qu6vG6~!u:8q Ե 9r$G{cmhV#K_/Q@"BM?28r5  X !ϻ|mPO.NӼp.7ǵC x.f:¿ݴ -{PˤA@U4fʍ#/vK^<0Z6g_Nꍬm7*g RNKJw?h SA )$~dK#YZ2 6P"~(]7׸ իOnm0ްwg闾 Mص@QEotQ@e UZx(d ]`g׵KƷo\P@:W&BW|w6]'}F?v/85)D',^ r7RA/oŎ. 0,phYiGMvjJ@%r0wk58w||_( "Xr:%Kx/+cA7Q?v@2o}~:'gUL@|BۿcѺkÈX"uyepN3]u`Q=( V'QUuTWSc`@`>{@MDf_S̥.p% ~|ET& 5! E"|Yz7 f&Q@Nr?#X㮱yoB-2I<>ZF (?v=7B*ݗ߰OZ)ѿEwu`i #?8澭6k?ԍݠ l޼+߽_U6M}s{e@^w|b@Ͼ't]q; 3gd6޴߼6՛QUM .Hn&=:tUX(_@eAs֯ř0r9خۛSUU )MI6K.t_wJGS Ԇg^_3" uM Ln:}S\M` 0LL>+qi?}?0oCrf8?x +@pq$3umjW΂`v"1/Bs_l3ioMEui'@;/Y9KKɟ?L&xG~:h 1E׾ov}3rڹ馎ͨO 7_ ==@iL慃St>mc\յ0`4?dZ:3+VgH[˺7i3‰.l )xj"\,aJ+i;3k_0‚2~mww`_e,~m]>t:.j#}7w. uscm;m8MT$:2?g n|^o,ߚ/?#&#~2¶ fTO9&šePAib!-:“}"(p[;^„:ԐÝ ji0/FF\'^CW6/B๮62;:@>4Mr_'(4  f^Uq5*9ThtQ3i{E7zEOO&NC @m9[9 xeDk;j~Z#B]@'TM:k4;GB=}&%066q-Jkc9 rW1`p4]9 @  ?i7Phvֺ@ ~"Yu8u?97v)Ƨf4$1fy4w(GeO~ R-]}'@ |{(ӚH/@M))w nf83clhkɬesd9XKQ:UwA1 ss;>s*4ߎi+]<7Dϯ74OEÓ|@. Yk}BC?P9HC {]񺏘Bs13S50v ,4OR<k77P8`|le&_ {<;F[O}yX2;=4@ [:@L(@A;h]$$n+Y+c*}q ʝ;hyaF]PYIA`( <i B;h4J mz/ :+B @aQԿCz$% 'L. 8$V$p=XJA#-[QU#vL4 hy_!M + ;Q@ (_IӺZ! u&},KQmYkmk5%wZm,aܫJ1h%QK'J b@ F@MXoԿK=-^/٪[U.{Ы3H$X{C_. AC +@ ?i:db. 5K&ч.)fl }k{2*L|zgd\tC.^-}ݽc- P5[#Ϻ1jo.kk96'1,%hB daq/.ix@~0H>J`3!b \K ,ژkB/yI U( ?@`jz$J#0dA4oD  @{Pց8QYagh1 &~)ؾ[?f>Vfua"X'J+9~@i{U2rTU _'^-{dhJx11AkTY6)Y8S([ƀ[T L ;/G [CBYN'դ jJCEZ+OuH1h!xM^畟O7_p]@Vϯ_ ^? +GS,zT5e]S:??dW :Ku}O`h(EoO5L q]ڙmoWC Fzv).5=}pe4^ݺt '^;@I]`(L>gh;wɲEb1 )Dˏћ_lfIo[̄- [8ɚVɒ wnNn$zR{R;:Ys?y¨ x9-jgj ͧIH" asa0}@bF^eQ ;-"B_)rاHW)á~0 x`ņ`\(̊h,q[c"<'GlO0LjU.[|H??_X+ֈt+\'jeө y f6Qw1o앙WB۵\`ND[8L',şl| hIeQnx;|ίF ^ ;z<]``s$畍2 >{ ƒk߻ZDMOE1:枢 '9zWNgZ,7P<1 ,pl4 i%-6ˆhdÀhE?0@_%#;er{ H"@u @$8;#=˄ܜ#is2(&6ȕ۔/LJļN{0qNn,Q"<-Q?SX,- @ vz?bd|Q'jF]%۶WONÖ7 yKX 40)2\Ѿw9ȝ9䚉G{|9J>b@"h\!p`ii "(T( fxd73P#[+gʫ[E譚~dׯ݀??C@`7x[@m,Cv2 65rwoK3B_H"OQ%#C'2Mv&9gɃC6'B.b;Ŧ. !(Q~/ɓs΍r!@+I.BRqz 1h#M p g n@V < M} nk/F6|̦v`4dI-N q|]׀ 3iԤ'Qwۇv`  OX-0@ 6ɫt@ `vm0Leкښ@ ?wٽt"w4) 5\n(ǁL|U꾴\wAkpHjp9Np ^l9DN`@<hZyUcbPc:,xY.]J>Vi?k?/1'i2312+CcBN'B`EM}N`@QV%(dx8riTpΊm,ҽjUy2πiGy:RH:P=L 7!"K7-~G/ C@Gp.)wX餹_W{sT(4!oC-'-hR3*(T,eɨ ; Bܡ72˟@>6=I󸤲~p1K SX%"˒+[n:+@.kC@Y/GW|h}P7թvOq3+Wq5[4gcTcy@DmX kd=(ά&YsJ'tZ":c&{zMk xdxu;^l&!~:jqܰ1a\1!!$ժ'3z:ahqXEks`| i&K['%A~@,@_ >4S+G%M_ W!F'*>Nr3F~2 HGT @X=x2 ~ !. i56{4Ǟ Ȼ n(2pʼ=0ߖ$0= |F鲺!wr99s>~b@@ "\n}9?B[0?}M CAHp+!HcKsRۙѮ>Sp#}20^{@eM7Ƅ}l1-nbv N1o H.B`H U7{}QIX$`N ?]ste}/ @;rVKyitƯd8CҢ9f$ gZS(T?ƹЫf}ăOn@ ^xGtpfnmA`+"`۾\|J"u8DsyɥT]6uX?20DK"HغR\4EdD'_\ |Gv#`nqiT\9?Vh۵6C@+ @]/UKt1Oz3vSg% .wW ](0͹ ,YPet0ׁE*BzL_k`a"s@>hF16Uqf @?\~ ^xP kL톻.t >j.aDj c_6ܽm˛t8{f(SzCXjB1$ՊSmcXL R`(lYx>';!YTi8p{\\nuw]Ffc)9 XsFz?cKިpt0C2x|Q2Չ1n?kkpy *P] /l8 'n.1FDZmwmKy($[Q%D"pD5cPѝBi 6&/݆u &Ԗ/B['A!HHK"*hu'UjIZc.'.0< Ke`b^52}?z%2A9~w+ʾ ^x/p@ |mfn`0 dv@5/Ȯy+#Ђd&IW.2tXl:.R*h=H$/b^'s-RȲCa{"[}e!X|Q LO-xo*TxAjpTNJnx[lg`rltH"YP/9W ˆY*Hkױۅ! ,05-_Z˲kRjɍOS7@ZSC| 6;'`(y, t^'j|@Z /EZ4 ԣ;ű1"J T@78n VP9@8H`RM#]?ˮ2K1(@ùv &Lv [h)fM)$ O9|NFVFs8L195 Y$V4(@vݙgJA2*TQ@h "ayBKINMR ^gՎX5/,Ju"qQ5a4 \2nBo%$x?"'" Fpt]|cKUrP|NyQov01 T19a$O1>Ba兇*YɲyZeә=OJB]1w"Qh| C@: g8m \UC/>'!^Ґ@>#}$T&C3_V|T?&2?r5菢 TX zc||?g`Em% v45ɀ 4$e3 0vmdڝk.,K$ KsCv#L,>M'9jI!'x[wQ_ QJ, Pewm Y>- ?[ c2 /,4ƉS`GX/l?{ע(EaD#D\;o^tvq -9Ji{F40e LӊuYzDd*ڬ fdm ̆́M w/4, b& zȩo.цFc A4f9Fm 0*=5y VW vؑ ``VM[j9)5S[L# KG:$y"l^Iv,  srvAE0 @ HQxL ^ R [OhJ 2b~(7b 0dZ2pc;(wf8Bԟ} ?ZgkQKuB&3DPp"m)P XnH=&/t/UP\jKvTk//_;Mұ{Y0&\_qa&`Q]$4,4>MͰƄXhJ=!L ? ~$2A6rѪ?f% :p:t5瑄X- u?oӅH$z?<a8d3|^(v(Bp^(,Lg0P P2_HPs-?fΝ~|5Q7ړ(E; {YR5RblAߦ~=!3ie 3t{F9 )jGEb@~8t>SGb -1ٞ~ZWw0?5v,9!(;QG8i-'$ /(NTP40&F0ٖbkȠ+B6,=)N#?F-Pf a4* C# B`@vւSN417s*T k( ˒؂MP 6=T.,9yP@P_Ic$:'6؎r3NT5VՓ1WP2 ?u;Ldv$=|'r^I ߄58EYla fh|`s8"d(>h]>/ݱ ޒ<@ )C.'PXPwi C㟵q % [&0g@V'VrjdJnvdܝ*T IR-(! FNź_v*ū/KY>E vX5N T@GGcITZXĺSҀ*ǽaLҍ%^{2g]/ k@ebdY _H+BE[BSt@M>"md4ƟzWoKqH\d0NQ6)X;>4M (97,Lziqw95xϻP-fFfs,pl&LdW:hYWЏq ^q":lnUn1_ zrvPD؍F5эdͥ6 ӲIw]#xa<7~;]X.*%x@HJ8΄QTA kUhڻ_,/dЉY~ݽPW?P%5~_hQ9:UQ_M4 )es&I0sиsJ혻j[2]߁,b5aV Xo)"p{wE$8/}JR?R nޫohO $k* Z*WSGz)%wB2 My~a5F xvGT|ngR Xx bi6LBW5s3 ,sD1]Sm )":" #r&%`;-=ܤg{c$Ky!_lV7E /֏nUkޒ<. (F6#i2!8zn(/bRPEeɏD IDATI\%L!o0a[g@FKD'<~ԡ*H3@ss]k弓_\xGGع@dϺ_ WbG^;|>tC3{| 5XШ ߝ˔[[/;pv0SmS5UdXنrWe~lPR_4 =[:l=ЌY?; ޒ<Iu n4?Y fIrf.QCO;W"3:Q) ) 35 a85"maA B@|X6T@PWo{Kޫ!Vr ({1tG5G k koɕ T*뚁7lEV%4I1j pt`l{! $`W@+T[I`E)nKhf3:F*ÿy#w7!($ Q/PM#xa+xJDd `L- TP@\P@c#2@嫟1YP#V)Dr ]WR"V P ?jq2 4(l 2 b 񬷱@ec3AdV d8)ʙ #p_m1lYNyؠם$LM9%7h~hUdq Pigc4P*Xbm-0X]6bhekhv*>h.nPE =($@ dib~lwWkB@a50=hԬ活\2gBw[Ō 4SU?i0"/$QMu<"`!.غ  ߖuxPnrq70Š$$hE>0\[kG|ˇ̒޵(؆4 EuZKMt@O|luT \ 6%, ( @vo76^7y0%{AJ.eL0"k#D+&>]Y߮w^ŦEK.o^.gB!Z@ b+bG??0v- ,M 晱J,Jt; a0UP,A]9+JԿ[ ]@tV#&xcv1Z@a_Msw. v-i!1WV6W7tT}J.T"ۀ(6ul3dO laz(P0OKn V[u`"(д]Y@c6!d٨]LjgJmX=0Rbqc4HJ6µIy<q*C֎` (M03%[PtI&0e;* 8q0DNl)bm` mVqts.` P}cfcBHn iylѼ-Fܴza{tB'8E"lp[JQ Л0^9z@߁XX&B@ o @6ǹyr,@Oh\+,k):v| =-\DR-IřpL<,DT^}gmP"r hfFMa@_@aܗebFo'l>k6q,.3T@An&<E t$`F3f2IR|ӡ P@y5Z3.5AȒĦ]f'8!JJw%F@Jo"wy:-3RgVŀ;Z@aܓjz? tY@@hpf "`."#OܩqyaMi5CzLߢ؉p V {yaF7[86a EfGvHsԖvsaSd:g4HZ99J0{DeLf<4߼b xXN"?&!6+ͭ?XΎ^N5 _>p| x~9W3d7IA`j[ªn:[U5vФȚUmSoRקל? D/rY @6 4!8]@ֿWH5 x.Уw@jԜ=Sl&PN@onGPe nU',@KH/I@H|#VV^Е;:dQŸs@m7׺ghzBlW5{jgGE|7p4;h$vQm:?j' L.o">7,D I;0C6]4!K MԽ~ &:ـI yY9gK_ufqX9?+t#t'iW{5w`lK?H;( โ?֡SP bױ^dMP"߾W%B1}dX\lA-{, 0b3yh'2E7Xz.:@ z. 1}Q>UT20I#G)5  t ';ӓޡ0U]k|4#P0b{YH]ˬbG0uI;i׳5_awO؞2v\20zrS8D/9lpѭ[Bcz=J0's=hRpZ mU.0!ExM_aCuzd^d䳀V@}Jp&) l `8@eX垡 haUP91]0:GZ< A@\srR/M(˓5Pvg T)E gYs=eЯ2- Hڼ*F98ɇ8w\RZG޻Gu 1@9ۯR  Qㇰf^ fuA]FA<=(JLLOUg\@)G3rdz ocSkou„{$vw0&?`q)_ {2EYpxt f 'Tt]WgùW0doXA"0l|WTaiUp m`-ڃhLJB}xr'2=?(˨Nǽj1t^>'33j S⵭xtt' { :R~,"Hf-4ϔ'cئb7a!>v  qXs,B>BUJ"#[141&V6Nw)C(_2M 0 2'm> cwI@ `5LS9DFf˕lȹx>KpDOOV?d)х9]`g@0O\7٪CQ_Jh22 m`L^S+g??.5]%`&Y⪸(k :}x^L!Q7\@guR\\USX!kԝٻDu o jԂV[wZE srqND{@iGD:YzAvR)f;| X,,zs&@⩶;uCNAzkV0p>m nqMSt]k# ZmH"E` ^ gkn6젟)3ro@JuڰJ :`ߐŌq: H ~)P|]J&'ZED@\"L]%L`ϝgpn 90ym+j[N!) [ @-m_0Ua۷GbhKUfKH w7g,e pŜ;ko<Y`ḇM5Z@%b/kLfF9%qSש9t_Um r V .I01VeIr`Փ.H;ѤH1W[HG\w}Z$fL0}C,Qs1؏LS' {M怍0 aK@9^. `L_ ΄Q(1m,u;2Ԁ|`y5@ }|J;=>6Z@pp$G_zD &*bcȿ,땯0`T֓R B)eߒ0-悯؇ - P0ot=|0t D[3'3/'U ?[2*qZ X `Q184D@ `5~JfŽQNi?OÛMo\@yùD̵75@(@@ ` Θ bq/l?$sID:oYCl2[O/2 -b[gxg!Ү5 S py̲b"?<\Zn:!0TN"@t5_jө ZF^, rfGuBT)^co-kUF- MT%_uV5 @Y{s0]*S17&S ȳ|V",d 0^NxXB! &cjDDh:8;c;*CK, n%lQ(oJE~<:!zd_ԅ`b b{aD b6lg9zb:#XI'|t% 4a:iV%:U" `r "5aUۗa=B$nw:8CgGU,T HADeL'~[@)@[.&[5Zx9D?HˏCoo{} M.~1X~\Y1VVXoqMq@$"1Ny9夨2+)苗_ޥ`_ Kx= \':K xBe`eߩ?_ fX|4O{M#e(\@STϣ’@xD<={,62{,3z@dJ&s}3l"/ "#;Cb8_G ~=T"ڳG+tyG{'#+)n`؋_Nr=We@*_M-o{tTW .~)Xg^)Ġ k1g1&P; :# 16N~pÇƯ,bzstkq9 @gj( X҃F~ (bF-b; u1be 5@l2K`Rȧt:=k=E\'_%X}VgzQ+W;WrT6^G.հE"@ ` `(2~ ((*MbvWx#堫5O5q7izzq˽w1T*J&ˁ;]12j58BP >J6X")O)ߝ^xS<5@2^/w 7jMGp\m`~@T1ȵ: H$9 Ǩ)| NdB*>ε%`2PN|\Xg6PRƚJsh A?hSx)+B+S73M@ZP}0$9x46C 5ܝb~# @1`o .oBB8%!d i&5=~jt#Qezp0͉Ј,;E*@ y  Ģb>LS ^0Ro0|44N ^ htfK:uHS)W@\v* ×$'t \T$pY<%dtU`*B+#MBmJ IM0ܻdbPL<)8   ,L@ bHʹB{mKL ࿺!8*Д@&r:5f@M(9=$ y#0y?4ur*t'% /sqƙjZ~&|x|,dsnvjq j\|`lrAlTr1G @)i/u#t?lW!Z:" ۚ~A}gy~P'dy&(O@&v-iz=7E<1]vMypjC@HyL9> $ӎ0lM `M#7VxO"g Y3fuyZv[etxP66&v  `(j.[1HA~#E.3(O*-akbj GY< ֮u 'hz7ɠ( [&0j@2k s@ o6Y`POU+0lMoW$d'0.k(&b^'ǤǗfj 5 1Ƴ#KAvPPkx]V_uw X ]H2M0Tb/?6[݈h@Xڇ. (5Aӓӗ\mib+АRD= e1˪*M \Yc Xo}G@>`lw1a9/F ]Ԉ-彉ӗJ: {؄(T({@Q:O `e ,*@?"vR@ l[W~ ;x:`<6Uh@Qk+0nEb.Jai2y\r6&%&dURP9y"`;@ P `NAX q{$̖/﵀S>Mwy*o@XXo=uH25up5]hv e@ `MV6T 9D* le""{^^:pbM`(`m{!ei_NRw:+:@ 3}zZ # ?~T o{\ZP(E7F=`p=(Z"|)@ E&:a K*a &@@<̭&j  `ߥ=<c-Q<11 P >X\?C@S~1wF<+h\hRL@{JS(wжbdMM>NGK%1` gM[8V8["ⷵ ` _ qm S;|%ݿIQ)w wچbnئm퟉'-M7' (` ^(o'b:C@t@ۚTJ¿( 8dHT464b\_e; @ 1 8L4P9ky nW@ @@(9 $'Qm5y#'&EDQb:ZP6_Nuj;𵀨o]^'60 Jd}W. 9 C+ҏ$J`O{j@p$ m@#C86(,@}/e 0p*A[UG5Y0nh @PuxD 咐Z$>J !!}5)9+IPbk@E),mC@U(cPvp{}( :KM@ x&7 Pn &&;6u-|1U0Ncd՞q@'Ko rU|d`7`pL?8S@Fvp89mpv缝g^[$`Z Ly ׼9p'-I`%wS_9m=_׋pppL ”mFzͰ9Wkzky+'r_ji)v) *[q9NX",wWW\PV*UgsuMYz[[i ě曍k9L` xeŕ?u5LpVlo/N(@#jp| j \/4B ۏҶjJ_,ן]PS@Pm<F=^9F_QݝdG?߷7!tBr_N#zJO~]A}S B˧pTC 9Of߳#ʊ7Y90f;kwvIȹJꏁ-)RB &q9h:uk}p n*:&0LK6'@xDc up(V~҇N 9-9'  e9ͪ_Z\^ߺKaX&^9`ej) `sm9^<-kpE˻8==9qЄ!Ԗr(/*l97p`&W7!} ,@õ98s_ě.U/85f^vO4 @l eҸ/  E:\fh .ݩK~&f7s1}V ; MͶRU)Љ0Q"[& ٙGp9WP޼H5P8('Xl0ؚXPu LM lKy5YprF߉9`9kf% YjU8W-XP*ӗaGvj=dԩ%*T.&NeSB_G6SilOy(w8SaibmP#U{j6su[s|<|<<)}Z@UZz'ʯWzX2eTÏMtYɍv^#]я\G x^\p":rsWu KkE1e'QeGF7:aK4/=ɾ<lO_FbO^ -?O`9) 6n6SR, *ۙsW/>(eU<&wϊrշPD=U&88RzH2z_"}P,Kb驿B-&1-k&-J}At/q~2d4ŒV o2wb# Y_/>R,=Duy{0q7~}b`TiڕDFq$ h69*q ZwtaVI»ޗH.>?ń,iz<,3|AWKwNFcwO }^bKp8>B0&DzE3whRmh%6"쾧rAgB!@!/(4]-v '.Z]~O+ijiVCkbf_F 5 >[ASBX_P2ZNf 'GS+}?z`` R;k#ݪ[^}-%t F ;N}+2Wъ)X?;>0cحjpb#t<%CS-vRJZQf Ha0ev1V̞$ #-(YˏҮ(ue"}WՊdX?ƶ2cحvpH|(%{4{VQ:^JZwZ@a0 Ƕ2cحj%=\yB@=f!X+lEՙ=\ISW+ʩV81Uf U *oyt,"nhEXg"{v߃4u"\86aحj%=\~l`YTs1jYD}y|+C+gnư[`Kzثl#pdo*~YM4u QeW>4ؖ.=ώh+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i)Ñ @IDATx|TU{SS%Ŏ@B vYXW]vW]Eݦ@Nh +vD(5$S;2͙7~>ɔw̜sP@@@@4@\!g ed+_͢nTAI Vyd%fޤ&EMsBϊ@"$B ׀D`݈c4m^4!6r{x@&'i6x@`<<@K?4iaҵ7~E"_WA@`8)x'H`]IIWҼ7h{XoBSA*f.h< ԓ__p O=.5v-v0Q-rY9s+z ?!"t04'iZ[-U2)bƽ5F}x@=f 6zo[3'%^("`ڕWNj"!$ V@NJ+Dt$p<vN.% 0hB, V;$F`1jߣi)ZgV&J Es|V  d(FHu%e'MRԄ-Y4[7?0୷m@Cuaopia4&Ux>)␁  ;(s*{dzۛ}$)[1;+Ux hऴ1FA@֕9bDx[VByN|o^  L~mx ?A3⸓2}gOvvQΈw)ؖ}9JUklk4Q13+E?ci,#'% @cV9isr|c'(w琻[22뚱Nɬp~k V?6d¨&D@2FNJУaHcGv7sVӓWܡڭl0pǓx {LAeR25Esf,@Z II+n42>4ӣS[ɨnS(2)+%%4jfUT)F_OIW1z͝!/a  8) aE 놏?9K*]#(qzwUi2$4S%ͮ@* II%]h #F6=M)('\CZڒP3deSʏW>RQ>e"/0Y2 d`G 8eÆs\<{IfWwߜIn4^ۼ% ({hP\1TC@@9PQ9e?=YR\)Q{h/WB^ HPX;x]xiaiw$J̖-nT3E26m5Vی 4xQ~hQS!m69S 1fznlgIП9/S(g豒ӊ3|,oIonj⹳>"UpR K@[[ZvNڡbQirǔP޸HyE ^Nr; &Y8k @VG8cH;\SեLàYf+dVUKVʍW}ρš 28)-3 J"?nP;i/(MZ^.VFcKIs=f:V+ N?"_,}^^ӗC08)mxuYw2Nq'Dp,;Bx[Q3E,;<NJV{Kƻ~hI[BNJt,UCGv㥝FzOw)-ݦLN_\9վ»C)P8zЮ6w,ԦG oऴQGE|{‚vk4Mv<"?ݺP$$e Xxl*zW(jЄs% hऴaG!0ùtx^ڹgO&k]ܓGQ)I=6 DY?(w k>5B7\)h+ऴF?E)}Ks=b6{Lrum6G@Zec.q[#[w}II.5vtFxiR琧_ii `CTKT;c.QT6 A+5Øml* IisC[!fPYżL:޵Rk8S)3. [/=E?MA1N_\QQ ! V34%cNu~֕Zñ&cSޯN"6zŸϯA瀁Tsݣ4Hmʵ̡fY+,o׼^Q3b>LRw=佁b/a\zQo"KB+K[(3\6Gp`dv;c~ BNF8 ~vIuWSP#HeM xt EZ;+Ӵqmy3S_^@$KO`1}QcuCƑ( А@);xFdxM.\(ZRH@$ %tl?>o|Xi=N"wݤ׊0 %۸M$Z%xf x'J,(mMixFrvKF{(;m i,Y)'Str;՛c#^ *d8)3V=ڭ\f%1So$W }j~[۩>ϪԲ-P}. "@wX]R˭ngs߃ .O=B0qGn*\+4.VY.@ त8!#sd>3Am&ENNI^I ZcMrGvN&U<e<^%B<36jޘSJ;q&'E(RG]=؎n{聼x%ckjtǞtYD͡SP#gg$'Y=8~om]@v,OA~qs!؊ IiŃ>f(ZWVvCƑN4VLoQ͔ذIBnϪLҌ=++Coow@YpRŃSA`{uk.g/-Ş=v8 snT;(Ӥ5f^}N3,,$k)Z!8)pPڥŃw^MyFhJWK':?ҩ݇] r6RS)·mq{dF't8A pRE hKƜK;r>/ǜƐJC @o8^e E9nEp //lݰܹkD!<%G`1G?oCT)>wINYO@x%2VkY%zbNNJC_5xdO}Ϝ'm_9;yޤ8QWG5S_󈢲)P؄sfNwB_aC#'iF{|`2Nr%;3O!9 ޺l D9[m?)g噕ZTmtyqqk!MIMp[sgDvk 8=~u29~Sy lOǦRljiC NO#\|8&8)msE{j=8Qar؂Ǔ{Wii@%` YI5Ӧ'.7, U{…QQm9pRܐux]IIWMM䵗 YU(a=gAH :@׈ (D#n39b[A]/L=i' C+ȣq'QaDI3@t*-ˑϾg.97lऴ!K]zUUu)LyO#=?OTb ><XD2)S5b;Λ5j=5%e\K;#`"~{S%wb p)@*(վاogvsI~oJgx܉w^-{ >f찼JEi.5ȸbLQ]&'6:o];)]v)/Lt$c0T@@R?)<eg|8-b FiO祝=D.9AssD! N"Z)J5d2(ǫ#B[zUTlZ$JJuFGn$vNNKyޟv&wqwii# h|rdrdM]FG&ImhLNJˌĮX5th';gKLX,سw~!`lSQp| o,,8^[yjI``_[;Hhkhy7D=4S@V,_߲Yݦb(nΖ/om+II^V18ޢMOM/5b  )7㙕idA amK;~hQc\ NJp1=v;''J7oo*-ǝ%- =hUpj_E5/t s*f0g(ƻ;P3bU|[\ IzL9O#.MBqSFSɣHx$ m@T~x9h0zmυWQA8)t.'q؃vϞ#W;=  {A5'cV{"MbG@wFn[wީk2< 8) j5v]3'ڙs=R_6[26.&F]jϱBkE#oWUx^RiI1k:ӕ]ES;P9G)@'[U?6,Yވ"z̛qys'∬+3X9$wl)>T @z ?2AQ>;;+2@: "y8qlӦa)sg̒n}jpRz;Oȗ4q>d)BtdK@@RO r /Mȧ3"]V/2rOIW5b  %xJt #&#浽^ZVyjIY_2(\F;WQ@@@`Wʟ{j@Ɩc֮a;BYPv?tRVnNʪ#{sg"r߃ .O=eI =g0Wv\"ε"Y JWyAR)ZIYy9.Wy 'eMwhOyO# HH!>ow5 =+f|*.AV㤬1t4ծ٭5$wl)r=ǟB  @~l VFn,zcOU;)kJvq*{;9Vz@L9\ݺHKC@@ 0c͞O5ϼD&,ZL3+WmXC-jY,ku%%]Iƹ~Dvދ ?@s  mQ/R]"ÐI_!@WL#+>sRܳ%7BITZA>P| MA~he+WSS(KA4gGe=Z\;łY夬-=Z'~\/E)g qE$J x2غu&Ex`V޲%J*+5FrxD{KKC@@,0#Q ʦ@X ]N&ƥI#<{"z'c;|fh@@Z&Fo=G槆f^Z4g–-tR/sRc;IrsۉsJH(   d9>ǫ,6f>gPEs| d5礬+);tm_۩>{;RIo/oS3x   | <5 >Pp ڽDWV NR8)뇍ރ\=sJr]em>{Qgg",!`BTL}yQX8Ik4ܭrT!dpƝŃwgO.T>{hޥ;x@@@짍]@kٕ E3-ZI'E[[:R|g-hw{w(=y4=ū   _~*)=PG8kdwEZY2⤬VvA994qSw8ruX\  YLLyS` dnIS;FtvHVe:)+OL:[(aww2{yk!0jٗn\(',<\3+͝lRiqR\SG)Ţ)](±~Op8@tz )?7hQ韉7"r'emɘ4]vdp$45<  m@YJUk!8#X|xC9):rq Jr_InrVIŨn|y%2kjehS3o*X! Feŷ;)kEs܄Q®zPo&S   * UU.{dSpWf\VvN2,옜@ygBzhl"zC3dIl"n;odœrR֔ piΉ62YCv%Necח@@@ If$B̡ ʦ@]@?rf]Q߉dT[N o)n/Q3?nsuJ9|x@@@@@lyr%]P\1XcIȁ(CnT`lg xR<   r"~G*DVxiF$Wg`EBZ[·{;J5\    F7Pg(v̈N(;æsR5e]AMUC'SF%J   %^N >Q]gu䤬+u8i8L]/L)q)Y)H30(85 pZsktՆiXNc=H%ۛ9߉w=;=40 iP݌D|6pYfČ?͝1KjJ&NDOw쨝;gEh=QS)SNֽr cWzO.SBN$='GLB   #3 <6bs"v9[Y.4@@@D S7s<2$Q8vY?g{vA@@@ U.{IIr)S(g \Y&H~SO_%%mI5)ʩ'e*NANNx߇ 8{wX[; V_ׯ}a)P2@@,8)mvqp68)X  m6;88g6KNJzt@@MNց@%'=:  &'@@@fgu   f 6;88ޭe\uP8{|`9C$uC,=   HpR9,0 @@@N    $'ő@@@=   HpR9,0 @@@N    $'ő@@@=   HpR9,0 @@@N    $'ő@@@=   H8ّÒ~L$cOq~@Ɩ*2Capk7>>=?յ w!JYbbF湕`hOÈTLL'1Lټ3Oq'%r)q0EVWn_GSΘоv<] yOpĸ%,%U.$h [VlݜWO$jO6^Qt/Qfsk ĪzhNa65YM &NUrs;vPJ8g#iyL0ꂴ ʎ҄ "`T晗P) 5+RˎG+s?X?T 2)7xZT7{e_N+nܸwزS%@+QbRWP.xwܑ=``g/G6 JƩo?8p,c>ꀀ8)"+~/Қ)/ɿR8^ ȳ5ާ ;.-ͦ:Ex♔ߩ/<=\V|))--jV楙R1O*A}c{4gv;dȢͪ95èfR4_3qR3+j&]-@ II74g/Ca^DQ1,cP_d8R__Jgm9m`!ՏNQ3UԬUlZb+VSC:ҼjP3hZʢfP6׬d]6h  &e;c Zi}:T=xvQ9g%C~I@SYe۷r~"Ef,ʁA^F 9VR9{fx3K NJ6[V '%+F" [*Q[7;MKJnʄK߼ûE< Q<3~m/JHEnTpy jbH,YJQv)1=ĸrn**jWV|(plV{TЩ?IԿջ3zՋg~vvXԒ:vJi3z9J&'%ˇ_埨㿚 喕sDC7ٹOM')ɨZ~X-ۖꥢ=|V^>s'g _zB݌\-ّR }9L~.>Ҝ-*RQw-/^vQ<-]ayT7Vg-wPRgcjgε\fQ:)Iѕgn:Q9+ej EXg}LCgr*lN8UuLK xSmޏTOxQRxIS6Xy>Ŀm>ѸݍWw=mUo:i:)»{TgXOҩTgl)G:đ<7j~%_( jz~>Tu:>Ꮏޡ]×{_3x"[jS;:}#];ty^W;T{9(Dd0D:ew 4l@q'rTgm!x!AO8)"]' Aiw8]=٥xG|9ȔeOdhϾ{S{ E[Nw⎊pb=N:9UlI̍ vγo¼tGMII.L$eK&Ziwrw;w$fV(/Z<UNXLH80j?գN։<سw_NUoSEZ.՘wA^_Shvi;(0'e{4 .x3Vs< xreWtowe*ouSu®q)a%|SǁvJ./t[ctJdmv?Tw:%ݟ{x&3lBNH.R;T>tnT;ES9xTΖD6d])1*rgė{T-1 "m,OlguANš3jXϾRLݝGi*p݆A1k~50oiiY>lئJ?`%n'ۄ}ypR䙦\->W]R;T槤m;)ljؕwi\kxNb-WΆ?2g>No!.ې d۪yjST3;KRiPEP.CUWN-H64KieY=*NQUΡL+K>1,dbTHec^-g}5Ĭ>|m)qTًyO;_H;I4f{ʼni9]:ϼQj:WI׺.s(O|teXۆLS[im@?bOE]z#ӷqEY%g4 S'{.pRhWK=Q=UK>{Ro3f:!nx**mOOdQYQq.M˓*q]u=`_;D,=[a.8 '?&sΔqZQ,opxɓ:8$9+a}6mR܇,-&&X:TH̤l*d#6]AFneK] z_Rb66q'bww6<  'ÐW&v.WyT K*6L^>SܽzGi/:Np*&1Q5zE]2w>;;݃oE:et"p\!'!׸CܑE `ӽ3y:qYχwԦdՙ:a^RT.xΓLN!w@ M2-Nf >ANtmU^)x<ڮh퓈xWZZaknk3%>{2>WZJv9 ,}/ftY)W[&n_jvSt跖:>,\xTu HIA.]թC$iQ,?Oi7S֮0% JNJ3)vK:Okc[l7^KFf(zs6bGnRЫ$i2[T@MZ[\U[m=*`o* #iof(}ٗ:N'd]Kz$|RŬ[F:,IwvpmSY1 NA <IQju(qˍI!*nT!pR@\&dV.r^-4Tr0EЙ7RLCg .|6]vEa?map2B1)nQ3fxK6OMneHbIRcERinM?ycV4i;Q [r;Oqv5vl-nid&`&pi`3ӓĴ:xڪ[V0EYF%تn_/}VUӋ7]I}XxI-j@8{|vXD\Ij0=u{%u,$l25 UU"E׬);.!~>ֿ>D3eh6_'Q@%dRwdJْmv_w |d\OVGDDWGb~DL <:^!;ũv: AN4h[1Hg*MKt$;|0U_ԍ4T.:^|G nRbZŸ-Di=m&ed/ v,Pz{1bDgq`Ktyr;RاDmRN7o_AޡW$3}͞O?au>yNQA( ;` oo۾*>6aE$E7%bsktx 5L{F獣ΏO.m(wU`ޥsgfvQF`(N}ʽ[ۦ?v]#%93mULϷ?Ɲ ]Bv^۴.w3? .wPJROӖ g]!xb\%=&k_ i~-jLJSJ [KN?v>VƦ- JWℯoxa轏>'q]'W ^XɢMI,^Bkf?H+WSA3rM|6wLebA&ME۵3R]x4c{9몿߁Ў&)G$he5ʗh\?'*KLM:bP%Z\E]V!QFT:?^0-k_e5t d-8)Y8t9y U3[nkVvPIP/_[o]LJYu߿(ޢK~LpLJ+s8jز|I|ji(NPX3m<{gT pR,rʥj+gNQivJUN<;(U1% 񻛂 JJʱMeìM]c? OLJOJV5j9'HGEgH[oNOLYo˒6U?dM u _M3璝]p|]tu!G7{M:_TBsHAv*6TF]Ж= 6]qURI"e/+M=Y@[|$LwRNp{Ȋ#ؒ WbMN۳[ 4d'0s9#p)Œ06o-“fꋤ}3?mMs%{>OKjxw'U>>{^XФ`9u[X|$Z .:ҶDu^g 42r}6 $fNlTmsUNEx&l|6U6V-pʞke=\S' 8)Pr5Cyiz'S ruuSEYYt"-_HWJnjl{(v9IQQd7-Q XooJ_mיg{ީc6YeϙI}_fSmdXIQv-ꦸ8o muC%׋|8k濔lB 9FSR3mI9/~;P@$wH9CY-F9 sG; [U@"Ŋ[grl6WeV= Iqh mw͟AtQ[JJlB٧ ˨vN6j_&USoeDIm778NQLfiQkYSzg>cr8-@WG%z:zMٜSVB{4w.E~o\,ԭ]jj)8~sR?: %DA9pR^y?zPv6L˩}D=7ؙCӿ& |XfSQg]Ƴitc?o[Fq 3R;y61J>'3OKj{r2eF tBpPNjZ?0~vmNijnq'kZ6ގ>`au/@wd&H(.%AAԪX ZWWj֥*B’p76eI@3d;o!ɝ;I~3ɝK>7PKǣvɊenoa [R Ֆqٹع^;mwu]<)sxYIJ:?ô#f]Zq?>yv2TI️MJ'}mCj<%kІi-P3'7RcRy}Ǥ96@BIJB"C>/NכTkͩE5E<ŸrRt󴤦'u^'ՖIkTls]=_YD*uU ENv{~u Ŭ@ 7>nZcZecakԏ2?hw|ȧ_$GR* Gt&'!y;g_ߟOz̄3k{}ْQ,sYs$UG>^CU\ ~Ӥ2ﳝdB&u?nXjS3KTb%%ݸ 99WmBe sR^s鳉?;&{{6ꖽѤnؖ*(c> sYggYj` ՖWP-"1Xrmg@ F47~4]Ԙ(sݷ!VE:!'9udHs0 }D췔|S9Lj_5%kЮLKzҏ*t\væ~Ǒ#/106ac dgC\َwyuQ[G;_xh*:7&\L$9nnЪG#H. 8 QEK^GQV:lGv&R_`F3'^]щ=}rYWGos`kRwae&Gm~K$(i@ uU-ė4C؞9*ȧ2 'oQmro"L2QϙxG9<~Jv|ڜf4%uZ$w 6fȗ6l&򘚜k/o1=Mj<. p$)@SΣ_uKߠ !a8ɹZrn~]PBo/`(?'[@M@$8'M@M5S^lfo9VwEP>ci20(זUPͫ"Yx5^ߥx!6ʕ)h' F Ii4U4WETֻT[z~IV +{Yc21j7w4V5Dk2 x?s`sZKvmyvSo㏿=2 %3q`ϝ3gߞ+>͞mrHoߖ&' ,q2fb!ޓ XbnּP  II4 @k^( @@@ `MI5/ @ EHRRj @&$ŚJC "$))F5 X@b !@HA@ I HIJQ  @XBi@R$$%EШ kHRy4 @)@"hT@5$)ּP  II4 @k^( @@@ `MI5/ @ EHRRj @&$ŚJC "$))F5 X@b !@HA@ I HIJQ  @XBi@R$$%EШ kHRy4 @)@"hT@5$)ּP  II4 @k^( @@@ `MI5/ @ EHRRj @&$ŚJC "$))F5 X@b !@HA@ I HIJQ  @XBi@R$$%EШ kHRy4 @)@"hT@5$)ּP  II4 @k^( @@@ `MI5/ @ EHRRj @&$ŚJC "$))F5 X@b !@HA@ I HIJQ  @XBi@R$$%EШ kHRy4 @)@"hT@5$)ּP  II4 @k^( @@@ `MIQ!@~*`-pwm?֖ w8Se% @HAu+) SԶU2Q"Q]\Hד8O@ #S(} Iʿ#ړ}zCu{@Z@l|7;O:II<ʹn"J' @Te(mBDn GS @(N%cަ5KR֘cT|AyMo "@ /QS(v\[Zm/,~4 D:ɹJ?E2,bA F])+T V)D;׎YjitT *Xeޡg_Qk+q @hfSmI9Qٷ'|_kZ\4CӴD>uFQD@G d|CJ ;\Ym$eE~Mnڛ͗M+ǒw9Ra D6nSdW6ԦC诎|}$2xpG3~r%(ݻR/~F&' @i*`쫦Tp)X[[ _s99rB" @B8H E! ''8߹$%qE߬Ln#({HҳDB" @M/eg)Vi~|uD(|K]?3JRK]'&~":VkC9W'Hѻ8 @H@tkM՟PzPe%kIJ"7]~/X>PΞG+}± @ACj^^H5.Η$[zEr,uI'UO\FY֪l7M;6\% @HJ@/e!djh-fM8I')ʶ_{-qN⽀.^b#A @A ٗ)o6˒4GjS,_)o+(ig6A_wlOI;@lA܃ V#ESUhULn+_Z"HhHGncT8';z 8 V#BT` E"P]]J!X4II4jhw&7<[VS'ouIdl3-Ixoa7w9Czy`64S*,@Z@dgy~}j"#O^3btc޲M"Ķ$%Q!CYCJS"Wħ# zD8Ā خ= ՕWq?ŢLN޶#1mORm68oU%I}N>r&M ݥB" @ 5]/LɃ'|ȸoeFdH>\%)T5a~r\ȧQVq!.)&=GtA\! @NЇSߟ#g"zO>-'`)ORw-OW ךG+ǒw9ľ%< 09~jE>Bf<9v 8 fPN7(0s)sGP R}Yxx`EET6hi$hmщs"NeI٣G%A @sNߞؖ*c<0h4˗lJRؘ̛zrnoV|ءڶ~9· @"mxz6ypHNؔe>xi$nhСyG Ay%ITO@@ 5TByewHl ø#|ɸ6II䶂g4GsRAѩTHā 4Y@պ7ޡ3/[xP04S`]>.r@EM%퓔ߢhFyrצ~n򍻐 H?BR/^Ko$[9OQb ttY-Sxk;xrxZ$oSr&M$Y%" @QwRpKTWQ⮝wUn캼+5wٌJRX {88Y8'q* WB" @*epBm宣x]߼Wed *9PVEvA~ nѤk QUPW5v;uTVH/"etb\"E7;9YTZNoŜ "z9C)Y1>$C~ߔ#1E6%N:\IJWiO'5ь~y~zR:|B, vWlk@ѿb*:9|ћ ͐-&IIxW]=6>?9N g<@@@ETx9gLNyPdнy#$%UF!9O]Q}I12@@}S)YN9X,[z&)&w[ԭDX-G+Ǒwy֜- P( Zߞ,Fb|Vͤ-:II(}[_=<ų[-$)bAHKhv <?H}ThQmr >![[wwy]D9{&ҡQQ+ 1іbl;rJf`>II<Ê(e>@ cѱTHā fzcUcD[խX)^)'ݘ[=- z!#{)'*#)W~ŗw`Tcp H@TSRF }ߤ*yAyS_8CtnТk3xΉ}մ_y揹òﲋHo+ nڅ!rлW5v$>дrTD41%r_P|#OYZv k xS䋵 ஝R~g];%ŃЀHR,>oޓ/AEPD3 G^. 2w[@0WlwۓO2t-[qX@bEkU*wZG''A @*%y`ˤjegrrb{KJe}-F(@GPmI9g׆Nx|RHR$SYX|CGys;-3ťY$@h*fP7)0s.jYiWGZeIUEWjO@=DqwHʾhi^qE`[ T];oH7_ŨF0zs׷/~@b߄dt2vduzvY@+ d@lwdV/ތݗ.|pD_a[ z85 &HWӋrHcx2Ji5,EI6rV3]KgEEԧcw[:ǩG9Y9U:w| 9:xZG8x2vm+''5dhՆ."Җ IJ3;StF;nu^8lLzV;#fHR۵go{~+~n#:QΤ9㧒a @vTm'h&wYRxplFSWpsnRq2L׉sr99>R:4AhS uQ(,-+}n#IJ=*fC9AYFY6 6 4$zwu|JΆZߜ+~KmHRlM.| ^ܝGt&߄)p i7@"-EϿo2]b7vYpxpl&w.˟\õfn])W~"C0Wx":.-].TAI !싋H [ ѧxb&*6EAړ`^[68!$Ub=ܓq3;BtjW#sHE7pIa!&RIfS郻v*̯._tlijOI}Eޘ?"7|PSr, =$ ׶#0 @j^*eD'y(rKK$"VjDKMQKBrt()>=E@ I(\Rҳ~>{ǝ[6ƒZx IiH(C_wqN7+^fۓ=LɰB)0s.~߆WoM++ 4UVqv>vt=㎡ Wҡh.DWQ "ѻnNNfFf@T8ߡ;gptC/ cѾ=GT@U .1{Dv#hK,Y$)euӈ F]#$y=l4eB]@` ֆ敚U|4}j^?dH[uU%i$Q]:.sORv?Hoخ5?>sGVl-]R<6{$5hǺG9Q)u sr%;H'xIMI9_|($;뗻i}w$$%FRY8jNa~"bQ!wm)T@Ƨm;lGyO\Y-^IJ?"{"?ם3E״;͊XM I㽁p@-W &NNfS/oRanQ`|pD$)llce~q'C[ь=ǫ?9;@h@9}*T;_}> ҥ|RHR2G4|Jwٟ?Gή]C# bqb:gL*X#\ڭ pc+*.dCUc/fh=Ne_8/."=;K44A>b[+bSGY.HR2򵽇{㼅Hǫڶ!Uț6i@ [Q^xc99Y;O-_xpx$)MCud<ɚ"?>Xɰ ܝSR ,(#ncav-/}I8.µ xZ ne?¢344N9;C@0nxv.) +|T+CzC>c#\ @q3'ZEKcV4[44Ak(q *ͫ)fnYh[C=L$){`I`[AOʸkYsq Ii%ڮ۬V+m=Ez/Cz A( %~Z3vf;yKSl*b4@мiDE*4:IYz7~4eB) j"k7RSJ-+"TDL$)2eysє l#ei/l$ۈXHw=5ꖽiGS?伲o1[mÆPP\M:4A (kRSj^|T_;ZViOEč5faoV -CV8;jF!߸HDC#Z@Ydl^Ex_D} ? I[>խs)dEt %<64n} 82M xrs+$M|@ d@y;k.޸~Ոf#Qε]A8 } .^Ν/Cؾ04cjޒN>/$~c԰#~t8f, ;-gir,9v $Sjj*x`KxC7оGVTDEc#@RO`[Hd(ZNʾh8e_<,t})M-Mا=dtpă@CHR eoҴy&Xs8Uțζy 0 DS9~V/m<''+(M|' F$$&XmAE\nAMq뫸$\JfhL^c(EndW6GH\IJQ eU罀zD3 Q=(g>;o[QQe"+0n꺴tQ mR$):dO#<<{ 8?G.C#^ P1jWPƪ_E{ oYiW /n)d#ClV<7+GZhrwŃ# 2HIJ=,4>Mv9gx"Z\');H8 '7ƖRTeqGײgM|@ IIg‘CfO9ܯU8|!MhhK@ݪ) d[Ƀg4 ۯ"  HR2%r?߱wsA͗M.IVpd@d÷q'Ͽo0wŌ,[A<8B dD\X́s-ɚy4<$=(0{>-};_d{_8ڧd)% 7 bGK/]@4DwU:45A@';^!U+;s*+}|,Xa_@@CFCs7Mᠬ{!yB~Nx) Q*cO]GplpD@@2+&5;vuks#`5Px yO.M-+ltse<9 )*bS-B>8"B Iiwf^|C II WAEǃk{ESq({p)"ij4\oS<-&}TmIG<6$)~m_u[ym$+yBUsYҽKLXS9zC*z+LlGSIJ|k*pjrJW<ʙ4\O#_J5.&Œ/ƶqKn9q t @pr..~_}*]wйx)9:ݢUs/{tޘwjE# @Q`¢kc:W9B*sJ({T!i;Os`M|[phIHRZĽd@^TҎmQV@򍿘6~nY;w;DHX3]Z48A Ii `|9QǰE=|PAݖzD6nSdWcK#__^<8B@(&}[pKьѽ+< ~+EgȘҥ\' МHRSuC`?mCFDN A}Oσky"+5Nj-ﵣ5d6fy_D# p6jNNVztPvQelqEy`~];}IR0QV+ CI & =ܓs7K.搟>4GtkMaNR~{;v-+Y# Ii!"@6o f~xq=ΞGDr;ζ7%9_ZshHLEuܵssWF\ +$^_D@5'=3/3xѹ~gGeT ̚Ojjަlxߚ5ҋ4j@ @B,nE hۇ@oVnwvQ34G4`ϾO)~e 57!zڭ]/(tx h,l+(q&q_~piE8/¦޺cۿ/Re?ʘaL+_Z>6"Bv IS!`@G9KqS:T]KD5~w¯cԭe% C#$yQ+_ tۉ6{_BooO撱kllZA[]"hK hHIJCB 0HxŽ89ke%c# z$)7GM`!m}ά5oV\9rZ9Ԥv̹TbeR{RYʓ99yr($)X4N`a9a^[exh|)'PΤ <{.R<֤%TR cP$5ǝxYӈ ؈4hl*(i+Z 5l0սc ]@#`5/d D?8T?5"~!~SF uSkŃ#  VHRq1O2隮MZQT.GQp|-_/irG܈yKK" HRmA`Ka)Nf|r-e;1'9AE]_VT8 "$ϛa)qg@E(wz&FV}8zm<, ,?O@ީOb\FVmrp|S'oOmi-2diC@kO؈p-:l X`E|p^%8 " CX pO `-J N;-pk`<<&D! `@I +`E?9Wv"A ؤ@ r?9Wu"C*aΊ-qor}1Th蓝C*[|L?=8@h'YjNl2lVWt*UUlOQ UZqPMFڤ`ܷԳ|< G_40t9PoJ']xNDy]׍Ąq{5W =EH; JOZ# tgO_*?ջTUrϾVj'@S[M`k4܌ l 7 D`XC@"<~-{9/7}С?ٵ%Y+uGDtg?|D0-wI_ O8@wLPNj&|}_ ƙn P ~ 8*]wtrBuWc %2:jRz#L֑y9d.sg#ks<J*atgy EʊR鯩 p80E֍=s(.?\k!+{wh6M31R5sl @_m}2W &O ݛֺvnHʰQgFܪ$=7#p^Bb6PYhu7ӟ 4FZfv/^;8@npBAp퍚Q6 u-M. ˥ps$2x 78Gx7 bAVWοRM4sp|AKDo6$ /%Cw9$<ǛOou@Tt_OdGI-9- ޖ`9-`TwgN}4{|.@ io'H6iK@nqP9n[bW7u:ȳQ5MU @"g$z< <% 8BA=3tNDd_[(&UEG .WIz_nEpyꝧM!@87>|!4a0F_\HFn)_/='R|o wM}]W2i_"1osI\>׵;%\_B>g r4MI໢|KF0d@{ )];޵g}x҅ZEE˰~)\Uf>Fc&q}lƙTp+n$MLh֘ko^l 4觃8/])?dº'x޹ `P`;? W]NgKdI*{}H鯂`7ٙÚ ݖ1`0ϊ]34Q\ hIy @ҤPEv/?ϱFl*4o3O@1;nlvW8gDJ,lnş@޺zѯ_ 31˿A`@ 9^\GT@Э P}z yU: >-^u9( $j4 C|f Puh.Rr"5r|S*V{t*OYR3e [B KlmRVCӘtn9es!lg!v^ܯ%BHnzޭq0N]*>%omcyĎ^=_ KFe:”J~/́¤~&l@Ud&=`๜v (l.3T QLm4~7̿XM9?>~&)X43S6.%^am<,0BZI 4L'dd!0,3Ĩ@1 |V`4YɊŏiXJ"v{PP4*<4v4XC?ro{p Ii   a?+U+ `1l>/OQbgV.Hc@y^&򻃗B %sM6g(߯u=ȏ`)pGBPS'vcRjrw1a9bu1)Qmgg)v. G 41mޮ^'_i-=, ?=e.an6R,DpvޜՐsbK=6Կ1&6+^0] o^m< `OMSkl `  MI> W9 |rZ@ @8P\J?TGJX>N&X/0( MqnVߺGyT('wtH "nB7"@z {gNl=k\S1H`WË0 }:~u`JklߣQVli   ].iNA`eVY?Kg93R | .xrW*i@+:-%pEOm4H-O3Et1J_CP7 /|M6)2E1RH1̦{C%7hXY&Hx9hU^J 4g`+'oTCP:] H? ٠COeGTa<+`7XgOI>sDCL. o7?D-Ra)oh=g*E3 2RMw `W&gWB/ͥ~n Ȥ2U=* -, @ b@>rί.Nj\bQ>ش ˕? J}CzcxΦ)RluC/ס-rMP2gRm=`pk[w{~5P,d"2`!Ϳԋ\UYV\f<Zlٹe` @ |)X%,+W^1袋7?îzEpӹ(ww6V郐9)R |vO(% aևн:mrOXK٦ٷFZt4~mŪOeݨmxhq|@1Ra@GSEYo,Ǻ1: PGK0 Rf*3Q6!#3-(>kI )VV>R.) Dl]Im'ZUE J`UؚuݣsMX+aWC%0Q"`X ;b-B}HԢ-|[}#ɾO]PT!Go+,=,6*,vM:~ B(hP SxE b,fX"ƽYl EAw"@)Avad)0SW' KAWEMZ*fv7Ogdi $5 r6G./Ѕk IDATzIpHs ,t.yzBjQ-g{].Kw0lDF8D($^/ܛ 9@ {Ե7R (Gc.i `yxbcx~o8*N"HlqBDo"CX8 ul(<R <ߛ+`N߽8 Eh̎U'63t4ĄiDFN0ݓ-ϴvH<PW}wprP@n]0&xm"r`h/@0ܶrpDF 4JAN`j:KH܃> \NjS:ZCKO VJ &P瑙Q=,ވ~PO`ςh3h2K *UH0yUhQzRYH3}\B6P +궽mR0@"9ނD /nY 5􇫿]:Є~f<~J;R?ةrB 7 L g۩x2Ճk8c nj T.[eqIɤzҰA &&\]*-̉$" 8A @ <"QG[9w&;{9y_}| )|o/ GfS45#,p0Ske @$`* P/bR_O[#C)K?PnIJA|QwH<fsٯ( C/IL"LkO0%2 (e7*#cX ei׮~9 4)n&A_UdSI,7Y֏g}|눀aP\}z!)":]"@ݗa"Ϧ>L KE?Y?!m,`)39AenH)RDD% @baV$0}~3_4*T8hZjk_4/M .m"Pl O0qgm5$ v ֭'"s{M#af3~}JAQl4][;W'|D;U $BL|Ld^L^Jq3lT2$aB T a\d~%1) *I'PB8ϗA.ΠaO @'/+P\)X<-w=ܟ={@ռf/B~~n Vz|$Z7<ֹ3]F)Ak#g(hdh_U4S}?\4RXdBD*#L-poYFa5PiCA}aK3I؍< \} `uc< " u^2+P<_&߹ÃqEf9&#PU3n_]k4jS*4rtLCTYD\p.  zd𣏕f%v;nmUI .ʝ+ ɟI ~2s~?O k>ɺlݓ^ -݄kC(,בVJf#_-GI_* \^0VanRư-l K |rpZW rAMU@KF?VHzIf.r9zgUf!ֺQy[ Y8(_/Ot`RQCB7'Q|vyw\㘣V'0P&wHkapk74~g"ub\ВF0xܥD语B%Tsbp|T (Iu.`P];mEPZpe8oG)aqχ8;~?@* d?×PïA#E7hS n ;W=?@|Ռ*>Xq'`N%k!=fMhV.ϥle)@a#Pv?q(fֿNOl 㤜$h _^:>͝eS4tHgPOS8}(q3Ɵ*noPB@8f~ 1M(=* IrFPH2FEUI2q *+j5!`UYfjGh 'O AIm!( ုW&m& AH/[u#p5 ˄4>_p{@W54) 8ac&e(OX682W23HsO@vz Ϲ z N~mFߍn\,T-K[Hῦn/oİy~1L˰= э`f8jlS@Ds @5 /wwQK"Oe"w!lX|6j~5>4 diʻUwzؐH /'ߨ* ?2emfpêNsf&[0N?yPz5@Dn&+lm|0s;ۯutV`yS Cl o)ٵA\/vA|[ڞ%?To>3tB@8enz n2kF0:,^\ۢlTA3\= `2Eד{:HH lZa` #N*qRkoK@tۋ7%XAMn._ptehܵa=ŷEz$h@E=qq;zdh'<e`@b 7ĂJ]@%*O r+v ܊Xe6U%`j|ʓTXKs}@{?S4rO4J^LAc+ z 32oޓT~$x[p﯍wnˀ<pfx9_Q8 ) " tP#?ZOuRAx] ]#]t'pL'X@!{ ี.ow6&҈UmA8Y_H';~+1;KJJP 0PަR$:5?L^@0|dyМ+*$${L2y[ ŢS.ʩ])PI㫞y Ζˆ/o48Z1j&8tIy"~f&^hU]((ONhrhg{TV*$$L˹V^;"]E^ߺ!Ul_MRםb1,i6bQ0CnZWI*CO* 7g~o sx&x˩qr0i]N>U$c./yYP&gY=_w LI8j \7m#QK5(h@ ox̛Ǿˮ?QTHO@]qc5 sM~hӿmNSoKx^ͭp~,Tb8&fW܅h-*2GYG)B 0\ |Κ/::FKvT,,D`!B;DϷAt FdZ 4@ QW0Z!0 )[i? c~`\5# Q |\eCޒVa9sww@~A:`2q^~#j$e$mGpI%4gx!p < f!mSN˂, 3Ȇ1AǕ-z~Hy񁭃P<# @1F8t:lyrIRv 2"SP hS$ZNᮆ!99@4ɪئ(Bm ɋY8YٿQ <(`b/W٤99_.Q9jx}+?&d?(Ƅ,8@@\ l"QD@ @7/hwtE@@ddNP#Ax>gp;hLgl"4)k^P-w @ ni6, Pj/yq s D`k @#PmgOc]p9O/ ~Xn+{&Y;m e;)OU-  K0ip&~]_EB# IDAT7$.r}b@<%.6oipPp | r`F%+B\i~J3 u )Kt_3޶gm"0W(%y! |`Q8;hLGB2R۫IOct pU@v}]+B"0B@2p>7)^E9wA]-56K𿥕}pV?d`ocea²OO|1 \ILP|s;5+I`HQ`zѻ!8%2+P8Zq8cYn@0{;UI"A  @!R;GV(G!g\yrQa4UU$K@X:Ğ !Ն£@x.VH,j5-.Ј+,~.YRi|N8 Q-a h(8bЂM$=k&p9ف sOK⸷>*! u-yap -XF p.k ӽr*=^%NJvk [C˶JP<+4/E3lQm2{ן\9O[+"*8+|GZi΄3|31h'cŕ\D `I 7,+c0@ թ?i 9"ͭ]$`@|U|ĆyvBE *+ `>EN`ga`*} `HrE@@iHi_mS݂@!QX @{ +eFRE9$x?ߑ65-FX lHP]y8wFH[R>ԭ`xf]-3HE>fkZy-P 1n BGOcJSՁhE ۈv|dc33qê/_pNάu%1( ͫdf}o\ ~Hx2ٲ 1lwMAZlG@O$]RXml@ v z=j)E#x$ ȄgDjHF`,ջuGƘThqA&qX%@"DI,dMN^^m$vAqx?h",Y~}IV2(Eߖ:6# " M $,8ߦKr S)zG @ÿ-<3Y3`DW'"Y?@RJ:`&#xQ(2{6HC a?pJd$j&98Wp:Rn[~d1i/0.Sd8ԋ$H `ye_^̖ڛTCE i.יW_5|I/WEr K>DXVT򠻹\##_&9ЃD e! !2€(@$H  z5R_?5CjO稂v-`E)&cF\ڦ ݢ&H&z n7(?I$> i}x.{a_`H+wH܋V`5]6v)oq@Q>`<P)řd|kYMw7$ iu @lp $WPvK| [yQ*.EKTCxcj߭nng13eR>(CememB#,ۈ[HN\ aOIj}2*@ڢGqǺSۯY("2+1.w~Zl~rfCɽ 7WClWo@YQÛs~ eBor&}TW&`'t˾9o56udaI0qJ )RϚoB߽i!<6PtDD|xO~ix?/a?!#Xə0)|ȸ"6i"EPgp;ϝ[awc|}dY?C~$k`Ƞ+2NE(+j^h|j o1t J Ǡȸd`ljɛSYiK=م6| _k]?=|Llz-Q㍨fnN+V&Qxc$E; U8uL:T6_yzߧ~/1w8P@R4_ SS|:Xm76@%Ґ [Yuᑋm G֕^w!y|oT('mb»H 9 ΘH&ח{K6. A㖵+QC{'yHkPgl,ퟙ|`oc`ͽ! 0c?w=(3ǀy]S" $ÝE' V PzսUS?Z @mO8, Jރ ) 2Bk̃u'E*}y'׀הY/V78ڮd5ЉI$p5*(t- H (FWb"m0L,>8;M*X$mlI0tp6MU|zjBIՅ+ue[ `%` |18T$@@fl݆VU٨9@6.ΐzbez-Gj_lݠ(eN j5{"IH> 5)HXNR18x@p4AU8 04[ C-@N~@RI&GX+Ef@y^&GpIo @m+ʤHDml# Pݯvm@7*ʥ*bznҗ2+NpBQUn#j.GÁF)̍@̖&S@" `Mm>F8]+}p Bچh82)j4eI(L*|o"@RQ&!cu>`@X' W <]ł#0! aY$@"*#W@++4wLW}z}7(:@/b;')x˓H @"G))cٷFpt YfR?k#8 `g0vw(H @"4/6àu.*m?*#)_|h[: h9FhY(.0ޕ(& n*dF0j[ErP&vyy&32a-X Х4i̺"zdU:U .Q)'Pwb*#|0 Rv[aP,=ߩq˞)9ZndfA|#F xfX.&Cp>IA+u}:簯@c颀J`Oɍ1i`饃&`F'7Э21͞˦R5Pxzdw "NASFuJ$]9;RᯆDSAP7b7 Pk\S S5.ڒ7D4<1,0Z)Z02dduՑTE$t TTu uEG`AP x0 HYۚmꦷw$2PxRX߇։J~[גlU%+b=ae O@ ^x0 ȶ]]EϮoS`{k@2 `X)܊ D#ynf)<vpob@.Px#}A0WFA cEc6:A⋉)TPjVU&%VyE_6FrPet,, Y? _5Aa{wCߤ3.?/뽄<d$ܐ&11edݳ(0MAų0T'5* 'NsSiɃ` 2e r d=k> 1clAth띐ȡi5NN`EVfй0 2^Bl31bÓL&J=ܔJlo=@YhY"-X: t] {@?G[H\@QӳWw".M>_+I Y͂0zu^e@.#x|R33@|2*NRŬWD7ߩw[):hWG k%ZI3vr}6g#0 dz g1rg"[!iaA130U5F'y|́gNq/L= ]Odj?:Is ͜g' ?3]qs\¹FjN Y+гGlئ*&ڲ9`&gz+L.]@F 32dorpcćO•\ H/3IF{3+@i J<O0AU.B_!jTz\i{ vd2# nR'u_췖4ovnGjL0:f>_s*>:b[)<Vp?X e2|| ro$x~}k~2 i^`g22R`s6WPA/ lk!@4~# mYV`.  0T` HylѥNI‡@<`0P5O7cXH(.__eza&~05@!y+2୵ KP=]*Hʮ0>;6 287L^1x[->v(P~z;@Dz  ^٬d~kGy ˡ2`%.uS֥mh2rh`~`MS)R\'v`vn1k I7T^69|ʢ8EvD`h) *y8@ke02" p!qs%{ =;YD'd0p` B&=Bs%]Pu xmgC@/hm02p ѩr4( 1zX׶!VL9B0\ ê 6 g"Co(BF4̉*]6P z>1Ghbu4t ej42``]@\i{z>o7.#`D 5us] `Vb2X7YuŚҺ0Ea`KiTmIP>0=( XMR`7Y 0Qd0n0Z@[K%  m XMji(8``&`(uإҮ:P[@! `)@ T7i]utk ~U @2&K5R;OӄU)#<){+2"s Z7]D=Ov(< 2bMv&@তS|6d,0P7 ³  p L)Q ,d0E' NJfRxr^|v(`;1d;Dd(u x 21I;~a{ n@G  @8@dzœ /234 b @8@dn5ɊaN QU!.[&L6oa }@_^Fc!eOa V{$ '6Ц rR>e'@0ݳnu== //߅xHdOoaî7lBK_\#`&@e%9 %>! d"Pu0 B p)ZE( @p'؀TY"3J }l]8a cucW2`F2 ,2Lj m)|rkt!y7C@' 0?Y@>! C@ X0.] [:N~2 78UfY@nq^@0{KTM; qE"%b`r@>(";~G\?!0X3 O6®@d QyW|~7ր? `)~p~`.ny#nw$ꉾ' 2Ts<l^4sײìR~CzPI]@lT:؈R9Wk?ԛrM=5f^v{j Tn.Is͠(vozw]ZRs= Q0߶dsAATU2&uNm&5{m>=O}: "`ݓh= o3TyC岑h6jj.]gf.bamkxpaOsir3y>mv 5\3sE*?Ӈh~`'ﴻ%/Gї_:q0p1tsK'[ `B I,Ke||s"(V@A)2. dd d2@yu;Dc_]HK'pI?uQt2gp"uqt2  DX:#eJ{(c +e2N)UOXhkad[@&?8 dRK..#tiedͱBWF%#W?OiT.kYTk:U+m &Uˆ[e#.-Nڭ>nAFҹ^2̽XnV [6CTY-;nx8U8P7lC<ݡ݃=qBB!@!BB!@!BB!@!BBO Y1@IENDB`ggsci/man/figures/README-ggsci-cosmic-1.png0000644000176200001440000007213314634136357017755 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$BPLTE2--Y8Y$HFIRnkiHXb& $jǟZ[}O IDATx읉8@a$*/ xN/0%!Ȟ x> @A A A  A wXk\+^wAy_GN1J/0YZ]^q+섔/w@o>Y,-Gh[8 8ڋ M Fnv>nKЛozدwZq+l3Ÿٷv:d7y2٬'l<`ש0 `0 3` 0 0}0  0 `)0 0 `;zsl0 w<>V}h``К`   0f\^`@c]|+ߖzV;@0 ueץy.\ץUN0 1OK7_zVQ@+00< { K=0@0 `khl^vR*pt @\mEʕK=/ Q` !5,//ܚO1 `21/Ú2jYR ;ayP?M0 `k?7\Y~{|#x/`hGz)_zVN( 6ԧ~Ļ}K=0-3 qcDy̯>TVa@0 >` 0^C0 _"`O F-`]0 `+`З1 `ſ:|l@>x xu`-c`@0 #`  xG  q < D0 ^*D0 [1`z?0!?"e?#{ʧ708A`V8,Qw>6O;< ,>2M:ө?u^u[/C0"dbU/<,x@o{)eeآ:TU:ttx]qf10#}_<|pyC|xP9;'"%  hJ%N}v?( F,l e?sgc3f i ߜNcLAB@u`F=+Qz λ>PCX)_0EUU3~v V` n2Ң,Nm Phhfm neSrAub7u NQJM` `949keN #ivnt-Y}҅'u `(0 X2 wz n& jxhvO`j}Q57m6*> xl @(46\裀{wȽ(dztٻ߼Qu`)P62m@o" ֜/#ˣi4pC7˳Y,0 `5of]8GD t4x5.qlhznbW 0)лt_oPOc4FM+5@r[+-_{A݆2Ɓsb 07 y2^S5;j7%4_o%D%  NY)Ȏ@: ``vs <> 9nYi56'`[g+3 @oojepjWy*!xJ>; #IeFشHeu~LLL@VdVDCS@\%rf~'KH'@L0r`nJm~/&" Q\DdA'} 0iM@_"gJP_pG 0ulժ$i\ ɴ"w=#0?3){ `T>~"Zԡys:jo5N*BzpkW40dڱ~dH|͛m6kT0:'sśH"8to[^e~o 0RHs2\5mOT H7E`i_[?Mg_0< Tvz>q q6hӮȪ*sbβ 0d&Vjv:R`h#7#`Ln*eqm6ˆft:袪2im맶ztSAtR4-df)v#P<j/b`@/䆄믭ϬyڄhNh* <1Դ: 'SzLu9I5CuPqW?{W(DYBA]u@c0W7I3$Mj}oޜ  @ 2`۞I=K]@FGOEoU{xHc&#{ShcնxϮ`XˮEO=Ȥ^.HxGޮ' <>“!jۥw{ck1_aCҺZoV_F ]@+Bt?p!>մ6tgIL)T#Cm⼗2f:xkiqRNW @ur,uDFGƑ vi `q!&39u7)"R$|1Q_R&wp+UOP %orm`?BHlڪ%be ~SoWR},nsإ%oؔfd>HP !}' yVOMuh|_L׺k&(B09xTx+ݻC hۅ/""kz^:-l @ @\RO^zUDKhߦ}o=l|[R7&77'9yjI p %ۛ z샥Q h,˾:_wo>aKN[[Z*ٞzXBk4߅#J'iR) .C]?KHٱ0%BNPpG7#޿0X 3:TL\l, ӕ;)@1RAn _ >*va;/3D5 j/ؑw{㾛 e5=K"@  V&hi Џ @2ބPx3 q ;1~.п1f04*.RHRL sI8s`E}C81{誮s*c:)@ )g6dgeJs@0=X@ fA';x!$O1S OY@s Oaeh| ^SK7m]AwQԌ۹~)RPdiWFH\|+UxUs&AfVNX_FβϏ;Ȏÿ|t׵!H  > 5$2]ѝJ 4T9_-x Y lwQ?|^B5  ͂FXM|RMna Cػ|rژ8l ?n}Jqb&NY3<rz:?[nT/z?!3@<ڭ7E//,}@ͲCB0ֹ9Uu[}Yn?}߀.p- px. 8Kz0|^_WcW,aƚH3߭OjR1Z"S)-k!TP-,\Qd &)/Ap߻Yď+߮>Sz|ʹ7i.94|y i=5MAdagk #(Cn*]k7ww[b{Uy&p>&Hcr!Tu[ȧd,ە27XVxb@DdK@7([)^@ }@O +ϼV4.d6E2j^И4`a)E1nSPoGma )6 @_?Ypg#kqE HV R +m:4iQՐh|c+%9pT A͌pp&0+VoSxK0s[p8\S]s 컩F\ V&̠MXu -O$Q,Z{ i0`8``q p/0Vsz?+EG$]"lXՓ1|.cArDջ>DÈ߯‱s)N +WNütUЂ3^g]^aNc5? fpa.0`:h5<խ;lR V` `vж=S&?[M҈]ͿϺW |/sܡNn[؟3>B?SV2np+V li?"y{(5ϱ̠!"0hVoF5 8k]}*(\5a/obV` U@Ǡ6J@G=^n>|@5L4O-XF])&.-3TMyELM?!#߅05J IDATU_s Qpal{XvR 擌r#"@@~}ph8 ']Zٻh@=Փ*Me !P-Ӹ/&Xx1MꐃM`=y8@^b?h^wKNmr] R\tux!j,i$J0%=VXv6 i'mOGCaK@-KQF%DG)`P 0Txj$_)H/7H}/ {X~~` hsx~l܊rx?b6f[ksEl\HX+ONsOh[!w(L({XxwOR:/B(yў2_I!/C9ގ-IɥCT 7?Iڛ+0x'ȋpb ԭ%1yA\4Fnڶ>'t>h!PH.`h8/S@D#GB({XQg0*`Up,ɛOe BWp V4w' : J(lDpŹY0Z mơ~y[ć(`11 t*=ij ,vt t:nߜ3_ d#+,,d@J{; y`wLo@aYoa ӣ%=^whO.*U ׁB* V=X k8> xL |{xI!^χΗ8xWdv07CVA 7 IXMW?~@ *eGyK3*td:j+y_WR,5+0Q?1 {XI(OlW4j|cŇcHAh;@xXzs"^B >qBCCPD=V^0ON_B31+;n-nzdmFS>L] n" v|RXYpS8:(^b: Bp>XLѠ}%{)cr W~PE?n˔a @e'{*DBk@1[W{R:c8DZΙWybVn嚡q "7PJ=^d~1LXt @ '{rHHB(WOoF Emo#"Uc.1y(xlFUhbo^.Sr#}u&VhPJZL7hLD7tWS.4RM-cPT6b&cKKTL8Ȣ˜ݮ 4UA G 4mho}?|$$5ԞN`\p(Wm Gj==0ؼmv((BFCŬՐ`eV|Q*L.T >>Evh L;= Y{Z򕟠|Z%7*BX<]/)tV?ޏ|<=R&p+,*>_W\%c% &dZębbhT+U"k ߃Yt_q5R~>^rْ_/$y}0 *ljOR @ k?={-k11^m `խ>r]E;*v0y0!Tō)`mY[u ͗ >"JxdۙVo q3@xLY:#͊@BPx|~!B7Xl>W5Dl7K@=霞(;)ne(*!( #0&2`^ N x,ޙh.|IN"xc ^y{52ƛ? ECvб;w-`p|L+)IN"6~0l!1\FYa0LI@ ؄ɸ۩& 1Ӎ`D#Нmcr:} H\TGW,~ݓY Y Z)U36o>bhWgM3{!똴h` ^ʡYP\iKXhW"T(x+ǀ?N]cMx? jvzh :+z D+bHA͓/7M8>L/I߁FX<9*XKi4cp6' 5 ʀ?Vc| c0]*'h +͆P/J:.@WDMrь0׃p] [Ox@Lq!K~\M1 /=@} [ߤ˦vPuIiS?,m] fdK?뉼/丁-KABͧY1`K@c~7I@녠WD1N3@Sb,VUK*罔Cvg$%|({V4^X ThP-ԒI R+.i<8E&Y!@v@ Fʰj?> @瀠;[^HƌϺB88QlB- -X b=`\ߛ䆷4M `~p=Xf5 tyjp$V@hU^;*2܏y5k jM:whۧt2o`2i !^kHeqЙ,80X%χOllnd$ oh SD d`S3M~DgoVF1 Iܛ%*\Q1±tZ} ZAD~k)V(g3xM}q2c@Fq ȕMb͕/;.=ӶJ K\ !I֘| ;X . H ~j@bW!VWLp 9b3m} qNi X3?DL$\4Q1ám#, @F*/FPc)2B n8d.~ij|z{ 6L m*EbrrVKħ NӪ=b[B \L P<.L&P y[ M@6SP KR@]᳘wL<:,wt2k.w@o#c J9T V=#8/,!%XF?kB Ee- ֲfc[Z@:XMz`T/ЪZЃ"pdž3^@HFT."?F "8`ZD 0ӒD0Q_a cR `L\􅋮UJ>Ć)8s~7^@(,~4rMnY[3_ @m#p(38(.b;0qtL\Ш͎lH$XOs% "! xN`dR R@M1".zߑB'(D͓й.h~a5^`-8vc[8+;R?_V(ݵy4l};UpCFT;$I JJ#yV pjx: &YGl (!^4 0s!sYq 0CQkYNZ,>)/h$,lSеb nlv>y435a*rP1U@lRC^] M&KxPdڢol @U@]*l{~Ɯj8;G#01r0\_Ƒ[ "$R v֟B3Hh 1hp`&$Wi{D, !^HM\4L/8@AưV@ %144D8}E1X/jʅAk"OW"nb 41 hG\cP9 `xY1O1^4|%?4tw @㼠*Of^%]q`cX)𼗎};vЈS7рc4+'iC/0BITr+Sv|#wPZxگݿ̣[ S@M C aSJj5S@1qߥȷ0 z75O;l6Y1m; ^3$h5Z+ W#0S0! S:K30l'AZHeNWApupUۛ@WGf4]?N54~`#;m/Mf '=N%< 7A૎ɫiX0˚Nt;^䆪5SA@]{' [w` o7:>::xISo٬!@)s+c­ĖorޔJ"#oXPmmde^ PCP$ EcJWa L8Drv[o6A "&}b'.VLf`&Z*?Yx$Xzڅ0O)?6z\ B$B]* tՠ<_j~NM wuK\YB{`3؝)*Mߖq? Mf߻@8k#SUo{48+&_>5: ԭp}H=N9{1`1fu iN1X?ZOM, M:Ij|~3LUGӿ-`A6N`'NuJaO[`Ou#Y+=Oo4;V;ЗI]ل/,|w` }EnRLq~!CYڮBȠ^B0RP H|p`e Ck;w`&MS8ߗqH'A۰*0~Z-\5w(84Yɠ +VoP.#W(-w]SXx(R!DxvC*6~B  XDNK*Pip1+m @`+a4u[.WZB>P,5.'H)Y@P..Tbl hN6xwYn !^" CCǩ_~V_r %## IDATH! T_`[<Ut#o疽EۻKy(6k[3ĢϗP!LI#@s, ((uY0(@#n'NB$^$R kf bE>H\Ev\4M1H"[S+Qol}g~\j,Z@F(7gfYSBz_ J[ RGvx#4$`Z`: +{_#<SXc JDV|-Sǘ3{1䡍D33. q2mhO`VLx}݌zXrE"<· ;xhc\">m,+&VfvMPhFC/(3Eaq>uP8Hݏ{9} 6Ӄ,4:V`^PpdvZ?QCZRP0P##JM$+VX|8ǃ*Q %0dLU>BbEɃ~'b+A Q@4b {=G+),H`DzfOd,gYPf,``Z( 1F@t,Bje.X&7(@6]g3#˜"zuU}j%ڵdQ_ D4P9HseJZ"E3 W>)$cV ;_#/N*` M `S=QY@<4 Ȧm;gQC3i0o7(bJC<A"[[n /ֺ]0!!*&|jЏ-D)!4*tΚvXTdI y 0y@BcPZc~o!#!pUȡ`qee5zhOi;0M} 3[Սa Gy"/ȑ8%ϫ2-wziBoc дK :M?Z 9F>T7z-o&puJP,_[&]-6*8N OQ Su @\ @`Kür{hI@U0(yƲo] nS0Lۤ2t6[&4SKyi m .30Γn/::ydz w w|NXY S;M\;_y'2 E}-T$?(rS+"S8)vT=#ZMÌ rP5Z,Cֺj/gfR_I+Y@LuvlBߡ85M^:FCoN|TK$Iس'̥e Ww3USrfå Rߘ$ Cn |^)mB'l[OD!ۡiq8"'m;m2Ge]mg.@T^&/\n΋zދT;^3g[c^OQ"w_VO}:doTѐ{ ~>$Jxsޑ> s+QlSٕ"q=>tqkō,iӴqŌfٙN䑺JY@U:fEnb@poRO[[I*u9@7Sīa p/(@gA`+LWȣR}&J gY+Iw{>fB= .YoGcܠ_ډ2 LO*-0 ##wfAEcW&O0lK 7DUTfS_~%GFPm)i]t>fB}>_s /Kf^}Bکb_96v៼= y4@7`2+LgFE@%u/kp>19swؖadPKIɨOVúL- _9h%!_]s@)0.p?9DV,ެE7I`C9 \a34R%My$w .HDab ]ٰ@h{N9#'W;ON!+.Ds;M Tߠ]P91lZl?&n=F8/7 fB ><@o#O@gT}]$i)%_[#*R~9uӶw6&$"Yu `miah♐B% `HwGЍ#E Bȝ>@1YƐb$zͿ34[{ۃw*"al :l:RG*J#w ! jҠQZ w:Ⱦ6cS>M{pj@{֮w*䲪Xp&=(B `}kN[t^`A, saURg;"@ b}'h.Ze=2wtH. (J5;`aA}@ R9RN+T :rP\è_l:9{ASXG1@ 0/%0,sr fmUOyoFx@U Kqq A +J$|mQZ*3ӞRFhdX[_*p=Ťxى%(azG ܡ7*TR$R_+ikYCoV$@[dSDoފ'+aH;z)&KI@ `Ktk> wPlL3peSR8(u-u@Ͷ gptG|cCiC!C  @8td_Oeq0$/ #yL'QϚA3>׍ >TWTvdrk32Jú:TжϷ{L@#! @ۑa *TtҬ,3,. 7TsSa 3*hiPx%@ ZPǐsT:'7@R؏eWCqow֩ N' ʣ@ ڝ eTxE)nugd'jUp9TV"Т¯ ;h_A"<4HCki{%OgN 2$/ *T %m)%\ !p'Ru >⧨>д ]"*T(/$715f!; :Q)eX]?g@70 `Zo@ [h|8v]o8#^ |$Cs{bk*ܔ +o*SZF@{ sE}ҟIl-y_UMj0a/]F OQdf/˪EU*T(99pU:n].|@_*zr~@t&2}[؅uss7+yw @p(p=ՖiWi)g?^,*o:8$5ts> 047OrKR}׬<p풞J6i0,Oգdy; lvA&D 6KCMt{w Y١ϟySrbiD"dB@sWI4$ .V`HգC4Y@L y³I}YoPBʺ~~X)fr6l4p(ĉD >nM@:xTuğVܝXf2 Mƿy o3nt#@pf'[5=-*MH@YǪ P7+{-Y W@wB7@ r&Lfj`_6ČϠ S5$ti7 Pw~~C#g>j,$Vh> Q-ssfpA=D'N_#Z"G;3u9TPy)Y3Fv5 .R,CoX`;+ 3*TP<eVBf=I̴@+ 37ܸ(JhwKP@+<ș]wO!] zܚ֌ *TQ(#gr .>=>9TNP8C*ëvvft#X3w2ֺ`0@ ?Āf!/ V?_7DmK,X`*s@ WUd3Xq[j s/5 E;!ft0 *3y} So.<^ /pϰ`vTh9ҾlZ<<'tdI"8؋ҨPؠG&Xx ="љ! akeE1J0?{ު Da[.Ez/IM tp>cFxfo ;Ĕ!6 x/8?l|˗: (u4]ZPo|e :3+7Lݒ|WZ~Fh7'(2lT  *nSm)U_U[)>Ws\7h [JMe(`\r*ssO63Wc&v"tcqL+~8ҳ:л p!sUWOMabWHvp'Ŝa|TE%n9RqR0> ̋VnYV}oeOu!N\ʳQ `ܚwlT|/Қ8HSO^DCsK'?_>vFLV&h*DK:@X_K[k!oZz/¶[7鯹 l9_2nZ,|t5%W36Y*~b[ ä' 8SD#3zOP[XjAEj+ԟekDKp݌=ĶC@Wg-$M8y:x<Gߗ$Mٝ |s1us&aEdQt\M]Vۖ,[rlK?&v0sCZ)0օ$t]0Li[bO"e1B?эZ.] fV}O `ܚص, Aw;q4j6OhЬP@x꿙"9t.r' }nA8cXO=5qkb  # <^+L A ,9x{K\Hfڵg5&-iߔj* +7 Qg[Ba%05!ח͵""J( `JĊ3=FD:DDC hv@kyYI7D$ϥZe.i)߀&`M0pMaH*VpzhG@TX<˴b7*@P|R_k| )QA>T;#r-O-VaBlq`c~cښF~O>5 Hc,sq2O$"Dkgskߞ6I2 䉢 C+ ; fֶ2k$`@$X|Hwv=Fކ~n< b]g*9 @ $HUl%`Oe;"7|N$)NO+( pND OP-Co^0D#$ KmFNYVtL+0@d7|G7]*%x?@$@!^4bUJ߿C+@b.C ЯV)B}߯D'@~5\W ?>s?N<km+H>'c|$ۍG;H3A|A`Sgٳ@w@a?1e`{A p5 C@A_2! u@ -q/x~'w7$ѡɨ@{ | %@^ x.~᷼v2%QVJU; B =ygHb _X(TN9`! ;, T)Fk,R@WUN9$X@|X@PU*CU pt04_M]̍0 o"Ԡgk\j'Jlw-A  OH򔐼_]iRaϽ} 8" 9.| %!tqM )ջ %|('t&,٬A psIDAT@@= R[6?Iڒtcߏ2zg黱@ @tPG@ @*śєDq > I*f4H?3ݸB8 療}s9bhOyiڗ&uDD=7uy>LJA H 5QH2!8v+F 9vh9{YUu,=okK>g{OYxЬ<>2G?؃!R^wS<8@J@L @δ1>QVTw/ 퇀xY@O}yLU)iWJ'i f0٧LNƊ(H H1$ .6 vF0eW8'P((͓qhq'xgM .FK f@S@".?JF:F\2 /cae `C@y"`KX)y)Ú/6!g\#U('*\1ի ݊ZI :l."*ȫeJ|up$cJ@l5_&:h%c wqdVnBA%q-8ri-  hHt (Rj`P,9Vx& qN&R5$֮ݝoU?貆//pr@Ibә_~CG5PVTퟯ% tF:$%qDH 1@}u+5ʖ71ĄWS@w! 6sµ |)%u/ܖ~?"&^;5 \DL"1T`tN~~ _ <ʁ@w!sc¤y- uM8"~CGo-W B+^3N@ imU@n(R@!_{@Wxp"( Ӭbmml_'l N8RAs KE@ E8N/x}#Z X1F/HM\1pJӳNT{#@ 5@@}2&'Uu}2G xM} ^=|Ў-_(^o泶<ϔ@b ǹ9e%Noh'H,=[3L^*o !N|P~c^B@[@;wUˮ$;T7FOCT5&B@bALׅ@"(P'jMx1uL-γ/~K' Y`fc&tI|2P_A/َr_; ~л|b$t}WQBR?G! 4i@*pq hqoucA'r|O91Q< g>ƒ@Sx 16P3pq "p*Ϗ& -D3)aY[Kx^JY:'x pel] \3S/4=L҉#poyJ)u6GZ@/x^j,O? [F}Ox I' m$,wCw @%OH(OY6,} E}ߓ p1-c\-&WrN ?xP@ y Jܥ_T̿F!^Я^םlh[pjji_TNnGYXP0M֓/%eK2y\$fK%/l(])닟VlF,''}rI~~3"j@(+8q^<}mRPVڍPKVŬ5\/6#Bٚ$ WuXw s܌X,o{YWBKs79ݭ!ӿ2{S]3sIƵUS?-"tIn$0CI'%L-cg)lILbxB1ziCxhOHSL?Փ>dS a`xnc'715%ik.Œ0ZvF w))*D--v!=?  0}3v_5]pA^v_@vZ(9>EHj F1(0'$@. ~\*@w' @@ @dʺCdvɌ>HM@ ;  籙чA )P͌>HI"@k)*2J5ǚfʪ:e9gwN Z,ܡ@#.B2$2NrB%KVn% &l @Rµe7A  @WTvo6sA~h}͌>HI3}a8@/Cd%58 n#`U.>B=eE7(`ruQ|KQCd 2 i"h*a 2|8 ҪpSp(f6.Y &͌>HI# 1 I8Ƀ@8"11xJ@ՀQLf뮉"0 v`7U0 A`0 @IBk)2ȣ,+7 S [IAjl~#i4pHhaڧ4(sI C-P6}9I3D- &!i(ݱ tE!y* Nx:PrrxlJCٯ'iENj8>x)1U'"h-iw =PO*tE.-{$^\ラJcǰ;4BtӼu4;(s ҥmD e?mg4#8ݱF +ٵj" VJ2ñgRP PEi 8 ;6{Pi\сuc-釲_O Q3F*~V >T8)~'%ː8>ֲ 0@Ô$KkLè\bv*H Wiw =P|^:M bP֓4k0FU)aw©pe4;W gF-` A`0 `0` A`0 o[awI KAv(FM IENDB`ggsci/man/figures/README-ggsci-bs5-1.png0000644000176200001440000003512514634136357017171 0ustar liggesusersPNG  IHDRv pHYs%%IR$>PLTE'$+ * !$&9%D 2]2QU\YHW$[hmqCDH-17P<"=?J"OKsG9habjG",A d/f3 ?9> :+1e A-F*yfAՎ sU3~M  S(4e}lqݼ諭 i?Nv!uX 2t j2Bzēijޝw|`[bK-ȝm,Ξ.ϞgkfMrf" IDATx]nu2})qݵ`.Zm$m+m]4Y0ЖmI*Mj"9PgW9sx@ @ @ @ @ @ @ @ 4OxU4|[jWW'ޟch2]g_"& yb`CsFLq5F`01BPWB+gBtJ_[w`(-9Y?bp[(Vwc3D!O|kXrLO?GxʞbrWc68,(M^` !{3WZIJοW`0L `$5dġ [0JS @I  l ؏o K)B@?!.٫,#)*UP1_ȷ RTV2 ׮;~79>VQYg{WGIU)RP^E`77~;d+88 :$X[?5xaH`m**Qv+xPN; cL >h!R:Gx{g7"`:֚H@L/O @h -  ج{,yd|GI(`f(>1ͽ$8<Arå?7Eu )&s:N;* 0>T;?} iV,QC8[HP*B(1@ @|6Vdm* @Y@PnRHVV|򁴤jQY@٥?~]h1`ٟShhp96ثlW%,  Дz:@R=yG2`! S*\2kw, (Xrqz<Pğxd |a[oX@&dEK&(#SJ ]un V0(US1z%ei1i@p@֒Pj-``/hh-G, oЖu(,`AuJ`'4' h/P&+FymrfTv,L%@LnU w;.pI<P) $?s0SYp^@eF 5((<]@)GsPϲ$`x0hgq W V5 .z/PVB_)J`GtE_?#`ryKO3``% Lu*PU8zf04BPP IuzP6K"@L# >VN `QY@>x. 6=Y@<՟ç (GC7-A1\X _*+gy< <) ѽ j'#p⫕$!Ypϣl!n0jz@8[/zGp# c"ؙUf`lH |m|xwVD9 8>@X gC]rVC8j**Æ4ޖ$>'_˗JA8נx?jiGWCHQvu 60`! B vJ`ڻf/>Ӏ]C0b|},gRRtu\ [U0b׍Pv :/Z?Wo`t:-f GWho u[96N /Kfß|+~a n!{Eyس!(LqO- ص"r<1r0" A9co)cŃsA9(fȑj?BPͿ~1˜["Ϟa? < [Z"t tس#(tCp_<د! w<T?L @o,(I^ea L!QC0 #6,?<܂A >oK`ԭf e `H q  `^+@dP70^'!Ho@f)l; hEhs/Q=QiE$@vyaWaZ&Ww))\)ڡnC|6Fܰh@/!hR1D~@, Tbjv{Vr@mP-3 Pwjlw}#P]Gx @'k?*[$`S)yύAT$ ?8 ۹oT> hRHbh3G򙲀өzmQ[q Xl%E2 (Nd> iy@/47QϷmpi0d&p,LS H@L'&Pڙj@[@*KPHD Vg@-@._YCd<}m Դ:b1p-y~^VN0kCy)la! R%yT,2y~ҽ5VA(x< jZ $0@  aJڳ"*hC%(|IJ)dr&L" Km@`d@k&fpXJ08,6m0@Z P%pX V% uz, Zkk_{o? ,OdM{1lF-1FSo4*__xHRs>f֊w,Muc6a&7`#|zjt[ƶ7-?F)-O!yzz t'}nny,躙D黱v넙l̿EI~"W?v r?NO|kaf bۑO[k^FwFܒ"v?ʔG m\7ۯ`cw sG 6BA-@- 64OL~6 cm(eSqk;@:rr:AjvNRy08't'vF=i@5[t<A72NtN'G@/-ބΈ5-`A|C h< ha4d^}k|S3W8Qy`8$wR@u/G([h "(k~_`*(,DQ lRm (ynt * Tf"( I?jN4"0FM^P I|پVu~ P,& ȩS >!})@d|F!S@"j܆ h-zpdn }1@T4xP#eG "w@K" vYW$i{@ @3@phh4 Fq] HG`D/S&Y —"Q- L`@p"|4|y(4K O2>FDq& 4:y":;Zi a(_>/0)ue-CC@tζУ}4k5^Q@2'Z!W%S~Dk@@p7R5"8 571ĕp zpj5cA+"L0B.:xD*  _ pT^$hXЪ T"G `\ PMF ?@wXy)Gpa"$:zf飀bwЩ^|ڨ4VPSPB " N/`*Q@X ?[PYx&Q@  1#hO~o(c426T\.&? .RD!yxp|q;yFk͋γQy~I88q߄h;%_݇[:W-3Ԋๅ? #'lh%F4sXVYeY-sfӶ a[v@y7lU rS#F5= ^1rWlR~KН$n?dbf/i&'o BsgBs=7Íl~َΟow`cڊ4O@v :=`#?j/;D`#P3v [j[DrP@dGd;jagr9S@[Iݲv Kف\j -(0OlˆB`E*˼(y;p`0l;vF.`?_ô@MG8h`=!X 8rMBTݵAEgmD/}DʯL ` F@N5"DQ@FC @[#wdFׯ^Xgc)Zn"g h9iTO@ښ,P>c? `5s Rٱa7tAw hz@CAģ(^5[ ~Q@\BPC^P0@AEϲ?jlovX`:r]@U@N]toEA @-Ap 7@6@x5<D%O@]yB0Z@PV<D@5 @f@OV w5к#T (%5h_RA8rtb:z5PtT@ g5жo@OX*P@ЇJߜ_-YV="2Zy-;N3ڟLyT7ppP{ή9q c:ZfcT17 L.r/vj\VB0B NR[IDAT5qpj xS %X^]swJ@ @C "05F@38E?z]{EGI ѭ@; r8!sppX` ^@ؿ8v=k šrق_Y9qJj*0-W h,X{_اЇwh8@#P d38upwL{VqGO~8>o{(l:Z Sk`y{j< ʺYȹ!f Yo j p`$p SA,B;2`1N:"?\qԝpTxE/ `7XT_`1v:y h:i2vkw0^@:t.6`!:R pJ7Pju"2A>9Gc `ϊ`項"o5QN:c`:+P x<0u5xՂ0~=Sa= r~=zzz J9(Ls|/;@[@+#s-: A 8d:z:3A< dE̼twtP^@8pfE h_ݮ Y{8@PKARjJi ":Z~o1/^J758LJǕxW+翟krkߟoZ\~ngb#cP`&<6m]dt x(Pao6P:.8}?_V;}ھ~ktѾ^?M ޑ;i52kOS@HL̝IMrd$&eΤI;)H䤌;)rg$'eIM ĤܝP@WmB@N 8LtK56  8sL)){^)0_7@I`ݨ"jK_pPfs|seef]8([~svn 8e~/U {p`̼tYg^ ]zQ\fO81Phses0Up[h/0x\ؗ.Ypˁ`E8s!85 J@ ˁ`8@ oFYʶg{= pY7@daE{p|7L&qiÑp,sXsF\b8cmcCsc3n/|}?N-KH0;M}6r͙ 7b@,]u9%X=u;5Kd4=`@NvK'@vן{PL%V4M] qK'@>{8@zmK;A6P LR`w'p`$n:l߂8*4R\@`,]u,@ݞ (Xv!?PnJNzC ;U{gPpZ7P@~:tkx@ 8up<`Օj@^V , zUt:ZVv@8 58 (k@D'?~-oNB%t3 7XI$6I[W𭢀ͯE^AzS?$@4("yКg}WRD~J$Bi;mimmc+Ƈzl8cb@G૘ףJ|UQWoi1MS_ߤtJ+C#MD]=H]HU(?{gۨEaW&X2KAQnhHݷ(#2Op  S}`4rRkxi;]BE!{x3s dOqs;9PppH,s-Ei 0@X}778}p] ța`dƗ~ :qп h:`xp:phdpHl 'bC3vf(+8. DPU5AtK"8Ӏ K@3s-]@0Pz25(wV5. d0:߬  8u23pKVA@s K@dg` 1r * (W9뺀O^ :pkta%0Sz:` _ f. `x h@P~s@K zPm]@dpHl{^ Q߿-@q /y3~28?O8f"%uw:5fP 0!fؙ|Y--@CBs%X%y:/q. = zo_ d^`ЬuFtvA ,|=~3Y1[pdp$V22Q*3q% ,|?|?zм'pXUp`C+AwMm8~ocWnߵĿm&]&{ߥMoߘɞ?G#^D9)\~>8ZDt^nߏķ>(Mcw?lq|TϿ}]nS%,ѱXD+y#yf<_"8OCc8XQ 8NI{ % dMǶlm6dLj8}/gmV?*&@S5$O3ulto ;4gSgd``oydr @V9b@4RX :n v\h./9xm8ZDiWڔrETo7y{__ұju|Wrlŭ[/}Tǁt1:?X̾kJ{Oy*O9on%SǦKZ;oDtD6rS㗀wPѻr:ϧX)`@\@੶Io/xF0,w%pvu.$Pv8gGp9J@{. +>? !id0 A`h#`x`pԷu9L#qq0_ؖ čg3P bE8m)02`:@cGC vqt;8>N̏l-*pEPk&]@)5DBp5hOS*2r-itt׿2.qG 8tZX a%0̡tU!pK@,xGT^1]@Ab%2xܵq%XS`cޕq7&qd7?f/6?aӓ,Q]r7 -2cbӖkbga;)W,ZA  'PmehV<.({4vw 3p68='P23s;pG bdfu)pXCU~& B`_s #```+wss?p:ft}63_5@]@_J`, p X {M\ p#tE 3:898`x_IP>j@8k@ V`apX:j]@:. p- 2+P{)mۥoC&_Ӈ?_˟:?XyRoZ/}9ӄXxbZb\߉El2Eݤ%SމE% Xx }>!@pE`x0h~'@@`vg "X( +u: Xp, :2pU@B@q ] @  lP[ e;%vݴ$jԓOExx{G8~ܓv~cOP~O<`hx; OP~m?:/63هO:~BnH8 : J|IENDB`ggsci/man/figures/README-ggsci-lancet-1.png0000644000176200001440000007666114634136357017760 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$ZPLTE`DCG 168NKN͘hhhGı%2uuLGI&f a]E]ax IDATx읋bEc7l߼IՖ%24k BUJ B@! Ba!0BB! !Bh  Rr={OS=?z \sUpW!I OIB߄ߎh o )*+I *lJ||NS-{ #na;LCUOO}a2 p$@k8 W&$s@c2dpށ*(P Ь9C2WkyԺ i@POb*L82aڝ  ] ԓקR+75 0 `-@  `@@`@ @Z  XP   55 @N@MJ X'UAgZ`A @ I_@b5 R1P' f`KYB@4 (@K jLeוSjԻYD @\f?SaB@|L?9 ,0%Q> E0|x{-o +js@  o+%@ s1,j3Dx}}h@WAP js X!8?@  ,0*`> 5 @X<`@X>nD `& w0@0w@ `~DB@?fw Q~b!\oG-UTW0FFL<@ PݎLz L7Ng~Ai)HxDZWBKΫmOJ*ՊdQv\-}2{Ev錠TP,?;:/jgp/ynp_YJTyO}@Օ\>$LHf/:lv۽]`(!POڪxkw>@+͉QZ$f_^ʻla{pHvNNM!^i `J/.)ˠ55oPF~-ѿ(8&=s'x':;luffINMSw@@WQYȾP@V̆3;vc?ڍe pGu-FAw q v[z8< M5A.0keDַ`HkCɦ)ݧп\;n lr hb #jwأ iѯ p!=ɳ *s)3u!R@Ə]U)\) 9ڵnQfS @ /Dmݶi3g&@.M10Ll˙ώ}⺾X Hq:)|lB<栣޻a,zmC00\HmǢ(y9 &zt8i-7 HA󧀄x\o_^^~6.vyyLgSS@_+  `i  Brs37ߛA;9d:]Wc) g"E}W9" xg} @=@9;;y ieŮE(LI~Z6/ wik" > !a؏@s6uDN@})~- gˣ`rWv!fLu  9@:j76wwLrvmo+5ƄA@}?NeAjZ*X(3^f5[ 0Pud"Q3HA2-~p0 jОWġ;{屏ʕ:)lhRzg4Л5 ]>Yܷze3dBy/'PABħ35*.Mlis%T`Єww?!lxcmVcߏ|MnzyaZد_ (4-[g]i;xG0Y%l @َ=yd7!u@G;`]s,S: 4Z@0un%PK8` Gn}(C@@! "r39Z'eZAHLj4B[5xu݅Sf%5l&^b)`JłH{I rnPA ]+O%n <   %!~3$`fd\Xf;:rcHnB熀>k#kW_a\`GLS'Y\87/2LY?(  *ہ> ԙ Ų6_[?q|9 v W,36' `>?:Et,xM~7=(@@! "xs^vkdwfsE$`Ϳ]X'7%z`inY*5WUH?4KEv>%4>oa"fXdQƋ&* H; -+>.iaIPHE* qMZe z5@@ {%h֟ @6m+rB.2@kos?4p5mX,k8Tp^C"8 \H)ѱ흒i'0!=j@3'7x7 "+܈,K-9^|4C3Km1#N}kQ~VnmWE1:P|   X "/HtNbTּ"( @wH}[?v>) #&0o k{6W^m#5yIۋ_~FeBetM\UuP2E@@@`K %ٯ` xΌ\ u}<"!l^[ I"iGN/.D?H֎m^7h D6Zzi):jA+1 ӢIk" `oYz(#. l$sN27͠' JΓq> qPg_:,Ž2&[l    R!= Єi]=jN~K;[ VBR|NF&?qywݠt[֟7or9unqU^& x v!B]~ѣo|[j=ج1NgLDd-D'4j*!ܦ ""?H"X[ %A>S Wj2h|/Z# iޗ"e+t`S֟M §K( L?T`4k `3|\ 6PrE2ߘxWn]+iA@y}OXo޿}h$sO@*  8 !_z{Eem3"&2W^}/t՛n[ [_Ms_B 5 J~4\!&wX"@+ @B@D"uf1`* x|;,ѷ)tQy!20O઻ՓbcƔ< e\ """"/=AL[A`A"^2жDeOX+ &"PMTK+_ @SN0~ d$ߜ:|  X; Vv)%0<UYmo͕1q\ ~X'c_k;@ BM2+O%DT{@byHƅLwqDf {holŖ{S'D`62hJ@gL}?@|ywG-#Ow9r~y<p(oOQB&` 54)} gRthT w ܻRObYXx| L; !<^& vۅՠq~ Z$e$B =…P%aG'?E1N) f!3،'P.X_N*&wBX#D;UVD(p#Xl n:kb`eH2_D'{}X Y A%?tG$N =3axpEyj }\s¯.0 <~~՞釯+"V9*_pf0 g(C\o7Ki9Ȃ?S0 W;UP8:(g(pkatsx7-1 pN`R_<`% _/YU.pn>w;.Y QA/AfS#Fpcb~5npV@T՝o's|?#İRS'0y^<`%m /U{ȁ?`}[0-Nv-NcMw9:y8K2RA(lHFU?XTczz)W< pB@D IDAT#ˣ6 {0{ܵSEl5o<d=_m'9QlS|h#)R{)<ߙM#O~n4 Yإ;y,y oK=I'pe "P݊0@3)[)dF <SX{ :f3,˸:uqUof..Cm.Ϯ'6.H)2;یw!F=@ (J+~r & )f"nk)k,wojrWV/)/CAH$@MuuF$uH ?oV @ Ox_5l) "4E뷺35?rh5m[Iv  ;Y۱9@)HkF*$G 恪Ցw_7"?.s 􇎳.$7%+"yEOpl0`7lc~6)R?(D ^PӪGvFC42r6KXCޅ?}=ƍ-60 BDx'yXgm98A )R{zk) ?_F͹:|28eEL}S:/6sNXOcs&yb308`sĤ l*(pH(`V))HT y'p}%͗!RgD>q쵌'Y_]ɑ@ocrM h0+`A! /H@) R)@ &4L82D uzF |iFo}eYtAM$q?mIvLy! Dߝi2Jg7q >r/s)RHeav5'}:Ud*ta`-+rpȯ Gĥ8)L hK[&),g0hC3RBF"Ƒx(n=H@ `/ukI%C A.c׾ZKWLۗCj_ 9&05UںP9"ȪH@) R, KSX1}qЧzU,_i蟀ڒa |% LpT`Շ)!@ *Ǽw72~N^`c+AYb̔}3͡+ 5/yD\ao"#  0CRMZ5Xf2 cl#RMssE0%|4t%c#\Ul>,N%A E R@ \V ?s3e$2)Log/PCi4|ftE)RH<PM Yf*Pe:T; f`@n6L#>S~/3bS/'@ <Rpi)N0n7k} ߊ?y̤H|RP  =6pB;|f29 1ۥ͟Mp!Sw!@ )/8h`.ti\4d(5RHeq0Z?'sr9yP @)7\ 'r[ ?u~2C4n(>K>Ѷыɻ/#/N|m8+gH/`ԯ\YW\-o#R);=}K[!z<¶(374>2GXH8M5o5Kmi@!kNTDL2Xu1vQgg>F*T*H& s3\?:Ul|Va<<o,4bp}"6VGb9@.h9.2+01L"y=k02:e`Tc *Q ylޭT/ʰa,5e6ؼB2D:7 6/ <;[Qd퉎2T%N0J<Y`U0= <>ph02MS h%c@qsG_Zts==@LwuL h9Qޖxy`F8U$1wK\ ȺJQ#_# 9YN9~"l/ ךp-a(CsrZ@avۃʳ6^5ĬMD6\:-B5Eo"l5;01 M0BR}@B0yQ )hON<D. }<3pS/( p{ ږ+>HәFfPz<Vj&-)"@{D(*Lv!)scLm,C˗Q.F!ɺ1lcӊ_Sl 9 -0Tg@2+v<ѡ[5n,|\-,l]el'%7&FO"}^?!Rl2;vwޛae(=t"]w ~@ZxI\a2f=hm>[Z6H@ID?s:ºn`m[Bge~a*lWN{)u w*h͝Uƞ[@\  M* b`C͊$IQ߾1 ek̔rh8ܴ'Z7U1B*:dًY5]İ Abl,(0t nM1,,[Ti~Q*ha?/6+v1n\}ۤ+38f1;ě%*j{ެL%Y߹Nd S`d\ZO 40**FYߋO\:+ΚG.'׆{tdz_D =(O2;W$ZK*ۈOV!cа"5s=W| _JH0V &64x0X1wV#ܧ>KA E0 i `? @V[ ྎ`^ V@Jӣbϟ}VQDz>"Lg1gtvYpjZዚblWh `(@z;W0uWr^Ӭm=HݡqHsNi%Sջ.cq _?{W5?5tV1UǵUUPHWk*Ru&.>(%. }6%P獌@E 0 Y=Cg## rZ*҅*l%oQIƘ10%Z8}l9 "fyLt,(*~el%x@P ~><@A`֝b`J 9y$Ke8_4[x_. qrWYKк}OPU4Vic,l`CC߶0ru5RmPH0 ~keaB X(|0 "fT >K {K6N a<aebS|)jMb,~D~ p0f}sma  N"_&d@d`-sP`Pg} HsgQ!u=409c & rziEdj0J PZ xfU;o (.D> ^d ?ߪ!P_aA>,wEg* ߰($;%#H/_t1/⼢ET9Ƥn:D$aʼn@a֗)\@ ( `@"1ph GhYPc;$y/҇WkWG!8wLH&Ņ`y+ E3bzPTԞ@ew>a݁ > 1D>l(tY8 8#b~!wHE8O}Wq˶)?AD8bJ*7PٚM`N3t\9/ kg1kpRh+^=)<0<9<\@%S j>o 1tFZ<k:CK/1`QlmRx>^o̬;cwA۟'WRx N:. 3, o X&h3݇T?h#ǐ} pz, ^F@3 MZ`:CFЈϓ3Ń=Mb;w*~x J;p,pMh@(ul9Ejm|t=}fs2.Lr7٠ 2LS.Ha2P5l-8;#SٯyOvMxm]OЃ@J+B;ž3 o^9O>"g7 Hn_?F=q{/L4-j[=&SX0*ǎ4ަ?@'] a *Q@s:j%흱A5w %bu <96oLlsv] bh x +ZDGAeWBOjg)>o'=8[_QTDE3hN/=/38#}{5 @x) 4+wDžTTET߆p 1 O8{;oz4-#B?.;4J\F>;&NI *TV<`,;3W{q J%5 t<,U߃+cTQ)b>~$9[lTw*x|a. 7* J-RyS88xT</0@Hp*޾b@pHK@^_J~-hp&i &|FMT К͡iL!Ƞ 0 dCIؗg=ď2˹6 d=gTnPH ff߫@ ?H;y_! P~* n"zjj F * IR5?L\6dzxݴ+nd^vq6(X(%k F  ߥkd7_A`t]t]#~ :|TSO.xumZx,EQA` ]_xlm0I_*`qϊ<_[RUI}5JlŻKba ~hP `>%+iuqapLhVu!ǁ_䅚lOUAߣ?$lH)mjTP^qKUHȣv7EwGKBԥ;Ɓ ]w+ TE^$2I,Pg g@wsEu۝?9wcVH]r@cZՁhMQKB p՝mJ1ə3\nɈ m:g [S 4 0A6',r"Rrde)̿W-{@oy`Qj9T T10¬sQ/Qw32 5Y @Gy&W.7 v}f%U\W}e \3& Ch *mCb] G`ޛ hXXA$6 $he@#X$ wh`w56I E'큞 DXPݳ땇B#f5Qց.k ׀htK-s"wpf P5*3d <Q,߯jאW!bp !N$qPk:8Fq9+,N@_rja@1t!XY^a@vAˤ,WToE]50;Hd@(EuMU+\@; F@8( @@ `e \aT4<狋 jqHE)+ 0dֳdL{. ߢRAƑ `] 8Q0Oq @4 4hTh ᦿ2id^U8تWļ)1U"cZl69}e`'`}R8 lA~:=֌kwJ/R*d8 JG?iv5tw{&= ^sWcri&c|tQvd@V~VvI2Or<6Da1Ĺq{6yS~Q:Gھ:nc쯂m׾|e4PEj$-6Y"]Sm}'R 2މl6W|2 4s}D6Nw W5Q@s2[e[; D >(C:(0)(' %kHЛ]'Մߠ@1!vmCNRX̯f@d.u5Dx|3.< c&ats0u={L֌Hn_*:G~Hh5љ좶Jj3=j07kyn.=[`hFڣN |YdԵGIa=?KsFf@SFyz滭ۦb}t;j%ۖ!&ZBJ#WM!Zf+K jo6/JA)]{lP 4f`n@~~/%Eo bA}[rs.tm*F)`2I;z_߰L/iT5/4V-zD< hm;&лꀉfKo<%  >i0)G 6/ 4@X+X2qcec3au558٬<-x hp-"%djC@uQ.'snvKA'0cddAW:i1>\ /{P+RW9@7/cLjm6ml?Ysa9;DKϪ{GBovߞL)JN~ 2:NQ@0Mh!3а,5LQы)̣:;Ň~ ш`n* #se);l>P@Vfy `fE8K?0Sz?dEХ]s@mn1 6f+}5`ƣe[qf^go0;T kbrdE 3~e 2: h~,m\b,0b; ) ykSl"Q U uR$QE2@e0T'[P.5`1E2fp; W)$ a';hx_Po^* cU ,B&k&}pJu|tO`|dgCMޅM]o@\E!  l! f@ ƘQ6}{J_} F+QS<2x2: i>^+'꼞H_տj. ̇F@ nQ{9 x hC#L (Î icl~n!`"׻ΕuśQ8 @Nb?Jd7ӧi'0 An-љf˯-C E+T]-]+{f9`Wی> 2dlX} LUvZ zvK8S  ,_n7l~7C?1 >H@\dQd(@0jr|S[7=ʌ,g\G$h !0 i(dl]@j|[ [\1g(4%h_>Bۿ28Z 1(tPj\.пL9\n/er.c=2 r>{syR mP @ h.'v.P.gu%^VC~ʂFjb_ 2\芡P@|煁a9hy^nkܦπ:g ]F[P5<Ñ @ @}2@ƍ@^vhLłZor_ Bm*,3t! w G$ iТŞo@|)]YP4N=nd XOExa]b:3aHR1μ͗ A m果J>E-{6wו*…ىYi(Fh(>XNtaS38 /&!@O_o>qc~x_  w=!o0 @= ,Q !Po Fkm> @1JrJi ,f2oR7 r_CnEs4J{ϠDCcݖ>J"bBQ0EvC i"5w4TKyo_I"HD!oP_cICPhW@m#:55& &XKߗh ! Pt }ma8fN+db< d'2)1& -!0OUՎM  `UoUTznPDr{"~ҿ ЯX)aORoķ`GJkIXhX6؇ |2uS@Zo.G6z%D`+M7$n X06hin30?`U%Pу(8-Ԓj? PSB'@2s@ţWIk-@KSʚ ZxRެVo^2}Ŷ2/D䟅B傣EWTYGe;nO-(>0+y9*8A0+TE^T hKA RjPz9w7kP%@ N^06Ѓ)duE\ ? `y߅`Xcչ;Z\&02?BS0 xܓ)޴^Pki<'@-en|w*.g{Յsa!Id5TH2kb@HM: 9Mq8ddeP$0`X\wg<1=5\֚<-QpDPm ʗ3X' EVi_ }靌W@?}|&6_(EՏ6f]I"`[aR%N(b5Q阖STrW~~B@/d-:2! H j L@+3>o5P~ZmxBE{Th9T)(OЊyJiky _/:Z}+cC Z>`k3>C$̗ȓ] lऒqbk}~pkeKAO>hVỳmBk@(P d!e \gW@1]J,]=&5Z{l@@+=)̖6PoAUb;XwaX hԍ],\’h*!S11t`c_؍U mh<Ma5 mlB00a ; wPf]2dRwIۇ{ޔ@0M@;`R+y Y'E`q.,k8 x( ǽp_|*a 1 Y}.8K%~')Ќ0T+s4^@-M@~ hx|-?WLvƔ&ӼufRq`,$@xBR !U ff{Pvb?CZg![3z,ktG N ZvSL97R)\H_):{j2VR:SӀqTWB -@F@;ܞP^Pj_yst;3Z9PʿV1 *o n=!7^PL+0Ĕ3\*ǥxcDfT奙 p{C7g@I:TFi(3 .7bnnsh l 5PVt}+2~( T`%vl#(&*< ȳb|xYMz-pd#vDo>>WIDAT И qE_k[0^( , 36f6Yi,|Ũ(yFՕycWjV?&jf!'0 dެ_[n< ݵ@r>|Pp!fT5yRչм"pۗ`0D=d@Q@ɿL9BL1@͇b}b( ^1 (lD"/|>c8mGe SNQK[<ת:`s}+ȿL9N@6:@:& tvM%d^{}"S@y= .z"yC,UݶA,'= L8XJ~`E)Y;*~7 (87@41.^BOdA6A h-Y# k1N$`."x_8"nth/?>?sJAdZ(֖oh[OLo1H~Cx 1?O)ߎ=dXІ]@x95S!dX @#d}|%!k o #,-XR0J@x`"THPI)= e/  X( Ҿ 4m臈o~Vڝ,p&` Փi XJ*M)7he;q .x X& w u`rޭ0+DV'pTy @@#x 8dX7P^5LR# HA$8KͰcλFU}W< X'Wr!ܦ@&p:#z지]gC.& @Ԛk5n `[+tL܈\O(`ȓKz(ë0isH@t>g%4@('B/U@ (=:ޔ c+KA ^@ ) 0g* sqzBhgNח ^p@zf{8RNAvjx@* zdÓ0)~:'t&j`~d M8 BE/0 WMHP-C ]84B zƥ, ,C,_kx q`&S(LJ @O*=)yJ;&P+s(3@ @h` (3)Abq>: `O ) @N!S`9~ʚ<ջ@R@ V ӮP7bTMn扇Mlljo`s)  S*bv.5lfiފ3A `sWRn;1WZ6L_l=deO`kl*~]՚^ld8XpDvRzv7!L`^}WN ȕ0}a<+Z5]HnPf&*@/ } 49"5ֵlZuZNF(03|8ea qdBD* .VE@Z@yH3iCR~qОF%8K8qa 'Ku+L`qB'?WA-ܦvLJ:9i4 #b7cq@r,>ﯙDʻ%^@[~uN) h| ~!i]k@@k T FR#zx{ﯥOS@w/@xr?pwNF;:nAlzJ~O$+e pB/e$ 3eh=R,[X$͆h(JͬzF&0=SVN,f S/A @?6p[ ê@'C/) x[7lcf%^ =yoŎ xxx$l4 }gєRGQ ~!g:@" +RVF>t@A g` 0Hf_JM [VLQ-N@A?`C0Xx[^m+og_t@l@75N `H㳅f5-x*lA$0 yR@T[_C\jw|뚶RA(gx$Pg;> cEh(߶B'ު L ;XC\zmÿb߽|d's0K @~S &]W>dbt @[<(w0Tw[K!WEeX%=~x p>NPUj5X~*S~ @o@aLSFڬ%j7Mh%{/LC*{@@F0B"UYΪl tv ) GAk;4.{K߷̻ a鱓k[A@ )L`o #o+y~, FJ^[ TAX@ h`katu%r9yIZi#@"<#1&UP]!Xl/ bS@20R;ھkK$0 Gp)u;a@ `q@ HcE"Rv;/_@"~ ؍K#64QsA# }79 !{w4_ J${2c#Ӄ () 0S@[X?ZCEĴF7P_PvA%N[CU@Ir`F?JU]}_#?k"@SˏS$N 5L=neaܟ~M05Tk΁@ܥ?`60$ !T'05@[GiT}Y~?2ōNzB"&@ >T:{SncrĢ?E8NR~r8>3A>=I)tv:@>_Q(az@ @P<2} <އ(_R a9<8,x3 vlpYVh `;DLă@k"y \ `r_[ MHS)(R@/yI&2ScAᧀy }%ƒoZ{$Dude6)*oEΎkR͓@,EIKtmd%r0oPU~@ݤB:;`Ntd-#&L ! τ. S@[$0iI9M+vdwN!)n( 5@* P9r-ϯ) C@PP*^0"r, [Y|ÉU u.TiѠRО 7.9aZR' ݧf+p-!Y`e-X#^M%Zc3EŹ9[@^iG  YBm TmPrrKyxX W^9~rs Z\^xM$g!/6( O ?;]|.Bod9uX} `SRt |>5`L?%c1P١XA&Nz@\EP$v3r @L6 ] ڬ"7K9S  AXMpj.P_R"ښN?EËBW3Bz^zɻ]^7=Кd.jS0YOoKlT`6eM:-]K?=KiT7lDbɒj5K.4Жj. 0OPP!Mˁ($+2m3 }d<๸6[zOGAB*EQK BZaVu&$w$#MKRM,7A6a-Mno6w![aw! ; 69 @7T/F}}])mh[pl Ւ̟pô I5v2Om*n]K08Y@Pۉ^:AN (qxх,b`]}>ae *S\U0=F /#(z4*=5P3Ǡ@P+AXaa 0 р@ B!BeetU"}X,9((((@*{tY]HKG 1Uqt(((((@=DDtBA2*Kʢ%Q͏$70?'2g(((4d **jrI|5(cx2$*TWSOGqnx^sjT%buIxv9iP?DD<#W#{@ihx&u/+bq: R ( DZW:yvqԉ˸N܂VWw<q*UFW%ҧ`7nDf$+GMƋ`(8p Aݺwf(.y3 TUFW%GPu}. d/}[ >zo!R'B @Ʒ; 'J]PNTRz`t=cP'nA'GčHrR^]0`]r{-=K8%sJxZ9q =\IӎQW8Lrnhᴭi @-(UW֊P^ XBi qScs"1h %(C)_F(4mx1AUNÍ;/-,zOʙ/ |-()f!ۡG#f+4mxE%A0^<v"a:'/ |+%Z.QLiˋ(!I 8LvnݱEY' |+%BKCҋ/m}!5[^ԃr `cUv$݈E9V(/Rv2ʶ]().!-\0T7ILIaŲyvg[_IӒ"W0 i?SÞpd"_~Wb.IJ"Mcbi{b%(eXHk 7ÞNh/N-(I WG+iZ"0 ^TU}iኳJ幷%9dl2jZ &tJ6S/\Rq 8K vǗ[P{_ڊ^4/kJE([WҼ Q0Չ;/-\v~)eoZ=WU<@D ?^wm?7<7o&^wp8Pll݆̮t͟M( 6^}/&^@8@9H0Ʀgg/@Vx?ٝ{78ӳ]0?`۝4}~'xӳo~bߺp"ܿ|_V9tNh/f׺5h B z\j|SzkIۋB98:B <Ҷl/e{j8(4`sޛ|y6> 5({ԛ B??B|J@J`Zq8@nE?xms9(?^"e5g% 8WHi@ `궭iPs(ehH݆sv=pwᣨI>ٻy2[8юI3# p bUw1Md=]k6ӹn{1ކLkf pϾ9k̺69li2%~wffz 嗺Ogvu9V]ѭYNm `7?ASCƬ5=ΧďS;;|mBڛ5~Jw 1b2 m8_5E`j&l&'[ W aPs@?JE`s700X@Yܚ3QA{8QP-4&=HIcR&4^V3?[U45”"L*lkmU}$udnP)3jZ7nb) {iŘ)&p PͦYRWUO#8 J|2~s0g2uUS@ULׇwPELBC/ W̞_ I|t]ׅ_6Cj$^2/Q*vOF6):Fir/><] +}+[@.Fc UzD{UI;U</P:&QиzY>=& 6v&Y I p,,@3@XAc&b,~,#?怶5y7\dDpM}3E~ۅfIZ\) pgLle/@ozl>ɿvS !tD4ixUoqpM!0( bhiY64S9 @qpsBlub5Mf>A5!U=];U]>VUq8аV76Z; S_kK`k@.8f_8Pfs>26 Pc hq2W?2,c) VǖX7 p[|qc?O&"2UU|DnjR@ϙ^MW5g^'m`l` rL\_X;B#t h| 0XkbH"U=CT.?b9Pb41`x]T]yŻ8 ?-󽝃/I7Sg#e[V1t8LKMI9X5jt7 7@JU}UOthylg}7jfRxlVg5j5^ }fp]0$ ^Φ_4q6BܢҎY%-cۜe_[ܑfc޹h'a;`jd=yg](. 4LNvcGb8n; ,4Ix k<V6 ıfě&]bȟO"|>ܺ?1 8`ݯ{ _4Hߒe-ȡ#QbȊKa (FxV*ǛV2ͶURTH9```<#nբRzPd(@m}rdz>~pO@2j2i%{ 1^8 Z }ЗB%'Xob.@] _Hbג]s$nrmvDmE9$e? <Q8{Ԑd3= Wy%E1&7U'D"?{UxsUHzrH08xNl{H}煶RU@ra`en|$KDHʕEVzbW|\r0` $R/ 徿\(0@VBR^siP =|OzSQP}?~xIp0u4B__'{0}* n  ~}f|C@9w"D1E``0D\dBh3Q={3e+[B <󼘾XZb(lE5 H.^mGJ; 䏩C=Tl*'7v;yLc穔cK*7@C`z?> 1%f~;/C@o ,zȎ.IƇl@͕_~5ѽ}$ G:_MDO_/< OHf~yz5W^Or fjP2P*Ѥ & wuPoU,ye`f2x@L`M<:@bqX.5WZzLP"=E$S\wG&H a7o؍OBfFhd/A,$JAN6J=p:f?1Z;xyr?Hm`56$DeEci)Tnt8c2+hU~cZ/!rl#<=s8#ᠪ$[`!ZdTf+ ʿTe.#05Mחlt }O\#݌{u/C@o}] RR?l3pA/3m6^bhp=Bэ^џ(,U~@qu##=gd֫ 7Nc0qt$iZP|1 3v poY(=թPN<>gs;ZzJ D!Zw@W'^pMyN\t=g8s#LFXwH}O@`] L7`T(9,<?2yTٶ器k8c?3Ie<X`n܁za<+?B8d;"%#wB :9#[yVgJpm`ޡS+UQgXO'TiT!"U@N`Ma&,\)b;%9yGDu&0bA3s p@ܟP Ʋ{ZdKu:189!C@Q+bÜZ5 _G۟L ߯ygAӿx#_hq .č`zs? m8^ H,YPǰHI~cSX8 ?Rw"Z@M?'t"!>3W#'_]+IF~)Lm1:=Aw@uWz~z1O]`m!$ZN&m*̶rV$ÿصeT,ޗp&EQs.5<szPB ]*\ _7?O :b qh}zWP[N4V 02k@;`O0}-.5@_ _E)~/ЕYg(j9ky_DqӁ.z#k-&^O>wO 6d.j_ɹgzpiǍ1M:˹6JЂ~'gt ' " l kќ["MXAPlCdA{Ę ߢX{ط5" )C)23G L9' @ 3ZpN4,5⃮`|ܞ[W?kh7K3=>*#&G)pI۟1MХ` 9p:,v8mI!C &Ed{ojȇLUP$a-n.(M7Y)CأX[LO"f;N ‡Mfy tb4B~ӓ4c~hy` -&?M>=?1b G4s˩?{u~rN85OPj!8 IDATm ` cLLePçZ 7uL[ ySx]q.(XUR+['hؘJt s.0oHb[Ty[؏U毧./չUp+[g (eJhԌ?b0 @ok:CNY1 0[L`ېa*cZ4P0ց n OM^ `^;@@q݆C'BLGut{(JVQ«=kPkn6iȦpHLU,#R;[`k oJ*ΫxAKr]lzF;”V*w ` 6ޓCwo%*H*LKtQiK!CfW00 oJG lE¯*J#!xvBn\0 Ax<5WY sE?Yb`` -W Bޥ1FRj%eH u:>TT cLL"ZڈuzޣI{ pfQmīڞYK2O3 za'ro*;q]#@4"ܞ C0. RK6y k1PcϺO:y/{B p^6%`i +_xm^tv1T[W MI. XVzAjbŢ a,X!bwEm!EWHk} eܦx_ אg{K:n];-Tw-x@)U L }yˆHi@Yװ/:&{>{(`/|`}\3O] ,Ο 0F7cLύ<rGs}MHPܭx@UހZgLq0SyOy(ł Su!g(v(!7[@zOPY8 i^b ]@ύ<xQ'u'qi^ŎQʘ~l+wy"(׎nrXOaWM*@uue6`W 6p!7 T\ |LQ_ݢ,C @fp _3 <wm1 hh +gc+C`۲ҝ?qϩ8|.h2M:w"~_,Ƈ/č+}W o6!@¥J$$r1`P Fc@B.~X@{K\$I:* lmI?b!m}A`)yIMX|V ڀ$w g򯐘HifXݾgHk+st^H N1lG XfY8U_tX> -: ~I^.FC6nȲ[i>lp ]v[-x1v=fvom|OZ}mܘR!(\@:~@KԲBn߶ެNtqMyd{&~]!gt@-x[wL_(nh[uLM]v8 4(!Cxm[7~ıp)(w7X#i2S %Ϧ G2< R@Ng7m0(Ǻ2jWK08\F2p92)ԛeG@j;W3QN+19( F0c4 k,4>V**J„ʙM*9 f$ E*"b& mv[诈B\C*`+,;Jaf3ڝɌ@ iD@&D1WYY';sǤpF>1C@K@!Fovs *!@b]cT$z}"t(*a$i4!jfpp*T3'9~ .S0@Nf6 &-@F, |c#pGL (@џmS%GN P2Ykja/_&)_?gOkY%* pJSwP"'= k `$g<8}ۛ6-?ddr"a6sW\9waT5+jJ@\ ` Ai<@~H|j\&* INV?! -' $pW5o$¨z.;$;HC])_O#؁J&]`tmHal%EcXQM `Xbp;l !JI`*Y&EC%6s!S&I"  1 H ePɠ@ b `?HS zXrCڶ/ov<|?g֫QT ]v"~/k7 ]oSΰ2ֻb46H mZɴe9 #'c* ,֤#bo!piD ( 9૱Hp 0P5HZ„rȄ0}xXcH iN`} Lpf&#B$G4&B^vus;MNY'dq?Dy\ee5khe}M@ & \bdx1<&o>?|A'{7-9K@ 8'%j(h +$DDn9kHIgI`^*xad'9 #~/x= ܘC k S%G;>9ҏ_?1L2 LS2]EVsy`` @&;-?+o"(|,h11$ݢG'DINn 턈`f! [ n@阃 @>N"I֝XQ?8` # U[rH5j"@:t']pГw'Xޘbbf+ndBF_ HHXj|d zq],> ֲ8`|5CKl$9,w`BW%8HxI`e =+50 |h?4ÿ>otḬ )2@8rzZ: P%_ w۪U@!5cGSO]3 U[T D e`FN4ng(MYpLO+eM0O I.k;NQ﵇NN9* `8PfxL $(z)4N#ݱ8iJ~ӣJ "D^E@n {:۶/z[OpgO?3{Y}1>v[D"`cM&F)/P 2Or2Pof'8Hx'(K^K`:E7;Fߺ4B Bt6(POL!T]׃V`6m"tɼw ʥxuޡ\3F** "O7@> 8EqEZ]Cz]x鶗̨)2YBm0<ŠB4u" ##8T.*ucR N j˸*. dJ*ԝUKpmQӑc&&#CrQ 6\ ^eZŠ\>n_{P` I1hmY3!e&&{#qhtLL$V`1nn.HhĂSVg3O7])!1Ȼόo=H@!b`pz P9nf~D pxT0>ذ uu `^4 %H D"<b}9ꯃ0i& 3  ǀc,5φr  oP!L, qߨ# N8cD8\6t!d]/ UL|nv=gk |&)("T-v8H  0?ae |Cm  өc ASa%# @86P 7K!U-BP I\@ =8wK"X )[^l@3_4ߠt* J=2 UI7t7z >sgga. R@@YR+R]x 4 Md(r`+;`VQؤhoKxVS Yf9(u<^il(X2>\!y{xiX4M/,7:})(i(xz7S.w'P p? h cz,%#VA,cr=EltXR&*ra֤[m`W̭w.eI"w&[w4}^AS ^nSgBƞDW)|39xθjq.?ʟz YP u~ZWnJW۵|}8>H ֹg R> g}м֐ IDATمS'FO 绀MJ$ /V׮Ly s:T41'5մuoJs)Y쒗>FV`Me{=RH|NZ׌ͯi$<;*]#qP>^ hЃ:n_dI1E @ ]-Pܼ-3]׺׾V+K);%5H^k 6 tV`ƪC~fe5S9`C.]neO.[C}罽/RG/eV b*J`?^qeCC6S%J ̔ol#C6^Q:G^1AojÎx^/!4V?W8D /X 7; CLl:Hvs/;`9*L)3oLu]ͼܼ?D%0 dޝ,t:IacsOQ G9>m2=aN ?@npb! 92}BCY>՟=sg,\}c&=(ԏG8e_ #%' }Vk`. .2ƕvӢOKJ]k.ߨ{V_\"A7"{r]GD3ru*^+絿#p@ 1ƽא^Cc'[PYo|BR^`m3g? .l,3]@k@gXНh 􃲀*s e9<dH; 59 :ި .5J:p\MXq @"^呚})9>~^)TK/U5AQ  B `[UlP"`ЙX}1fuN7Ю`)s ,SkﺂU"Ε _̐Yu] Q gbRt)% ]HF6-jvֶw=v xP @ 4@h L H?besd`;jqnХlmv2[@ `IIk : A7I,C)=D 0}ϋWc*>|t_jg^o^aw 'Ƽ^@ @8/Heݼz~JCe)]'@`/#^%@@1RCD 'X X g5v  W2zE:()R0A`XHNfj<4ӆn7Z@DbL(LXRHlWZ G% I }M?_ZNr@6@Y@. R{& u_WpTß3E> |*>b3:Gy@~ Vm:/@;Op7YhgurLHR ldRPǖ7J`ٸ%C LtXķC@\&ۙ :x I 4= QOWڼs̽TaKx~9(U @rHu/S ^ bXC|g b 斐\a7d6j9=X;#ax-l rb})w/YY*HB_QL"`0*Ӊl@DŽ [> &<ɷxت@ї -4BX}ۈ=X^[9_\(sL"ߦ4r!~橪EzijpÂ8o9X`j}5n+'9B4l<5(UN;;>NJA:++&;kA 'vI3G#^`wǜRkf sH/OV[(_.`+LXpq>`>ϡv &A]+Tq_k@ 0>]RqZ\:H#@ `Y3P@! SYB_b "¡[Poo/Dpxa *7 ,݈Qp]Ma7\ӛ@rgo:i+mf4T7u\Ň;B#o^@X;(T4oYm~)[qv2;x4qEç~kxO֓eFƛ%9p=_=@`Y5Bu#g}/ `V|h7^ FbX?gP_/NHo/q of](^^͏<ۺbO uVUkZ{ӜzێwU=dÃ#ʶkeӘא梡0f*3yi=͎Y`)bdε5hپ \*W[-u}_L dKȥ 2>CwBM9k : @WZءÌpϕV( 1{H/~U# 5%B%jJ7Q*= @瀃%Nsg-(d\Iկ# 1@Y+Aa'WlhlW}\P=>W\HRzJfAMPk84 h?(f(g2I`BcޕO͑,\̓Ey @u @h߉cg:@tC=KJrXO w1" ~RE=O)*~&=(]6(I}~6 @+M<X*ZҚ_J|}6S|x@R 7T-d6RDdPz W~@U(Dr76Z=Z_& ` d FzܟIIAIqA>"Kx6TɰLIvZ `u8?#:idf,{Mn1(Y<w+NQC@N3uۤn;* 9H #I%\&@! MJ܆@ ))/`|aY@b039C@ ^`_$0??<M u0 X A3}&ui`e|6fgz0  ޅ`gRnt0B:`.ڣ2bq!IRPY@^p{]PKr_! `Y5W{"}@@+WܸggQ>|,Pp{5 џW(;xB@| wR4g83Pתa1 `P ]2X [OQ0:}*<˪"dTP 8B &M@P9+<~Olh@*u˱pXw  UMy$b㞵V^WW?9VkrUkkPUꆠmШɱpX&E2b?{$Ő`N &D- `Op&ET_$zPD PP1UAWhR" I/P'NEB®0Ф:y_K޹(8Q\euE(5t(*RPpm݁}.1D,*3UT׭w#z= )^Za&]z' F UxQOb@ LYNq-.v"@@poԒh_g4H5B N\}̮zߴw'@+.f蛟" FU}+jtQOb@. }#պ`x(e+9޷u{癏zr8W. `v. L 01u@im qE?x;{EZhP_`b, laM)#m{n pPTٺj '>61j h$ ` e3uC\`fY,3]zhbqva_hT%H _1< <߷b@fQҏq1 xhvR qˏG~HR-{b5]KPx }ɖ[uR_a 3tO$˘>)~ s2fv. 1Pʼ5 0xfp e] 5I7R@f[I愡@QY}<@uߘmE0^1yq +@}7*ݷ}gv`aPp4@xo̺kd#npyPi`Y8Z^;(J Y ]l7eijgN;K ("\@P)`Y, ٦H\ALTYEKJzBPl7uߘ7oP+CJ8P G!߬>eG%,Kd0QS50 o⫾SۛYf3Vᣞ@\Gߺ3A78$HC MW9D_fn". S @^@ y\@K#N3iC: hrvP~ģH.o3 Sqc-,@Mo&0M|cNF͗ǒP~Hn;ԠsyYR1h9@p*8 `%2O_!/K @P  =iܸ 'IRbqoE0O8!:m |ev @@[ݘ{&sQ_92\1} zC9 ;IDATB0 F?W/}. l@RoFx(G WT: B1O@lݖDW]<(%9?Ab)=&J< Q@MwܖAP@ˢл |R9yk9A#'<[@tXn1Vܸ%<(`o bXl& f3Yf#p37+9pzx7D EE냱E-U/ x {B `^]L;˵تzLOt 8mVVe#g)?cW!`gx7;r: p? (לc`_7{z@<5ͮ@h%/ 4XVF˼@7*=|+p |N(ti 3 `61w9i Q :(Q@r'_`s ` HL@o[f49 @S> Y :@$ `#4\c&FtY /+@g @.(. o!A x[! GXZ6Wl 1C @_?!zVtP2 {w9kЭ]0F[/J Έ$_*Ν+ > HIZs @tM iΉ<V'*ܧ.,._Ԟӡ `sot`LGt! G 1q @W @+UC\(h+ 1kT͵oimS{<*Q[`rxjnj+ڥ'[v&㷺A]j=ڮM8z;hѦG*ԑtgF/8o</Q|Sw#UUY#j7S9ivw58$l|G4'Ś٬}R̽-0O9l+v3I1_ X.#fZB *\RhjܛпU3LRT-bD8[V~$g1{fSsWvnL(F?Pߛo@ldޢY3pCUy0E jt\k;b@&O$ pжI4T)"x<HHgbD0_~ 6`m*(Rb H @ gb_2   }f!Ewt Cd@@ V kч3( 8 TkQfXC~iɖ.}N"مBQ B'"r'rI.Җl>tq(۵r!xQޙzq> .<r. я@lP>b+bP}H>,vzNX6}f!EwtJfMTn䕌*C횝L_$eQkLIppMdP@B#Dzz`V*eZ 2G8 `0 `0 `0`s`!6*E vDR7 UE|UcYԑs'UA6KUXl%HޏO P2/-Rbձ%_o+@ qjtخG oOA@@@75A*UCHIENDB`ggsci/man/figures/README-ggsci-rickandmorty-1.png0000644000176200001440000010531114634136357021201 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$ZPLTE*3RehI$HHLX\ilq|򀁓mKrY]d*'mgSQ IDATxݍb:̅Oabo$**vZ}c<bKAdNAA@AAAA@AAA+ - 8:/POX@!ȗ/|x)X|K7o!]@nBa|-FWJo間dJ!8Z 5~gy$qFBve҆n':'XI% <5ˏC-` u6+\kծ֯a%n# 0<'s楏\KP"x1b O; x1#p"u1 HˢK;=YY@uYUyaLo+K#I(\!zYC^lB(5}t&1 u*yQks]J_\وeV8YgR^kKvƵ%"/AMSp8NF3{ԆL_n( 3y:wmE._;.1APMUUf>ҩoOG$su`Hw :\:v }osemfJ֍k1Ӿq MKi<-L` ,{}~]vvh*ޓ9!`?lL")`0YA_="d}ͦlpW \ߧix {utyj&ص]@6P3`&[[6MrV `x|ԭ3%X{(Zr!=uAqD00 4D}ot}Tt@  | 9f2+/o.Qme o^o|O&2x+*t<PsD6ZG NhnsLƅ૥oqտN;Vۗu,VVS#&Ҷ4 ]c,b ե0SŴWm@p=@i4@z#ct߄)QVjts%O0[j%i:"8}^MuUS]@J m<;7J;^֢MG*+ dݧЫ p;P탏ӎߦAO*FUYV첬fzs(zS*HӽZ04j9@q/5=I'8wPSj@M&O8T/ R$m)|1WU?տ!tF߽ !MEL"d(aSÛ%~{;m?zW;=-u~e.JlD'P+@0HOim_BӟZiC"\q:ӛHS Mh[[أ@oi U7D0qynaPpmw~ &"aq|/8/L~.`blv0&+}8=} -{8glH  4w2:ն]6gȦB9BO Eh;Y%ǔ% AI~y>3˶fZsTy`a3k/oYU6v*-bT?T@ @ /”*eu9h5 Ae6@+݆` ]@<UQ2ڨ:rOJþߘ@^&ϝ\bͻbpk.KcҠZm)[]Т9QPC?5 N90<@|h=>+lz`}'<60m3[!%MEka:jZЩ PdcO @xX۠vI"*Vtw> @_wn[@;?Su ߦPʀSkh{7| "QM@#8^M|ox5Ck2EnRI~EH{&Jד|Wn.15v׭@vOƀx B5h& p Le ]>'iJM ereϏl^`ޗ\$KVg2Wϼ 61Iɸ!  0#Zӷ(Q1d6{۽uMV_2:tӺn 'x4ofDUI?aI#@G}h,];o ɴͥi:<$Ռڌ%P5tM@i=U濜dUw]E:LKS? -<ǁir ]+2W0KP02Lި,2PU,][6%Ms O:I1 y7I`Z0>833N#ʔsgWaq~\7dcd]g3 rZs) @ YXkl89`&p 7/:\tԲo.y %BQ)Rck%zfXkhսn#T)_ u #lB?UHZGaQK!'NIs"@xڠߥ J/d׿qE%J<݇e ~5W%#]lXN4'CB$@"Ry`9,Xe&&)U\ `2'}  ZP: e{Pg7&cE<54<{0: Bʬ\cQ`ޱ|~@|@4^F7"SSs~6"@x /{Z-Z,yo)OaN+jĴKZ9ӻn`|=MC{Qms*UǷ<(N\y<ԩC$&؞O<fwE#}?$Bu"@VuR̿X<( vvi;Cj9tC'1`+qdn >%3(џ՟2uDz`bY3']xJ/Q#ZT|oT_b@rvLNh-K,r5p3 @t< qx7 x3koPh(@MGgSaɟK%P'*[κ.[2u!frsN<ƀPOiK\Vy~2ЩLCdAhj+0zϲ— )"4 lBDwy&)C`9{K@Ҩ ~F09pUm|#Xpd ^+3O22a3LzBK1UGLGM=O)r\0@ 1ϴ_$&_D0L"fa L7P7ITyZ! `r'#-68+%<;nr?yw0H Q0M<nWJ P]ЙZ#?;A},$q*=x9#D]3usҊ [,5`2y6E0oǦh6ILr̜ne6 f+m潪tO {?>:wE>nnUJ_z9{Ͳ{wby fbF @x|F<0Qri AYmk107Qo/֛짉D4kܘ/f jc嘜}&aunB@g ]1A :w_$Ѝ4?;-AC׀lP0KNk( J8MBP+=}lKͿ})C2*!*bE (Sy{"QoT&).DlHo5/3167v]k9sLQ GAM1j)qM m8a)0:[}`z7ʹ^ X5.Pg `z4i`If=VЬ+qn>aBE-2m:YL DhpF۩۝rdZTD RGp"8C/ p3,?äϼr}M[. 7 ŐjEkgYNdωG^/%gꁝ{XKUaETs@/54S  Jѥ `( <WP6s0Gaˏ=Cg}A*'Q6miR ޗ4?n9 @dωo: @b$;~oE& Wl;N1yW'$W LLC.C CJvFtHnr]@ʷ @H2?_Ϡ@I=z]@4/‘*h:[ B]0u8wWÿnj^%lIYazd>k|'\3=/ Zm.D|*qx/@)3aBiS@$VTv 7K0:G Bzy ,ި/(88`%_Tބb)XMli 4 tx@|jti_(Sy?M Z +`;XueJ A¡ݠWk!d迀*|>Iw)N%@a@馔OJ|çCBEIqRPR+zG瀖j =r¸V.aԓ^Bw K5辬?bB%+3CyE rp5M}}^(w#hds#4LPP_MK?t (+W$VNP ކ=1l.*5c %y|!&c F!\<0ܽqƧ- ~+G@E .sS@Q8<0Mbǒ^xI|ĵK;#^^$ 6C HS/~-N\Z~O &r<++h ӈRP/,P(Ay`~;%`ӧH`H86hވ IDATxk0(h$sl^_DZ` ' (dM?ቁQ*hV`~C4 lH @ƔBE /,T4f`I@(#5x2`/n!ڹ~?th?^su:BWد:7*euY P/aB3J&(7-'#<*}?;BBE_ 5'ZA@ILy;v0 03k…-N2@u™/H3vuZlh 6]XK-ڧJϺVG=o*`EPlWT%a?-;٩iꜺN`26_/cwr 4Ʊ>PrD0b` A+N & @ Pm;f,AlK$\b `1^%3wJf|"|u( `UrOLR]@@MY\+Yn=(  8,#~ Y-`9sX'ў ie.i݆52C=D8s]m:ZrХ D9wލN^a7BExW4 `dV,i ybCac?FgMG7|*'Icw:]K3Yn<ËT:a}ӟnn m@.6PJ"PT"`9 kKXuP4/r|9 Gsi*eQ__aȔzhа:`+Z6 ,@^ȥ|߀E%!J:A:6ET@s56z"[$ 2`5@D{NCw{zXtdgI>ɗ^ޮ\GLŦd,jAVh}f?.v_k 15@Z8|ײ0rt< j(9~HK[N&aOȼ2@ rT/0,Csn@cO 0O* T7hDst%bE_+frNʹOsu )؉}LZ8 SPm)sۃz h 4=J BYقweacbDÅ3PPB0@܂X}@s5]@YB((9(WT^h7tA6AAoς J&C (sp  ( @`'w`_@c<TT6JXacϱ@@Ttv G_C/{h6ӘA-% ~_0ٙs-d,e[)0 HS$ǴJ`c4x p{R9rk@3cpQ"O}=41Bm WCԋ OVMuTS1aCjۙ$(%t-2pPG[zR`Gji4 M)o!LU.uSyf) -i*͸\vT٩BU@懫>Yl0(M!`F>a%؊ȥ½) $ x x^xokTC=2OF`3;8M!m%cO8ɺ(3W,'&1ۤ U6FS<]R,mꊚ-@@,),m"&e`֢,@s97h 5\@ˣLv'F&g16]aL 0jua,̲;+/ksp2Uʵ99ZaYD y!(J8@0a*$X@{.{FLJ4Pcuw߬a #OOL~~/bD'BĦ: %̀uNzM.(._#Dಀ@X J1p"_Yj&pPIM H\wPU2:F:Dk_>NXS;1{^5phnnR5SjtƠ MQll֗WT_2r[f%*iPF&J"q96(rrANԃ^Y }'㧦;otshHУ 4N.2q7]Tfy69^ᢹ±Xh!yD ADk6 c%>^[9Щg3(\Zy!AA|R i_W8 xp/;'B4x,x_inOGAn'*3 ;VAھeKmیp{`*lKF5Q-<Mz>8ԓ&Կ]%'X=nbKܣe>>\'ˍҬH_k(n~{y>j~I~h b+/ k-@0ei6מWC]u4˳ǑՔj1V6ƳD&81yWIWF8{SX H;Ai6%_3kҿKv#"Z 8dOm@8/1w=_DlW FX.,#"KqImi:?Vߧ}9+bbWsZ*L&2@=vea {`\:;CraF7Ҳ6Mt -_BǙf6 X`'n 0G] *?tex4i!`{xI1<p(:$M때8=K8SP{Vx(w1ea1ڦ N:V?-Y@>@C] ίJ@c/_ƫ| zn`܇h #]@Q-6e NQ&yYu!$Cj2=i8`IO?'wLKڑZcE:A{`"Som 5 ;\BWpcҊW@O\x6Ⱦ0ثz P9G/?`AF1 GFh-S` 4d1cfl|[X03@q%d-_R-] 0U.mc u X1xhXYw5ꉫ@4% Fs}׼gPzYMjp̜Y|6j8we  ;K97],le^_l"{g6WV9w{ ͑ Da"5Пlg 7 @OcpIiȕ_tq`-TpKQnI7i&SJ {:"ȎVUP t1{:BnC wH@5r*TU )^BiqHp؁al$ Hku%yN1.IŇ>C"`>LX7ӦDRG8hoa"@޽<(<h0bx[@ _h*=-g&F?}x&p_}-"DwuSX4moU[yJ>0_V&>8{Z(Է)Rpݙ:v_ S70V @v48F9uv5 |W%@*7No2dV9"L w}uGNsA kٶP4H`4yp8rڧ_g[Ŝ9܇P@@  Os`r: 9~W4 ư:RYbB/R˲\ᇝ8lv[SYb䋊8z2x_~:о (w$ or=$}ޚVsUz(>o/`i'(-r (bΈ . $,o_]tiR:Nf8VCQ8_./ogw-p|@)$ Ö2;)¨5bۀ* V76\|ZA _g PϺ_~JPObk}!*F)zQe ?㜌3 `uȈH@8ذ Fc:/>l8fTxM hxM4BA0@Roca /gVH>KoN@DH@qy#fSxy糊Gy$툀;Y_݁6( .AyD7;'_ ? ~nx[@@l6W_H}!X' d^yQ3 @,iScU?M>I@PS00N~W/v?FuߓNl-F0pAr__oNRtefx[@G/Yr{ItO1#?u^tz "kt</k _6bŮ?Կ(Q-a8I@`d$}d?FJ1`H۷fGfpf|}/ %F* D $#)Orpٸ3)KHD|GCZP2 PbExk!BU5+%D`*wRvV 2ה@⫀zx Yb?Pue܍ua @Qj Lr`(S.GdZ0nd"0& MYBqbz*5k=pg@Z+  #t' o `nRgtb̂L'0R9.v"T [4Qydۮ _Z/Qȱ:/#80]z1 㗄Z:iSl P@e/.HZ; EQn1$ᱯ|:h8,ekۊ~e VyfSXC9,yC d@\F3F\0 9* 82 1. a?z8[rYBA >ص2VUP@CG;ˀ< aײ+>{=w IDAT<ֆi/ HE.0`rs}W38a;pl>~17@e/s? o :tME_2B_>ES h-{ڨ[DgJ"z3xu6YXK?=Or ,QK@!RGYz $ovrW 2']ϲ(ݚPhYb3fcJGb3h ^mҝ/fqs"&G3#c(&5$0(A (VZ{:?9 d"F\ z(ylG6` 7@e<џHܰdJ@n7[wtS% 6)T42,_C'm Ñ,Gs~ \^A9PA2%д =`/2/[*J@çu|MPK2g]cO mt-` }P-ldv_g;.f *xAi^@:MN2w8jsכ^( D?tD5LvdO$H1Qh9p-|{W/c&Y7p0BM7 +4gsx2&Vԑw3a~GePKu?пbuhX^qgh2^@oG $L$l?N`$mSm,u'`GΣrEt0{_D;u\ Hb o>[R !# =KK5n;T% |¦3&[B c?qߏ/ZU `5W}_9рʗ֑mXVp梙 @c7'm0LRWA2L5y d b?vӣF{d|F?X@J}@F0X5'k6^ao@CvSn6xه?Uk,"5P` |XZ) :ku)k O00t #}:]բh{&HdBߕrv) T 2@<W qx`!pig2x, 3Ny#6,Q1KjdfġX/ԔDn,)bm~0P]~3fuPM @ZB6,L@- yPE.=#M!)J@腘H@*ɚGyT4h!@z3~度2?S~)h7~P?[erˌZZCuC䓽 ?MhPGy (s/ q>QR^޲G_EL >F2^7&M$b_`L']@"@eL, $s/HpFD/OBp }ܲ[$fPHmG߉JH~Vq*X2`|Y,SOUW~W0Ⱦ2c&y3$#C_΁R?![71͌&b|]3k** #_QPMQGO*T\Л{[HKYAp+ٗ9\7(>,U :PӘkttJ6b"Bw6Lp4tqO8y|4S< | "p~R6y=1289h?ӓD`ֆ[g{1y#( D@QKjao0*T6P.e{Amtnզ1uQaW>('n1ȁ~ M^@[b@J gh<( @3:,ҡᇪ*QkX gx/wlG;E2B#HPY!4O a 4D h;0͚F^F#TT:f.eJ)i`u~OP@%2*t'(_!U急Qڹ9ǘ0 P` c X~/)6ػX$ eŀ"@>&-Wm)w|X2nCPSˋȄ(S@7+apOXn,o Ή^H4S  ~7H)@8~L'.j ? Ƀstm"{Zb7*]`fk@nTb\'e[I`V"V(nZbd\6IΖ~̶ jTP@Eڞ<4@?AECܔڎ>g {z(O-$08H^2PPdSiKpCw*# (n &P1 k)i]si>)QБwz?S#HT>l El u`;\@MWwaz*TejYhN'YHs/p9L(_M)d-ώO43>.({"0P5 v1zqcH8҅flc Pf@QĿWX7֡6fV@R-E g{>݊JBg'E[c«. vYM|TAB޷#SR=z;6sߩC]32șZ︌߷YC\17aw>P"wO;tm%lfIb:Ic\wwS03HavƢkT ;[v7'co_[Q{{;J6 Zfm ;+9+ G9aw1걄wǞ%/ AInGP{Z L|ܯ S%))O9G<#˽D6?7 }k+1{0] 51iA-vi,u ]kw_}ut= M(P[1 PXjg@ D f='0SQRy j6.54Q%'_=َrqAݻ7'_O@ՙ]P;Y.z-!0ynG}0 F#Cb 귞dn`IXƵȫ; itDQ TWjA w FRCekETF>PEG0!ǣU:өq? sĉy[LO0H&^`^]=^-%`ǝNp2ю_s51kxTPjXhoe IxS/䣿>1ٷ<_d#D 5KAhXD= ֈEh`+" eF~-iUMG{[=vg?PwW˿u~]@!]p?do m(P ̴J @57j'h'Z܀O~'7R@B$0`/qC݅/@nTSG>hwy%0DNU9o511 ~uzÉ>8"do6y{b,Δބn$uJxp¨hRR4l3AS390!(&' l2˶ M#Z]@9 PtX@}HA' 7B3@.96 ^oLpJ@mIATx.ϪN HDh1R0l-D[qw@:aH#Q8OF~Ph֡(ȍ9{Ͳ;mSS$0` 3,0D?naoJ 3G2Yׯ/vRt{3]3 {!Lׯ!u Azk6! *=]T @ HA>+5>nO\՘:ear{oLb15F2lšly>~4@NBbpx@a g\ cIj~;s縐h>c$yb) rb'}t 9:&@ u<7%}I(paoJ\zr8P}1XwOVg3*$]Bh?ƄSKIRx}ޛ]O5$T=<x52@~kHmc(OX* "[Yv1`Q_ ރX ]1K 0; nIp@n@_FeC$pЛoU.\_H{AiO3y1Ͻ(5voj11hux T~_kDp3?PO  @7]@^}?G E@s@a>0){oNL `aAԞdgzJY )"ͮ5.Itž3^yL^` (58pMZ۔xphj8sUmp,['ϡЗgGB5_0 |4RbA)! |~/\Ns Ч S0J.pѳ IDAT גv@25KL1=Q@4[ rЌZA"PΡI{6NP^O`j0PFw  $0azS0k" *K.<5Q$wf~\>z"0,1N@{3R(1 k4RA!u>  5|TsB[À43/p6TO@EZl5ّLd P#S@tcMAfAlⓡ/"x؍VfE^<׻?vkPb,b&}]bdk@YwI$6cZB_= 93KFdY~ *$nEu|la9x:kJwgk2FƱ?*0DM(j=n=9~Wzb{FW?{˜(D5°Av7/ d&jEJ!əǙ.l_2uK2 >Ta-ʤU4\carF$'E l.Z>@>ߙl7a*k% O/@>0uBH Nv pJzl0 Z15%_ks@OHZ(֙=#HUD̢j$8TNS).GBW>ά 2'cAjxt`}uI,蝣 *} Q|.k_YV 2.Ev8QPmۢ_($% &7yQEmf ]u-O6@,VP|^U<ڛ#5_6)4Rl1_0򙷐!:HM##$wOI{e`]6 >(@BbAu͈ǢmA" "PPQ&' o >p 2#vP , ˌ)H=4DI k a#`M'x}lCR}_8||T)90ŒDxMbXÃG.RڙW`FwP xX_(i& ."?O:8Yy!X 4؋d @ dx +7y# 3)mM@6`X`]6 ѮuW*P t8@d^b@8@ j"rt4t-B?NӰW! V = szv}X}MdGxn}P%fi^)05m\9scի\` ib$2TK>3}aM"" ͌a` _RĤ'9xnk0= G+RN@:.~ /eU͸" V6XD )__NsN-1bϝ>( ؐk rL@<E@dD E 80Rzq]ff8/6 ʴrt%\P- }׵H7 ,>% Gxn IjB"ocFmaO`G!1iâR_"a~/ )a. DCH|{Qz$VyGւ~lrѱ E^ga_=mK.<ӌgk{ExA}E*0PxX(,z cl—ޙNpg:ڀ3E3yRF #O ]h`^Xs*ݷ;j-̙H0Ή~yɩW[.T rw_Ha*ʶ<+<B@2*#IM/Z@ a*Ug8l2~/2-dF,0U)"mA&Ч7Rj0eTZw b"b( 2d*ʡɭe[Ȯm`A 0C uWbrQOH``'<+Ti.c:2;2~ pk3 3@} VM`]:+n Z.`oY>3"02-d&;\gKa|d!g/Ti =D0[ಮӺgiJ|x*fPa@67>@Ҋ6>UXg]xX@X49Ɠ#|6lçUY6ro,l=>" (s\Bp(aϑ?]wӮKX4o7Ҷ0-j=^[@kxmɀ/`G `ak8Xw_چ.[ ul'@>y(d301@ր }QFvZ>k{0 ? o[ŰI+5f:\BNC~tX`5-dצ( `x. YavhϬjUc̒3,P&SN)rlbm!Q@?1PuZbKL(X{,kB,tJ;tup@'`k8< lE  , 4@b9RX'eP7fr+*:-r2 fh2ͥ+_L b "xpD7/J=IA`Bvm 4K'r Tހc/ke#9^سp$1`*ƥn`&0o=V)(Td 뾫4y4dS9'|qΐCa*ʻ-;1?@4݉Si+1+ LJPsCy}೐>7e>`/Pd(2`GCJB^#KM"]os,>ٝ@| 79o! 6PHGB`/qN [<ܼ޹h'+QTY\ : ~H*ْG5qvmRIe < 5"iY8/n'p|, `s ܝ~$'4P)99H:!Y|Uo?lT @Cd٠#H;3RaxHUOr ~bZPIN]u)og /<t?w`@FPO=%K̒;d@&B C`#fA-Tz\ nP3x L@h#(.Z]'CK~Y@MB@g|p_ja9v1dKe= k@|lo,z5pGe74wR" 7u7`I>٦?sfIh\RHi$0.VsPhoʣ@"w.E 7A`I)rOƻET~~ @<[`=@=N2>@R$K Ϭ4` ,H,n;dyx!00w WD=Ύ,lϢ@ !  Wap]w8Y@")p)ؚ` :9l|T1ϒvȎ7Rq4 LF!52k (:R E``C Id0`*R@;\ @+H6e*Ʌ5`T ]/ 9I_x/`` @6r! HۗQL6 Hf:q@/(7>(Zp} 6r^7l y |^:-! oU×o$( |UB0`bOz;܇\ \W(. f]&Ky1pnw`6K7 l.9V0@cf0m$,ަu Gr^>)H+ `F Pܡet}t"lgy ! b -TPv Y)*_uT( .G1ϖm`$+RH@`]RE5^ s~0HJ 1]J'1kNr#')<09>u|٬1* p.{1hjOJm 5?B@0Pٟ&:P^Qڮ ث(":(*X ʦ@, ЈP A({y۸`/1(W|W8K E  ; i @+ѳMFt sV>"A3 6 4~Lp 㴡t?45*.QO?! o[|P}4 yG74P@iKJ<WcϞPH%*>1s}P e=` }fYv^X@!aNG/[pgk, `RO 88) +` =ɛ7@R Oemu\`` X;鞵bXn )ֶT`p<؋L ;<<ߧu*?`. |DDNBC@F(y !}P@=T|mPT{9ݧ~ m؋LC@]ha *kuO:2?S4 `0Z xȗY+ʨH>c X"?_cښAǿ7D0cfV`RthkyqD-J(|g~8mQtFl(4 uٗ qt @ bZ! ex *G:xZo% `! 0{6?YTa`/"؀4_;;g](rImлY X': @&fC=,~&3I0 G.(=k|uV37X (N<N?%?jVfГ #\!K ^ u `M@}f8h2t4PG䢤`;T_n-F\6dko{j+,7O``@Wz<33;^ٶd`0@j @ˬ^\@(C@M6 4o1  @{ՖzUmDxf! z=;^9*ywip)Aq!۽D0퇀h ]K:=; ~sx y %8 }k0|-_!皌)v0-mm/N3r^> 8l81̦'&@9,wʑ{kWo%h1(ڟ-Y@p7}Y@~1I IDAT0АL\v`0^Xo77pD\s`@6CflW%{U[82lA,4p_ j1lnC@ <LJ@GA`CX:#`ٜ z4^Xk0"`{1Ef3 h[rKF4s-&RRmwy_`Y@3w̗'+UJaУqs:5T?+ZUZI3uN#x0}I2w Rjl$n  `|ZH0X p|߷i=~;K%%ds b p @ @?&@w*>#+2j32kmyP6ܖk yĊ `ٜ5M50,7Z:=X&MߝzwP6nLo.3kӶ @y%*vb[@_Rok<mDZۉ)vdOft]&hO_9`g˅t݅| J7';#x:5dx $[|BkQ?W&ھ"i QQש._E(Z=nޥߌ-g$]~=/R*_7OKҘ9~*@y0[R.kedIOH4jڴ’>П6uZsvT]n6$'MӒ%c%U}}D5弘2:UѬN6R^ޢpo2^} W[* v[s$:$Z DQsg=> ǛN b}h0{s׊%KR+n]{a2y] xPjn-I野!`ч9.sN o _|R߹ DoY΋9/@ܾ5xO qĺRs `8#qnJ?Kpd}nJ?Kgb(m1TF7%YPCetS"}X:k)`TݔHKZLEdtQ!^x[  YqT`*bl}@0MI8otNQ:7xċw|! MetS"XzÂ}d+HDۚ0+iIX lvTnݶ["^tAhE$<q3+i"VE v4]a-B6Wɓ>.)*6"y`=]IӖސ6?*7nÞp[DZ/|<;I-fsL*#JVhBzSnÞp{OؗJ%]񢛦d=^Te-caaOz8օ~t-(YKke-JRil?iË `O0iv[{fGfÂͯq`RN+i~ /LT9N,nÞp/|$%-kڃeʕ4?LrZn}Jɏ>!B!B !B!B !B!B !B!B^a'gIENDB`ggsci/man/figures/README-ggsci-cosmic-3.png0000644000176200001440000007207714634136357017766 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$BPLTE@<;>4ˬu]UZR#xyxԘlbd֓J7 IDATx읋v:E7p [o-A+DphGY9m }AHԬ.5b ݾakH x*ڌd[<ΘhMTHflkhptX$# -Up``p 6 V p 6 V p 6 V}ʆ/q` Gye<<:|óo%@U__d 88Ul tkD2;2 YepWӏw 8}x>N?-3}ĤncML<C~z71 <"k92:2 Ö 3刂wCp8x:T ww#xU//EߵBTL5^>\cR & Jlۋg oÔ(`4yY;KBc}XXG@Z1Cm?}<$;{ҥ!u? ! H= |71Ѿ8  C׾W߆ӁNnba,)2wdfPL5|x JSG@Z\w3p8n lHdDw` 1K9c8r8R@$ k ͽ?L\`ZH 222`v 20@?"H: 0Sv@8g  Ge"iت H 2y0_q; ~59Z$?FQIW8p<<"I\S@92 uHPٿ@)52Df׎Q!С߯k3}TY巳֒Ui6+5+Ha K5l{@gٲ(m;}dɒ_ՉSfVkߟWlylr%& Y]'@͸0)`.@e˖u+Y+5^_&]^FPaw-t{Z sE7$! uʢh-d8j@gф` FD5AF0zm!r!+Z_6n.7%5#*¥_2˖̖G*T4P8X,jWtE[DG_A@e8Ir 4Ь]v*K` ̦P*jD@ @]߫;Rιa[9Ui*32 d'@Μ@5sx\u>q/sZlrc-av3U weQ̟䣚6۔!~hef: g^rعYy(Ɯ<Z@_!Ek;#D9_#q~l>nTUK^D[I@Vt[͌]WYSY[UjX{߽>XJ`-ȕ&q⢨ExZ` `fs_Yobxvw,꾯da(e̡".TP*"Uޗ%+')fDGWսsC@.h@kz8Qt{:90HS3U\f'$u٢Vn;2kZ[rdN'k3[X@K@l0G|l~p ?Wy.ܡқ rp4X @nqSs]>SDo\!~Xmg+Sٮsvu)p8p'df8/79(>_#mD轀'@DOZkGȝzn``eexK%! qĚpTƜ'`fm6m[nZ `]du(d lajǿC@Dh>pq[D8D93יa(7b d&\ P:/_ge/H/&VU8EO59~hW+=> @h %XE(^.ʵQxu?N;Sa!Uv'w~?{5\iB1@`a`kLl.\:5ߵ}b8-BSxTW4&j{~lFE|`OI*@};u=\/h&WeH8'|_TryV6M-.+FX 7@n.4s6__żfj w߇<]\Fx2D?{ Qq 읉b: Em=Iq>9ZNS2h#PHy$eL? aR>"*#hL@"0L@?N~}9w7#r)12"pHπ:vb@k`A h!@*_n'4vqx*5i Tspv4jgT}" Ξw+_!fb>#ib5nqj[}z#i0~d>E0@<@LƝN?BcV l? P1*j1V tq iDQ8Xø /*`! 9ƧF&-?*rS$P3S7a}9xDG"'GE Mo scj"n(<\yEN,!EJ EyӃ^mۣ4jIpX/@ $80uH+2kT.170$aj ο0 1ezd&FU@ ^cH6P~2$\4eCMbPÐpzfa:ԏ!>~G`@Rϝ5 6Xh4FBò)A^ XÍq)u݌Y#3 (BS5"@3eHABUI_S?ؙw 0ED6ŦD.*MKjuAܹPrţ!o˵7:+5T6-Pf@#`LTDb^\z_=UInׄϔ Q9nbpЎ  zq .XǑxOC,㺾B]Y?O\KR8xB`r.R@~n3/R3Z3e&“EzcD+cLyS~x3}@ H@ p+Fm@ *cRv:bo.;YN`AXXQ+ HzrQ@`ř1'+SB?~?TQ*MJ?7u/ _[&EP@5N `\fpV#4mg*< @ 8U97L!o/!lpˠ ; 'lˆX$֟nر3;VTO! _JIG +D`dcb@_r@]4fCffߍlefh!2I6?և B5j񥓋u nHTp|m6˴FivY$02-dD5L!q{v\,5 z)%g"e ? }h$>+R@ p; ;2FSSL+)7uYhs[,\i`~W|)-0@<|Onj6X? s\A=LM`Sv]b-pyT$yYa=WF H Nة(ҙ K($i76r\0U&ɗiac߇Sի? WXQЀB 0yu06dKmᡔmz:MX5yST|j]3׶1O5 n/cԨ|$&>*Th)Po[J jD"FgL0u%EGՁRCgK?l2:ċ |dR{S/i0] @y ?fO l\S[f (Ȱ d9lKj5oƆupL!PV73xL1-݋q_Fd&FW] 2xP@G='.0ßBAoLx#m>SmF&E?c| 6)/|h*R+s+j $-Mf[#8g: (:ΫtihO-z3`}~'ĥ5? ^@q*CuUjn)4f ui-yMJ&:>?vpe^^7{[_SBs:GHtRRě6 JgW{j5o/Ks>]m[Yd&(@Q2hF oz') _΃ \2C`LE,vu˒gR?Eq6 `M߹-z 1}`ϴ̀l#PLTF%6UI EuYyxW܏* *@Yw_h:~ '?:XA+WeB vj`}詙.gS!fZg*c?o4{Ž>Z @!͍_w~JөW qUΧ3{O<j@4{rpw$;6a{shTj] 4>j0Džu= 6~~wtb=n#?:JM@R)%e=+0 ~[\YGkMco8`1VB"#e=PTgAS+E>;QPE;Os~{%I YbA[BŬ ӎXj70>wǿ }Ѣ|'SD5㔘+0& IE0p0xqй?=u(aO َ5{8v@}<Z W$Y!?@;Se1*tEWL ׀},ZC!W_ڋ8_.&7k#c7 R7?uqS)Km 1_ +&x,m _ZC;pU~lry}@BTb{Ӣ}[B7h輙{WZ|`W{KJ+uwr ``+&(9 Z =,W">A~!(s ϥ4!=mQ Pwb)bmunún;@wUG{,p'x|VeA %߿!ZJ}6F z܉϶])m== @WLD1֝m-@_ =_ %4>ϝd+xW AF$C@pNhGPV4&`x'U}3MooY hά_] P)]JOCZ{O?[HppMn821;P.b!?CB;"lؽGe87 -p.~7M .c!K%_ED]x7XA^I.͚ҥ˿jG"Kvxks:Mc O5E(% yTq`IpdՖ`jj^fHن7By0$7 Zs_kKPf`=G7 @"Z{]ix{X|r vy-T(,2%7+%!Mjze@N3LpLV<KmpoLFknK|KhA>N6CHK@0< twmB!e$`+n[!Ԙ ث* ѮpP#Y3%&&MR{e94uߠBGRWN`  @}5D =pKX@,ñ"`~fFJ}Ɔ韘ʙ{#>=8u3S:Aq * |$v9xhhF2 qE Qz|`B#7bMBp!@o.Q޵m@}K)p?O# =K@;wKJ{7ȭ5fT8em* eNdh]V\.V=1%~aˏ7!8@Py*{E uYH@͵P.-|Dϥ} >.?v>0tܺlFx\|fu8vCfܷBu-w>?6_&YgL @ۊG<`tP>Ca]P,+{ z"_~<_CӾylPEv(so0@UԹVfq4XVLj4 @ Xx@]~7},T"{{ilbB ȇ*}Gœg @| ,=`=|G`qԝ=!on%C< *'u-Vo<]):CJ[6:Y3rc((PPn&U"Rն ɢ?E1qZi],l"?n{ r@Sk$"bа`ZOA~-wj~x @K36x@c]Z]tr! &Fns8P sJ s(ѴɝK°}RmNxg5Ǚ+a [-u" 6T~ Lb. 9& -ڋHb%ֻM0ЀcY 6sR|-S; ؕWDXo#]"tO.c6[BJo&ZOڮ"J@:N=xC?LWv//aRD }L*, rS:_׏9{Θ? }؃QEJD 6XAvp^ k=@j="DnrG:N[_8K$&@ED> k< |vG~"ٷ8RNG(;b ǙHX1$l-x];Ty qelTvB4l\_I*Zb~d3 pt՛r?S _&c?o>|FrO"uXs"q `ULQl p*? hI[b%/\4Y%*Sf #P @ OZ6&K@=;ƨ2Z4 YBpc'a.??k/s*'jQLY.g$SA1&4sgWfUBVrF`G.5 Y34+?aB]t gr hAf7[?AEDǜo\>=!"$U˪I:. oh$'g󛗀. aHh'C." ccM?3\0]1)1BEܭV!a!4R:>-I:Q{AF7J@ x%KQwxrψMZ _ß@YiQ:Ֆ?1yJd\|o!8dN:CUg69@TSSN1.ҥmC^4_)!q 2@JK 4̦X{<1s3'$nUlSC?J?N@mxs= ÛBI+gFV5#ZwMsJPg;0ݠ%*WrsbTЂ< ;0T) /`]9N0hTj` ^Q;!;F߿#b*7,ͮH60NNz Pr;l{bSƸLlЫPg~% "tD>n߯  p?LOp3!1E,|m ;'\/9b^ѐ@ck&6 .9\^ oѵO+H9`__1C\zPVEhDOYd)l(?U(0] 1A+{GAKVGym YX&ᾯ41$ ԟD O$ ]zEbuWK@ͧ4s?r_$GJaC}Z^ׯL:k""/E\I U6>>s^nn|8(rz ~E˖Ƚ6+o(o 9[mC'i$pQ ,|IB/4JO⵾_.WXV~ Qf}(no؜{Z(TU: oR>f,0Mtʍ`@ J@ @$ *ͱ~e4^ =>Z] XJ /H F8y|wC#"Ԕ)0]_0feÈhz5($! xuh>NZsL|W*:hJ\N{`POTʝ% %}V@& jgf(#q!|Pv  :9\WU ]. A=VI/D" ]rpkMIWKFp|m?YކN$'TrP(J#,ܴufy;Ղn\:#"5QGz N408ϾSI@;_%` X%`Ea)`)2Cp (kΓ ;<zF{4yP=]C\߼sH!ru (|D0 v44+ 4+-X s+WPmGU6. Obk<t vaߐ 8ngfrBÉxYD}v&N?a8s@7aj;A%bp@ <EvR8F`D8`=#N&= # HQ~5+߆oEhuIX9ͥw_Wbb(Z\T< +5`)Nό_ul)dXMɂ6<Ɂa, :[I{%Yprmt&%A<&KW44+ywt^F2tRXHQ.m>W m⁾ e>/3\ʦwCg"o&v>B( Ċ瓵N߸@?+CF) 6glY " _v"7bTMF%.Vǿe|" HF%?ϚiF @O?Y\ϔ?,<_ tm,2 @aZ8 L`R@h@wQIJ"}2 ;KESP%}"KH|sXM_k#' bR@Pgag94"ZI.U@w\lo)fxIi TIoWm4NCRӅp RȺ|acJ!]fg$Їr Ԫ_';#L"Xo]6Na_H K"bMgⱑ^If[7P/LoyYjVongza<w@Dr2X'@(i<,m.YeW䳛R|އCEb e+je>|;,#z3#/+ (A m*nLWGZy0Ls'J,6l`  Z}鬄u:FG;fߩ" S `,^u$YOn&%oK`4ſ",'Zv8f5 bSLj66e^̿@eF Ai .O .U+u+ZDgl}i vVu~(|Q  p7C*, IDAT&7}H 92Q78+ V%EF?8Jg` ‚[6/ "JCNi'ǩ'+NAC5((S}:J^0bP&T4DHP*gs7:J8$Iqg"[z>Ĺ|@d 4GRR-Oٰ@"Jݥ8Ќc`"XH2k⊙.P<_.@ yT6%e LWg6k{a@ :m"pFNPܫ諐4iyWiׂgq;2/O'8G<pV\6 rs7GXz+jDܫ 0},N`Y~RƋA#!qaXw}xI{5{;=e.RJ5+4 HhkTAR56P+˺%ٟ 1SŪ\`@Ԭ 6KK3_\X C uF Lz)"J l|SI XgyhڠYctnnuٜmN .t )!܌#  4$$h(|f|PF[0<@V0z@*x2Y@I A8S} uZuf:b D轺2Pi} r%<5eOdzf@ 4 }6LETiܭ#P,sа^}P]KVjTen&^@%"XCD?$J@ p' eR K~4a n>x`S&ʀZkNqƏLԎtk+yL$4>B@]})&#Q6P@+o!\zd RT(Y՛*<܈H "_⥼_Lu|X/ @ju#AJ+5B vkGlo} ( ;āie"o> ЪZ D)_v8@iJ'ruZLR╍G&3? URJ, v9T_'F@i<N@(.U$ ʖ>Qy]K׌Xh (/b x= 4"tX i;A%djE@͖fu `Ř5F0Z[[Н]c1q?ܑ@;@ZЫwe@WH+[vh`u+:$vgNy7ҏ @tjxG;,|cM"T R@2x6fpUAgUx`8 71cF/xG"l`o L `:KhaLU4UokM\)0(@-7Dv?auH_s@5h4Aj8&RӳZT'@7d9Fo0 V+"#a]y|ޟʿ1/ "u +.uNS;AށEޕh9@c;\M?[_Ö i1 !rtE#}4_p}J❢C7},~t5/a)/|gc<7ʬn㡪о%4pkZAfzZ3o[@|HoN?:;5-^$:tY`gW@ vju`- в.,!$ `@єDY@aoc&:Hy%4Eg{=88 |Gvԁ]?8$0,,0DC Eˣ ! |236r1^ 1rDH0d_8ғS^m(=EN:cw~x|,1_ S Qtk`sp{gV s!@D/ TG#1 "if1\ }`liei]H @JQ2RϷ ? \N:WF̫wR\gFRpP[T)+|Y+)3͋sn`rTxbX Ծs}RHz0Vؿ60:0N`l0Y H( cJݯi9WEy H 8Y oHؽ" GS%1p'v~ uJ A!H$0s~=( 3Zkդ7;)P5Ý16$C@=H7~Pܿ>5KV48w*.R@@߫ @G<h7kb(}k> .:s@e;2nqY~Q|?L\8xƱPfqH! ЧG`vb@V@P`ry!l %VW/ ,=`)ϻB&!Mɀ4hoCgOvFxvr ˈ6Ā' 4bE(TZm] ,G& Wf 1 4bo1qh!, JvQ;(mHC_(?GK@4{E D:h7DL `z'i7f6W퐷ґ5Krg:`3{Ω7JZzIi7α+-VP,hx "@V|j GHTx~`Y-CkkYhL$ 42s04hI@V~T@V˺BIY@#Ld^y@ ;g; >YbP| fpJ!<zoOEF.Kv]UdU #;֢uLB!2H8_8fpb(vbeàYT;T+$f)}`˪da`c@J%ؠ @,^aeP|o^ RǮ;j!u r",+@ xuM@UNdY{YVr[S64 `P =Z.$MTM2J66sW`~T @.ICw6ߨ̡:gT Y+KMU +50?Zx*V ghOh^s Pcȫ0?Zx* 5/s9` 525(~V @)Q]a󣅧ί촒\GG@QO `QxuSPr;/oW䪳X?JJ[\oIKV o DQ]~e_3.)W-<{XƢaKEfO.|>i;3\ >#Qŷ{-'Ik6@1M\qN9;z(Vtao= V_V9ړ ߞRƙj~\-,fxe*@9[~ևC}Ӓ7,oqִR+KZ}/ KQv}oNZO8L\+XY:h)wqojq7H|ߪ~}q'QM[l.xvS4F~e.A/+>w+Ooc}$:R ;I Q='Kܬ bt +rt>L@^P6$#Ĺ"eP:hgdN힄S.sP0CK vQUd axӅ$0Ӂ rF/+2wףҟ(33 Typ|ZPP'>^>EқM fT)g) W[-<%iQgqgL(㼔[t*dS54` }E<]*@8*?@jZeNi!S@S":vU)5ﻮi@ (@gh5mzmCTO#G<֏ `*@3̨)9MʞJ T<"m< \[V,[mrQ~ZȀY@\@{"(?saeNQۮ _ۮ;gA PMR :P: F\ b={21}*o޸܎F]#?yTˋ1(x3W\mxC'Kd(Ut;p8xz=<j+zpɅ`@8p8B1crib"^[z-v_uSxx)H{5<xy&uV7@8T u1[*ix={<)PIP0eWxZ { @"@ $ =P?G^R _N$=xpJpJSФ0T 0 p-`)_bomRCQtECr@ pj$y;#utq&E4Ep(M <xNi)'pIv*sx! -Ys(e %w`nRtC+R,Y 1> 5<x@Z) [ ) D 52vZCܤZiEMD158@8&s9hiR@ ƛyg@   r\Lj&UÌ6KN D2uIDATkmIY?=|)x@(>ak E~@'аpr㙁2Sk*v. xt5 PLʫ`\I|T oc( 8p7|?<p@˲+N>ah{б_P㑳A.yz#D8#۠x>G ")5 %$LW$@HTY(DVH `O l|* '1VxiB+}5<~S)WnXA(vz4v0ncsǣ+J0!P@PSkܤ8(uE0CKKY,U8еI񊊛!0 1PS 8 ߹ ˃u(pPH![ ]Pb;@\ST8֤7jmgHzX \khiR\,oXLJO.NppIc^PpF97f߉u-gycfXM)b(  $:pF۶Y}?GgbC.qY7%wo&DTrR@HZ@@48oS6 0y0uUrM&K <p.x7ؾ_/@oM_7y9h &5|ee +tYb9`>~ϕ x?p9 nz2O&Pah@~ XU>S~7o%G8 h k!,B/!D;ȦDfmRmW2) (3Y@'wp''0$A x? xW@3Nwp 8ofN^hR:=, jrݦ{ } Vcr[¬&H) C @|œ7ۅ`Ag) 8 CJa,'C+V#'+:C@ p#q=#%Pj(e pR:ob$`TFw ' Z@CىO8+7Χ람M9@@@uFoz/IGӮ4yHU3(x`G٬߸4" \R Y7*;-GU-jPz}G+:էc Am6 H~kb T{Ɨ;p{, ]7Z 7ﴲR u<^ylh|epuY+t 4MGJvC%qzЍ7}t^|ʿY{GLD``r o8?{fmu=ѕ4PmǛ.8gYkiy&@m Z@;r@i;?K@% r@&Mb GH4k@%;)p% r`'p/h N4?[0FX@w/q7x󲞏4*PX"]VP`(޴˪ eŁDTj\P +JZH@*mJ0o^ fYEկ<@: Z@]K`솳k漼g @p7 rZn)Xq5?&/cH@@8o`; ƛoޡ) 蒱Y2@8Pgd|+,}s*0&&r=l a||| D&X@rӒU7gyv]s. ǛS@U_;)/9구4K x?Lp27 _@>7M8ɖ&J8`<ޜ " ؑXnki~ H- /5t#8`>pw_ޗPVІim)  r \1e-8 #n8h#N:8p*7] C]0D֨s95hH> ܿT7,K`+H6i8ט_6,?c-;*CpLig&9*}a3h6g =ϷjvpInDeop e|VW`P{ E'8*l<5c'9B&[WؗX}6Ǵos$ *#t3$N@=w V@R bma?K@ sYl~dʒRi&cDzT՜9g| V43:m ӄoɛCӔl)uxҸoy찵g˗iuZjI jy+?=@,4wi eN2CǤƇ?Fn>Pfuް NOς4SD*^yjOS']EIq/>Q,yb3G}bQnK.8U*%?'bR4UHi"ʁ^.Hzqf+9;z8j/xP/Y,}Fa(Cs%a#-ٝ/ү `,Ybځ@@m빏Z\s5^}6b/jux:ݟ\Go'2yLeI9essRW/)*WmIl;D_^"j `tS߯ZHsx@2{M٤M=N}&o}Y~jRwsq=$`$e7N-!Wx5ahC}?C@|*v"T2Eaf~1e,ŗa<d825 MҮT֪'C66Uc޸@}s `ٍ)܍aS5yh7U˿HVu xY]%>Hfp_: V@MnMfC@v7k1P(`&22Ӟuzc~Sxf0xb_mw*j@VZ X&w% ?L1rW{u!~ {{: 6*pxVR!^|r¶Z8H < ,S<H?b ޷?u5QU56f2ԯpR!g 3q/6#Cc!j7O#I%R't9@` `:ny_:URGMthnM]JO#SӀx+-s: @ QVm˭8|7q9C?:ݕO,<~gL {`5<|l@;2Ɲ$O?q{;B?d j|{S.q}n`k=kq)&WF˭wZ }d^@D?\ߖ7&jc|!˜ȘNgiw@ڸ (rD>G7D~j¯"ڴx'bc'w#o3 ͟1pb pHTW7g5Un-i@S5{+7翖WYJBg7=Zݘiw@0u7^l;?4MYZFxGjw6QlK }J-VGO30.̷iҭ*$pi+NE`#Hz~Q}?)7@ԕ{v5R8_i4޲[C8i|7h6gwbQ&Iur<Ӽ1d4w=rHzo<G  %(v3 wdFNUƦ&dwwo;k읋B:ƚ$\J2Zݪgbs"Ηj7xG+o_$"wc&;SC@_͑2Px >`4xwԁ w4^@HP1Oc?)opb8 (@ Pfl+|$IM\x7АÉǰR/  ;B  *FB\@o'T(pr}u `[0b>p ~%ƻW9 1;`CԢic7*l "T#Jy?\@ @΅Ho5c 2SLihd U OFFM_cwUz}ǴWQJ#TX@t4쐞[ԋyFc?vVBTPo5cMҖ-M*BM-k*"b)_5@lpXl4{MX(?d5؉z (]3pUU  \z=o_9IV״4 w(@i ɱ!ǡww~ ޳6 ٫&t-`:ر~;fV].J⯋mb* 7, ;p ֝@|pBk-ޘ$6G*p=†y75jY8T& ueV"(n®R/wx!`xXq @ T(pz oF#}a^7l*^ơ+B3!GJٮfͿ'#> woHJG, tn[aϔi`` q`+t^ P4}փ,ݾ!!0 n)V.jlK*jvN)'S;JW ~ Mtm,D>3~fdoW)>2Mtlf14˳90 UT$c@n5{F L n_ 33vMlg>1@. 0קZ@@{ZJ=lWjSwZ/8/-M!nB>Y65ob+n3_y `{)U;UlM>J`!}h :53*]?K7mW'Ƕ+@ > yo;7zn?m.ԟ| =Y(6Ï{C.u2>uug+T5 @ >X-A4~C^fzY+҄2/S݄!P6+B2ς"S yC @!j);YqRSvS%iʞn}*V gO)S4@ <f %X <2 nO] 3mb?:2ΦK|4|yG(4@um̍" |m8Awx!gYdW{KD4#4sy*6JR& (m9zF3ls~˟@[iBFWڱ` `'D\Cw]lGӀ(L @x(@LiZW'e`uzjp 3bWhm"pGfi?5 Gq&3)*V(rmLT{T/VoYU6ki[ؿ)ӟ5. $zu G)(2x٦!. ,@O 3TqRegMLb {=tyjd;I[ "@e(w:1fч_z173M:fzQLt{G{5zccwucuX ?ztNg* s,@(NPE.)s@UІ4BG#7mW;Ogpa^'$ͿHCiPPqꐖB)ل)U} Ag3=Rb_)ʴrVf W~YI7a"XK;* ĺ .tCⳋ@e(PNRҴGo垟Ƌ Gaa$UG'Pp+tM1h]E) lνI?:G,'?4?s kO\* W__dKH~{{M@( :&WLZj%FL:5kOg;?F0JQ"p)翯I;]@Od%/~/yBʯA/;#~3-"ydtyP1]'O5D?j4dy:_gL4z믦Xv/V_N]x;?G.uAzE3_[oG4`lP @f0@?cveYhhȾ2E,~֥rf#My B8zA꾫}uP \@g(v B_VzL c/6̺P  V6;YmU竳?D1mGFѱ8>GW3:,1iF :͛`E:Xt~LX`sVॎKhDDS^G(R5@d 21DAkZ3?@c#Q>7= i {%2c|w w+I~QIEЬ%+ٸ?#D Axܠػ8+dD"I)~Q(=z/c]O.tz[;iJeDT *2^ٟ4 E)" 9CSalި@eA)p|x.Ѧ0~E @[?;VfQ[Cpd ȁ̌~<hn'sUh)ae/? ?X(3F ys @.Y!53Ț<{+$ТWc}b:'@Ic} dżmk ?1D&nÌn``=`cZ9|_@+J 0*/,$6doC ^)Vl5bmQ$vl6XiQլRѣ7ғ}tTPJA P/пR~Z"<o!'RwXuG$1baBą>l|Ћ]-/;Nw]/0 ,Gyǎj r 0/OȢKjg/~}SHx(ܥ*錁Юٰۛr'Tɦ ],j>c&t a@` FSv*lъ mknL9}~{>7Nto3CQ >pHnLI×E`\+tR)SRvuo@`sxG38n7DV*3Kx $0/ S])uS}g%y6l:`˔q̫ O>o1_$J HKD?< Y6g7:;Ae kS9gw"ss@0˛@V2@{+U L (x 0WCN?͖⣗cq/pRGY`?vL`FƯ  ߃fJ Bq L CY7ПwvteVEha:m`'S6N IDAT}Qd͟>)j^ު< L io?^>>ZMm1]7ֈX#Zk/S?Mtҗ{7'|]p# 'zO(XȰwi ٛo}g L [@d>FW:V0,v#G`ze'(l 2i/r՗4I'ԙ=< L )qD ڂQhaZP.WAjl3H!CZ0! AiWdkK73dNÆN? AT&@@ ߮/@| h~D@f2!uOEBq3g4`7 ??E @C6Hw(qC@73'~Wj/JCQa>%}4"Ɠ{& xG}Y..VL ;S~c4/L5tb{m(! ZAQ@ZAϬp5}!Z3XȀJv `H|9v:SCx#wu7(pr=Ao!4ri$~\AFȫĎ "}s@d7`H[u;d9FlD@ [mbB(Nh U@Em\VPRRbhJDѿ 5[kd XnVHܽ4K%U -ܝa,gNIewlt{CoK%ެSzwh89"w\;/6F3:btJܔpMtUV;B2th JcŽ2m&I\ྩ@3 բd`Bk`lkZ_fW!.GNm`D>qkc{; Bbqv'2"pC l<gynm^x^= M1b !?aaPJnl!_AuA@\(!3&@ e`>8%\bXzue`L !^='[zY#On}d:Th8'?K 0XDX6 cpdIw ^\ sX_o9ţ%U !T?d38}1g{m\PFo@XFXncsD )ͪT8C%pmd8[raT}E{h;c&䂾JH$N@  @}u1Ŗ]`!:@|͸xx]2v*Ԋ2 p/LE`RDT𰞼I}w2*) Ljݯ8)""R*_F'7@v*[+ [^tu ożV)k<{ȫzXZvݰ/9DzR2Bt)+ü xs>0Q<͝|s-8\'~FIxHr'pjivT,)C5vń!y ™J#rQR^g:Bw`.@,[CG(MrX߱aJK3Ǽvȑ ɨ"ږ|nSOQa<-ہ+DDw%@&4 %}Ch}M-4srf9]t{4TaȟҶ{<8䁪/0$w[6z "D"oJge+5b4ua[Fr\ (4TRAыKʒH%ȃ MHM2 ΂ٷ4l%SAU?rkp{܃LRu7{K:,Qs쩲LDy p#3 `E$'(rL5P0ۃU:[{=?@nhd/Og^&TB1 ^\VƓ+-g+rM}r;z"(Yۨ B*|%fyIy!'BR6ff@8h`U+ρ}A62 oWYp7P/}=M? ?$v 2f5@[mB7p\\Z3[Pm8y۽lYz = p;g+f 0G7@7^z@X~\SxqOrA!ͳ h3H8{?Xʴ hH{F\kͫHeBi8o1`$ 0v_B1Kx![ߑ-T@ofs`jcTi;)uS;Mm_J#FR QL kU%A -#d+x9׼ȋX}36xON  o1N~%К$UP1yhgl{0}1C5x/mF9i'PU[3cڡcpVuq^r&+75iJp`!_lAFmw}!=@Tx 0q" HK7Ys* 6#4`]5*;p;wjNrxxSg4rq,y O d /'s,@^Ԑnw}@,y 3/ɽEh(RA+Txx `ev=+A5ǁMkaΘôDX"E#Mgmc~yOux^U/~(00B0`n Bdۄ լMj *ۗt``*Jx'C?58)2=a?uG@Mfy[BBxL.)XDaLI]K4e33KQQmy\BU"BN,hЁ~.:A{ =Pe~ F_  o9 K0Q"nq$4V&iExIʍJ؎`4geMzTjcRzC@uX+ N"QT"ځ31` , Ų!)}W2a{Zyh* / I?ot쎷! -9BoIR* j>IF|<@,Xc#XSgc;,PU=?H8 ~3t8@t4o@X,,[m%_)^C^{2 {]p xU_A$C zBچ^OE%UFիk>.uVZAG2] S٪v^#ٷZESdu*΍@0R{N?4 VP+6|@3.7=#Mbq+QMfqju5i\`ĂPص)p92هhe`k`:s o pAPsJ͆m@[N^ O~Idڛ)b #u]0<`M\#gBOYAM%yO[AuQB`'P6vDK¯rP<&/Uo#jгb<{$YU[᜹cfugʈex%Q,˯"`45#q+.7BF(ޒO;?9=1 cH#(~!H 1D lBihe̿:y1lJ?^v#K "d *|yl|t$,gA?n~nw@>Z7nw2"|;`]l1 [amx`Q+=_wGV%&iZjEK4X8U/W bnnruvj v^pN|n3]@4 :V0ؘn9j _ h.P=b,̼Fa4`^y Hy$ j)}ʀTXOoȍw^)'x[.d,? Ob\A@`V_|& Nzá0~(p}$BF`Ct-oK#F rSHru'!!%Gg P*m ]@`ـ$.3j\B??Ă4K1f <z领Mp"i@R8bs-L" 1D. +IB:e7Ws . `<>Wg3Rz 1Y7N;Qܝ. %Et%؂d\B"̿_ZFQrIX?q! ,bA"*1,S'S=l>U_Z' `0.)u,\3`w%840bn|F>=X:e:)Ciqt05bZ(5x- E㨻C\m'/hZI/ʫb#S\''Q"IfO%""D9%@vĺCP@3xP)HF[x"j95]6^'tĐngF ],߯ ,6o`$%`!ZƁl> #] ϙӑaI4cK 1qL<_FㄞU IJa р_f~=1 k8YbW2 oO/sԂjK& [m[Ns(3S*7>#jR Y9hI@E +!(p .-A3`o=U*%ykPߣ_6nh+߇GIW-,B?2XPh1|”ImBvs RyJ|tSh p➪9 .(7ec"nL!> H9 obeQb<{ s|4aI-fU$J.ŵ8u=,Nl!zZTMYVG%e$أ IDATc6Sԍ`q}E[PiICwy/vLrELrd R`uy*hQ+&}A Sݞ]ONbDe_x)RR{zr>Pؘѿw`4X _Zi}q;֔Jli` Aġ]{Aq n HY4Un|^K@sK_FGWWVp4JwzJXEY~bإ+3-Ae@DOF "&V\ j*<{cSgz N;p#uNNj/Є>Q4yC_(NW4tD0:ge ar!70"b=hɡQ(*Tx"8Y ^Q{lZL`ں4 %i5z1vj9{Fܥf21p50o`]4MMHP.Y(ȏ= @lj.++im'RB,!IIhmމy Tk*=A^Ed* [Hkk<8P*˓kgVD^4b!@ ;#^ t@R\K<7%W~@CQJU@%~+T 0 WF~Ѵ{4/RUM}5/G;Y@"Jn#p1hL_6 h0P~i~ *p:TX. h *݂%(w2~@^Gϭ;Dzh+KFP e7}+zK^̓R3ւА 6Oewnf?M 6eSu]۵i-J?쏌9GaXoƍV/0U@PuH? *-T`~eєHX?e6+ػqj)r:N5,еfJȐI.}8TB(~5ħ 'kc'/R04]yHO0 ռ-JCݨ }w>VX{Trӈ )ԣGaFҙO-J+X4gRrw|X%g]@+1xK45MWf3² \8)!Nv 6D"g'm ]y f ZjT% hQT7n?zkgf1Bb cu>)PkKC#~=64 0 So8RBٕ_ETQIH?a8p`L$Ǟ@a 6*u Fk) y gz"%\M$B%YSi<;@DUxoN*P tO`0 Б8;R7f)ȝmcd2\(!6S6V[fwC NR:_|t#wTT*Ӓ@ \@\CΕnb?'IHQ u^#7$|e@ 3=#9Jr!6, @@, SWozR;ke@Z@=4seVHFi[S/fhCFE4q(|E50 Xnۛz TcF"aMIөH$}\p1Se`7~bͦ:c. >qQD2 (P1:?B`]i30зC ͝DkXK ,b!SS|d\4D)᯵. ^@e {?.-@aP?-9!$ 4#$ubxВ@)j&H 0 x @1hB$ߵP#8jM̂fIS}\]j>N]^jW (1`߱4a 0X <@]XnTaSb \+nNéՎQfV_8]̰cvMvamĞ7zU( 0zU`M)}sDݟxĚ6 fN* NaS#50i+voOq<٨k4ʷYKxvTa YQ iv9{ña4])B~o+yvb@G;1MUr&Q܃Z+gFk`)ou Z(;FHƧ6Vvwo1]pp{+]@gHyPԋ!Jzu g{񒎹moޏo,sFZeΠNPCnW>\z 1eVBv_aL5>Ult߭ WIc>4zIybmBtyqۛ?bǖRQ" cdֈb3+<]3Jjf(hPcd;novizLx, kF6I),Y@ܻ:j `6I2bA# \9yi$$5X0Ot0]9T՗'sֺiGG:Q0O/M̑JwJ.54QC-c*OK:Ha2HnN=e,(V%TlV< ~ldK2" O\uaxJPsK2TaK\HALF_C۶Oa{\@g"v|v4A6K֒%e/bɎ ̃iejJvs~z~Qģxaދ4\;G }=xkSbK.b IJ!B8z c[$?\dIy ՗ڦ7>. `P p&}tjO <7 9e {t &WDfh1>lXN?r9NfF)`v e΁F9YxF/ˤ$ .vt_@bu@@/:gbb>dlh8; Ь`N-QSлFH`]rUz7_U4_Bp$b0훓^>fK~8ak5bPZ, #'ޏ]@0ޘ4P/F&Ts,9APt;sDX4'¢7>ZDf`#!N~$Y_ɳ/ oQ6i,ޅ'SƑ%c#550pkciRǕ`Nْn C0@tTbd`h 7*ʀ,xPS#oOr-Lhz#?ZY e &9IN^ L TκxefO`5R{B2PL!SLqyz $D~ n\Y@a R @BJ: K}/`?`L7 pڠj^ e)^P@ 3ڿLǭ`3bp: N@8k0[7½̷֋U -~H=|ÔP@[4o JϷ.U@Kx"R aĚVeYa"ID_gW>ilY@<3\@aث&3md0hj;gf&w-@i,1A@2DݮW("&s(& ϯ)VU԰d@1(Sh0pL& RD;@M@)`YnZ`sz³X&q{;!-_KW^P$ @Lr@#&'0)"|b_q<7 jxKgP[l҃XFakd_ <]˘o̧M = `d* ; C-z ( ñ?K'PMzG >*#%hsϘ!Y e\ 퇀Ot+4sqmIULJA@kU L _Wo]|  `luEJK>_E+H E;bŘW_|z[#bU ^3s`p )T^T`Ny_,?Ug0q qì(  L  • 8yix<$xї<^>V@tIlStT348U( &}-0*c|y7&ocD]+ H%@:S?SeG.߶aB `Ok@g][D 1 } k0!Uφ"37ŐX> ޺J0! H2iBzYg:ZY=a'?HL]}s1l%O#t@6HϘ>*|K@̡0uT@q]@ P7l@' ,db۷[ |Ԙdb~9foQL@2fҵL@W "0> HUssuuhr/08qV+]2乨R_F >JMr)LL7yo(6k!a'C'p)sZ*`ovGRP+&]pu y;Yr>^2Yw ?+ :.hAq(EF$1s#4V`P+}_d+h#>^+54-gd6Vw }[k+O< [0[|L`sTu5&~b2@q'/a?` >6आzzWl.HRgýo3L,d5}(LpS@F#ke'>_H2_[۬UMӪ">CC'lM^a|¡~LP4dyz\&a& sm]#;+b?lXoCk[\n2:DNKxH3.)"FGM]eо^]<6$|z1x]db хR޵OQ&T&W@~"(v 9;5+[&9! x-l4_Łρ\yZtB% Z, ixc] N|"_J);bݗU{bAH$`(S ӍF:ԀN8Z" g ` $F9uxt9PXU|! Ӗ%ҕ0jZpx&!',A$ybM {1~(Vm+6UX>qi`~BK]`LGݨ)"= `(96搑yF6Bu-h #(1*Qm=HOeJ `j\w&QJt 90y>uD@Z^RFnnObS9l:,W;i&RDDOR< {bkKJƊK8.\yqr2z kn[ @ !gRUc '6Iv#aЋ8G?]>%>aWs&@ M@gVƂdNlM:c @SD_s3@f] 5l @ [)|`nGDrfB"ڛnmVIJ1Y" `Y<'p L }@$3HE 6R_1lnU8& GXloH$qJxHXN (y&SV5}"2W xPXWyqF _&3+`%S(z#м&X0[ ]RdRޑqiT# O G<ZtY: ?p$G&W zRSF@Q@((V4"MJt^`0BND >KU$ߵ+֠4/ XGY}Ʒ| [ B7yް4L X a}lh]™FMJIDAT&@ nmG=bpϢ+-:X4mq)"?H4n|wߋnf\ 2bh]ƙ-@IxcȱDy>;೔p.5Y$Mp3f @>L7A](a}\ʅJ)8N`q8նRIRDoFY]0gVA@ a ނƶZXgO'?p]M@$ :ʓ,X] x+^0gRQ ,0V.Tٴd56='  ltjXO)"7"qR ^\}YR hص[On C?Lpg&&;Ef xPQ&@,n qN`QF;?N+K@;RuH# xi`l tO[F_}қ+A @EH][}q+9? z @F9O `'cWSZ^o x)cqbSt/q@66cgcͨ:yAj"Tp"|@_U`uW.s^qjYm85!Y@ uBO 0x+~A1imֽ@VVe5863C/p,~]drru]c`> /. @_M5(9: Ny&"Jϱ\]DzTGGVdyP+uM6 `1Rz hʺxYළ<42"2gcg3ܝE R1#Q3#/sxx?/![{h[?@J`$2Ֆzj/6/;A'Er4M@z@٣$ 5d,_BEpx$%rߏYSmGg< @|N< %3ȟ@/ W@  ',ce3rfuO+VD"K# @KzIC^.,/y&=XYKŽqUk$%@Y]ǤEyz$:sDt9$|C~`OXoBI#|yoJC@KR?9e"El"*B0VV%E5yS`QXaGNs rzw}V/qS-, mŞY@ 2IEr=amR{I<xoP]q{?}`nNE@t8=.nj`/6mؼ>4cx! {|\C=lLvB<<iN! 8U:&=hy`; 0-e/?I5:؃w{'/P4kF&U |l@]-[ x}ؚMo Z% < H4x )ÿI%"+`ЅpwvG"DIrB4w( `y \XvA'<ϳPC@ IOPj3okReT;nC ߪUpF&U i;@q  ;$aiP/s3T[Xn?XOL}f6M"'q@u迿&e\} F /} 0#`  {AvC/9g\p32D$`  #@\oZxۇڙCᇀ@;%gp xkLp; 4'"zŸfA!' 31M @я Ɖ2@A;%Wx. {KC @bؽi<}Dȟ=`+><" WU Jۦڸiz؏NW&,Hq=^HOL Gt00hAJyw@>9pR&ug kzuZ^7f (5@No轀^imu n$ G9/NH3<r+ q@>D)^@(`~A s68瓥AJn,|LJp8 M{YvB"#E< U B# 0$$`3u-! x;#<@uJ Xt@WK B|7lEN =>5 ?9#m38uE*yJaUo}@4g ::r<  BTf ' PD3>R >r9@Cx68ěX+N@ x g0/Z<+2tsu :Up7sK @V]o>2ӏ5N@ pY ~= @yU{^ S/B*- $^.8ƛh:F6|}(GtLRVlV; <x[&{[&smynH۪A*Dt@* |^@sy68V`^@ s_J`N[j μ=zLH;nF?7Mw>`7s, q^O; &lկ]^'|^ (- 3xxVlHf$~AlSxĩXSrJ | /[VnJrf4@+fآ7 _wnߍߤ-[A@+<oRj63w{I_Ne { EQ2tw^Q5AgD~4/1]X]f_eࡷ p"zf` ވ7dωkʼ ` kyMs Q]u 8n h;` 0oěq|5>?\j$ DtvK =ͷ@7!<Lh'!(R P3@02{ c CF ~'@|~WN1AWihVil#OUGA_Fw{{%9SuOu0d?PM0.wd@WXJ3 AM0G qo ``& H|o9`Ò Ҭtvx'Ѩ}ś]qSw&pqTo"{ @-8!Ȣ,% 8(f6 $]Y=E+,@7*4WLX Ì\0 wR0e8%"KC!d=nj@ { eX5#7LśD ^e,83C`'1rj @w 0G'f}p4^@J(d˙lΘF",CVv~\oyvW73 U3n! `[.pf n4` ŸlvW" 2屖O` 516W&2Z:Xhn7\,x .E[uͶa7MX`kw .xI[-Wt6UW7m^Ėt{G{N^nKR_ l& ۀ"5)!v-F 3ӜL=oM{ӝv#0ȰiջmHGqn39~ g =[Mɪ~;n(FK"R0`6 /3Chx~ 3;>)'X?MH+QZ`3@ F 2@ \@ C0J$d0 @6P|@0:SveIt.weitx2E4Y:be{}eF$Yz@0@]H$KʼR@_*iT**v0q _@0aAŌ]H$KX,֙ҧ?Iuw46q ?of-dft"},:r.4]?iمJQvnfX&,N @3zr/-\2 `A @A0 A  A `A @A0 A ,SIENDB`ggsci/man/figures/README-ggsci-material-1.png0000644000176200001440000005557514634136357020311 0ustar liggesusersPNG  IHDR#G pHYs%%IR$PLTE (25__ K?>& o6=D]"}Ww5 J Mijj(%3h F1g^]jI=Q$41 TUSBGCw?R+H0#QkwE-Am%2f\U/F>-xdyyw\`!?Xc F7?#4DTӔ(t,RbL[ؖ[N!W;2cc9װuh]hz6v4|:uľzRk=OJ 臆hļGCG|I,lji9I6XrWmc 8rd(ݵ=DžxͩAih=jxâ IDATx]kXM73M. $4JOi@C òl~xxS|SK+x ǻN_AKN7߾w>kӯm#,Ӈ\oA !pיXH3??MoCM}@ZΆvD[BUJd-> B(lֲ-5k?< MkkPl9ſBw;!l<7nL| !a=gM[~B~{ba='YXx^Ij/OEH@ҧЈFCyJ_r?@Y,`P8d`@pozk:)@y]<!7KXe=/m* Ф( Ho)K\49 xh la~W =0@ ē)xJ_L`WhH)OV&3]s50 T\}D"U@?*X7]W@)*W0ܧP4W`P@ " <afeFD$;*8E@c4 =TP.eIR*|^ ADz(s*@ [>LCC"+MU@2P-=&(DT d@sfDP4)D Ho d.U@< V*X{Y* @=4 n1j 9% h v.RXDyiz7.$AYXpY@^* E xR@Q<'x.5@` f,\@_{(@AHpP<: # hMh(,0DO\@WyX`τJ`B hn}<wp&'A ͋M!XB ǿn_f:?H%#ƿ*%:q8q"}W#aCͶ+|Aj-m[ɿt( Nf_X߀'  b,~4/,Co=9w_#pmu[!?t?2h͗ol!D $%E{8͋-UA!_` >G`a:ƿoͫ!!BkxB? [ ?4n\_Eu?Z o%oVS@ HOM[@y >=CU@&Dd0YZ-xIR@HXR'vpp)U@[BfQ"P~t @MH** pd.ZGu. =@Ti.  +MD d'p?~)+ _0l@O|ꪍ`^TEU@u?,/Jfop\(.)`PtWR(ؿWm. x@ yx86ܰsQ D'pA t|y"f dĞPx|S'S+ o acہY`;ڃ`/1YԪ?t/( XH2}+ N^V g%5脹WAM0E'jRS6Ri6pU@ S p¦>8 Gpm6P9vxP@G+7oǮA^F<;PK+aHVaNh*H'葐]ubꆎw[|;6$7 Q d$ wQ}Zr3xf Ѓ9;Bq?==UXuwOco5V ]v>7j-9kRpi49S3o?97wfOQ F!8/ܐ|bmw*nxDC"yVuqZ ݖ.i[ހ::X+~~Az4zؿ=CrG?#:hԀ{Fhjl r"y~lgg[cؿtAmf?h[H~Rk^Wd}Q~?u2b>&GGO c43qE5gNqX_lC/Qa5 dWsɷoހ:q0Aj ky;} 40<`ws@3q0a75 LGhDwFFhAojgX54sDA߹q)졍82;s ~0Z#Č;qg˱;atw&8{` Dp?t S zhOq`1{:7Cna<3/zm9-H@Kq ໸ǷU:o:F&73%_q\@Sr8]p4"7]/B%8SeV%@kI{[G ΋9 p~,E | @1*!= i! D?ċ~ 2 %?+Y@|؂Fapt!a?tD!'d @ $0-!p1 GsiJ с#D4ՍBY+U@+ iE#?;1 Ɖ #Z@ L%̝Vj? Y@Nd!PB¯R~ghoЍ?(!ZFa L$H*AD!5JpY@ iN辆@TЉ6.R %80b>c4L"<%~&i jYB؄, 4!4M?@2 U, G/ -H1Y@2G D.D0 ⓀBYt2t?40Y@lNIPztLpZcS܌** 5OJ($@@J~.#(/hS S @z\\ (ND5Э 8"IY@.:8(D24M.Y-D검g`F` F :i, 왦:@\&T,̆_]+'u\4H8O%p%YPkR%0ZhV@&o*X n0h('J0_)b'Z, y?|$HjѺDCI:B>Lx82 H> dY .tzBd ( (Z]C\u!,>`bPm/ 2 U*0@, A^@@ siݝY@ڽ0U8 z@@|@8P "T) w\:80XL?Ό|H D {#Xț4,X|99fN`ui4 *RPD=/0* S阯bN`47-N%t, = \X,94]~ߍA&xDYp+U UD@JM !MV!Q x+R`Y@\1ygRz.e57v&iB00hrşټ!i6p<+9DJoIgXM0F n?{dpg0P n>zNr<ƚC&{. ك:=Iyµsw$2_yEq#t9;[z0GqVʺAGoǚ^X{X=2Jb@ ;їPR^E~'+Р۟VzJ{S18x#<ɷm?Z6zGޓ_od20zH$#w>y7M ħ8<~ǷOF->IUpn/lݕlf%8#ݻ=4^җ}׾֢Fw~2Ֆ>#ূX; 54+Ahqz$^ @ Ѓ @`~ hM=xpiiXw3C'1g?idڵ%_u[ܓ+?c k;ߥkׯ^ǻ@@n]ۏƩC$~c f!k;")pT@9:opH4rr? '9Q5Wx.pH땐T@Z:hf3$Z  \c?g^wj- g-&Դ#,\`H+c>ѵ%K !pJ%DГ,X0i1 $U#( d j" <"!I@{-XX$h2Y~8 ,uS|,hM K\hZЄ΍'s?]5pЬ6OH3a0^H 4, K 2@kP0`,XY@rm V0g#h4l%d@ %j@*4Y@D 4#5l%K9fm5d @KJ`` jedMH<Ll%K +W@` Vt7ЪfUBp`,X4 &veM#l%KiM5 :Af@ Y@,X `]oSTe` @ M찕`fYX4x8Fskw}_?awW%CDfm!:}g?zKfM]o30]mL-ETJ-6+hPdo le4@H( j䮰;)eZIy%9|33vroۚJn#@Ǜlh;n[X&Sx䭓+fUŋ/ۉqZ7Ux_44f>hƅ8N9q?9:~il_Bt: "xIZ76/yk 5[t5, ,@ KAY bp"05G=ap]=?y|).uySfGk][ۺP$ѡU}a>Pt\,=x8G_+jߘ?VngoC?N{3|ѝ [x^ vf A>x L" qf٪!@cPw8W:^_>H{'{{u-u[ 8(l q8O=PH_ 8Pp[0 Q ( su*cWep5;H}F [98k~" TxTd̫0jP,'8%v//PrP S@Ԟh@5q0ҊbPGv5 qŭfPN](蕨Jkh5g G D)*fYxy `!58T,)(JA[85{KRCM8U^I\@yUTwP2@ůmanQ@p;Vꢍj2Tfmkp~z GPQ-h.l ૊>J 5i F5/Lh&á0 y P~0Q@vᱷ cA!Ej:d5LLf&m((w } jgyqſ=:\ ԏ/f-9*; 25a`tNKVM%Fp\G y3qIg@t;5 lP`-ꥦQp-x8P;Y n<\ykǕsg\5g ?*n4Y h1gSWBMب#1 (Q@;dX 5Ԛ]X (^ b&_3 k@{wQɷǾ&X |a`2 T;3 QM^ xyB( ,Z@ p`k{eruxvj9h?53_h W/.ʙ[h=VVfF(:@K^vښGӏ!C+;kP>byٚM[f<+@tv1\m5A'|Z{3k+{=q܊n1IOgLnnq{LQ@@uv`/4Q \,")>ڡ-Hɚf}=>?Gdu4~']߅>u @a#u?_i=@uAPÝ_Iݴ㿻L7+Խ#GjM?7#L ѧڗB&ƌefd/ӎэ? tK}f/j_HK:Sk̖2~l6~m/SOv?2'`%hHKw4c&t+ȴ?<dS yޣB3钿 {?wAC0.:d<_ww0̳~n8g w: \Cь1uyאi:|/d4pGT<@2`΁-rO@99 zlZvVW8P.[{ҎFe;ipšq9l*;6vIp( Gut;=}!;B @&| "ϵ:z5Ӄ;0=L!lLr "5pwCEN߳'Wf;! %GJw#`C|V$}@V) MϠ@ @3 EqX,@p@`XuHf)S@hHoJVl:v<D Pn/p#֎f#e[@`Q\ I8O0?L4!5% vWG E4ӇJ @E @-&۹ ,5O"(#Qr?Z7H K$5avw]7>? Y@/ Y@^X* k" ( ۂ&d,IYC@OfUY@lg 8@ $ݲ,^`"K&> G.`- 5),/ t(l&Ƃxh})Q ^'W,WA@r }G_S/.''y)h;cV6XVR%vPyY@k9(Z~eO"@ :ऄx)/iZ<Z=9D/Z, vW(-օ[V\"dO_n*Y炦| @J/LY5,/j/ ..t)Y@KsI8Y]%#h $gy0 p?7bKM}z"E+tx6| *Z@\-J@ؘd`k\c  sulڿa57kA\PZ@uII9lVY ,erAM, ,! -jY%H,I h;q Y"]4*SApZ .Tl%"ke#jhKmNV'40iO%i#(u-H>CJӓ Y@z+Hky0,~V 4 -klöH@e[@=RȚ,}G4G` PЦ{ia0_Q+W̵Ē `F|¤@3Yiݎ`}!mXyW-kS3Y@w1tY`Vo {O' K}99Щy̴`Հmooon'Y 5@C-) mBڀǿ hYll5u?ZoI@|Gj;h?,{8U\pWN} Ax7R7Ej!Aw#]u ;1?#O |J;bАnޭFy'Ӟ3b:_3!&E;-@tㇿh=:ϕ$:H4:!5u~en:m3!Om:p)02zYs3h%do@C 0jaφ!ÿ TD`ΐuN'QP\ HW -x0^ TJs-4[x4<TE4s'_0Z@[{|(~ZC.dUT AFY@ʧ{~9WFlg~> M_>}@Pl®J[B] @c88CAC̞C"Sxp25 ??{Hr)[2F%Kf`>hbYH{c$b)R#s2~kveyejp 2e4k"e?Mb /^?{v0}߄ӿh7Z-Ԋb\JrUEʩ)ʩ7@ak"֟#]E)?0y?otG{͠C?nLZGbݔ|*F8 G#$FW*ݙ1czM1R~zb|[7%^AbC?4n>o$;Ůe]ې+?)lB2;ېh% W )zpuddl} tx2̳oԽ᡽h%"|kd`}SEkdmZNPDa+QT,؆D_<_]T=1xO`@VIH&].eOz' H< `$ɒ?o$d#pA>7 `^_@VO U$6=$]R36[wܬN>9H=6 ` `xiδ oI$@OF hb.CI$MOJʯpw@|.I$ `=G N= @@J%&%iK]@$ ]@$;LHpOC@ %xoL}@ @AHʋ=ix9ll J9ܓl.ٷ֜Sx[I$ ` d~; `}4ϖ h @ lfoA?_ h @ t JH{|@Xyt7 @X}8 P 6^/֐f#  @rHkI$F'zF60=5i8x$zk2m/{fcH$J>xe$}'LH;$zY@/ <~p\йV9\ɹk}7X~J^ ϊe/ƨ HމvvQf/ yOcr6%,rx2x>9Sv1XTO'%Nİ(Srmz%S*S]ϛxd:IDAT~ oc?)v0@Q3F| jnSw+~Яr`rF bd.Q4QO&Co+KzGvc/;݃naoK}azt$*q#9@5+ K2O`e)=@+ LԔe?E_,!&ϊ/}+ N |zzZH>ž,@2'<=+ o BO 1ar [p|X_ @*6c; @J `jsWV@;K t/N#&'# %ɪOXc(z_ <$m.%G_ `Z8}N7;dX@ؖ&&=JPH lOHmI0@z)@@_=w+?H[f,`@:=M@֔goH$IYyD ezxx @`8_F l.08֯]@$L$]$V =1؟3  y&=.  `f^֒^@cPO6P `kwg` ^ޔ6X"<[H5#@&#D3gwHL-@z"RBO&|\(H@$$3:#D., a$ H|'V6,-Rx{EZ.ţf̖L,w2y*w6.ٺĖT./S\6/hyV*o ]hP <=}\vO8mKNj^7 5u-1/f _јt`?Wb Ɂ~u77cMv C?@+ҵʩkےSżhn\HK朗`b c?y*֯6ԟ<\ɻ9wİ#+>؎*@Az.xߑnn?Hh94; %ВURvzdU@$+@aKVKTd0lɪ|i=o=d?lɪ|);MY[*_P@b[o&q=rjsq@L {0/ bc61LE"0u`  `@<4 H 0@0@0t H  `$ ` ``$  `= @00 `$  `H. @00z0 `$  0`. HlQت jn͵AN ~9S [SAMN GsoK_b8GYүp= ?$ПsUJ?;WȩF]N]]ɩnutAǥo@j}(>'~~7jx98֟]V&[q%ɩjIRmu#ף_zG?ZI>XɥPJі8roxՃψK?xLTmMKe!!ejc/03}\RVFQ.x01?uʄTۮxQ/9 'ZHP4Å<! ?]pj:x<PP;KT5 u&`R9Pr K9 ,8lrJ G0u xtWiԀ`!H[Ηk&`k:.*Xvi]ҏ:o@"xEh*]9`*);r:r*`k껁x*S ιu0aH-Nb0uA~͟\ʀrv`gTˀX5nKa @ hh ȰJ+bob/JП ` *c[E@ZFn wyŠmp Ƹ \qJx,ԁjB@8PeV? NӾ\\BBЮ(u f%pe#Q \;< @jTp.?v;Ňf`P~&y?Iq8[/5%?^^=;-Õqu&RsN[ m6F̚gGxl_Yދ{Uq M/N?GB8[{zgk&?MF"DQ@;_uL@k;=}7/? 'z5<TD-ŗB-^?Fj%oYmūXm'$^ HE'k*t`!+>k*.xLA5@ijzQEK8ǿ{,JJ9b9ȑ=<]!@.B!hY[`(ܧ p({{p8җ0B`p`owzPL<2@kмH`"04zv uo9,@g0uVޞxBئuN:_jfS' irs wJ?zp* s}4cbzup9捿ƶПVhvU@8ek/'p o^@F~p8SP9dfHU@ՒT=3`* 3{ Lͽ@$h?Y -TV"xѱۚwT$RbPl 9~/<1rq:~0aU:-5.xvF4~o~՟8~0AJYo)_ F k(H8"*]6bg5Yc9zQ IdPnX[!Դ#Я)c`"-hWpWsG|X `=)ޟg3>$y7z?;ίNO_ض}#F+\!,M~pЯXU N/8Dȟi|HZ8|?Ł2Ki\0 NIP0`{>j|h_TY9V{P}  \ssGYb%g_dq5 iVegkP`6r+U9^ <* ,@U@e]?"Й6p9 kJ8KJR%^@֭q#9$OҪ hլZnE*?vJ)[U@qfT./ :K俖:.C*  >TtV9 *AD-n%pmSK{O8-!W'TvCA`)v 7IfySrb  *%vvq0fp:8h@Xg2^6~j*&r*q_0 cKJm5~c|k3$|(S:u=;>-T6g^7^wz<{^p9V0p|0F+IZR_e歅k  ǯ8-_m&LL$tK"r8c9燀Ox?|c9燀+@ovr[1vfe=1 @"06&I4@(9olTOhXm:+`+@`ؒ| e^jp8`M)P>]@`[X [R@M `KW0* Ku-U@8n,r`I 4*hSJc/9 @^@8~C@YԸ/NN' @_& m}PDqJ |0^8!=j_~GeƱw{Ǝw7mQ@A%@Zj6g7@w#vly(XrxdE@DJڴ8|d5r“e^f|${俞vdo#0:0Xr 1n61ݕ-y)| S|$_M м\,#cpK (0A4 "&l5k}3l?t `hC5{[p * ;gB@L*n+ .:ݟ]@yks_&MBOl+uO ?Z@MIrw\4S@S˜+0t@s5<05r ,^ ׷@ |& f@.k])h @Nv ieUWs+h>|3/` ? b` 6P` fB@S >50M4K관Jbwu.ˋX *~ ^Е ]lkgWUTc*C_{YڌϿhޟC<42@ ]@X[{@j]xomR`- kXS [ C@L V (˼X ,0r6P%@c- y$R83=C:#;qpo6/5؟mq_"phWCñ2=B~7ӗ^16m;ǽl8v 5 {IENDB`ggsci/man/figures/README-ggsci-ucscgb-1.png0000644000176200001440000010245414634136357017746 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$PLTEgDGM321?Ό]]]D|4-ONrqrNL.)"KO|;w-!%h`j}qk\$  H@$  H@ӊFU%> ֕Nq.H'@ ݵH@H " &"\q)-Jp D`a?Ac1Ew[ wN`x3n}q.I(lÒ%[ wN`=tԸ۟i_jp P;4ΰ_,ypW(5ݦ<״dGG:BX`^ۋ-* &Ke:?џa}|J$\t 癮"0ߏw؎2H~0ijګr:X>jV8py."x{Wŭ^  p2NÎyӭEV"N_ JH; $`Nә%]޳c3p{)* 厣gi]z27&`dO8s˦U͒@u+ZZGZlyvk鉫 04z@ֲe &;u2`XQ?Ts~gW(:7Uq]vkD8O4MoCa ZBT4U؟?j&ӝ<ϵS{8 >#U<"' o֭?53WFKwK-L$d2P/F>t`|> hL7A~-yK{?hn8*DL`v t~+ odcN| 1'8`jf"hrȧ t^  uLU_"r&^r]HX_  _f/ҧ ̄vz}pކn[P@~N7: zjכ P61z-x^?v6Q @bʃe~^ `zKst2βll2 |r @@ T_Վ/t~}}ճY|3ݾx 8s/`,0+/.^U_L?/+붼Ru `,{yC@{KŨѲl*%8>hG0"k 8/8YN|<<4 ;s~MH `Gh^{-ݏw6NYI@=~s38}?pGKlh\Hl.eit2OZ &'Lٸkx.SD0ȍ8^h,@Z۝h__qv'!/ƪc  r50Ay2yr#&@Rb'[tW|m>$ߋ~kpF }_FT7Fp wכ @c&6hX @:lwMͳa4z2K) n+[ %, I,@-a]We9Zѕ.uoq&c%&2hWљ ?0/`sA88QҺPTw ]50~Э~r /j9+qHp ^n1sWp]/?WުOs t@AZ ,*膀~,h >@wd\<-1HE^ L_GI`=h\._"-ٽ[B.pUd -2w1^/t.R%DQh$i&Io}=m7`/MxU`qm?F_! /{?~eZC) f\~Uh/$ $khFR0ylVh\}7)0xn /M{Be\ @y/tL_zUe@Vg"~Q+w.\j*IU=p1cql ȣ1ɽ[ A몮G0X =|Kk>@[-gVj.򽒦R)*/}dX_$fVg/bdU; zҭPq_EcUhE4k|- ,L$)b/s`Sw_ -i'4#ynLLx D@5P+Ã8ZqE@+emG7"QſG,z4 T"-V?{/.vк w\(AAKIL44R7УĪ 3=w>J ~ ` M̃. >$9$vYĀԉ`#Z@"d!4- Ī~{.Y Y,Xs(a2`MX^X 1@n ‡8jHT] ~[ v[tb5@x23:V y@Lj0}QM'>e'pݬ Yt|/_%SjE_$x&<~5~g2wnx`D ZP_ۦulJcTKM}pKJB뻰{ mHnoe4|t:jKZ'_eww[&Xx8bvE`SVB MH8`k~SNo)P7ƾLSwA!"]R?[LM Zf\U'"ь,ü+x5fER?01ǎBLtY碂0J?^Y%2p#Ie~J=l7$tfC 51!l֎8$88u!zѨPB{%Ў`PNm`xl cVzl3G]jo PwgX8\q dKJ 5"Q(Q6 'N6zZa!CMz["~j_ #[?>'h 9?M1rI'K\U8dQX>jaV DمM3o_m xB CEWLZ}0;8%}UEuT-gŖ;O۽IY9_F -x Zж! w_R4ef$'cA5}[}?J_^akh @Lf:N)@ S,4}o;V ၇fZoP Z*&ͽ荊Mȸjw1 }47a ?==L2at>`|*? @-1oK*L9E?G=y|B BMv //0~CVV6wFژaggl+eUu5OdHJ h@@k. Vo2?-nu&paBoZfNG'<r=/~'pu^WzX]Y]ӞɎ [5 8gwp?ulbm"}zsص,[ 4+B0+[bhWi2—Ռ]E,M m[\n6 (p{y t&AkWYME.`nxFV(!d:`@s {3C==<(†o!֯n%y'^0I7/?{ W5~6si'>YZtigJ '^^E!ri z +ߺڵp2!>,)7_t~Nϴ]߬@xMn@UE(}AlG]hMWuV;>` ۵AQ'm@#ZXt i<YH4^\ŃX䙶~È1 j+C陹cI6` Z' f;eѽD]L0@/RWHS?}6={ϰݵP& ri% AAq(hF`:5]JA ?dV.uԎCcLWQ?U5*cT,.x<10hsKPfbyM]Ra|J)fBlsY-fտ;/ch1~  uH=+ϠȎE/f S ?xIR *UkwD*z١0 w SzxG \p6.~3لi\v-HC2CxQ]<~(T;j̜{uE'k C@omM 6KjxS%SE\w)_)?Vp{u~s=,?}Dϊ7@kwY`o ,Y?`g|ę0n ƭTH#P'M?۫#wDJ5>ӳ=,Ni STjfŷJjVhq/)Ok7?91>v0v,=ψ ,>5f? nGAfA5Et `I+63;۷ݸ/}?4_\?\ ~9#,,,,>"@l?\3'C!3xɌ`Mzࠖ4¶P{Inv5` 9Z{!\]9",,,,>-4 X>ǵ$I8`^`rc+8zޑpШKK 0#}R/ `6>|"8rL/Q1Xժ+<@p>\qK:~f^Ko~ /ۼ'q A59>=!Ox.0w)6:)U4D uGs+H267ꋈ?沐(q^w KP[ ^$w5WB;H4@%+W90X- 5wDj IDAT9&|@a_nD8yWZI(~28Uf3#nKS]+Z <1K"4 ?̯\c&[K(AE] ?W6pT;ɠEy{48q Mwy}\Js1Bo 7hŘ#abWm9wWI!^<xeO[pd`v0.݉6m1 fA 1 Z <̣aA_RuA!./Ⓤ,P@Ab @ ?H_&n\~/~,ý= lpd@Z+@)ɵvE *ӰC`H'1iJ= Jj`DV]G B=@>~ղt /8#,,x=?`0b9^P)NifyX76 ŤJ{P%C~RS~̲ZF8įue٠ǃػ ! @Pa?!=$enZ<]\@ƿVv"XwL eR?]cnt>5h)Dwȣ)`~.BNA)u ˿XhR%a<O.CNSFhvBup ҄R H2);nj``s7^?<>@u9$ ՝b4?ZkgJd*>'ZAC3PU 2/JzJXT϶`rpB@s%rFeh^GL OV?[RDFr译 D:~僯2Mj _gp**3yt:%1+7WOR?t_>+Qn7[q , ź7(;gb?PNXXXXX> <>^D4b5Zi(8'-DWWSyv?>sI(RhhʻXXud!뇋iZ退=bI׮9 pP35c]Ī+ Bcb0 $Rѯu?$D6:򑐾l\[A 3@0^g]@hYZv/XX.U? sHɮp3UIX`mآO l¡QY;={C=쨰LH}Qc3:hmFnU ^jeJ Ʈ eC 8@cv<@%_Qn}T&X[[;bTUUa7kJqWaSS`dJ28 :"ۋP߻{.JƗ*_NX &;l Ϻ"ZAGש1zuJ6 B`z L,^k d/Q) g>mU>+\m_TFNYU=mj,"ѵ+x,OOcxxx l8@x7\?N*|H/K%Z Mc$йi/bKBjq_kz1uD]UV@>%`w`z <<| lsADb-´vO7u]Ub0Z_@S m$e[_/e_[7 5 @l#HH _aT0M -Py2:EIE UC mcqК NB`׿.P8y&oqNi Z73^7ZT 8o @Y*uK +i;@'0P:o7ۑhVh()"ZuwQc4fA9 ,$>j$vl#B 2 YS7y!kWdZSoJK1dYf 'HMTLM> Hۨ/j_/.WZN ^(O~^ .ɩ:)&Lxa@\ĭpJFc`t ƂQK[gf|Ёמ4o[ pԭ4 äӊZI)g B2ʜſ攊".TɂJ2 _Uֱ>pwyD|3曽cHȽPdz ue:0h*͠X5':.2_ o5⫸jU#rUذ̚th$Xh] @p೮1 fNϒ(lk-`/s1PňℱF^dA~M9gYp}FOƙJw -ըT{Ŀ/Pg" \wG%\|߹<k-@ڽ=bסX0wv~ۗ.qu;O3@tLt=zШF XR+B@N_`l|"g#dqD͜Kz^`Y%f=F wpzQΡ]<.ùĭ+$YࢇrGdM |I\Q6u0+ݵ[ab-^F `zcfaDh_o<| ?̷f=t [B17[Rd 34~@Y]oi ?dDL>([5: b["Ah0- 0P <u"~Bڞ%[[ ϹG,Dt't<эܭt Ź[Se-ڤ\([Jy:@mjҬ6nqYᓰ ~:>!@;+xD /ҏy6|`ت6";%s @Y}D k!:DŽI$ ?8H"r9f]y>@'6&zVgcxHSLlλzeΎJB^  fلG)> [F%l;r}?bH/f=$`+d1wNX||~@PЙRI_q%nwOc+b9&[U`v@vzXYsHuA x[$|F%?FRDiUVkR?JzQ>0u yQ,ll $R(&72=| ! Ɉi?IC!0 ѫ*翏l 9pu*DLw>~y|rx5dZkz@fb* ZWP3XѢ!ʱw*{E,$LsW@NI.Nƭ0*n"GB0= *+#ޮ뫉c@TmΎN CB1LARݤpBL.Mz2B<6/m9'f_ [w_1QfAve?afu @i~Ev:?^FeZ(fBFmco>׾InKzsryy qVgY* XLpnE`@KmEya>\%t Lxa,z (OQ(?5)oxൺPȺkšQ-[nWE6 }C=_(/f\Mظ`@UeCڶG5/*^>EIeV7+jPlD.a;ʔ2"-$ (ˊ 1@ ćUuڧNuòWvT'0Qfp|,Qn!?>G cWUq :|}fJξ`eJavJ>ˈ vq˂z;M}Vb " [C GV F3@ yy̳$ޡonU]`M( Rl¸,#e}n;nB/W|_~&_@% )b/.ܟLyO_=0UHfAr*Q Y:b x4p%Ь+<1(/0@q.CE ,pqcxk(CgR (I]32 Қ)#M_(B@)S?@GeId?,_0-M6^.߅49 , @hHaxk!s(10@D05X&< i/P=Ej'גM5vgUg .E䂦ARWM˕D._@76mp o="I§y^~ h!_lۧ 4$ V =ƀxo4Ct:i|zyzzُucm1.i:?菲,DynۭxMC*c5-1RE UN X̀Wgozhޚ$! `|ۿK}(@@W-+7]ʄI T ODČtA~tD$%n)Q@bpCW^sg _S>H;0r#௞ Hc?O8KT7G3VQ'etn6 RFxe'hVV^Z"?IM)ed]*'F4pX-ld$tNC,.#0Pkxk( Gh`d !\o;+x͔^"ݱe#V6Ƈtuv 56mNe-ϋlBoN`%A ptA/ hl; KW)p2Nl#mXCߐ5lc+Wk>&6YVD۪<\7[1At6@" LJT*rw۾!CPǟ@Afh8Khh}qekҎ6.SR'U'@MUly\[w@,Zk\Ǘӄ/ܡ/C&` ט9-浀<Ҽ000*%@s$}?5l> i99;N.dpC:nj0Ʈ, @RÆ0O)<0'307K-:_\mv:ԚӉa38[L(vF0)  !P0$pPeaK01G$ޒxjYϨ'r_/q(HY:   v Bn8@NL(CF(@qDݵk>I^a%3ne!XSK.e b xSXMN1*IOv5n0baJ}ReP \?Dב!C%p;d1n+r[K #mKGy$B|ׂvSt<&Qa%@>IH2km W79D{궻OU^@#!t_@=rO cVxU?Y0˗ڣek_t`X,$Ҋ! w"XF;/|GHLXh[ڢϙƮsѾfy{0p# V*= IDAT@4# @WKxMo=ƙC3[Y{?sul'bJM5 &@[dI>Gl4?l=i#=no-xQ%hl{5^w-|ϒp+]gi9#_8߲08S*l1D?90@kI'{8 IQa7@e7ۘL=0<!u_(x^1읋rںV5v1p9hGK|Ւ i-Ѵ4 f}+< C_8 h^7_mƒz+;xU3D3Y9,PFCX%i&˒ nS!4}ړ ׻Np++q.>0Oq,sgh[>t2b-:eʭ|@eW2pɅ);wgfk$\E:Jk ajwZ, p,p( rWug8&`b ]_X83>? EȳrJ$ Pzba#R <=mzWN0%9o87Z}8{^ RE*,=庮+e`Q DŽ) w>S)?p @uuN?x[AT.Q*?2bIw=>{}x7YlD@7ulN* @}>;Skpɡ{iVH; 10pR.UeʸNj&0C!Ƴx%@vݞG,oLTB;N#_hv|"QPh@#E8xZD]%Tb b,C`һO&aWw@MmZ>Y ƨCB!4/SVfb;T{9So^k\$(<@b(Lwgj n:[*;`NMN6tJ63zӓ[$uJp85nh >0vD󼖫dL#+OcЁKk7ao*޿@VI0W9=huOf]n[ڏy~y>ܗd#'OQ +]_0#%.d6A37#O:M\Мu\"-}-=餇4N6AbXo GA-`L#AC|B0m]!_i\W<792u6,x`1:KuD\thӀM@Yێ1|$dژ`akl@KN4T-w)> 9L20. Wq 9 I@X;_泪R[1Q9]wMj Ds#akݞF 501o{/T!A ?vu DW8e a#͠kۣ[6-82DtFD|S=@ѺN?q?sxXR~2vN4mu_ݑ@g}] ]cR'(ieM\s]cCJ|,V++ C4gٜ}Ĩ D1 :]TCk*|#̶l60 [ |DGq{^:T`UT$8q8@b!14cíQ_=b"%{Fpy TtguI @QMj`hc(Kn7 (+)j{a_$B(]@:ֻjN3 b>)`C;P@'z0000 @G(:?'a9x f+ rcP7}\ۗFP8}}.?dPlW=pu%XIe  ӳl?̾큾 ::;9^e2'=UCUN+)FMX L fM֯o k)c p)De(}@(;hY:sFj! `P2TTE ݑw YL8"*1f Ǎ`\)θ/JdZUTMvOTKlȸ8A:2ePK^5P`} G9>=ǫnN|J7[L CӮA_"fqz;wu'>ثa"TNUNr0(gҎil621w jIy vA C^o_DviߑWsG<h73D+UtSo3}(`0A`qlG(*:}?x `gFUqLaZL,l6>T+]@Ӊjzpʉ1j2<:`<RЕ;4 nwe)`>LQaQ}MB?od1x#P4%G})x@k PhQD0c @0`7+gv㥌lPlkOܾmxK" *00}rj0_c=lj._2¯00(59~+NP 6l4ǡy^컈"gn'-졎z$di+O-Ȱ@mYz`ɗb(@L (Yv[>B"?Q(HYnEP߰0tam`Qupa?zI,׆fHՐ.%!gY 7M|;z!ڣQ (xy6hM$40 w8y ZE+t[l?K(T=NU4>` ؼ#.{6yRRC9*'{ ?nHQ}9a>sdH{tW<߄}D0-%~^m'*(s|HtE#Z(,Z8d$i_OKL;|sf;|qj\Ћ:7 e`pk.d~f{$}M KD l}kC +{R|8+U}!W΋"W_(rB_}Vl},lR{7~BS?ʭ,ˬ xƭUo L 0 6>p`1/! ǧ}yNrzr}E|AyiSM o{k.K?tXE; 9?!vߠ}_.uZajB1.n=&0p[AsێjJVHP~eeE$p'd,Q0'pFj]6DC\R"䒓A'?m`ѣkyp%+ ou*F ߧ 110-3ٶUiA4U%5+#_ه,) 1,+)mE^ฑi4J#樟i7.1spA}dfBbJn`H)Ck}9~wK}k&`p[k_eVnaXLB PhOZ %=KK}qhV defl 7RZs G^ ). ~.hRL_')Y+3Bhׄ L H @Im(@ @OQkoiKQ+*k:4 W %l8BЉŷʃ 9;gՂnCs3?FYקFPH^@sEZ_$?^TqAzo'@/k՟+#E9q;`25Ng:9P1`EȟZ m}2hoɀg!'kL-e.@! tS\$ֹ[xq#s5 =@>wYWw{e7P5nmDE Ȗ`Y@l:}y1/zM%Fp (U vSa_Bl[=1k(e#ԾK$\&ghYAo%E)s5 N;?޵@RZ fSFGlWL;J?Tnb$oϨW"}zdh9 uԁU!f ~3e n n`0z h Ȳd_ dzv֑D;uS@+fUŽ}:@ \$D>uK4_ }Y #ϩG.*"Sc9kb`f(c0Qw#B@[@Q(w [ og[I9jQvvd3K6`vU  Fy U@{!hco,F*"Kg. Ol%o:]xSYV5{~9{*U<@[l( Yh*amm4r@iYՁdE7`[Hq ti[~ ԰2j!cF7Y Yh{C@Uz(sa j' -?B@o))0.i]@/?UTmfnSi!%HS7l<~1KP"F{vB?0edL4 j]f%ݕ 2^UvmQh oöOo뵼Ez~ u wcdIV Y%"~+V+ :0@) 0  ;eW -A,hZȻ='i m4 'FNQV% 4 U͹T5ln%}IՏCauB(P,cL1vR9%V`dIB{B!x \@@ 0 =aCNnWK*I 4?D vK40`  @& (QUA*;A,yWe_Np|QEGƨB 9xx,(9SG(3mP|LiY8;0ZrkB@>QadAmWwSm_i iDxWPi9!P/lw?hj6n $y_-Ͽy^xX g/?A1011Xtsը `f=4?4+i)lm㏭?M۠[` w6@\(0jRuuwQsg$CP$ϖEd~$8|z M:iKIQq\аWv/((pw @Vϋ  Wb9/" sO On=k7\v IIj]c\@ d גaA^ogo@u&0]v^ׯ}{+_\ "|Ŷ*c))h ᲁZǬ,-리lX ܙ;u ;> N%p0kTP @N(; z\?mE?$ahV #@-qg_<={eqT-@PwPN))Kw1؂826A `/[h1@ l[N@p9DR&>}.==rA&A7#RA+lysI?J!c4JnKDPT*(_Lu<:,Vװw(02—ƿEjiUm!V}M@ `@N*yC75NX[sI*:T*(|Q H-q'`᮹ 涛y2̸<7mI~\@\yzJcfc@ ,2¬ڇ0fJxKXnK#& IDATSo *b 乄0V+%aB 5=!Hcև5ZLvU %!Q2 hBD 78T@,0x(r(d1ͦߑKdMIPpH,Ad217|@"{Bۉ$ &-yrd~ݩZ jR Pwи 'HglAkJH&V[T3V``O,'[ ɪ0Wk1b5m@@n@1xd"|;![ƶ>Ds}nQox<ѨG H홑[`FL -W. U(8к~ @8; *S-%P'4(fC]n 7@퉩dp*@+ QMPeyH/ /gUA'E"RPu WP @)/ >K]? w[$Q`(P-ESx 6)w ;<'`xoTr = H(xP @.+;K1/ f3?HOz>lFsy+<PQ l@2Nw1F#mtOuȧ4k"1\DpHPV0[ Ec * w~aE8|',^CaMt;jXzaaW JܹN *sz)Mu#{lLO|~Pabd+BR ]b?Q GզWSEuv6h0 [7f{5 |D,BQ9-]PtM1P1me  _)Dpa&a?ɲSC<U$ TPx<V[qyD@_ O%?9MYOo@!Zc#e@40!<if:b 3F@, <[A||mK|l[sJ0Wn}F{'?o1vIBkhYg6]aIHQNs^x(h2yEȷWXp\inIp@p\V-Ʈ@='.rrfl~ i;83Ӣclp{o1v] | -.)]ܳS tpaq `L^d;/;~ޡn`7x/4ɷ^p6~疦Ohyb-(mї."ݷOQļ<pLa#?~=L}_7U\'Fm/Z pO){Nc)Mm ȱ}o:d(z@cW8%[_|BQJgwi@5) a6ͿuV*`s ~_! 5uu*\@ܳ=ұg1l~._an=%5. Y@FE[]x-Vѽf.=@Tygt7ٖ£] V}/a}[W/:SFooo.QW$#M*|f 0) 5|ϤbT @ng+[]*=sLni~^ﵥb6:;fۢVcٓ-:xh 5/~v{ gsK0|g+Rȷ>=c89` 1>1mAg)`܀lM=92W74,'7.WP  @u( tbIJu/&zY>B-`p(@RƖR@ȨPjcקWZ F 2 tT"@0:S ;I4F!P}Y+_kmH+ ~|K-2ME> t@\%Vf 5͗M՗A8|\&dkKUJ+}Q ΀;Q ì+Xu,k׃z>;?KXIәqm>9>6=ip0&@wtur:]< ,T @klھaH]9mE  / Pwmf2U&d辧zpWTV]&Ryp4Pm M5YwĬ"@_ 'ɹ5@?3c =NOU)X,PZV`@`-$`Nd'==*Rp<thf7 2P 0?w!E$<@ p<_&?%__:,z? MU@M5v^;Өz T@A0Pp<x@ ` (qUM2m22ƴm*]2 hT[0 v;e()ߨ1F67\c#-`{ b_U@|@]7NG!`9.,PP.bό%(67IeXLҏ4 =C L& pi0xa\*j@S=v`:p-5j-K`W4lK@Ֆ:b@݆1{ T>`Qy?Pl18 yʤco+TR\d 97#1 Ԗ&Jk8>`C>40M@ 0n7RTR@ehou,`@  @Y:H%Lxh PL%Q}!Ex; X @&R눟^[q.jYH*_px-h兑6;GIEJ)qT~q5ϧBPL0eE:b/8usa@QU@`e&؀Qnް򢈍HdI*5/Y I?['`AQF @8 ZE`5tT{K` )uW6^`+0(RO6mFϻϓ<&p_9HDjg^'z6=CO~r0pp2Q 47zQ$Y_x4hD_8~2{<(% Lo  pa: 7y8^;8I ;gGS )75j@ xC"ľ0.l'< ]zx @q{`?Z =ce@>DaiY?~#@ @'`sA Ė S.Q :T @X$o$`0?@?+R> ``*Rʝ%@ `'(fb2Mct$Nݝ< M@zr%t %NgEa~$3@#j@x??~n@),DHh .Sx?CD*6@)4Pb~ HH.6$ P4q~eGA@5P8q /8($;; M3S|eQy T7ޝsqL q`V32'爟 G`P T]p.g `EHV@Vj&iyLwk+U@bet2gb@H1V,Ί@~Z JXtMP:6KP: WU@@U>1t=P>h JU}$44M}8, G8sЛ<k:PJjx8ov[š(e@@dHqΡW^ ϐBm65Rm6X@gFZ@&N8c@fjuQ8e 8<- P8O~@ %/PO˝>5-;3q,vDk|s z U.!i|Id&& SupcdU>F ߜ@4'Qt nk?u9Sм+оvѝ8GPj-|8ou&g؍>WO<X6r_z&wuz/7D> o'[@o?`lZOs8M-)U9OTjhT|J9OHݤuK-)7@H\{9O38@]yz@@L˱f^x:zǰb }ƅ2T PlRwO鿅&M>GClr^eKEbAIb/ž T)ynةؤnMKn}{o [R=zfnKx^ijd Cu3`y;%aZfx^ǠYLrկ-Q n gw0 9ru9z.P= LQz/+gh>%ӷ>izN {Kh--} @A A A  A -@ b[Tq/e)GP//caL!3Ø%?dq?||/_@ AhQoe7"}>,p |!"-Vy|bT: `Ak,*J.p *JoIjT^<@?m9`!` 0 `K` 1 00-c``[200 d``lb.\0c  0M{_ 0c(!<R`0-@ u0`ORO0 j]:6OK#0 V΄u}idf  𱒋 +XY<"0uP}@}RDȪsD0 `k@wDօ}id`wZw]Yյ|03cfԽ0> @㽉Eo_o"650.APӸ9_1E,f^wEhr%c]~;ķ?VץUaWw5^y1z~~gaid#PBz 0 `ŵQ_E㛏K#m, ` *Ejvð4D0 ` {`0`R1 `+@^}4؊<"`J0[`2G`+ `J0 [0 [4 01 0E0 c`آ`W2G`-`x-x D0FἯ\C`+@x×mlu[`1 ɑBlh_0 `UffV?tAz`q(EpəYX; [9]bNbX\TI_ `͗V/kU˜pE}JaES5 ``m(M 2wf q䵷ֻ!1.rc_HWaMRǏ (1zkr*b8xMnj'/ڱ){=;ܑS_T>ݶcc 46KdTb WۤRonK׉TOH0\~0\be=_uN7!ȎBf}&w]@i fYEYyNZũOj:ppN!7ӜdP_.'HUڴT x &˨\&}և߫i~6؛gET]Sq"{~`OLt2+>7aL[4 ﭵ{?hq:جq" LTW`@nm0 iʔUHKZkEM!ʽj1w?pќmx=7Y>N$``%!?vΪj_6}YV~j(B~iW `w0 7PsY q%JjL40w] ޳}f1 ^ P6L+B?M_a[V.lniҏ\fH x$4(> 3u&ߗUmYAiIw3Pؓ;0Uo海AjU3xTB:5 HEcsz#0%0y#e3L޺и?4{4DܞZ0j?(@[jf:q%p70E @Ai*"ҍ|ʩݖYRHKD,;}_0`@;'-4?hE\>~V  A2N% Řz<0r/V(&0:f `j7!@->Kgޥ>ruHn q?0` `|7[B۪*' WRR͎SKiE1]u7;O{$}, p6kUncT[7u ވمEHY)=R@t/c28 ѿ0`@}J,RO7[TR"2>1#r?qGDѨƟϾQz$XΝ50 cm6>{|M |} u _~!Cu2e7J.;ı4Z;pzƻjfmIދ1 |9V{[Z. sҿ>,ԏ_oY!W_v8NOv׹JJ;ٵ( &@@5Fԩ6:NWo/:ejwDˡ.[Cݮ,2*sg]+)39O2J`or76Tֿ?0^ yY@& CmQ:.o+G;Ȑ#F}x)(p6B +楃o}d X_|}O&=`tޕh'PxR/x d'd4,2-g\tu\A?zTm90 E=0^/# Bf|?X8;P0x vgk"R H @V ɿn$xad ,:+BPu] üPH# jp<_R3f O-,P0ԅ> #@BV蔉&j|gh3L߀]4zAr*Q<[])e Yȅ,@(= ٵ.dXl`<4U0K8MD@nƽUE Ys(v_ |9/(Cc`J?i c>oPx:C^cijӼBYҺVWkV8 a0I-YP14T=QtE,t!-0ڀ;" e#U56?:q|b ״<3f_ܳx+ R)Kb|2@l?Px6,7@i Oq gQ<1J$mf m_86-$qlU?F0f:ź? <^AGFyt43q4HbHKF ۷6?g\V#k@g  )_5u`jIS52O)1Mxk |56 7$Gη//R?0Sb# /S`4jK9/t`2`3Zwq+_b` iP:oCeDf*$IE+Q RrS>f|unY+jJPH_|vCjem;^ ?Ls3f_~U ړGMgv'z  YP{uHl #@7sKQxS }Ϸ3f@co#GV W;۝l TISȽ`~[8(n+Ơ6SS_u3OPw^晟GA Wism}j#I.ʙ@ ϰ)v_*|;–gy} |!<cR;t% @J<!] }""(C2`+x|yg3f?.\.6lZ;CM<#18<\ğ)K10EI9{ ¶&éy* f>DĮz{FX'@ȃ4\ %74ҢNl?[a f6P c߄|#!pDWD )ON3  4P {ppL"jMf@_m@}R{ 3PzS `[YfQvBL -$03f^j  Qi\KA4)䠛:=  ƴݐ>G0)֬$yۭ"0x䃑R/Ot! 16^]E.Z;a lcM5`GKL0`c Jf MIUf_:wf> 4$93|e;Arf0@01R֨9z`^{(:}CgYbqm5?-_cZHzu*}  G,8ߐ0 HN<HB2Ug4cA/ )׏uI"}{N`f$ P``'3!Dr>]vej52&7y/뭗:?$Ǥ]vo7/e$=;0` `+l<nG~yįZoR̋g; #ߝl߈p'03f+:7_ye~vqUFΌP5Ż+Ͻ}v}!Я6c^F 3 ;0x 8FAJ{/9uT5FNc31eϮo_~LVX~ohF-|O'0gϞ?8uJ^i3hBK΁5Vf$iR\Fl?e5D)č=lF6a7|C'w>B@}@1oyP 8`^ +PӏfPӏ6ZH8@D[ N+5v^%b{6ImhpG2Oݜх"#^5KL^ r,{ {v @%Kd  qj$y.a(M/2b*k hP4R#;}퐖F\\#7>+K*d~ػu A-_}Z.sڄU4!|ffgYbyv,=Ϡb kxPH`0Wf ;b69"т?K) [a/a܀gaHg:DLg4ks{+sv#`   !Xo_q4@Zp[H"Oq}K#86Po x]$g{표yQ5_%V~8'}~> mjH}]@*YѲWWZ4U*cF<҇bSc /kH3WS(fcXd+o~P": .#T^TǼLLZ` |@gI/+D;g b-ʨ>hy :[soQMQ0piړE>ħ&V, B RNYX81/LDx Ǔ4dRƶ!$S=4"Q4p0xpB}7Y|Ehn9H*GxeLՍ$S=QCО<G SA3%9n\kbaf,, !?}7hfϬ~K˥a'+R0L Vp2K$% D xIL" (^;"<2i&ڨ ~vqߞPbȩ̧-_'ExNbNI}=|kNX?Pڤj@ p瓕_1Ng$T/)^{) Q )7LyHx_YwWKӵcLW#h>!/0r`lQ<9f84MĭOGb `PzF'kaze$ЕM57..*;Q8nSb5Q`Rϫ}'O|81|_8 +c^q@3C!86Ÿ[=S\K*)Su?{{u|X7?/s*y+w. TPL83fAx"/hi ܄[ژU`{xZ3fi݆}T;!!Nm!DJaƀ/c1F2]425`jUM@ӖS(*TP6Pg%a`SV.l#;<||}a',y&˳& ZsuBqq8AOiHyI`TP>Gp% <.@ %V!ﶭXa?ect(#LAbUsi!ދoOgG*^cA{пs-n9L4!@2m6&V*HRA4ZNSP@pX ]T/BT`ܱ/}oylx{i#k}:U%],z&zVAN3VT>A]'?8*T>IIcz߅$jr?/m<篩+U(P%H-ׇ8ȗa3_ˀ]'OoMPHws*3*k׫ QOt[+c:zzF{FӧN&>@ @}6CH!ad[D&[5 IMgpUQLp%%B͝^\_a(X3AV;Q`` @QCS&º6q~ʁRF<iar]tU&́d4ħ4)<*T>tZ:ḇOu9~xNXTB)DVVfX򿌢 &5U=~諁^y*sNe/Pe 5$ *Tb負qnRWl:/2BgPy ]C&Q@5l'E=8~Lް K\~&HZᰟS]V0{蟧TH^Q;ǥ`yхz0ee:sftN&,'b/:׮ rP0>Tsb3 pWܤ _"+V䃂1Qj+~CD/{-]v04 M W3[ؠm)*ƹY ;|T,IM%AH[<Ð+a1keV] $8U$<5$yGo9swYn F0qʘK"R2V "V(P.@mu-~ pG'(Ĺ|ȝ?@Vtz41S tgãuE}@fW¦bLSs'q5SkK<־`xv/`4Fv:< \vNB+XnEneP~^z7>Hc|.k'EFC/جh* Nwy"IO1uHQ~lz1G:nf2hUKU*0HOb 1&ߜ,8B(F(;ߣ7``8ϋ=h#EC`\rx-vO25O+ `5P!e6LCpn޴<0 dCk~MtN"K~ޏq>VV`?B{J{@iBn. &) `Flbye֒lu754XKPnK }6\s|JO`eC@c/e?$ g, &Af,͍{')3U=jNlHQ=4:Mr ]<+r%5aƃ͕uE{O @vb,4~엱_>83" @c#p؁dڨ J=X2wҀ@ zr }\bo,9Ig&$L`译}r["hE@ wP2N+S2S*..@]V`-!D7sO4( (2*?wʼ ī6̿A =GLv #1G0Ub>ttP{K [yL kĜN2?W\þ۸ fB[ 6Sb0Dl+ >e5`  JI8:gW$Kch~>n֝CO|9z%\JJ.څRWv=H#Xָ^`-1[n;:_Y@7H$X͚?E4E?r iB&K7w%jZ0QT 尯q|^2ݎXE101Ŗ@$C)fݞ MlN~D%(Rp*?}) sۑU@ hbwiOzt ݫ[4UQ626H4Ϣ k?-pY{%N7:;H8g nf+{"g>Q!O[?~W`2P<`(N?(d*;f[̜5#u>DI@ Itǚ)=.;}`&$`WIYeF7`eyj͹q$BpB$ԉ1/ eJ[W`()v._-ID]Og%u-ҧq1@f` %F~VCBQ:o96gFnREB4ZApN AT Ԇp߻ h(GLfe`35u/s϶8q B@ňd2${rWu@9g"5:TW-@1  w%/nKE{]<7,Fy˥: L*tv&u ɎF_  @NRM #J38M9<1 w0?U%]g=@Eߢv;-O `ZVA-H=ADi *Y 3J73 !>q.vDkYQ(N. 0`(5›l߽LI&_^]zw؜bAjK|4IBH %"~#XVX(%]' <]: `(c9nơHR7rq^p=:Ξ1L$V}Dq $Df@E #E eYxC  `(N0`(䐕ayػb(S'hEE40pkgF3GKr\F{1X KĹP < $*2 X uFRk2 Q *¿,r1d$<ec.XO-%O 0`(VC,keRO _70a. k#>\@w' l4¿ੑHg uB͒GUxƀc^'I*TL݋Xg(|ë"MX.m>P8f?( ! g9 a=&VU/D >aMpG) 73ԙ/#™KV._{% w @^!vaoAC p8h9)n(YB8i ZpJ&q4?Bm@f*Ζδ_}{I $M4JAݑ˗ ?5^u^8[֚0)՘HXq]A$D1[)]SUZ`.-S@Is9ܾ3@b?&^ѻ OUf^$ &]ĩi6JDe ꨒtNφDzwuK\TeSzׅʡHpkX,=f:VM`0p`PQןxkXeMJC!>h'Ԉ#l=e<$^T]4`f ۍgw&  n'~ `(PEQ}!0as2'\ص!-jA-;m6eW^-$p6W}5 Ej#CD"5S3{`֙TLaJY"'>E2GC  9i_Iڸ}@4~=Lҟ,\;4PѲ5*B5(Rm໕SE"c＀<0Po> ~_ pyV; w jJzv8E'V`6pzyl!̻=("Ⱦz,<ܴCmQv9P1@1=m/d=M|^&e7ߛ:QkO=еFt->Wɋ~<ԉ FT`<&}wCD(ǞPK79w-ډ@DyLW7<XmףMS;{G]1.ȷjG_.y硈stB+DQ>A^H<¤q-h^$`8{>k@COB e#D@~O] 犮rYr{pd}[H (K&joe@,M 8&&!b ϭl~YRinۈ #m@N#Kw4JuNm4M9gwہURRi]d$ XWElk5R d("/~@ !xl f*RY }\ 3?)ТXl.lWS@@{dNkon:%K7@-@lFmֆ鶅Bh(uػmURx|HL3r6SA`dֲ4Q3p%a䵢@#T?Y5h!  iMnnRO[Oy|NnL$D' 8SoO*B*+$?x3V *j|+`YŀjЊ+EC 4P>.5__}h+L0}C*X”VdԌTq2S׮„wZ@md SҚ'Y,'WR!;@C <|(`RLkwAqpPqjIٶ-sLp̡hY$|a$d]!X"JSeu)Ih!^Q1LRK 6Β0<^UQcd+ NlI dS&Z(@ii6o7:m!Z 51;{0A 9{5JBe` (>{-r""Q ydup Z@8Wņh,P#('f!sZ˽@qO})Z3IT-^3h09XKՉULȇ>Ȇ5#K0($hlvr H&JcKpTkuI5N>%9EYo\ZlFV@%r!^^9;gJd! mzI)5߉= ȍP]i7- ;缘LH{p= B HG; ,r;骉o!Ϫj?V*@guMH9!%P^P3ݔH0 ORl?Zzu{t(QQ1 B_=$- Hl}胜Il} `!XL-@oQH((@=$p/KYa?jm[g/_w0%FcvuӨ ؜Ii!O +l~eMM.!zyƊգH 4QU5m 2@J8崇_.Pfgj F/Li-ua،0QLjC!# 잵~ [r=mK;hhi `"#c3 ^:w%%V5ts &!dA+bE R-k?rxƴnv7?,^0vǵv惛vIT@Cm/oٛuwfknEås|'вjo5[^uCQ[c~5=ZPC^d3rnz̾ 4tK`diЊsV'R#LW/:p"8`&]{)RjSgU_c|BҝЃ9E@1 { iu@7#:9ʐf m#HLL]@ 뉝8^>ӵV#MZmOaFv p:[GS^~NAZldv/'2ɡ7k#AϾa"=2O29m=`p^߮ 8>degQ^F-4ϡSE}uVE2>@N,U) @K["CZ}@U~茤;#L>?#FO9(yҺw-|?D |m'|OÅ .wC[{$5 Z#5D^ o(YfFxF=roP0*)˚iԺIE_WBG_5vJ,aX޵(6@%E3acƖI!v{M6!x4ݯFWt*P/8?wrݰy H5$ ?TдxsA@1g?dqPÔ7;T^1}"E?T--L`)ʋLD1}3D5Q & { q?1bW~6l{Τfk3pll-XIP/F fAQ:'^}ٞ*L޶.g}<xcPa>!_9*kP"9rq5u|q\0"f}8EePUz ڞ*yDL i@'mr'j6NGS@.hX/wm b7*2_4e\Ʋg,{1o ||x#00Uc[t1 h"jp ?l9E^WU9x^=V4 `P (UMuOJ(@M `'8*xFZd>"EbٻQNsy(N 1]Xf=1ٹ0Gy$@)04ve:XelE ??AVJ"+:>h-Dl6 a) P9P1b> x3j~X qЍ`#`QXvpc^l 26O^ dr|$pu0Z%VHf'_0扡j,K07m_'qr4ӅZY@`o `)L c 5 v9R9𔪀`E2hh:X5=>vn6y&{MI&̙ N 2FcL0ZVV4!G #v.?uda5O錮GI:EpP';1b12dv۾TMt7Raa XNHa*P'QV鯮_]{d Ȭ i N`, Tk~a \8>X3(jYQs,eew?)C|JwK3zaT@~0Vu]^ _ر1lq.3>F-wN>&^̍, Lrfnt  bgv3ԟn"g)84 μNJ TdX ~gh5 V?vTH3j1Vx 1b?#̜sQeZ\(r?QĶ9yt'4kDdvG L 1?HFwwrV^I`Сy֩) +&e @ L 1?DhṱJֹN\>P ,BKᱨ/4e@`N`bMdiJS@ZY4R!< v:(`[b~Y"@@ V S5W2Zybu^hQCɊ@ 摌SUrO2L8Z:P#J L@ C)Y Հ>6/b=ZXm 60|7Loz?)(1b@ړMԑYqU5ւk;,- Ҿ].%= =MvuK՞ < 2<$PZ>ja~_c{բ>0͹MVanmוOf;x@=x~~MX =@   (^ 9V 1oK?4,8&E;VzeWq6,<7g9qѯ" p,8f7tbOk]0rڰajX ^oQj0qR[(^ ?V]̙5L 2+4D#k(hҍ>DO!tiߣ d۶򁫃yd&.2ՃRz4elr쒯#@ cN nZEb $CԿ߱TbtƮ=$q/C"pP}7/|8uFm2Ƈz.`>L`HH@;Y}}c8@PH@P {Ђ%P1C@]}@:"+dsČ`H WP9;fx+xsIiopls7H54bEy$$" u6jR*}B`D'a#ʙd Pe3l_ ( @ @c dTάv:fGumIj(Z{,Ƣ;O$ОdJ 1?:)BiƷP2?^$Ĉ!ǻ1tL1@J0 IDAT tSKYGl' - )Z_j L׵]?{&DaךpA1 ^lT.1zhf1 3P&lgC  5Y@K{wXڢӧ,36ݗ3+7*-k-ab>(X!QO$.0pժ +/uh^e'L ,[[BYj9 vb%Y{A #0rv$_cXl=sxnyʚbMfy=G͒~9+\O`w8k1sV.Ug1@K0= Hޘ,|!B%k"# 8 t8}Ǽ,U$鿚n1A/P vૢtCQdZiʦ&2wzJt5Кm/ygj/1 @f@1@:]@gZ0y~2=fjLiԐQjOs3W@g$2α+Ͷz8 WCa9 $ * & `#|},3@1=0dMw9\@; ֫!yJ B/С @MËa @Vnik@1 0vCmwrMٯ$+w(b m-NEhKx4` $Dw {#l]fgҬޝ4Jӳ[HD{)/f^"kc3 Ufs7P`9JieIO5K3Л,!,gbGd`1ׇwO7t" C^75R VhoX-xq)YQL\~pG!&ü[ ٸڥޮZzQ(Yo`ښyixS)Foc I?C"&(,A\;L1t=FZ0K: O8T/?? @; +`G:jϻtL|}黣1L,/S}qZf# ♓ZpEHt>fRbl#WRrwd~x'e %u,:cE4aI;׹?@nXKJy +Uxf h H%߲FHn1%Xq,q!^ A`qߚy)Yx=@עdUW0cIFM@Ѳm.L-._霳Kވ(PODuqlnik4A`DHc 15 \O2tz\d"W["B(\=1ܟiDI`b@b f^.u!PC$r !t Kd'"#,WWf~D Fu`~<@?*z@O  75RB&{ E4PgzS /H5xD9:Cg xRm. lRTݛ4d+Z{<)- ƶsƒ Y WϨ  b@?XwZQӊWJ*f-9zMw@R]Շ 9uu 9a$%oI,`|t#\?aG <W̭H8]. DƑ^ͬ^ }]"`qIRO@K@i@BY.-+R- }8ytCSeRE țlYtau޷ڽZ {#xN:-Y]:kZuo@ C}rЛuD܆f~wI6ݗ6?'fx V @T| +wlQϫ\@ nb\VWZ{Y bVxڱKKFlJEFI/@nX|L(BhL@L@ @6.X@ ]O@(W XG0/ьxH!C%=;Y, s aт!Ň!a1' =?@>]@W9?L2ۏS^ˏJ\@%8{&v\Ȧi<_m;Sh'7  F-]O6$>+U ϳ}J~>~1'tbc'M@vsA|f\rM˔ʊ |P 8' TWm7S `)~ @'PP@XKZ:H@v mYUJ1@dJi!9wN={;O.Y[u69t`r'_ HtJ @ 8j-k V7. =`'M1-,X8 Y@ @dȊO[[nѻXlcs@z:dݺSo2QxRS%2@<1u0v @.!*gA$i 3z*o H|p1ʯZNXF5P [V͋*UpU^Wu!\ [X1~)&b@Xc~Mdu @K LO`2&'pf^Am[? 9B!mv3:`".V@5& !H.c `ߗx]jI ?)Z@ @Nv3)`" tU. Z(¹M)z>;)nf1@RRQ`Y$$ߔ\aldiA u~JuPwRN =@ )J`u_R@W}4jA ~)ɆU6P[?؉@aH"!={Usc|̿w p$b $}2ɹyC%N 8 Ѓ|kU}n^\MZ\@1\@ @:@ndhezT?G։3 @ p 3M<4P3B!!["cLo읉(`'(H?qA=.uH}/ލ~p!\x_݂:@3܄*--5$4^φ ڣ rKY2m Cٍw3NOMl~F`.T7%6V locXSB0ƨ6~n1ğ]D@Mʪ&FwZm#&:`Ψ:ml;0o|2ly=N#Z@hQ-9bBYn)iR F-t$0r+ }V-@ Z@ r=8p~HƲ5B@)&xq@etk` Bؠ @^^Y3YCl 3 ` Xi!Y`%@=KܹA(r= Xڦ߈e"! ln&ayk 0 ߛ, \{L2N+Pti `~[2,Y@ sQ @ 8hׯ4^5[ (  Z@݀N*[g4NF_(! B@A:^@xo#Yn#ܸh$p=87,7Ώm5Pydo pQ@ S }= z$Dyd{'- B@8,7Ώ-c͒z*{/oוb@o @ @k +i_kZݪ]Dp{b- %)|ߌ=i`LF&E@ہ#C'* b;M:! ` 2^3λT^>pr `3z$jşBm6$oPA% Wo#tJJyJEz^HHWS@W 7@veboɷ]PaRz{"4Ca++_@̂pk_SeȌ^+AS HtC|@/3%}[0{Y<pЮ4w@;Bsk@ ND;@3ȇreR e n^A5[IㄉUM @ t/e,fLdF8ۙsMJ! @.@<d$|{`=$ Q@yXߨgr/,NN @',ߊW9N B@`_/ ސ^T9@UMW]$em( xH1 @<^m(I-D@ @;bҬ, Og Z@``%ӽuqwlQ (;GO]@}79[ k$Ȇͳ9/)EF,E @]Qpè&\Y Lo%@ c @'%@ZT `=sº(<`< @|lr4 %A =\@ ?^]hL785wZ{_`MU%,5Jv(g9u˧$F}M9!@RsQAZڂ`%u͎Pu{; p,nzN&p$7eelC ecM&PnM@`@.(< m&TK&SlrI uTH@g!"8U `P (;yH&/s }֋7u Mny5H&Id'j039 W" R7B90@-ӻ `#WQ  ),QY@@@V A^)! Y{S(q36OLLT 2H5fGԬ t܇b+0 o_&,j^B.kqp@@r4k,jL+%ܷ ^ex;@jw,9kdK P:73 (rs [)C=9@ J\GX2 ( dL#( kTT@67U~}B~p/x5o -oGl9 @@~ORNY p3(D_6ʲ|TS[T_glVm~T߰;6=䡶a |pH=é#MHx/IyMUtl~9z?TVk&ĴHYRU}pЖjf4nVso/VOXm"fc /61kMtc[&isW갛 pTGynx zȄ> jC}*>&[|7@7F_Nq#~^|l&ݘ63@@G@}r 9#F(h/Q! |(L$!@`[y L } .Q@@B)VT/s#8`H:)I7( @@ 8Xm_}(U,92P"X:.#e=}eDwt@ *wݤ+\8BѨ,PkZ)+לeyyC|- , ױƅ I=ˮ2zWMtnm\FT*%'+A{-]paV@@IGj I`$08ч3KFa6vy-?/K~=>H*|&hYn%ǟDSYHo?ʚAt#xZ 9y)Cb8 FhB \'#AH,!`@)w@.H2*e#{5`֟s?Rj [?P U0 `0^Q!6 ʆ ZIxv`Knbapݒ~ UBw~AuҙYDb8JG`A"a.6$Qݍ;T aڇ'4zk+ldm,+Pr{e<Y>!y&M uخHp0 #PWzCT^p~Ӥ)b}py$4ظa"v.CߙpH9ICԝ fzRtخ̡6&^jdU Jkً{%N{ysf-pLgokEpʀ3nF_U}!q&M)W-Њ 62U?xhZG^v7uXnw"D2ז*&-m|vELw O/J2o4ea"v`^ĀkPrbϵBگM*ZvWtpjtخD /r[ϩPIceX;΄N7ilv4IDATުf*剥vELxʀk %Kl\&ڟ6iޫdCYjtخD32a[W U4_9a{*fcv@@@xK 7RIENDB`ggsci/man/pal_uchicago.Rd0000644000176200001440000000200214634136357015034 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/attachments/_uchicago.identity.guidelines.pdf} } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_material.Rd0000644000176200001440000000273014634136357015060 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.Rd0000644000176200001440000000353214634136357015062 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{ library("ggplot2") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() 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.Rd0000644000176200001440000000201414634136357014042 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.Rd0000644000176200001440000000273014634136357013777 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.Rd0000644000176200001440000000303514634136357013774 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.Rd0000644000176200001440000000135314634136357014530 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.Rd0000644000176200001440000000304714634136357015060 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.Rd0000644000176200001440000000265114634136357015452 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_simpsons() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_simpsons() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_d3.Rd0000644000176200001440000000205414634136357013567 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.Rd0000644000176200001440000000136114634136357014034 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.Rd0000644000176200001440000000262214634136357014345 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_bmj() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + 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.Rd0000644000176200001440000000304214634136357014554 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_tron() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_tron() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/scale_jco.Rd0000644000176200001440000000255514634136357014355 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_jco() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_jco() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_startrek.Rd0000644000176200001440000000136114634136357015120 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_aaas.Rd0000644000176200001440000000260414634136357014502 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_aaas() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_aaas() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/man/pal_simpsons.Rd0000644000176200001440000000141214634136357015131 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.Rd0000644000176200001440000000212314634136357015107 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}) 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] } } \keyword{internal} ggsci/man/rgb_bs5.Rd0000644000176200001440000000233314634136357013750 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.Rd0000644000176200001440000000460714634136357014317 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.Rd0000644000176200001440000000354214634136357015054 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_cosmic() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_cosmic() } \author{ Joshua H. Cook | \email{joshuacook0023@gmail.com} | \href{https://github.com/jhrcook}{@jhrcook} } ggsci/man/pal_bs5.Rd0000644000176200001440000000221014634136357013744 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.Rd0000644000176200001440000000137314634136357014034 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.Rd0000644000176200001440000000156214634136357014171 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.Rd0000644000176200001440000000264114634136357015044 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{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_lancet() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_lancet() } \author{ Nan Xiao | \email{me@nanx.me} | \url{https://nanx.me} } ggsci/DESCRIPTION0000644000176200001440000000251414634151262013062 0ustar liggesusersPackage: ggsci Type: Package Title: Scientific Journal and Sci-Fi Themed Color Palettes for 'ggplot2' Version: 3.2.0 Authors@R: c( person("Nan", "Xiao", email = "me@nanx.me", role = c("aut", "cre"), 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") ) 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, scales Suggests: gridExtra, knitr, ragg, rmarkdown VignetteBuilder: knitr Encoding: UTF-8 RoxygenNote: 7.3.1 NeedsCompilation: no Packaged: 2024-06-17 22:47:29 UTC; nanx Author: Nan Xiao [aut, cre] (), Joshua Cook [ctb], Clara Jégousse [ctb], Hui Chen [ctb], Miaozhu Li [ctb] Repository: CRAN Date/Publication: 2024-06-18 00:20:02 UTC