You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
60 lines
1.4 KiB
60 lines
1.4 KiB
#' Pokemon color scales
|
|
#'
|
|
#' Color scales using the colors in the Pokemon characters
|
|
#'
|
|
#' Data taken from the hard work by the \href{http://www.pokegraphs.com/}{folks here}.
|
|
#'
|
|
#' @inheritParams ggplot2::scale_colour_hue
|
|
#' @inheritParams pokemon_pal
|
|
#' @family colour pokemon
|
|
#' @rdname scale_pokemon
|
|
#' @export
|
|
scale_colour_pokemon <- function(avatar="bulbasaur", ...) {
|
|
discrete_scale("colour", "pokemon", pokemon_pal(avatar=avatar), ...)
|
|
}
|
|
|
|
#' @rdname scale_pokemon
|
|
#' @export
|
|
scale_color_pokemon <- scale_colour_pokemon
|
|
|
|
#' @rdname scale_pokemon
|
|
#' @export
|
|
scale_fill_pokemon <- function(avatar=FALSE, ...) {
|
|
discrete_scale("fill", "pokemon", pokemon_pal(avatar=avatar), ...)
|
|
}
|
|
|
|
|
|
#' Pick a Pokemon palette
|
|
#'
|
|
#' Data taken from the hard work by the \href{http://www.pokegraphs.com/}{folks here}.
|
|
#'
|
|
#' @param avatar avatar name. Use \code{list_avatars()} to see them all!
|
|
#' @export
|
|
pokemon_pal <- function(avatar="bulbasaur") {
|
|
|
|
avatar <- tolower(avatar)
|
|
|
|
if (!(avatar %in% names(pokemon))) {
|
|
message("avatar not found, using 'bulbasaur'")
|
|
avatar <- "bulbasaur"
|
|
}
|
|
|
|
best_colors <- function(avatar, n=1) {
|
|
unname(pokemon[[avatar]])
|
|
}
|
|
|
|
function(n) {
|
|
best_colors(avatar, n)
|
|
}
|
|
|
|
}
|
|
|
|
#' List Pokemon avatar names
|
|
#'
|
|
#' Data taken from the hard work by the \href{http://www.pokegraphs.com/}{folks here}.
|
|
#'
|
|
#' @note Warning: huge! list
|
|
#' @export
|
|
list_avatars <- function() {
|
|
sort(names(pokemon))
|
|
}
|
|
|