R/pokepals.R

In Angela-Jones/pokecolors: Color palettes from Gen 1 and Gen 2 Pokémon

# pokepals
#' Vectors of colors for figures
#'
#' Creates different vectors of related colors that may be useful for figures.
#'
#' @param palette Character string indicating a palette of colors.
#' @return Vector of character strings representing the chosen palette of colors.
#' @export
#' @importFrom grDevices rgb2hsv
#' @examples
#' par(mar=c(0.6,5.1,0.6,0.6))
#' plot(0, 0, type = "n", xlab = "", ylab = "", xlim = c(0, 6), ylim = c(4, 0), yaxs = "i",
#'      xaxt = "n", yaxt = "n", xaxs = "i")
#' axis(side=3, at=1:3, c("bulbasaur", "squirtle", "charmander"), las=1)
#'
#' bulbasaur <- pokepals("bulbasaur")
#' points(seq(along = bulbasaur), rep(1, length(bulbasaur)), pch = 22, bg = bulbasaur, cex = 8)
#' squirtle <- pokepals("squirtle")
#' points(seq(along = squirtle), rep(2, length(squirtle)), pch = 22, bg = squirtle, cex = 8)
#' charmander <- pokepals("charmander")
#' points(seq(along = charmander), rep(3, length(charmander)), pch = 22, bg = charmander, cex = 8)
pokepals <- function(palette = c("random", "bulbasaur", "ivysaur", "venusaur", "charmander", "charmeleon", "charizard", "squirtle", "wartortle", "blastoise", "caterpie", "metapod", "butterfree", "weedle", "kakuna", "beedrill", "pidgey", "pidgeotto", "pidgeot", "rattata", "raticate", "spearow", "fearow", "ekans", "arbok", "pikachu", "raichu", "sandshrew", "sandslash", "nidorina", "nidoqueen", "nidorino", "nidoking", "clefairy", "clefable", "vulpix", "ninetales", "jigglypuff", "wigglytuff", "zubat", "golbat", "oddish", "gloom", "vileplume", "paras", "parasect", "venonat", "venomoth", "diglett", "dugtrio", "meowth", "persian", "psyduck", "golduck", "mankey", "primeape", "growlithe", "arcanine", "poliwag", "poliwhirl", "poliwrath", "abra", "kadabra", "alakazam", "machop", "machoke", "machamp", "bellsprout", "weepinbell", "victreebel", "tentacool", "tentacruel", "geodude", "graveler", "golem", "ponyta", "rapidash", "slowpoke", "slowbro", "magnemite", "magneton", "farfetchd", "doduo", "dodrio", "seel", "dewgong", "grimer", "muk", "shellder", "cloyster", "gastly", "haunter", "gengar", "onix", "drowzee", "hypno", "krabby", "kingler", "voltorb", "electrode", "exeggcute", "exeggutor", "cubone", "marowak", "hitmonlee", "hitmonchan", "lickitung", "koffing", "weezing", "rhyhorn", "rhydon", "chansey", "tangela", "kangaskhan", "horsea", "seadra", "goldeen", "seaking", "staryu", "starmie", "scyther", "jynx", "electabuzz", "magmar", "pinsir", "tauros", "magikarp", "gyarados", "lapras", "ditto", "eevee", "vaporeon", "jolteon", "flareon", "porygon", "omanyte", "omastar", "kabuto", "kabutops", "aerodactyl", "snorlax", "articuno", "zapdos", "moltres", "dratini", "dragonair", "dragonite", "mewtwo", "mew", "chikorita", "bayleef", "meganium", "cyndaquil", "quilava", "typhlosion", "totodile", "croconaw", "feraligatr", "sentret", "furret", "hoothoot", "noctowl", "ledyba", "ledian", "spinarak", "ariados", "crobat", "chinchou", "lanturn", "pichu", "cleffa", "igglybuff", "togepi", "togetic", "natu", "xatu", "mareep", "flaaffy", "ampharos", "bellossom", "marill", "azumarill", "sudowoodo", "politoed", "hoppip", "skiploom", "jumpluff", "aipom", "sunkern", "sunflora", "yanma", "wooper", "quagsire", "espeon", "umbreon", "murkrow", "slowking", "misdreavus", "unown", "wobbuffet", "girafarig", "pineco", "forretress", "dunsparce", "gligar", "steelix", "snubbull", "granbull", "qwilfish", "scizor", "shuckle", "heracross", "sneasel", "teddiursa", "ursaring", "slugma", "magcargo", "swinub", "piloswine", "corsola", "remoraid", "octillery", "delibird", "mantine", "skarmory", "houndour", "houndoom", "kingdra", "phanpy", "donphan", "porygon2", "stantler", "smeargle", "tyrogue", "hitmontop", "smoochum", "elekid", "magby", "miltank", "blissey", "raikou", "entei", "suicune", "larvitar", "pupitar", "tyranitar", "lugia", "celebi",
                                   "001", "002", "003", "004", "005", "006", "007", "008", "009", "010", "011", "012", "013", "014", "015", "016", "017", "018", "019", "020", "021", "022", "023", "024", "025", "026", "027", "028", "030", "031", "033", "034", "035", "036", "037", "038", "039", "040", "041", "042", "043", "044", "045", "046", "047", "048", "049", "050", "051", "052", "053", "054", "055", "056", "057", "058", "059", "060", "061", "062", "063", "064", "065", "066", "067", "068", "069", "070", "071", "072", "073", "074", "075", "076", "077", "078", "079", "080", "081", "082", "083", "084", "085", "086", "087", "088", "089", "090", "091", "092", "093", "094", "095", "096", "097", "098", "099", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "251"
                          )
                       )
{


  bulbasaur <- c("#15251a", "#474a3b", "#447356", "#81a48d", "#559a72", "#284d38", "#89e3a7", "#9efbc0", "#bed2a4", "#98a188", "#2d2d23", "#7f876a", "#e8e5dc", "#c1bdc7", "#cfc5ce", "#a1a3ab")
  ivysaur <- c("#43644a", "#5b9069", "#78b889", "#55363a", "#2a2925", "#94918c", "#327884", "#5d5a57", "#57b9c5", "#e77789", "#459ca8", "#42222a", "#c25d71", "#8f4454", "#79e6c9", "#19363f")
  venusaur <- c("#2b211c", "#481b26", "#336e7f", "#69c186", "#e27a90", "#5ab7c4", "#5b5440", "#152d1e", "#974558", "#4d6f5c", "#c05e75", "#70e9b0", "#70e5ee", "#4899a7", "#4ea06b", "#ede6d8")
  charmander <- c("#261a0b", "#7d553a", "#c28a56", "#ba8031", "#564120", "#f6c867", "#fae892", "#cc6839", "#6f3018", "#cdb8b5", "#022f48", "#136b8d", "#021c1c", "#07516e", "#4d5c54", "#d6e2df")
  charmeleon <- c("#472211", "#ad572f", "#e68f56", "#c36052", "#66302a", "#f1ceb8", "#fed021", "#6c5a5e", "#f9a78e", "#daa21a", "#221c1f", "#4b4530", "#d5b4bc", "#2a3d3d", "#eef9f6", "#485454")
  charizard <- c("#845b32", "#332312", "#dd984c", "#06353e", "#b3863e", "#fe5002", "#5b3f1d", "#0a5a66", "#f4cb5c", "#0d7081", "#ecddaf", "#383536", "#056161", "#033535", "#356e69", "#6e331a")
  squirtle <- c("#1a343c", "#1e2e2d", "#3a7589", "#58b3d2", "#5fb2b0", "#3f706f", "#244a57", "#4a96a1", "#71e3fd", "#559d9c", "#7edfde", "#c3aa82", "#dfc793", "#ecd5a5", "#786648", "#2e4a4a")
  wartortle <- c("#4f606c", "#414848", "#849eb9", "#242e36", "#b3d6f1", "#282d2b", "#8aa1a1", "#f0e5b9", "#9db9f1", "#cbeded", "#6a6458", "#272525", "#687da2", "#b2ac99", "#333c53", "#a7c9cd")
  blastoise <- c("#897055", "#bcdef7", "#f5f5ee", "#86a6d2", "#edf8f7", "#ab9d84", "#5a6a82", "#8f9390", "#9ac0ec", "#1a1f24", "#637da9", "#28231d", "#cbc3ad", "#938367", "#67706e", "#a5c6d5")
  caterpie <- c("#433018", "#11240e", "#65693b", "#89c05e", "#4f7438", "#899553", "#c39c56", "#6c9d4d", "#a4e671", "#345027", "#c2dd78", "#46482a", "#f1f39f", "#cd6f39", "#150c1d", "#beff84")
  metapod <- c("#566737", "#2e381c", "#263519", "#7d9951", "#3f4c27", "#9bb965", "#394f25", "#bce57d", "#4b6a30", "#ababb2", "#c6c6ce", "#ddf1b9", "#6e9849", "#c6dec3", "#b2b2d6", "#889b88")
  butterfree <- c("#1e1e1d", "#e5e8ef", "#0f0f10", "#455d89", "#222323", "#ececec", "#7baddb", "#211c20", "#6d524f", "#e7eeee", "#a29f9e", "#6570b7", "#6b4479", "#dd4839", "#3e3766", "#59605f")
  weedle <- c("#545047", "#321f23", "#5f3540", "#7a4655", "#40311f", "#484127", "#b09674", "#c67a8c", "#a58551", "#f89ab3", "#ebc37e", "#a96779", "#58585a", "#aeaeb1", "#f6ede1", "#ab6d6c")
  kakuna <- c("#7a6029", "#392f16", "#525024", "#a5923d", "#c9b24c", "#e7d65d", "#010109", "#ffffc6", "#1c1618", "#7a6029", "#392f16", "#525024", "#a5923d", "#c9b24c", "#e7d65d", "#010109")
  beedrill <- c("#232322", "#393136", "#5c5141", "#191b1b", "#212225", "#535754", "#9ba39e", "#5c481b", "#5c4a53", "#b59d71", "#cbd6d3", "#555a5d", "#f9e04f", "#ac8a43", "#bac3bd", "#d2e0e3")
  pidgey <- c("#555037", "#3f311e", "#07080a", "#b3a066", "#9d8950", "#4b442d", "#e0d684", "#64424d", "#492932", "#f7ed9e", "#5e3441", "#c08b98", "#a0727d", "#aa6f6c", "#523636", "#e2aebf")
  pidgeotto <- c("#7a5d41", "#2e2018", "#ba9c6f", "#605154", "#722922", "#a28454", "#f1e4b2", "#d8ca95", "#da5744", "#534025", "#292324", "#cd8791", "#dcb2af", "#f6cad2", "#060910", "#e3abb3")
  pidgeot <- c("#736044", "#39271d", "#c4a373", "#705258", "#3e3436", "#f6e9aa", "#decb8a", "#a08653", "#b48a93", "#6d291f", "#4c432c", "#93777c", "#dc5545", "#f6c9d5", "#070a0a", "#e0b0bb")
  rattata <- c("#6c546d", "#372c32", "#322d28", "#726456", "#9e9080", "#b38db1", "#6b6e6b", "#92718e", "#4a374d", "#ebddc8", "#d6abdd", "#e8c1e2", "#4c3b33", "#aa8bc9", "#8c6dac", "#cfc5a8")
  raticate <- c("#846030", "#463215", "#c7a561", "#a2874a", "#5c441c", "#e8c671", "#f5e1a3", "#be5e52", "#623332", "#000010", "#191214", "#fba089", "#846030", "#463215", "#c7a561", "#a2874a")
  spearow <- c("#715d42", "#261a12", "#c3936d", "#78484f", "#46272b", "#9f6e69", "#612f29", "#643137", "#5e5d63", "#a49196", "#f0d4b4", "#3c3c42", "#eed0d9", "#a7824b", "#e1bf94", "#e1aeaa")
  fearow <- c("#6f5743", "#2b2015", "#c19970", "#443d42", "#ebe3bf", "#60555c", "#a38054", "#e9c57c", "#27282c", "#626762", "#2e2629", "#533f25", "#a9898f", "#b6695a", "#9a7179", "#56392e")
  ekans <- c("#291d2a", "#1a1a13", "#5f4e43", "#6d4c6e", "#4d3549", "#bd88be", "#9c6e98", "#c1b178", "#99825b", "#e3a7e3", "#f4afee", "#2e2537", "#554466", "#4d3e2e", "#fcdea9", "#e4c47e")
  arbok <- c("#201b28", "#605177", "#a08bc5", "#1c191c", "#a493af", "#403457", "#846da7", "#655b69", "#baa9e4", "#d9c5de", "#2a2726", "#914641", "#867791", "#453b46", "#c8b0d7", "#ce4340")
  pikachu <- c("#7b6127", "#1a180f", "#040407", "#f2db56", "#d2a846", "#a7943c", "#51491f", "#d75b3d", "#080607", "#d9d9d9", "#7b6127", "#1a180f", "#040407", "#f2db56", "#d2a846", "#a7943c")
  raichu <- c("#2b2215", "#665c34", "#c4ab5d", "#e2d068", "#9c924b", "#504627", "#232428", "#292628", "#e8dea9", "#443d3b", "#433e40", "#3c4336", "#283326", "#4d524d", "#da6327", "#2b2215")
  sandshrew <- c("#6a5c31", "#2d2416", "#bcab65", "#9d8e4d", "#dfd672", "#554222", "#ecdfbd", "#172e2d", "#546554", "#0f3d4f", "#195972", "#f0dfeb", "#dbeeee", "#214465", "#1f1c20", "#a3b3b3")
  sandslash <- c("#2d220c", "#7b5f29", "#b6a85b", "#020001", "#ab8e3f", "#e8d371", "#57421b", "#e9e5ca", "#0f141f", "#162116", "#e9efeb", "#d7d8e2", "#a0a39e", "#e7dfe5", "#aa9dd2", "#465559")
  nidorina <- c("#4e6e7e", "#586161", "#9fb0af", "#81adba", "#444442", "#1b242f", "#131615", "#c0e4e3", "#b4e0e8", "#a2d2d1", "#648893", "#1d1d1d", "#b2b2b1", "#2d397e", "#98d0db", "#688e86")
  nidoqueen <- c("#23303c", "#46627c", "#7aa3c3", "#485f5f", "#1e2b29", "#050405", "#676259", "#a9a696", "#607fa9", "#e5e5c7", "#a2d7f3", "#2d3f56", "#252321", "#90cede", "#7dabaa", "#c9c6ab")
  nidorino <- c("#634b64", "#bb9cb8", "#322634", "#262424", "#7f7e87", "#484847", "#4b354e", "#967095", "#96949f", "#6e6d76", "#d8abd3", "#f5cef2", "#d6d4e6", "#025b5b", "#015a5e", "#1e3338")
  nidoking <- c("#72506f", "#302230", "#b987b2", "#e8d8eb", "#9f6b98", "#4f354c", "#465e6f", "#373937", "#deaccc", "#8094a6", "#292f38", "#e5dbf2", "#40394d", "#e9e6e6", "#5f8f99", "#242020")
  clefairy <- c("#5f4632", "#9f9490", "#6a4953", "#271c20", "#dccfcd", "#2f2621", "#bc8a91", "#f0cfd2", "#191f1d", "#9a727e", "#6e7271", "#4a373b", "#939595", "#dcafb3", "#a78756", "#553e27")
  clefable <- c("#70615a", "#bb9690", "#f3d8ce", "#6a5056", "#3e332b", "#b88e95", "#606063", "#4a3638", "#deb2aa", "#9fa0a2", "#403035", "#9c727a", "#cfd0d2", "#4b3938", "#967470", "#deadb9")
  vulpix <- c("#715033", "#3e2516", "#d39458", "#a98a4d", "#5f3623", "#fac171", "#514323", "#b7714c", "#e9d3ac", "#382f3b", "#715033", "#3e2516", "#d39458", "#a98a4d", "#5f3623", "#fac171")
  ninetales <- c("#312a16", "#776936", "#e5d878", "#c3af5c", "#9b8b49", "#504827", "#fcf48f", "#79280d", "#312a16", "#776936", "#e5d878", "#c3af5c", "#9b8b49", "#504827", "#fcf48f", "#79280d")
  jigglypuff <- c("#7d5762", "#5f5753", "#ad9997", "#b98e98", "#e2cdc9", "#f0c9d0", "#a16b7a", "#3c272f", "#8d7a78", "#543440", "#312f2b", "#ddaeb6", "#a7b1ab", "#d2b6b3", "#565b59", "#292b35")
  wigglytuff <- c("#724c59", "#a88790", "#312126", "#f2d1d8", "#a59f9d", "#e6dcdb", "#181817", "#a36b7e", "#625e5a", "#535753", "#292d29", "#52353f", "#deaeba", "#396973", "#d8b5b4", "#2a2c35")
  zubat <- c("#193a4b", "#306a85", "#112218", "#6c4375", "#36203a", "#513258", "#429ca7", "#33726c", "#234e47", "#1f4e59", "#47a2c9", "#47a3a2", "#57c5c4", "#36385b", "#131313", "#4e81b8")
  golbat <- c("#0f222e", "#311c2e", "#376b83", "#79446c", "#573051", "#52a0c1", "#4991ae", "#0b1413", "#254855", "#090808", "#5883a9", "#a8668b", "#333956", "#ececec", "#356262", "#72e5f9")
  oddish <- c("#4d683f", "#99ac68", "#32536a", "#223a4c", "#7fc263", "#57653c", "#57ac40", "#275922", "#242417", "#19301d", "#619ab4", "#9fe37e", "#b5de82", "#739350", "#294555", "#89d4e1")
  gloom <- c("#392d1c", "#1a2a33", "#c99563", "#85593a", "#43637b", "#222c28", "#709eba", "#928656", "#ddce89", "#67331e", "#504023", "#507371", "#e9dfb1", "#7cb3b1", "#bd6f48", "#2f4550")
  vileplume <- c("#385467", "#402226", "#b89d82", "#1d2f3a", "#160c0a", "#7a6949", "#ecd5c7", "#80414a", "#e07882", "#6a9bb8", "#fa9e99", "#b9606c", "#4e6564", "#daca81", "#84a3a2", "#a1974e")
  paras <- c("#5b4b32", "#2a1a25", "#38210f", "#cc9f64", "#ac9b3c", "#070d06", "#e4d875", "#724758", "#dfd0b8", "#572f4c", "#6f7868", "#c78d94", "#48431a", "#e0f8f4", "#eca7a2", "#e89eac")
  parasect <- c("#30230f", "#2b1b20", "#85512c", "#e09250", "#724859", "#cc8aa1", "#efa3c2", "#504620", "#a98640", "#a6697c", "#efd64a", "#5a362b", "#f8b8d0", "#53314b", "#ecd3cd", "#d26a34")
  venonat <- c("#312c33", "#696168", "#696257", "#201e2f", "#594e7c", "#918fad", "#a79b91", "#7c6caf", "#2c2c26", "#dbdedb", "#e1dad4", "#b85b80", "#3e3758", "#ad859f", "#dbd2d9", "#8a826e")
  venomoth <- c("#655968", "#a692ad", "#524b5d", "#322b35", "#403652", "#463b49", "#9b8dbd", "#e0cce0", "#25222c", "#88778f", "#b6aaed", "#d6d1f0", "#7f71a0", "#5f5e5e", "#cdb6d0", "#e5e5e5")
  diglett <- c("#383025", "#5c5348", "#b69b7b", "#676b69", "#ebc390", "#474032", "#95805c", "#868a89", "#68696a", "#f6d2ed", "#3b3d3a", "#7e8181", "#8d8f90", "#b5959e", "#efcd9f", "#daadba")
  dugtrio <- c("#2e271e", "#725f4e", "#b59777", "#59595b", "#5f6161", "#96756d", "#878a88", "#272728", "#997e5f", "#272827", "#f7cbe4", "#f6cd97", "#4d402e", "#bb8c99", "#868789", "#e4c48f")
  meowth <- c("#332c1f", "#2a2c2b", "#6a5f4a", "#a3987d", "#eee5c3", "#8d856c", "#cfc7a2", "#0c0d0e", "#563e23", "#241a1e", "#5e3825", "#332c1f", "#2a2c2b", "#6a5f4a", "#a3987d", "#eee5c3")
  persian <- c("#312c25", "#6b644f", "#b0a581", "#eddfb2", "#d3c79c", "#8f8667", "#494432", "#4d4347", "#424742", "#eb5e5b", "#ff9c8d", "#e42836", "#312c25", "#6b644f", "#b0a581", "#eddfb2")
  psyduck <- c("#67613a", "#26231d", "#bca662", "#9c8a51", "#ead176", "#564626", "#f2eabc", "#090a09", "#1a1c1d", "#e9f0e8", "#878b87", "#60625f", "#67613a", "#26231d", "#bca662", "#9c8a51")
  golduck <- c("#475b70", "#7d9ab2", "#1f2938", "#2e405b", "#5c6463", "#202d29", "#a39a85", "#625f55", "#607ea8", "#e8e4c7", "#add6ea", "#8da2a0", "#211f1d", "#618a97", "#918763", "#c4e2e0")
  mankey <- c("#382d22", "#775f4f", "#a7907e", "#e2d4c5", "#917b70", "#8f836d", "#d8b6b5", "#d3c1a4", "#503932", "#4e3f2e", "#9f8a90", "#ffd8e4", "#030913", "#382d22", "#775f4f", "#a7907e")
  primeape <- c("#31261e", "#ab9681", "#685444", "#eed7c1", "#4f3b31", "#91826a", "#4d3f2f", "#0c0f13", "#1d1b1d", "#bb8d90", "#edc5cd", "#d1c2a8", "#d7b6ae", "#947771", "#78555c", "#d6b3b8")
  growlithe <- c("#68503a", "#b29b78", "#372d23", "#f4dfb1", "#968663", "#d8c79c", "#2b333a", "#222923", "#c36f40", "#425140", "#494333", "#61351f", "#302b2d", "#405058", "#543f49", "#8a998c")
  arcanine <- c("#7b5b3f", "#c69464", "#302419", "#f8ddae", "#e1c193", "#9e825a", "#4b412d", "#64351e", "#444c4a", "#283332", "#4b5459", "#252f3a", "#c4703f", "#3b3d48", "#384443", "#4e4349")
  poliwag <- c("#172836", "#535a5a", "#3f6483", "#679ec1", "#141818", "#9ba5a5", "#dae9e9", "#244163", "#d1e4f2", "#547fb2", "#568ba6", "#f4f4f4", "#2c4851", "#1d1c1c", "#b9c2c2", "#5d5d5d")
  poliwhirl <- c("#19263c", "#426385", "#0d1613", "#6ca3cf", "#2b3b67", "#d3e5f7", "#181818", "#deeaea", "#dcdcdc", "#acacac", "#4e91a3", "#5a7bb4", "#3e6564", "#696969", "#a7b5e7", "#73d5ec")
  poliwrath <- c("#131e2d", "#43627f", "#7798bc", "#c7dae7", "#5381b8", "#263b62", "#daece8", "#323232", "#0f1616", "#99a8a3", "#548ea9", "#b4becf", "#4d4d4d", "#f2f3f1", "#656a6a", "#969696")
  abra <- c("#796a28", "#372131", "#a89734", "#302a10", "#ecdf4a", "#5d491a", "#d0b342", "#513a34", "#f4daa8", "#62444a", "#181828", "#563144", "#a47265", "#796a28", "#372131", "#a89734")
  kadabra <- c("#7e6835", "#262014", "#eadb42", "#b4962f", "#5d5d5f", "#caab51", "#5a4819", "#291e25", "#5f475b", "#959598", "#1f1f20", "#eee5c1", "#533241", "#c6c5ca", "#977671", "#533735")
  alakazam <- c("#78603f", "#2a2419", "#f2e347", "#594e1b", "#ae9732", "#c4a85b", "#190f13", "#5d5e62", "#f3ebb1", "#c198b8", "#9c9da2", "#6b4f60", "#313234", "#52363c", "#98776e", "#917683")
  machop <- c("#4f4b40", "#4e666f", "#273235", "#86a8b0", "#465959", "#1f2828", "#a49f8a", "#88acab", "#b2dae3", "#6a8891", "#a4cbcf", "#26231b", "#6c8989", "#b5e2e1", "#d5d0bb", "#86816e")
  machoke <- c("#292d39", "#515776", "#8e96c3", "#a9b3ea", "#6f74a2", "#363852", "#bac9f8", "#797773", "#b05d73", "#9a4858", "#171717", "#aea378", "#af84a2", "#a09544", "#151916", "#34222b")
  machamp <- c("#4d5e76", "#232b37", "#829bbe", "#697d9f", "#6e6456", "#2e2b27", "#b2d2f1", "#a1bce6", "#363953", "#aea688", "#181e1e", "#50605a", "#eee7b9", "#d8d085", "#6f848d", "#989255")
  bellsprout <- c("#363114", "#755d37", "#25351e", "#435e37", "#444b27", "#c1b750", "#e3e254", "#a19437", "#84ba6b", "#a1e682", "#6c9956", "#affb90", "#c65c51", "#314b27", "#693324", "#fda7a7")
  weepinbell <- c("#28231c", "#547243", "#705842", "#1f281b", "#81bb72", "#4d4730", "#e5e55b", "#b9a272", "#533533", "#9f9948", "#6c945b", "#394c2e", "#eae7be", "#ad6d62", "#eaa8a1", "#a0dc89")
  victreebel <- c("#48693e", "#7fba6b", "#6f5b42", "#eae84b", "#9ce180", "#a9a034", "#689858", "#202f19", "#564f1b", "#2f291d", "#c5aa5d", "#344b2b", "#b4fc8e", "#4d3938", "#f1a79c", "#f1cfae")
  tentacool <- c("#3a2b29", "#1c0d0f", "#36393d", "#4a6074", "#75575b", "#685955", "#7ba5bc", "#535b5a", "#a2968c", "#8da9a7", "#a3def6", "#b25d63", "#5f3333", "#b47b83", "#3b3d3d", "#9fceda")
  tentacruel <- c("#1b1211", "#625d53", "#3b5872", "#6f565d", "#4a4e48", "#9f9784", "#27303a", "#77a8ce", "#9eddf7", "#e17884", "#c05d68", "#8b856e", "#362528", "#652e38", "#cce5e4", "#30342d")
  geodude <- c("#2d2b27", "#5e5b53", "#4b5051", "#9f9988", "#2e3032", "#484a4a", "#2e302f", "#878272", "#a0a4a0", "#454137", "#3c4143", "#d5ccbb", "#c7c6ab", "#3d4141", "#a1a1a2", "#c4bcbc")
  graveler <- c("#2c2c28", "#a2a192", "#646358", "#848375", "#acb2aa", "#5e645f", "#bfc7bf", "#c4c4af", "#171917", "#d6d5c2", "#bbc3bb", "#41413b", "#af818b", "#a0727b", "#3c423c", "#957971")
  golem <- c("#665f56", "#a39989", "#22201c", "#868372", "#e6dfcf", "#d2c79e", "#937870", "#464236", "#473c3a", "#eea5a4", "#4d514d", "#262826", "#a3a1a2", "#ccd0cf", "#8e5058", "#512c30")
  ponyta <- c("#c8a013", "#92621e", "#d9a343", "#1e2a3e", "#ecd750", "#1d1305", "#2c4060", "#f6e99e", "#32496a", "#4e4725", "#ff5b02", "#f2da07", "#6e2c20", "#302b33", "#c8a013", "#92621e")
  rapidash <- c("#f48d07", "#191309", "#a45818", "#c0ad70", "#dfd086", "#fed600", "#1a2638", "#f3e69c", "#354e6f", "#5b411b", "#293d5d", "#712e16", "#f4500d", "#183131", "#3b4941", "#271c21")
  slowpoke <- c("#745668", "#282826", "#453038", "#bd889a", "#675e5c", "#a99795", "#f8c0d0", "#eedad3", "#a26b85", "#e2acba", "#533445", "#dea8a8", "#4b4e4d", "#9e7474", "#c8c1b1", "#f3f3f9")
  slowbro <- c("#68505a", "#c0949e", "#5f5855", "#2e2d2c", "#909097", "#b29c97", "#f0c6d5", "#ebded5", "#eba8be", "#cfd5e7", "#505055", "#3c232b", "#a46b76", "#292d2a", "#55343c", "#555857")
  magnemite <- c("#305572", "#1b3139", "#341b17", "#592b29", "#849dac", "#85433b", "#9faaa5", "#c4dcec", "#adaba7", "#25415b", "#bf5a4a", "#cdd6d5", "#7ae8f5", "#efefef", "#a39ba6", "#b4bdcd")
  magneton <- c("#351914", "#14303c", "#3b5e75", "#754e47", "#859aad", "#642f28", "#bfd9ea", "#526867", "#a99a93", "#2b3232", "#273f60", "#e7e6e6", "#d3eaea", "#94aaaa", "#184960", "#4798ac")
  farfetchd <- c("#2d2716", "#6a5a46", "#ad9782", "#161f10", "#ae8e32", "#54461d", "#30292a", "#496833", "#e5d6ba", "#e1c870", "#0c0c19", "#8f7b75", "#344a25", "#4b3b49", "#493b39", "#d8b6b4")
  doduo <- c("#6e533d", "#30231a", "#ca996d", "#a37e55", "#f2d9b1", "#e6bf8f", "#513f28", "#5b3726", "#b37150", "#191f23", "#132322", "#ffab8e", "#6e533d", "#30231a", "#ca996d", "#a37e55")
  dodrio <- c("#28231f", "#725643", "#c29672", "#f5d7ad", "#9a7e5f", "#4f3a34", "#efbe84", "#b66c56", "#454234", "#232726", "#23262c", "#dcb4a9", "#1c1719", "#463d41", "#828d79", "#4a4042")
  seel <- c("#313437", "#585e68", "#969daa", "#ced6de", "#585756", "#1d1d1c", "#e1ded2", "#a5a199", "#d9e1dd", "#a8acab", "#757c90", "#3a3f4b", "#5e6260", "#262827", "#d6d49b", "#b8bcce")
  dewgong <- c("#2c2c2c", "#4d545e", "#ccd3db", "#272b31", "#8f9bab", "#e0e0e0", "#a3a3a3", "#5f5f5f", "#d5dada", "#acaeae", "#dbdadb", "#585c5c", "#373f4c", "#757f8e", "#292b2b", "#b5becf")
  grimer <- c("#382d3f", "#2c2337", "#1c1f1b", "#695570", "#a98cb2", "#a48cc8", "#8c7297", "#604f76", "#45374e", "#433454", "#8470a2", "#9a9a9a", "#e5c6e6", "#d1aedb", "#626262", "#dcdcdc")
  muk <- c("#302833", "#635569", "#a692a9", "#342c3e", "#9e8db5", "#292724", "#2c2f2c", "#625771", "#535554", "#e0c8df", "#87758f", "#46394a", "#555454", "#939593", "#ceb4d1", "#857598")
  shellder <- c("#27213a", "#2f292c", "#7d6fae", "#5e5280", "#a08dc9", "#3d335f", "#bfa9ef", "#775872", "#272222", "#e7a7c8", "#ded4ef", "#ba87aa", "#42374a", "#9a6a91", "#f4d1ea", "#ffffff")
  cloyster <- c("#2a213e", "#5e4d81", "#3e3157", "#856fad", "#9a86c6", "#9b869a", "#342d33", "#b8a3f2", "#6a5b68", "#463b45", "#e8c9f5", "#ccacd8", "#141311", "#8b7690", "#d1c3ef", "#595452")
  gastly <- c("#a63bb0", "#6f5f80", "#241d22", "#eae0ee", "#dbd4e5", "#1c1a21", "#292321", "#5b5248", "#f1f0f0", "#51323c", "#543534", "#b09fb3", "#a89eb4", "#ababab", "#a460ad", "#474131")
  haunter <- c("#595078", "#2a253a", "#9a89bf", "#383356", "#5d4f66", "#7e72a1", "#b18eb1", "#201b22", "#c4a9e4", "#d4cae5", "#cbaddd", "#986e88", "#d8baee", "#fbfbfa", "#463a46", "#181717")
  gengar <- c("#564d7c", "#231f36", "#9788c4", "#7a6fa4", "#5b4e61", "#3b3463", "#a790b2", "#322b32", "#e3dff3", "#c0a9e3", "#c8aed6", "#f1e0f5", "#f9a8a5", "#f7d3cf", "#857390", "#1e1d1d")
  onix <- c("#1e1d28", "#57566d", "#9792af", "#1d1a1d", "#767798", "#675d68", "#2e2a29", "#a79aa8", "#3a3a4e", "#5c5a5a", "#dbcad7", "#9b9797", "#bbb4d4", "#dbd6d6", "#423d44", "#867a87")
  drowzee <- c("#544e16", "#706332", "#a8992b", "#2a2617", "#ede042", "#19181e", "#d0be39", "#292229", "#6a5664", "#e4e4c8", "#4b3a3a", "#a78192", "#535159", "#9a7298", "#463d42", "#d1d12e")
  hypno <- c("#b0a22e", "#2c2810", "#7a6a22", "#eedc41", "#594c13", "#ccb84c", "#dedcd6", "#e0e4ea", "#5f6261", "#e0e3e3", "#9ba19e", "#999ba0", "#09081f", "#717476", "#503833", "#b5acb4")
  krabby <- c("#342919", "#6a5647", "#c4956b", "#f0ddd2", "#6b5a5d", "#a48d50", "#1e2322", "#494626", "#565c59", "#57392a", "#edc579", "#98776d", "#342c2f", "#4a3d3e", "#9f8586", "#d8b5af")
  kingler <- c("#755540", "#241c14", "#ce966b", "#edddce", "#ab7457", "#a97f4d", "#393335", "#f1c274", "#63595c", "#1f1f23", "#5c3727", "#585a5e", "#443d3f", "#d4b7b3", "#504123", "#8a7b7c")
  voltorb <- c("#30161f", "#1e1d17", "#5b595d", "#4d4f4f", "#6a615a", "#de7e8d", "#b1908a", "#bc5d76", "#92485e", "#fe87af", "#282b2a", "#2b2b2d", "#9795b5", "#642f41", "#eaccbf", "#9b716e")
  electrode <- c("#2d181c", "#191918", "#f1f0ee", "#854051", "#625f5d", "#a5a3a0", "#662a33", "#dcd6ec", "#f6f0f8", "#a4a0ba", "#a79ea8", "#ba576c", "#bcb8d0", "#262527", "#6a6772", "#632d2d")
  exeggcute <- c("#5b4d4b", "#1d1c1b", "#685052", "#a99796", "#efd6d4", "#412f32", "#ad8e91", "#d3b6b5", "#e3c6c9", "#977278", "#b7ac32", "#897a79", "#d7b1b4", "#21212c", "#504e52", "#4e3a3d")
  exeggutor <- c("#65644a", "#2c2e1d", "#4c6f3e", "#afa87c", "#82b969", "#699855", "#c8d389", "#878d5e", "#a7df7e", "#25371e", "#e9f0ac", "#354c2a", "#3f482b", "#bdfb8d", "#e28c94", "#eaa49c")
  cubone <- c("#554b40", "#9a9891", "#3d3831", "#dad7d1", "#a28353", "#e7e8f3", "#cbc3ad", "#877d7c", "#b1abac", "#613c18", "#7a817e", "#d9d6d9", "#cebaba", "#554b40", "#9a9891", "#3d3831")
  marowak <- c("#675c51", "#352f27", "#aaa396", "#ded9d0", "#e3e4eb", "#0d130a", "#a08153", "#4d4328", "#545457", "#9b9697", "#d4c3a1", "#a0a0a5", "#2d2f33", "#dedddf", "#676667", "#d9dad9")
  hitmonlee <- c("#2e251e", "#665848", "#b69c82", "#88806f", "#f0e3bf", "#4a4232", "#cfc59e", "#503b31", "#97776a", "#e3aca9", "#2e251e", "#665848", "#b69c82", "#88806f", "#f0e3bf", "#4a4232")
  hitmonchan <- c("#68533f", "#382e26", "#be9a76", "#574c4f", "#ae989f", "#4e3f2c", "#9f8058", "#f2cca1", "#da5e46", "#e7bf8d", "#241e20", "#dec1c7", "#d2b6bd", "#55382e", "#d3b5b5", "#907680")
  lickitung <- c("#452d34", "#c28695", "#774d5a", "#aa9c96", "#646861", "#e8cfc4", "#f8c2d0", "#6f615d", "#a56b7d", "#e9a7b3", "#262322", "#dab2b1", "#8a908a", "#58343f", "#303231", "#9e716f")
  koffing <- c("#241f36", "#584982", "#3b335d", "#7b65b3", "#f0edeb", "#9980c6", "#c794a7", "#ed9db0", "#6b4c64", "#a3a1a0", "#e3dfeb", "#141414", "#2b1d36", "#626262", "#4e3454", "#dbc7ce")
  weezing <- c("#241c28", "#272131", "#6a4f74", "#ae82bd", "#936da2", "#59486b", "#483751", "#443853", "#9c7bbe", "#8c6eac", "#b4a7a2", "#e5e1de", "#f0def0", "#221d1c", "#e1a6f0", "#656161")
  rhyhorn <- c("#171921", "#545967", "#090b0b", "#8f9cb1", "#666867", "#393d4b", "#727a97", "#1f1e1e", "#c9d5df", "#626262", "#999999", "#99a7a6", "#cbdede", "#b5bcd1", "#e9e9e9", "#acc7c6")
  rhydon <- c("#555d6e", "#8d9eb0", "#5e6564", "#242933", "#383d4a", "#aca69b", "#e4ddc8", "#c2d3dd", "#717c97", "#66635d", "#2a2f2f", "#242322", "#d2e6e6", "#92a4a3", "#cbc3ae", "#b1bdd5")
  chansey <- c("#7f5161", "#c88da0", "#f0c1d3", "#301f26", "#433533", "#e4a9b9", "#583143", "#745554", "#a46a80", "#b88c8b", "#f8d4d1", "#9c706e", "#e4aaaa", "#4b3838", "#191f37", "#2a5482")
  tangela <- c("#4e7287", "#813a3c", "#6c9fbc", "#1c2738", "#652e2d", "#90514a", "#2b3d5d", "#401c1d", "#34251c", "#577fb1", "#273736", "#672c2e", "#5d8b9b", "#e6856e", "#4a6b6b", "#faf9f8")
  kangaskhan <- c("#78604b", "#33261d", "#b29373", "#f1e6b1", "#d8cb95", "#333334", "#553531", "#96845f", "#a4765d", "#281a1b", "#4d412e", "#b19ba8", "#535357", "#79626c", "#dbc7ce", "#8d7681")
  horsea <- c("#486a77", "#243640", "#262f2e", "#6fa7c3", "#435755", "#83adaa", "#abebea", "#9fd1d0", "#638d92", "#97d8df", "#a0e8fc", "#adb595", "#c5d0a8", "#e7ebc3", "#5383b0", "#84544f")
  seadra <- c("#3d5f78", "#72aacc", "#29312e", "#84b0ae", "#a6a788", "#566965", "#223440", "#2e2d24", "#6d6f5e", "#9ee3f8", "#e8eac5", "#92d1df", "#b8f0ea", "#6f8884", "#c7caa9", "#a0d4ce")
  goldeen <- c("#2e2d2c", "#524c4c", "#9f9ea5", "#302e30", "#b09d97", "#dfd8d5", "#5a5659", "#b3afb3", "#5c5b60", "#242629", "#e3e6ea", "#292c2c", "#e1b1a4", "#5a6060", "#9d7468", "#cdc7cd")
  seaking <- c("#9e998f", "#5f5752", "#29241f", "#e3e1df", "#626863", "#1b1d1e", "#f1ebf0", "#edeaf1", "#353937", "#686769", "#8d948e", "#828178", "#c86747", "#d3d5d4", "#8e8d8f", "#c2959d")
  staryu <- c("#32270b", "#885f1c", "#5e4314", "#bc912a", "#e6a932", "#f7ce42", "#ea3b46", "#ed4e3d", "#c0272f", "#b11d27", "#32270b", "#885f1c", "#5e4314", "#bc912a", "#e6a932", "#f7ce42")
  starmie <- c("#514f6e", "#8b88bd", "#343257", "#6b6ab2", "#28263c", "#a4a4f2", "#a99d1f", "#83632c", "#252322", "#e34040", "#c8c6fa", "#991515", "#5f5e12", "#ecd92f", "#8b464e", "#d48b63")
  scyther <- c("#1d1f18", "#20291b", "#8fb27f", "#53684b", "#768b6c", "#535b46", "#a4db90", "#364a2e", "#b7e6a9", "#97ac7e", "#3d482e", "#7b8e64", "#c0d197", "#d6e5ba", "#0d0a0c", "#ced3da")
  jynx <- c("#f24437", "#6b4871", "#35211a", "#9e4234", "#2f222f", "#f5eeb3", "#bea17d", "#81231d", "#b57db8", "#e1cd89", "#474530", "#9b69a3", "#532f4c", "#14141b", "#9d8951", "#f89b99")
  electabuzz <- c("#6f5d35", "#2c291a", "#a08444", "#c7a75e", "#f3d86d", "#514426", "#0d0d15", "#efebb1", "#241e22", "#232a27", "#4d3b33", "#494043", "#c7abba", "#838388", "#eceff6", "#62686e")
  magmar <- c("#251808", "#935c24", "#da9a63", "#52441d", "#fadc54", "#f45a17", "#792711", "#bd9e26", "#eedcca", "#646a67", "#e4df0d", "#826364", "#1b131a", "#090c1a", "#e3afa6", "#9ba2a5")
  pinsir <- c("#2d2826", "#6d5c54", "#a7998f", "#736e71", "#282527", "#e2dfdd", "#989298", "#cdd5dc", "#67686e", "#989ca2", "#4c3b35", "#d3dbdb", "#9c9f9f", "#4c3f2f", "#232629", "#99796a")
  tauros <- c("#242430", "#79604a", "#2b251e", "#4c4e61", "#be9262", "#070607", "#a97f4c", "#393a4c", "#a1a1a9", "#aca2ab", "#553f26", "#6b6168", "#493b39", "#907b71", "#fabc6c", "#1d2121")
  magikarp <- c("#3f2819", "#b7a99f", "#746039", "#e1e5e4", "#a6a8a8", "#d85f42", "#e3e0de", "#a0874b", "#7e565f", "#f2cb6b", "#a26b76", "#b97882", "#742c1f", "#4c4526", "#f2a19d", "#491f27")
  gyarados <- c("#132b37", "#3a657a", "#6b5e57", "#122423", "#86aabc", "#ad9380", "#cbd2e1", "#2f2825", "#455957", "#3b9ab5", "#e5ded2", "#7fb0ae", "#1a4d5e", "#c2e1e0", "#71efed", "#b9bccc")
  lapras <- c("#355d7e", "#5ba4c9", "#192c36", "#524a52", "#5e5654", "#b1a49a", "#e2d7bb", "#a2909a", "#322d32", "#254060", "#332f2d", "#4f8ea8", "#2b474b", "#4d84b8", "#cec2ab", "#887986")
  ditto <- c("#312d3c", "#363c38", "#663e6b", "#44294a", "#9493af", "#5a576c", "#f2cffc", "#b7b2de", "#cdcee7", "#552e5a", "#b789c9", "#7c7999", "#9a68a7", "#404444", "#d2a9e8", "#1f1f1f")
  eevee <- c("#805b32", "#3f2916", "#c99a52", "#a67f4b", "#5e3f1d", "#ebddb7", "#e1c78f", "#04141f", "#5e3826", "#805b32", "#3f2916", "#c99a52", "#a67f4b", "#5e3f1d", "#ebddb7", "#e1c78f")
  vaporeon <- c("#2f5b77", "#0f1e28", "#254656", "#68aac9", "#636868", "#a2a190", "#5f6057", "#c8e6f6", "#272724", "#e4e4d2", "#272d2c", "#5590a6", "#d1dede", "#97a19f", "#26435b", "#c7c7ad")
  jolteon <- c("#302a15", "#645832", "#9d8b46", "#b2a26a", "#514721", "#edd164", "#e1e1d8", "#7d7d80", "#dbe3df", "#5b5a5b", "#312437", "#9f9e9f", "#1a0d32", "#e0eaf3", "#ddd9dc", "#482b74")
  flareon <- c("#7e512d", "#352113", "#c39d62", "#faef9e", "#dfd089", "#92895a", "#6b3319", "#d26b32", "#031c29", "#4c442c", "#011e1e", "#2a2124", "#294664", "#8291a0", "#7e512d", "#352113")
  porygon <- c("#241114", "#0b2127", "#246877", "#2a1312", "#0c201f", "#1b5059", "#e64652", "#41cbe0", "#61e8d6", "#a8323c", "#7a212b", "#692927", "#57cdbb", "#744540", "#518077", "#34a2b4")
  omanyte <- c("#28291e", "#235a72", "#66684f", "#a6a77f", "#596958", "#e9eab7", "#143241", "#4d9b9f", "#58b3d4", "#879c82", "#cbcca0", "#898662", "#46432b", "#6b8e7b", "#2d382f", "#2d4843")
  omastar <- c("#1d1e16", "#747559", "#256481", "#153747", "#29504f", "#4fb7d7", "#edecb0", "#a5a980", "#141d18", "#88a287", "#547060", "#cfcf99", "#194a61", "#4399af", "#6e8c76", "#8b8a64")
  kabuto <- c("#201b11", "#78533b", "#c28b57", "#9f8452", "#e2c979", "#51462a", "#57372a", "#fedd8e", "#fe93ab", "#111713", "#b9714a", "#271a1d", "#784a54", "#da8194", "#101218", "#af6877")
  kabutops <- c("#7d5835", "#c29d6b", "#372518", "#e9dfc1", "#ad8247", "#e7c87c", "#554024", "#59595a", "#1e262c", "#7f8081", "#603820", "#464546", "#99776a", "#deb8a3", "#192211", "#4b5247")
  aerodactyl <- c("#535978", "#242433", "#9298b5", "#39355a", "#202221", "#6f779b", "#ccd0ed", "#b2b6da", "#212121", "#5c5a5a", "#a0a0a0", "#78515c", "#e5e5e5", "#b78691", "#506767", "#3c2328")
  snorlax <- c("#052d3b", "#eae4d3", "#117186", "#0a5567", "#625c59", "#b2a397", "#0b2626", "#252220", "#6e6366", "#292529", "#1da3b7", "#327877", "#a09298", "#cdbfae", "#e0ece8", "#91a59e")
  articuno <- c("#102230", "#356080", "#6d98bd", "#4874c8", "#26342c", "#47605e", "#254161", "#bbe1f5", "#4695ae", "#1d4b58", "#95948c", "#252520", "#636260", "#90c5f7", "#6de0f1", "#77b1af")
  zapdos <- c("#1e180f", "#6a5d37", "#d6a74d", "#08131a", "#4e4423", "#efd26a", "#080e0d", "#a38b46", "#f9eb9c", "#e16225", "#778874", "#191419", "#445143", "#782f17", "#594e52", "#304737")
  moltres <- c("#e05004", "#f29507", "#fef200", "#1e190a", "#e1a050", "#f2d84e", "#555119", "#f9cfa1", "#832d03", "#fca990", "#f75b15", "#343e34", "#02011c", "#e0606b", "#dfe5e5", "#e05004")
  dratini <- c("#52524f", "#5c6172", "#474a4a", "#8d99b1", "#343c4d", "#1c1f25", "#a6a6a0", "#0c0e0e", "#e0e0db", "#757475", "#707995", "#b9cee5", "#2c2b29", "#d8e0df", "#acb4b2", "#818479")
  dragonair <- c("#526274", "#7a9aba", "#c2c7cc", "#646363", "#283747", "#3e3d3d", "#dedcdb", "#a2a2a2", "#6279a8", "#dce2e1", "#9fa2a2", "#2c3e5a", "#acabac", "#a4bfe1", "#4c6a66", "#25302e")
  dragonite <- c("#755f39", "#c1a675", "#312c1b", "#9b8756", "#e5cc85", "#524522", "#eee5c0", "#1f2f2b", "#1e1f20", "#1b7961", "#125d4c", "#52515d", "#857f80", "#7b7679", "#d5e7e0", "#a0baa4")
  mewtwo <- c("#a19fb1", "#595865", "#555554", "#d9d6e5", "#212120", "#b091b1", "#413c4a", "#715b75", "#e0e0e0", "#3e3140", "#9e9e9e", "#282830", "#969797", "#48394d", "#e6dbe8", "#bdb9cf")
  mew <- c("#5a4e54", "#362a34", "#b28ea5", "#e7ccdb", "#4d3a44", "#a1a3a2", "#a8a3a3", "#947189", "#696c6b", "#eae3e2", "#686262", "#dcaec4", "#d6d9d8", "#343232", "#323635", "#d4b5b5")
  chikorita <- c("#22321c", "#5c765d", "#80b173", "#619755", "#606754", "#9aaa80", "#24231f", "#d7eeb1", "#c0d69c", "#7e8b69", "#334b2d", "#9bdd86", "#c3e0b7", "#3c492d", "#5a1123", "#844451")
  bayleef <- c("#2f2f1c", "#424f29", "#66683f", "#b4b16f", "#1b2915", "#4a723a", "#d8cf82", "#8b9155", "#2d5029", "#7aba66", "#639950", "#ecdda3", "#9fd86f", "#736e71", "#772720", "#aba5a7")
  meganium <- c("#1e1b0e", "#a2ae7c", "#736b59", "#5f5112", "#506744", "#bcd678", "#979740", "#222b1c", "#e8e5d9", "#d75565", "#86a670", "#72955a", "#df6e7d", "#8b424a", "#37482c", "#e0ecde")
  cyndaquil <- c("#1e1b12", "#846f48", "#586b66", "#132c2b", "#b8a570", "#0c2528", "#94885c", "#dfcf8a", "#1d5454", "#1d5557", "#f2e59f", "#48452f", "#247479", "#868691", "#eee8e9", "#876e73")
  quilava <- c("#4f1707", "#183d39", "#695a3f", "#306764", "#c29e68", "#236e73", "#22524f", "#175359", "#183e42", "#782014", "#97845a", "#d9ca87", "#f8e79f", "#484735", "#e56725", "#262025")
  typhlosion <- c("#1d212a", "#71643f", "#e7cf80", "#c7ac66", "#2a2519", "#4a5363", "#030403", "#f8e594", "#998955", "#47452d", "#383e4c", "#36242b", "#5f6563", "#5d4d5b", "#543137", "#752e25")
  totodile <- c("#1d3439", "#60abb6", "#3a6a75", "#172424", "#7de4ed", "#4b7271", "#274850", "#5194a5", "#72bcb9", "#4d4541", "#7cdede", "#f8f7a7", "#b7988f", "#549997", "#91e6fb", "#221a1a")
  croconaw <- c("#432025", "#446d89", "#1c2c33", "#69a7bd", "#211d1d", "#642c37", "#944155", "#4e6564", "#b1b077", "#5c5b43", "#181f1d", "#93e9fc", "#f5f3a5", "#bf566a", "#85d6eb", "#d6d388")
  feraligatr <- c("#62a9cd", "#40667d", "#14252f", "#411e1e", "#814442", "#bba68a", "#75ddfb", "#4d8eab", "#e9e2c1", "#cb5555", "#67302f", "#293b3b", "#b8deef", "#934346", "#bf5052", "#d3c79c")
  sentret <- c("#32251f", "#6f5140", "#cf9371", "#f7edcb", "#533a30", "#fe8c88", "#0f150f", "#ad705c", "#d8c1a1", "#47452e", "#9e7f5b", "#ff8687", "#1d1415", "#32251f", "#6f5140", "#cf9371")
  furret <- c("#79664f", "#3f2b22", "#b89977", "#f4e0b5", "#d4c89e", "#908363", "#55382e", "#a07761", "#4b4031", "#ecb797", "#79664f", "#3f2b22", "#b89977", "#f4e0b5", "#d4c89e", "#908363")
  hoothoot <- c("#2e2824", "#685847", "#987f55", "#c89c72", "#5e565b", "#231c21", "#110f15", "#ecd6c6", "#96888f", "#e9c283", "#4d3b34", "#4b402f", "#6d667a", "#d6b7af", "#473b42", "#b36d59")
  noctowl <- c("#725844", "#382c24", "#b79473", "#f3e6ab", "#d8ca95", "#918662", "#513931", "#4a412e", "#a7735e", "#452e30", "#725844", "#382c24", "#b79473", "#f3e6ab", "#d8ca95", "#918662")
  ledyba <- c("#695849", "#312219", "#cc956a", "#212123", "#ebe8d6", "#928562", "#94969b", "#5f6060", "#dac891", "#484130", "#4d5055", "#919392", "#ca6b3f", "#2a3431", "#5c3528", "#373436")
  ledian <- c("#24211e", "#54181e", "#675c56", "#7a252d", "#a0343d", "#d94754", "#aa9f8d", "#0a120f", "#ebe7d2", "#193141", "#e1cc89", "#424236", "#3e6b86", "#6d2828", "#6b98b2", "#d34f4f")
  spinarak <- c("#2d301b", "#3e4b25", "#a9b16c", "#595e37", "#486144", "#959653", "#ced475", "#432124", "#325e69", "#22302d", "#2e4943", "#d4f39d", "#213d4f", "#738f67", "#84b56e", "#71343b")
  ariados <- c("#6b532c", "#3d2f1a", "#514222", "#2b212b", "#1c1625", "#714f6a", "#cda157", "#a78645", "#ce7390", "#fbca67", "#cc5a6b", "#503248", "#645279", "#413353", "#896fa3", "#e7ddd5")
  crobat <- c("#272139", "#504871", "#251d2a", "#6b5279", "#3c3459", "#a982bc", "#868dbc", "#8d6da1", "#856caa", "#578fa1", "#47354f", "#1d1d1c", "#d2a2ea", "#ede5ee", "#ecebeb", "#735745")
  chinchou <- c("#273148", "#1e190e", "#7d8aa4", "#4b5779", "#2e3960", "#695f3c", "#6277b2", "#fefca3", "#2c332c", "#9b8c53", "#afa275", "#494630", "#dcd87e", "#a3b9e6", "#556563", "#b1d1f7")
  lanturn <- c("#16140f", "#3f4c7b", "#838fae", "#636eb1", "#1d2334", "#908a5a", "#303966", "#6f684a", "#b0a678", "#fdfba3", "#e4d97e", "#d4e0fa", "#97adf1", "#eefcfc", "#49452d", "#262b2b")
  pichu <- c("#2a2920", "#796a3b", "#48472e", "#18171b", "#f8e769", "#9c8f48", "#c4a65f", "#232023", "#272d23", "#fef898", "#5e3628", "#b76856", "#424d42", "#2a2920", "#796a3b", "#48472e")
  cleffa <- c("#2f221a", "#7e5d4e", "#b2968b", "#e8d2c9", "#8f9294", "#503932", "#9fa29d", "#212528", "#c9cdc9", "#a38157", "#503e2d", "#47474d", "#a0706d", "#bfc2c4", "#deb2a9", "#2f221a")
  igglybuff <- c("#684c57", "#3a3e3d", "#b5949e", "#382930", "#565252", "#211f1f", "#f0cfd7", "#f1e3e2", "#666767", "#996e7d", "#4e363f", "#b5a2a2", "#aeb1b1", "#d2b4c0", "#c5c7c7", "#ad6866")
  togepi <- c("#615e4c", "#9f9c7e", "#2a2720", "#eae7c4", "#8a8669", "#cecaa3", "#b7c6b7", "#306d87", "#687b75", "#b85d5b", "#909d92", "#dceddc", "#7b2623", "#454130", "#74a0b1", "#528ca5")
  togetic <- c("#50504c", "#848c95", "#1b2123", "#788088", "#616b73", "#a3a19c", "#282524", "#e2e1de", "#c0cbd4", "#74575c", "#d6dcdc", "#6d2420", "#282b2a", "#81817c", "#b4bdd0", "#596868")
  natu <- c("#25060b", "#a84050", "#71684f", "#6c2024", "#272517", "#929b39", "#121c0d", "#a7ba61", "#d05161", "#b9dd42", "#4f4716", "#fa6a7a", "#52674f", "#dedccc", "#6a2d2c", "#65a636")
  xatu <- c("#141417", "#686c6e", "#37571c", "#23251d", "#7ea433", "#566f45", "#5d653d", "#9db66e", "#c0ccd4", "#903d4a", "#c84e5a", "#d5dcdc", "#65a336", "#213518", "#9da9b4", "#342a2d")
  mareep <- c("#181308", "#151f2d", "#b4aa81", "#6d6142", "#3d6185", "#e9e0ae", "#d1c895", "#9b8a54", "#274061", "#5d4112", "#5c8bb6", "#5083b6", "#475f5f", "#929c94", "#7a5d66", "#c3959e")
  flaaffy <- c("#454856", "#252424", "#655d5c", "#0c1017", "#715560", "#c2899b", "#aaa5a3", "#d8dde4", "#dedbda", "#e9a7b9", "#37262b", "#99a1ab", "#50323b", "#e4becc", "#af6680", "#111410")
  ampharos <- c("#312b1b", "#79692e", "#ab952f", "#341316", "#c4ad59", "#564a19", "#f1d345", "#eeebdf", "#a13b46", "#d44c5b", "#1b1927", "#68262e", "#ff686e", "#d3504f", "#652f2a", "#aaaac7")
  bellossom <- c("#804d2e", "#122918", "#3e6b3d", "#3c2013", "#da8f51", "#68321f", "#deda78", "#99874b", "#ca6540", "#69b068", "#4d4729", "#2b4c2b", "#e5f998", "#5a9a5a", "#9ada85", "#bdf9a8")
  marill <- c("#0a1d28", "#246689", "#4caedd", "#359ab6", "#d6e1e1", "#d3e1ea", "#091919", "#184a64", "#4b7676", "#19466a", "#4c85bc", "#9ca7a7", "#e7e6e7", "#fbfbfb", "#d15f5e", "#d77474")
  azumarill <- c("#266287", "#0c202e", "#1c3b36", "#4cafdd", "#337170", "#3b96b6", "#5bcfce", "#459c9a", "#c5d7e3", "#264d4a", "#f3f2f1", "#244e54", "#18456a", "#e5f2f1", "#c65e5c", "#974f59")
  sudowoodo <- c("#152c1c", "#33261c", "#815e45", "#bf8e64", "#347347", "#255535", "#59c376", "#49a464", "#71ef8e", "#aa8250", "#523931", "#fec584", "#51422a", "#f4d94b", "#a97459", "#faa78b")
  politoed <- c("#272b1a", "#1e2c13", "#616c3e", "#4b6e3d", "#809e46", "#a3bf59", "#c8e365", "#6ba23e", "#434e23", "#91e557", "#355122", "#83c454", "#526872", "#f5fd94", "#7492a2", "#273139")
  hoppip <- c("#21280f", "#5d2f41", "#637b2e", "#b4627b", "#84445a", "#3c4d1c", "#7f9f3a", "#d57f99", "#42212d", "#fb9fba", "#9ec94b", "#acdd50", "#35501c", "#feb1c9", "#8de253", "#a86a6a")
  skiploom <- c("#384f17", "#254110", "#7da437", "#5b7627", "#dfdf6d", "#345816", "#48791e", "#25350f", "#b5bb57", "#6dae31", "#fefd8e", "#80cb3d", "#384f17", "#254110", "#7da437", "#5b7627")
  jumpluff <- c("#665447", "#372c28", "#2e2429", "#aea57e", "#f4eab8", "#3b4e7c", "#7d9bd6", "#1e273b", "#d4c89a", "#5f76b4", "#8a8668", "#2d3c60", "#4b3c36", "#8cb5f7", "#4a393d", "#4b6a42")
  aipom <- c("#6b496d", "#282723", "#332332", "#6e6354", "#8f7a71", "#4a3057", "#b1a686", "#b27cb6", "#9c6c9a", "#ece2b0", "#110c18", "#8b886d", "#d6ca9a", "#665380", "#454134", "#a78ec2")
  sunkern <- c("#16120a", "#2e3e25", "#70612f", "#52723e", "#6d9453", "#85b964", "#a58f42", "#c1b157", "#eee66a", "#494e28", "#344b27", "#9cdd77", "#f6f894", "#24191c", "#533930", "#1a1927")
  sunflora <- c("#426830", "#619147", "#797833", "#26250d", "#a09a34", "#e1d64f", "#80c066", "#c7b74b", "#315523", "#4d4e21", "#99df7d", "#1b2d13", "#fafbb9", "#affc8f", "#9c6864", "#426830")
  yanma <- c("#201f24", "#735647", "#3f2212", "#504d58", "#252125", "#3e3b45", "#ce7f52", "#4d4751", "#d66441", "#7ba33a", "#6e2e1a", "#a3e34c", "#413b45", "#485721", "#596056", "#927684")
  wooper <- c("#978596", "#415a6d", "#282b34", "#272227", "#7caabd", "#645966", "#80adac", "#597978", "#232e2c", "#a5def3", "#97d6d5", "#6f888b", "#7f7c83", "#afedec", "#dab8d5", "#384545")
  quagsire <- c("#445f6f", "#7da9c0", "#273640", "#1e2d2d", "#9ed8ef", "#97cde1", "#476161", "#668c93", "#7fadad", "#b0efef", "#688e8e", "#2f4251", "#324646", "#9cd5d5", "#5d83a8", "#191919")
  espeon <- c("#301f31", "#6a496c", "#b48ab7", "#2b2e2b", "#ecccec", "#9f69a5", "#4e3453", "#465c8a", "#daabdd", "#262626", "#9e9b9b", "#5d5959", "#9383a8", "#e6e6e6", "#29306c", "#192052")
  umbreon <- c("#182024", "#3f5157", "#20211a", "#161d1c", "#666140", "#455957", "#bdaf5e", "#988d4c", "#e8d773", "#31444a", "#344442", "#48462c", "#fef78c", "#3b3c44", "#69331e", "#182024")
  murkrow <- c("#121d25", "#38362e", "#675f58", "#375a6e", "#0f1a1a", "#ae9c79", "#f5e5a0", "#9d8c5c", "#4e442b", "#294356", "#e0d089", "#244949", "#274754", "#3b7373", "#732b19", "#754e59")
  slowking <- c("#6f535b", "#5d504f", "#2b2221", "#bb8b95", "#303230", "#ba9b93", "#e9d8d1", "#31272a", "#efdbe2", "#eaa8b6", "#a06f7a", "#4c3940", "#505055", "#b26c5d", "#d6b6b1", "#878e93")
  misdreavus <- c("#1e3945", "#312424", "#6c5155", "#3d6574", "#624b4a", "#39292f", "#2c484e", "#558fa3", "#1b3131", "#6d9aab", "#732744", "#9b7271", "#cb4c75", "#bc8c86", "#294c4c", "#436969")
  unown <- c("#11151b", "#171813", "#242a28", "#444d46", "#39433f", "#e2ecf4", "#404a4e", "#f1fbfb", "#f4f4f4", "#4c4c4b", "#9e9e9e", "#98a0a0", "#9da5aa", "#393c4f", "#414135", "#bac3c5")
  wobbuffet <- c("#366485", "#223b4f", "#64b0d7", "#151a1a", "#77daf5", "#556d6d", "#1b1b16", "#82b1b1", "#4687c0", "#5d8f9c", "#ace9e9", "#688d8d", "#9dd7d7", "#22425f", "#99ebfc", "#2c474e")
  girafarig <- c("#281912", "#6b593a", "#c8901b", "#daa442", "#b05c60", "#5e4e11", "#f6efda", "#58352c", "#ebce4d", "#7c4045", "#21242c", "#cb757f", "#ababae", "#250b15", "#b66560", "#5c2f32")
  pineco <- c("#1f3230", "#101c1e", "#3e6661", "#2e4b47", "#5c9388", "#284a4d", "#335559", "#6aaa9b", "#1f1e1d", "#6d605c", "#efeeee", "#b7b1ac", "#86ddc8", "#6c2f2b", "#d1baba", "#2c4359")
  forretress <- c("#401b1f", "#2c1614", "#25252e", "#5b586d", "#ae9daa", "#9c3e38", "#ddc7d6", "#8a201c", "#8d88a1", "#695a62", "#a49695", "#791e21", "#7b7895", "#ebd9d8", "#ccb7c5", "#3d3b4b")
  dunsparce <- c("#54544b", "#3d5e4a", "#524f22", "#1d1e18", "#152824", "#e5de6f", "#b2b079", "#eaead4", "#87a594", "#264f46", "#999945", "#3a3a3b", "#95989a", "#626668", "#529a94", "#d3d3d4")
  gligar <- c("#7e4c74", "#3b2434", "#c67fb8", "#9b6e99", "#f39ddd", "#53314b", "#181a21", "#f4bbee", "#426092", "#527ac1", "#6289d6", "#f4f4f4", "#303b61", "#a29c9c", "#1b1b1b", "#716c6c")
  steelix <- c("#1f232a", "#565f70", "#8893a8", "#c6d9ee", "#747c92", "#383e4b", "#222222", "#5a5959", "#b0bed5", "#c9dede", "#4f6666", "#202c2c", "#989898", "#8faaaa", "#d4d4d4", "#708d8d")
  snubbull <- c("#27221b", "#161114", "#6e5a4e", "#b49483", "#7c4952", "#fd9ea8", "#db7b8c", "#f2aba5", "#464c66", "#b96074", "#fac8b8", "#4a4030", "#9d7270", "#b9dbf4", "#51363c", "#96adca")
  granbull <- c("#312730", "#785d71", "#be92ad", "#f1c5e4", "#dcadcb", "#956f93", "#493944", "#5a5959", "#2d2a2a", "#e9e8e8", "#a1a1a1", "#989a99", "#777978", "#373a39", "#d4b8b8", "#c1c2c1")
  qwilfish <- c("#132524", "#436e60", "#0a1718", "#2b4e44", "#2b2d1f", "#586447", "#9baf7c", "#649177", "#e1f1b3", "#879164", "#244d51", "#2b595c", "#bed594", "#89a67c", "#424636", "#c88b96")
  scizor <- c("#8c4d49", "#2e1814", "#d5534b", "#471419", "#9b3742", "#21262f", "#4e5a6d", "#6f232a", "#6e2926", "#b28984", "#ac94a8", "#6d7d98", "#5b6b67", "#363f4f", "#7689a4", "#edebe9")
  shuckle <- c("#604d16", "#827324", "#3b3b12", "#aaa02f", "#e7da45", "#ccb14d", "#f7ecb5", "#772721", "#dc483c", "#5d795d", "#a8151f", "#8ca18c", "#222822", "#c82629", "#ffad88", "#604d16")
  heracross <- c("#3c5a74", "#1e2e3a", "#7497b1", "#27425c", "#121919", "#5783ac", "#578ba7", "#5f5e56", "#2e444f", "#a9a48b", "#c9d6e4", "#272625", "#dfdfd4", "#324545", "#436261", "#e4d56b")
  sneasel <- c("#141f25", "#916661", "#3c6476", "#2d1e1d", "#c1c7c9", "#0a0e0e", "#c78980", "#81a3af", "#518fa5", "#563635", "#b76461", "#774b4e", "#39252a", "#8b9392", "#264752", "#dbe5e5")
  teddiursa <- c("#6b4e33", "#111b11", "#d2a158", "#deddd4", "#402d18", "#a3894a", "#ebd577", "#484928", "#9da49d", "#dbf4e5", "#c86f3f", "#5e3628", "#6b4e33", "#111b11", "#d2a158", "#deddd4")
  ursaring <- c("#855e43", "#382b1e", "#b5906b", "#59595a", "#f1eab7", "#f3d47a", "#9f8654", "#515352", "#af7452", "#58392c", "#1d1b1d", "#4a4629", "#d8dcd7", "#8d8f8e", "#2f302f", "#212c37")
  slugma <- c("#2c1711", "#904331", "#632520", "#d55b43", "#e1875d", "#150709", "#faf396", "#f3d176", "#a78b4a", "#524228", "#2c1711", "#904331", "#632520", "#d55b43", "#e1875d", "#150709")
  magcargo <- c("#331210", "#270b0d", "#232329", "#585975", "#d25346", "#a54234", "#6e2723", "#8c90a6", "#776f76", "#383950", "#918892", "#de8355", "#797990", "#ecd961", "#887b82", "#fbf19e")
  swinub <- c("#180d09", "#74523d", "#c49573", "#5e3726", "#fabf96", "#a37c59", "#f9a49b", "#ecba8c", "#4f3e2b", "#ab6f61", "#180d09", "#74523d", "#c49573", "#5e3726", "#fabf96", "#a37c59")
  piloswine <- c("#2b1f17", "#7b5741", "#c38f6b", "#55392e", "#f0d7b9", "#aa745b", "#edbb8c", "#6f6a6c", "#a27d59", "#b88387", "#fa9595", "#543d28", "#bb696c", "#ff8c94", "#e5e9f6", "#281617")
  corsola <- c("#ca7886", "#9e908b", "#774652", "#87869d", "#393431", "#462a30", "#6a5d5a", "#fb9bb3", "#5c5e72", "#a96776", "#2e3039", "#dbadac", "#937775", "#c4cce7", "#58343e", "#b7b9d4")
  remoraid <- c("#516761", "#52514c", "#242d29", "#8aa690", "#6d8c85", "#0a0c08", "#445758", "#a8cfad", "#b0b2a8", "#34453a", "#bce0bd", "#dfe6d7", "#253134", "#7b896d", "#bac9ab", "#3c4830")
  octillery <- c("#322116", "#914b32", "#291011", "#6c2923", "#d95242", "#d89856", "#a09037", "#54491a", "#983a3c", "#6b272a", "#f3d452", "#bd4a4c", "#e8d9cb", "#b3a6b4", "#d2c1d2", "#b1abbb")
  delibird <- c("#b0ac99", "#5a5758", "#32251c", "#884b3c", "#73261c", "#e6e5e0", "#5f5f6a", "#978d98", "#222328", "#e24d38", "#6f7170", "#dcd5da", "#282325", "#9e9fb0", "#dcdfdf", "#958a58")
  mantine <- c("#525f77", "#1a2330", "#9499ad", "#767c90", "#cfcfe4", "#303e55", "#b7b9d3", "#e9dfec", "#eae9e8", "#686766", "#9c9c9b", "#a8a0a8", "#161616", "#acb4b4", "#c3bbc8", "#221e22")
  skarmory <- c("#50596f", "#8998b4", "#1a1f2c", "#311620", "#252826", "#353b4f", "#6b79a3", "#bfd0e8", "#bdc9c8", "#abbadb", "#291d1c", "#605f5b", "#959f99", "#898989", "#572c3c", "#6b5266")
  houndour <- c("#2f2b2e", "#716a61", "#2d2b28", "#4e484f", "#aca096", "#dbdbd9", "#26252a", "#46424b", "#979596", "#9796a8", "#423c45", "#413d46", "#8d7e71", "#7d7b88", "#eae5ea", "#dddbe3")
  houndoom <- c("#685c56", "#f9f3ea", "#53484e", "#b1957e", "#2c2826", "#afa2ad", "#ecdbde", "#907f6d", "#453d3d", "#2c2629", "#4f4956", "#443c40", "#fdc47c", "#c7babd", "#b4a8c0", "#423b4a")
  kingdra <- c("#366285", "#1a2f40", "#5ca0c8", "#203633", "#244162", "#403e2c", "#5393a2", "#456e6c", "#77dcf9", "#5781ae", "#7b652e", "#73b3b1", "#c6a54e", "#97e4f8", "#2a4953", "#a4f9f9")
  phanpy <- c("#1e2c2f", "#243939", "#79b4b9", "#486f75", "#879795", "#4a6a69", "#7f442e", "#4e291a", "#8fd5db", "#9fe8f1", "#5e8f93", "#663523", "#2a484c", "#e68159", "#b2e5e5", "#5f8f8f")
  donphan <- c("#57656e", "#24141d", "#95a19d", "#8495a1", "#272f34", "#646c6a", "#565753", "#151817", "#9f9f9e", "#1c1b1b", "#e1e2de", "#cfdbd8", "#b2c5bf", "#708191", "#cbd6db", "#343f4e")
  porygon2 <- c("#1b263d", "#3c4b83", "#120c0e", "#2d3b67", "#69a0ca", "#953e53", "#5571c3", "#d64d69", "#1c2423", "#d68096", "#7a2239", "#576f6d", "#616161", "#9a9a9a", "#8b9b95", "#0b0a0a")
  stantler <- c("#725c40", "#b89668", "#30251c", "#291d24", "#9c8850", "#e7d875", "#4e4328", "#f7e9a1", "#020204", "#523a30", "#55404e", "#4f374a", "#a3755f", "#725c40", "#b89668", "#30251c")
  smeargle <- c("#29271a", "#625a44", "#b1a485", "#e8dbbf", "#8d8660", "#46472a", "#d0c3a4", "#6d331a", "#273a15", "#354f1c", "#a77760", "#d5d9dc", "#29271a", "#625a44", "#b1a485", "#e8dbbf")
  tyrogue <- c("#776a72", "#9c819a", "#2d2219", "#3b303e", "#f0d1ed", "#6d523c", "#8b758e", "#0f0e16", "#59476e", "#151615", "#4b4c4b", "#3f3250", "#a09994", "#846d9a", "#564027", "#d9addc")
  hitmontop <- c("#30241b", "#6e5845", "#b59d7f", "#141c27", "#3c5772", "#2c4058", "#918469", "#ede0be", "#506664", "#4e402e", "#d4c7a0", "#a2775e", "#533934", "#293535", "#6b8fa8", "#584d52")
  smoochum <- c("#d9ae75", "#eae68c", "#fef5a7", "#c1567b", "#fd9eb2", "#d8768f", "#ad426b", "#ec9f9b", "#665e5b", "#141313", "#526564", "#202424", "#fac5ce", "#e0f0f0", "#3a2f36", "#5e3141")
  elekid <- c("#6b5c33", "#352b1a", "#c59e51", "#f1df75", "#514423", "#9f8947", "#0a0a14", "#f5f59b", "#6e5859", "#252022", "#bda4b0", "#e5cae4", "#050704", "#ddf8f3", "#dcdcef", "#8a7b7b")
  magby <- c("#392922", "#735c4f", "#c88b79", "#8d3c40", "#bd625d", "#707d79", "#632a2d", "#401b1d", "#f5e0a6", "#c7565a", "#5e302e", "#2d2e30", "#918766", "#fd9c8c", "#4a4934", "#06190d")
  miltank <- c("#1f1f25", "#1c161a", "#1f1e1e", "#6d4f56", "#c48c95", "#fcc4d4", "#f8e6c0", "#474751", "#c4a187", "#a16e79", "#3c3d48", "#e8a8b3", "#6d5a56", "#ddc495", "#52363c", "#9f6f6b")
  blissey <- c("#6b5260", "#ecc4d9", "#bf94aa", "#241f1e", "#392d37", "#daafc3", "#655f5a", "#9b6f88", "#4f3944", "#f0dcd9", "#a89a96", "#ecedf7", "#d9b4b4", "#83817c", "#363a33", "#947474")
  raikou <- c("#302e1f", "#68623d", "#2d363a", "#4f616d", "#ad9b31", "#b8a96f", "#b08e99", "#35292e", "#131917", "#544e1b", "#93a0b3", "#76606b", "#d8cc72", "#e2dfdb", "#94a2a0", "#5c6664")
  entei <- c("#7e4f2f", "#372819", "#eae9d6", "#afa08d", "#4c5256", "#5f6561", "#282a2c", "#959e99", "#e8d968", "#7c261b", "#a6903f", "#939a9f", "#5b4a1d", "#292c29", "#cdd9ce", "#dd4c35")
  suicune <- c("#4a636c", "#21363a", "#af8ab1", "#82a7b2", "#281d26", "#516866", "#273434", "#6d5774", "#2e2e2e", "#87aca9", "#2a4852", "#54939f", "#c7e5e0", "#c6d7df", "#9e9e9e", "#8e719a")
  larvitar <- c("#4d6147", "#1f271d", "#9ab39b", "#729169", "#2a2a27", "#abd397", "#c1e5b6", "#384733", "#9eb487", "#7b4e42", "#d9e9c7", "#963536", "#7b292d", "#752b2b", "#798e61", "#b5d09a")
  pupitar <- c("#49526a", "#1f232f", "#8799ba", "#6d7aaa", "#b7cff2", "#5f6a68", "#353d51", "#95a6a5", "#a6baf0", "#292d2d", "#cbe7e6", "#768383", "#1c1a1a", "#5f5f5f", "#718588", "#eeeeee")
  tyranitar <- c("#5d7250", "#526040", "#8fac7b", "#212b1d", "#90a873", "#202618", "#749060", "#384a2f", "#7a8f60", "#556475", "#3e492f", "#b9d58e", "#d1e6d8", "#add19b", "#2c3239", "#d8e6c6")
  lugia <- c("#9698b1", "#23242c", "#55566b", "#d8dbea", "#71749c", "#212121", "#131515", "#a2a2a2", "#e3e3e3", "#b4b5d7", "#5d5d5d", "#2f3760", "#d5d4d6", "#a7a6a7", "#dbe1e1", "#5e5c5e")
  celebi <- c("#606c4d", "#466138", "#10140f", "#0c1c1d", "#252c1b", "#9caa7f", "#e5f3c1", "#364927", "#87ab72", "#32667a", "#6e9553", "#bbce97", "#80955e", "#3e482d", "#aecd9b", "#c6e4b9")


  samples <- c("random", "bulbasaur", "ivysaur", "venusaur", "charmander", "charmeleon", "charizard", "squirtle", "wartortle", "blastoise", "caterpie", "metapod", "butterfree", "weedle", "kakuna", "beedrill", "pidgey", "pidgeotto", "pidgeot", "rattata", "raticate", "spearow", "fearow", "ekans", "arbok", "pikachu", "raichu", "sandshrew", "sandslash", "nidorina", "nidoqueen", "nidorino", "nidoking", "clefairy", "clefable", "vulpix", "ninetales", "jigglypuff", "wigglytuff", "zubat", "golbat", "oddish", "gloom", "vileplume", "paras", "parasect", "venonat", "venomoth", "diglett", "dugtrio", "meowth", "persian", "psyduck", "golduck", "mankey", "primeape", "growlithe", "arcanine", "poliwag", "poliwhirl", "poliwrath", "abra", "kadabra", "alakazam", "machop", "machoke", "machamp", "bellsprout", "weepinbell", "victreebel", "tentacool", "tentacruel", "geodude", "graveler", "golem", "ponyta", "rapidash", "slowpoke", "slowbro", "magnemite", "magneton", "farfetchd", "doduo", "dodrio", "seel", "dewgong", "grimer", "muk", "shellder", "cloyster", "gastly", "haunter", "gengar", "onix", "drowzee", "hypno", "krabby", "kingler", "voltorb", "electrode", "exeggcute", "exeggutor", "cubone", "marowak", "hitmonlee", "hitmonchan", "lickitung", "koffing", "weezing", "rhyhorn", "rhydon", "chansey", "tangela", "kangaskhan", "horsea", "seadra", "goldeen", "seaking", "staryu", "starmie", "scyther", "jynx", "electabuzz", "magmar", "pinsir", "tauros", "magikarp", "gyarados", "lapras", "ditto", "eevee", "vaporeon", "jolteon", "flareon", "porygon", "omanyte", "omastar", "kabuto", "kabutops", "aerodactyl", "snorlax", "articuno", "zapdos", "moltres", "dratini", "dragonair", "dragonite", "mewtwo", "mew", "chikorita", "bayleef", "meganium", "cyndaquil", "quilava", "typhlosion", "totodile", "croconaw", "feraligatr", "sentret", "furret", "hoothoot", "noctowl", "ledyba", "ledian", "spinarak", "ariados", "crobat", "chinchou", "lanturn", "pichu", "cleffa", "igglybuff", "togepi", "togetic", "natu", "xatu", "mareep", "flaaffy", "ampharos", "bellossom", "marill", "azumarill", "sudowoodo", "politoed", "hoppip", "skiploom", "jumpluff", "aipom", "sunkern", "sunflora", "yanma", "wooper", "quagsire", "espeon", "umbreon", "murkrow", "slowking", "misdreavus", "unown", "wobbuffet", "girafarig", "pineco", "forretress", "dunsparce", "gligar", "steelix", "snubbull", "granbull", "qwilfish", "scizor", "shuckle", "heracross", "sneasel", "teddiursa", "ursaring", "slugma", "magcargo", "swinub", "piloswine", "corsola", "remoraid", "octillery", "delibird", "mantine", "skarmory", "houndour", "houndoom", "kingdra", "phanpy", "donphan", "porygon2", "stantler", "smeargle", "tyrogue", "hitmontop", "smoochum", "elekid", "magby", "miltank", "blissey", "raikou", "entei", "suicune", "larvitar", "pupitar", "tyranitar", "lugia", "celebi"
  )

  if (palette == "random") {
    random_pokemon <<- sample(samples, 1)
  }

  switch(match.arg(palette),
         random = get(random_pokemon), bulbasaur = bulbasaur, ivysaur = ivysaur, venusaur = venusaur, charmander = charmander, charmeleon = charmeleon, charizard = charizard, squirtle = squirtle, wartortle = wartortle, blastoise = blastoise, caterpie = caterpie, metapod = metapod, butterfree = butterfree, weedle = weedle, kakuna = kakuna, beedrill = beedrill, pidgey = pidgey, pidgeotto = pidgeotto, pidgeot = pidgeot, rattata = rattata, raticate = raticate, spearow = spearow, fearow = fearow, ekans = ekans, arbok = arbok, pikachu = pikachu, raichu = raichu, sandshrew = sandshrew, sandslash = sandslash, nidorina = nidorina, nidoqueen = nidoqueen, nidorino = nidorino, nidoking = nidoking, clefairy = clefairy, clefable = clefable, vulpix = vulpix, ninetales = ninetales, jigglypuff = jigglypuff, wigglytuff = wigglytuff, zubat = zubat, golbat = golbat, oddish = oddish, gloom = gloom, vileplume = vileplume, paras = paras, parasect = parasect, venonat = venonat, venomoth = venomoth, diglett = diglett, dugtrio = dugtrio, meowth = meowth, persian = persian, psyduck = psyduck, golduck = golduck, mankey = mankey, primeape = primeape, growlithe = growlithe, arcanine = arcanine, poliwag = poliwag, poliwhirl = poliwhirl, poliwrath = poliwrath, abra = abra, kadabra = kadabra, alakazam = alakazam, machop = machop, machoke = machoke, machamp = machamp, bellsprout = bellsprout, weepinbell = weepinbell, victreebel = victreebel, tentacool = tentacool, tentacruel = tentacruel, geodude = geodude, graveler = graveler, golem = golem, ponyta = ponyta, rapidash = rapidash, slowpoke = slowpoke, slowbro = slowbro, magnemite = magnemite, magneton = magneton, farfetchd = farfetchd, doduo = doduo, dodrio = dodrio, seel = seel, dewgong = dewgong, grimer = grimer, muk = muk, shellder = shellder, cloyster = cloyster, gastly = gastly, haunter = haunter, gengar = gengar, onix = onix, drowzee = drowzee, hypno = hypno, krabby = krabby, kingler = kingler, voltorb = voltorb, electrode = electrode, exeggcute = exeggcute, exeggutor = exeggutor, cubone = cubone, marowak = marowak, hitmonlee = hitmonlee, hitmonchan = hitmonchan, lickitung = lickitung, koffing = koffing, weezing = weezing, rhyhorn = rhyhorn, rhydon = rhydon, chansey = chansey, tangela = tangela, kangaskhan = kangaskhan, horsea = horsea, seadra = seadra, goldeen = goldeen, seaking = seaking, staryu = staryu, starmie = starmie, scyther = scyther, jynx = jynx, electabuzz = electabuzz, magmar = magmar, pinsir = pinsir, tauros = tauros, magikarp = magikarp, gyarados = gyarados, lapras = lapras, ditto = ditto, eevee = eevee, vaporeon = vaporeon, jolteon = jolteon, flareon = flareon, porygon = porygon, omanyte = omanyte, omastar = omastar, kabuto = kabuto, kabutops = kabutops, aerodactyl = aerodactyl, snorlax = snorlax, articuno = articuno, zapdos = zapdos, moltres = moltres, dratini = dratini, dragonair = dragonair, dragonite = dragonite, mewtwo = mewtwo, mew = mew, chikorita = chikorita, bayleef = bayleef, meganium = meganium, cyndaquil = cyndaquil, quilava = quilava, typhlosion = typhlosion, totodile = totodile, croconaw = croconaw, feraligatr = feraligatr, sentret = sentret, furret = furret, hoothoot = hoothoot, noctowl = noctowl, ledyba = ledyba, ledian = ledian, spinarak = spinarak, ariados = ariados, crobat = crobat, chinchou = chinchou, lanturn = lanturn, pichu = pichu, cleffa = cleffa, igglybuff = igglybuff, togepi = togepi, togetic = togetic, natu = natu, xatu = xatu, mareep = mareep, flaaffy = flaaffy, ampharos = ampharos, bellossom = bellossom, marill = marill, azumarill = azumarill, sudowoodo = sudowoodo, politoed = politoed, hoppip = hoppip, skiploom = skiploom, jumpluff = jumpluff, aipom = aipom, sunkern = sunkern, sunflora = sunflora, yanma = yanma, wooper = wooper, quagsire = quagsire, espeon = espeon, umbreon = umbreon, murkrow = murkrow, slowking = slowking, misdreavus = misdreavus, unown = unown, wobbuffet = wobbuffet, girafarig = girafarig, pineco = pineco, forretress = forretress, dunsparce = dunsparce, gligar = gligar, steelix = steelix, snubbull = snubbull, granbull = granbull, qwilfish = qwilfish, scizor = scizor, shuckle = shuckle, heracross = heracross, sneasel = sneasel, teddiursa = teddiursa, ursaring = ursaring, slugma = slugma, magcargo = magcargo, swinub = swinub, piloswine = piloswine, corsola = corsola, remoraid = remoraid, octillery = octillery, delibird = delibird, mantine = mantine, skarmory = skarmory, houndour = houndour, houndoom = houndoom, kingdra = kingdra, phanpy = phanpy, donphan = donphan, porygon2 = porygon2, stantler = stantler, smeargle = smeargle, tyrogue = tyrogue, hitmontop = hitmontop, smoochum = smoochum, elekid = elekid, magby = magby, miltank = miltank, blissey = blissey, raikou = raikou, entei = entei, suicune = suicune, larvitar = larvitar, pupitar = pupitar, tyranitar = tyranitar, lugia = lugia, celebi = celebi,
         "001"=bulbasaur, "002"=ivysaur, "003"=venusaur, "004"=charmander, "005"=charmeleon, "006"=charizard, "007"=squirtle, "008"=wartortle, "009"=blastoise, "010"=caterpie, "011"=metapod, "012"=butterfree, "013"=weedle, "014"=kakuna, "015"=beedrill, "016"=pidgey, "017"=pidgeotto, "018"=pidgeot, "019"=rattata, "020"=raticate, "021"=spearow, "022"=fearow, "023"=ekans, "024"=arbok, "025"=pikachu, "026"=raichu, "027"=sandshrew, "028"=sandslash, "030"=nidorina, "031"=nidoqueen, "033"=nidorino, "034"=nidoking, "035"=clefairy, "036"=clefable, "037"=vulpix, "038"=ninetales, "039"=jigglypuff, "040"=wigglytuff, "041"=zubat, "042"=golbat, "043"=oddish, "044"=gloom, "045"=vileplume, "046"=paras, "047"=parasect, "048"=venonat, "049"=venomoth, "050"=diglett, "051"=dugtrio, "052"=meowth, "053"=persian, "054"=psyduck, "055"=golduck, "056"=mankey, "057"=primeape, "058"=growlithe, "059"=arcanine, "060"=poliwag, "061"=poliwhirl, "062"=poliwrath, "063"=abra, "064"=kadabra, "065"=alakazam, "066"=machop, "067"=machoke, "068"=machamp, "069"=bellsprout, "070"=weepinbell, "071"=victreebel, "072"=tentacool, "073"=tentacruel, "074"=geodude, "075"=graveler, "076"=golem, "077"=ponyta, "078"=rapidash, "079"=slowpoke, "080"=slowbro, "081"=magnemite, "082"=magneton, "083"=farfetchd, "084"=doduo, "085"=dodrio, "086"=seel, "087"=dewgong, "088"=grimer, "089"=muk, "090"=shellder, "091"=cloyster, "092"=gastly, "093"=haunter, "094"=gengar, "095"=onix, "096"=drowzee, "097"=hypno, "098"=krabby, "099"=kingler, "100"=voltorb, "101"=electrode, "102"=exeggcute, "103"=exeggutor, "104"=cubone, "105"=marowak, "106"=hitmonlee, "107"=hitmonchan, "108"=lickitung, "109"=koffing, "110"=weezing, "111"=rhyhorn, "112"=rhydon, "113"=chansey, "114"=tangela, "115"=kangaskhan, "116"=horsea, "117"=seadra, "118"=goldeen, "119"=seaking, "120"=staryu, "121"=starmie, "123"=scyther, "124"=jynx, "125"=electabuzz, "126"=magmar, "127"=pinsir, "128"=tauros, "129"=magikarp, "130"=gyarados, "131"=lapras, "132"=ditto, "133"=eevee, "134"=vaporeon, "135"=jolteon, "136"=flareon, "137"=porygon, "138"=omanyte, "139"=omastar, "140"=kabuto, "141"=kabutops, "142"=aerodactyl, "143"=snorlax, "144"=articuno, "145"=zapdos, "146"=moltres, "147"=dratini, "148"=dragonair, "149"=dragonite, "150"=mewtwo, "151"=mew, "152"=chikorita, "153"=bayleef, "154"=meganium, "155"=cyndaquil, "156"=quilava, "157"=typhlosion, "158"=totodile, "159"=croconaw, "160"=feraligatr, "161"=sentret, "162"=furret, "163"=hoothoot, "164"=noctowl, "165"=ledyba, "166"=ledian, "167"=spinarak, "168"=ariados, "169"=crobat, "170"=chinchou, "171"=lanturn, "172"=pichu, "173"=cleffa, "174"=igglybuff, "175"=togepi, "176"=togetic, "177"=natu, "178"=xatu, "179"=mareep, "180"=flaaffy, "181"=ampharos, "182"=bellossom, "183"=marill, "184"=azumarill, "185"=sudowoodo, "186"=politoed, "187"=hoppip, "188"=skiploom, "189"=jumpluff, "190"=aipom, "191"=sunkern, "192"=sunflora, "193"=yanma, "194"=wooper, "195"=quagsire, "196"=espeon, "197"=umbreon, "198"=murkrow, "199"=slowking, "200"=misdreavus, "201"=unown, "202"=wobbuffet, "203"=girafarig, "204"=pineco, "205"=forretress, "206"=dunsparce, "207"=gligar, "208"=steelix, "209"=snubbull, "210"=granbull, "211"=qwilfish, "212"=scizor, "213"=shuckle, "214"=heracross, "215"=sneasel, "216"=teddiursa, "217"=ursaring, "218"=slugma, "219"=magcargo, "220"=swinub, "221"=piloswine, "222"=corsola, "223"=remoraid, "224"=octillery, "225"=delibird, "226"=mantine, "227"=skarmory, "228"=houndour, "229"=houndoom, "230"=kingdra, "231"=phanpy, "232"=donphan, "233"=porygon2, "234"=stantler, "235"=smeargle, "236"=tyrogue, "237"=hitmontop, "238"=smoochum, "239"=elekid, "240"=magby, "241"=miltank, "242"=blissey, "243"=raikou, "244"=entei, "245"=suicune, "246"=larvitar, "247"=pupitar, "248"=tyranitar, "249"=lugia, "251"=celebi)
}


