pokepals: Vectors of colors for figures

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

Description

Creates different vectors of related colors that may be useful for figures.

Usage

pokepals(
  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")
)

Arguments

palette

Character string indicating a palette of colors.

Value

Vector of character strings representing the chosen palette of colors.

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)

Angela-Jones/pokecolors documentation built on Dec. 17, 2021, 8:51 a.m.