# display.pokepals
#' Display pokepals
#'
#' displays the discrete pokepals palettes
#'
#' @param palette Character string indicating a palette of colors.
#' @export
#' @importFrom grDevices rgb2hsv
#' @importFrom graphics image
#' @importFrom graphics text
#' @importFrom graphics par
#' @examples
#' display_pokepals()
display_pokepals <- function(palette = c("random", "bulbasaur", "ivysaur", "venusaur", "charmander", "charmeleon", "charizard", "squirtle", "wartortle", "blastoise", "caterpie", "metapod", "butterfree", "weedle", "kakuna", "beedrill", "pidgey", "pidgeotto", "pidgeot", "rattata", "raticate", "spearow", "fearow", "ekans", "arbok", "pikachu", "raichu", "sandshrew", "sandslash", "nidorina", "nidoqueen", "nidorino", "nidoking", "clefairy", "clefable", "vulpix", "ninetales", "jigglypuff", "wigglytuff", "zubat", "golbat", "oddish", "gloom", "vileplume", "paras", "parasect", "venonat", "venomoth", "diglett", "dugtrio", "meowth", "persian", "psyduck", "golduck", "mankey", "primeape", "growlithe", "arcanine", "poliwag", "poliwhirl", "poliwrath", "abra", "kadabra", "alakazam", "machop", "machoke", "machamp", "bellsprout", "weepinbell", "victreebel", "tentacool", "tentacruel", "geodude", "graveler", "golem", "ponyta", "rapidash", "slowpoke", "slowbro", "magnemite", "magneton", "farfetchd", "doduo", "dodrio", "seel", "dewgong", "grimer", "muk", "shellder", "cloyster", "gastly", "haunter", "gengar", "onix", "drowzee", "hypno", "krabby", "kingler", "voltorb", "electrode", "exeggcute", "exeggutor", "cubone", "marowak", "hitmonlee", "hitmonchan", "lickitung", "koffing", "weezing", "rhyhorn", "rhydon", "chansey", "tangela", "kangaskhan", "horsea", "seadra", "goldeen", "seaking", "staryu", "starmie", "scyther", "jynx", "electabuzz", "magmar", "pinsir", "tauros", "magikarp", "gyarados", "lapras", "ditto", "eevee", "vaporeon", "jolteon", "flareon", "porygon", "omanyte", "omastar", "kabuto", "kabutops", "aerodactyl", "snorlax", "articuno", "zapdos", "moltres", "dratini", "dragonair", "dragonite", "mewtwo", "mew", "chikorita", "bayleef", "meganium", "cyndaquil", "quilava", "typhlosion", "totodile", "croconaw", "feraligatr", "sentret", "furret", "hoothoot", "noctowl", "ledyba", "ledian", "spinarak", "ariados", "crobat", "chinchou", "lanturn", "pichu", "cleffa", "igglybuff", "togepi", "togetic", "natu", "xatu", "mareep", "flaaffy", "ampharos", "bellossom", "marill", "azumarill", "sudowoodo", "politoed", "hoppip", "skiploom", "jumpluff", "aipom", "sunkern", "sunflora", "yanma", "wooper", "quagsire", "espeon", "umbreon", "murkrow", "slowking", "misdreavus", "unown", "wobbuffet", "girafarig", "pineco", "forretress", "dunsparce", "gligar", "steelix", "snubbull", "granbull", "qwilfish", "scizor", "shuckle", "heracross", "sneasel", "teddiursa", "ursaring", "slugma", "magcargo", "swinub", "piloswine", "corsola", "remoraid", "octillery", "delibird", "mantine", "skarmory", "houndour", "houndoom", "kingdra", "phanpy", "donphan", "porygon2", "stantler", "smeargle", "tyrogue", "hitmontop", "smoochum", "elekid", "magby", "miltank", "blissey", "raikou", "entei", "suicune", "larvitar", "pupitar", "tyranitar", "lugia", "celebi",
                                           "001", "002", "003", "004", "005", "006", "007", "008", "009", "010", "011", "012", "013", "014", "015", "016", "017", "018", "019", "020", "021", "022", "023", "024", "025", "026", "027", "028", "030", "031", "033", "034", "035", "036", "037", "038", "039", "040", "041", "042", "043", "044", "045", "046", "047", "048", "049", "050", "051", "052", "053", "054", "055", "056", "057", "058", "059", "060", "061", "062", "063", "064", "065", "066", "067", "068", "069", "070", "071", "072", "073", "074", "075", "076", "077", "078", "079", "080", "081", "082", "083", "084", "085", "086", "087", "088", "089", "090", "091", "092", "093", "094", "095", "096", "097", "098", "099", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "251"
                        )
                      )
{

  palette2 <- match.arg(palette)
  jcols   <- pokepals(palette2)
  n       <- length(jcols)
  if (palette == "random") {
    cnames <- paste(random_pokemon)
  } else {
    cnames <- paste(palette)
  }
  scales::show_col(jcols, borders = NA)

}

#' pokepals color scales
#'
#' @inheritParams pokepals
#' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}}
#' @export scale_color_pokepals
#' @importFrom ggplot2 discrete_scale
#' @importFrom scales manual_pal
#' @rdname scale_pokepals
#'
#' @examples
#' library(ggplot2)
#' data(morley)
#'
#' pltl <- ggplot(data = morley, aes(x = Run, y = Speed,
#' group = factor(Expt),
#' colour = factor(Expt))) +
#'     geom_line(size = 2) +
#'     theme_bw() +
#'     theme(panel.background = element_rect(fill = "grey97"),
#'           panel.border = element_blank())
#'
#' pltd <- ggplot(data = morley, aes(x = Run, y = Speed,
#' group = factor(Expt),
#' colour = factor(Expt))) +
#'     geom_line(size = 2) +
#'     theme_bw() +
#'     theme(panel.background = element_rect(fill = "grey15"),
#'           panel.border = element_blank(),
#'           panel.grid.major = element_line(color = "grey45"),
#'           panel.grid.minor = element_line(color = "grey25"))
#'
#' pltl + scale_color_pokepals(palette = "charizard")
#'
#' pltd + scale_color_pokepals(palette = "charizard")
#'
#'
scale_color_pokepals = function (palette = c("random", "bulbasaur", "ivysaur", "venusaur", "charmander", "charmeleon", "charizard", "squirtle", "wartortle", "blastoise", "caterpie", "metapod", "butterfree", "weedle", "kakuna", "beedrill", "pidgey", "pidgeotto", "pidgeot", "rattata", "raticate", "spearow", "fearow", "ekans", "arbok", "pikachu", "raichu", "sandshrew", "sandslash", "nidorina", "nidoqueen", "nidorino", "nidoking", "clefairy", "clefable", "vulpix", "ninetales", "jigglypuff", "wigglytuff", "zubat", "golbat", "oddish", "gloom", "vileplume", "paras", "parasect", "venonat", "venomoth", "diglett", "dugtrio", "meowth", "persian", "psyduck", "golduck", "mankey", "primeape", "growlithe", "arcanine", "poliwag", "poliwhirl", "poliwrath", "abra", "kadabra", "alakazam", "machop", "machoke", "machamp", "bellsprout", "weepinbell", "victreebel", "tentacool", "tentacruel", "geodude", "graveler", "golem", "ponyta", "rapidash", "slowpoke", "slowbro", "magnemite", "magneton", "farfetchd", "doduo", "dodrio", "seel", "dewgong", "grimer", "muk", "shellder", "cloyster", "gastly", "haunter", "gengar", "onix", "drowzee", "hypno", "krabby", "kingler", "voltorb", "electrode", "exeggcute", "exeggutor", "cubone", "marowak", "hitmonlee", "hitmonchan", "lickitung", "koffing", "weezing", "rhyhorn", "rhydon", "chansey", "tangela", "kangaskhan", "horsea", "seadra", "goldeen", "seaking", "staryu", "starmie", "scyther", "jynx", "electabuzz", "magmar", "pinsir", "tauros", "magikarp", "gyarados", "lapras", "ditto", "eevee", "vaporeon", "jolteon", "flareon", "porygon", "omanyte", "omastar", "kabuto", "kabutops", "aerodactyl", "snorlax", "articuno", "zapdos", "moltres", "dratini", "dragonair", "dragonite", "mewtwo", "mew", "chikorita", "bayleef", "meganium", "cyndaquil", "quilava", "typhlosion", "totodile", "croconaw", "feraligatr", "sentret", "furret", "hoothoot", "noctowl", "ledyba", "ledian", "spinarak", "ariados", "crobat", "chinchou", "lanturn", "pichu", "cleffa", "igglybuff", "togepi", "togetic", "natu", "xatu", "mareep", "flaaffy", "ampharos", "bellossom", "marill", "azumarill", "sudowoodo", "politoed", "hoppip", "skiploom", "jumpluff", "aipom", "sunkern", "sunflora", "yanma", "wooper", "quagsire", "espeon", "umbreon", "murkrow", "slowking", "misdreavus", "unown", "wobbuffet", "girafarig", "pineco", "forretress", "dunsparce", "gligar", "steelix", "snubbull", "granbull", "qwilfish", "scizor", "shuckle", "heracross", "sneasel", "teddiursa", "ursaring", "slugma", "magcargo", "swinub", "piloswine", "corsola", "remoraid", "octillery", "delibird", "mantine", "skarmory", "houndour", "houndoom", "kingdra", "phanpy", "donphan", "porygon2", "stantler", "smeargle", "tyrogue", "hitmontop", "smoochum", "elekid", "magby", "miltank", "blissey", "raikou", "entei", "suicune", "larvitar", "pupitar", "tyranitar", "lugia", "celebi",
                                               "001", "002", "003", "004", "005", "006", "007", "008", "009", "010", "011", "012", "013", "014", "015", "016", "017", "018", "019", "020", "021", "022", "023", "024", "025", "026", "027", "028", "030", "031", "033", "034", "035", "036", "037", "038", "039", "040", "041", "042", "043", "044", "045", "046", "047", "048", "049", "050", "051", "052", "053", "054", "055", "056", "057", "058", "059", "060", "061", "062", "063", "064", "065", "066", "067", "068", "069", "070", "071", "072", "073", "074", "075", "076", "077", "078", "079", "080", "081", "082", "083", "084", "085", "086", "087", "088", "089", "090", "091", "092", "093", "094", "095", "096", "097", "098", "099", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "251"
                                    ),
                                ...)
{
  palette <- match.arg(palette)
  discrete_scale("colour",
                 "pokepals",
                 manual_pal(unname(pokepals(palette))),
                 ...)
}

#' @export scale_colour_pokepals
#' @rdname scale_pokepals
scale_colour_pokepals = scale_color_pokepals


#' @export scale_fill_pokepals
#' @importFrom ggplot2 discrete_scale
#' @rdname scale_pokepals
scale_fill_pokepals = function (palette = c("random", "bulbasaur", "ivysaur", "venusaur", "charmander", "charmeleon", "charizard", "squirtle", "wartortle", "blastoise", "caterpie", "metapod", "butterfree", "weedle", "kakuna", "beedrill", "pidgey", "pidgeotto", "pidgeot", "rattata", "raticate", "spearow", "fearow", "ekans", "arbok", "pikachu", "raichu", "sandshrew", "sandslash", "nidorina", "nidoqueen", "nidorino", "nidoking", "clefairy", "clefable", "vulpix", "ninetales", "jigglypuff", "wigglytuff", "zubat", "golbat", "oddish", "gloom", "vileplume", "paras", "parasect", "venonat", "venomoth", "diglett", "dugtrio", "meowth", "persian", "psyduck", "golduck", "mankey", "primeape", "growlithe", "arcanine", "poliwag", "poliwhirl", "poliwrath", "abra", "kadabra", "alakazam", "machop", "machoke", "machamp", "bellsprout", "weepinbell", "victreebel", "tentacool", "tentacruel", "geodude", "graveler", "golem", "ponyta", "rapidash", "slowpoke", "slowbro", "magnemite", "magneton", "farfetchd", "doduo", "dodrio", "seel", "dewgong", "grimer", "muk", "shellder", "cloyster", "gastly", "haunter", "gengar", "onix", "drowzee", "hypno", "krabby", "kingler", "voltorb", "electrode", "exeggcute", "exeggutor", "cubone", "marowak", "hitmonlee", "hitmonchan", "lickitung", "koffing", "weezing", "rhyhorn", "rhydon", "chansey", "tangela", "kangaskhan", "horsea", "seadra", "goldeen", "seaking", "staryu", "starmie", "scyther", "jynx", "electabuzz", "magmar", "pinsir", "tauros", "magikarp", "gyarados", "lapras", "ditto", "eevee", "vaporeon", "jolteon", "flareon", "porygon", "omanyte", "omastar", "kabuto", "kabutops", "aerodactyl", "snorlax", "articuno", "zapdos", "moltres", "dratini", "dragonair", "dragonite", "mewtwo", "mew", "chikorita", "bayleef", "meganium", "cyndaquil", "quilava", "typhlosion", "totodile", "croconaw", "feraligatr", "sentret", "furret", "hoothoot", "noctowl", "ledyba", "ledian", "spinarak", "ariados", "crobat", "chinchou", "lanturn", "pichu", "cleffa", "igglybuff", "togepi", "togetic", "natu", "xatu", "mareep", "flaaffy", "ampharos", "bellossom", "marill", "azumarill", "sudowoodo", "politoed", "hoppip", "skiploom", "jumpluff", "aipom", "sunkern", "sunflora", "yanma", "wooper", "quagsire", "espeon", "umbreon", "murkrow", "slowking", "misdreavus", "unown", "wobbuffet", "girafarig", "pineco", "forretress", "dunsparce", "gligar", "steelix", "snubbull", "granbull", "qwilfish", "scizor", "shuckle", "heracross", "sneasel", "teddiursa", "ursaring", "slugma", "magcargo", "swinub", "piloswine", "corsola", "remoraid", "octillery", "delibird", "mantine", "skarmory", "houndour", "houndoom", "kingdra", "phanpy", "donphan", "porygon2", "stantler", "smeargle", "tyrogue", "hitmontop", "smoochum", "elekid", "magby", "miltank", "blissey", "raikou", "entei", "suicune", "larvitar", "pupitar", "tyranitar", "lugia", "celebi",
                                              "001", "002", "003", "004", "005", "006", "007", "008", "009", "010", "011", "012", "013", "014", "015", "016", "017", "018", "019", "020", "021", "022", "023", "024", "025", "026", "027", "028", "030", "031", "033", "034", "035", "036", "037", "038", "039", "040", "041", "042", "043", "044", "045", "046", "047", "048", "049", "050", "051", "052", "053", "054", "055", "056", "057", "058", "059", "060", "061", "062", "063", "064", "065", "066", "067", "068", "069", "070", "071", "072", "073", "074", "075", "076", "077", "078", "079", "080", "081", "082", "083", "084", "085", "086", "087", "088", "089", "090", "091", "092", "093", "094", "095", "096", "097", "098", "099", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "251"
                                    ),
                               ...)
{
  palette <- match.arg(palette)
  discrete_scale("fill",
                 "pokepals",
                 manual_pal(unname(pokepals(palette))),
                 ...)
}