data <- read_excel("../00_data/Pokemon Data.xlsx")data$pokemon## [1] "bulbasaur" "ivysaur"
## [3] "venusaur" "charmander"
## [5] "charmeleon" "charizard"
## [7] "squirtle" "wartortle"
## [9] "blastoise" "caterpie"
## [11] "metapod" "butterfree"
## [13] "weedle" "kakuna"
## [15] "beedrill" "pidgey"
## [17] "pidgeotto" "pidgeot"
## [19] "rattata" "raticate"
## [21] "spearow" "fearow"
## [23] "ekans" "arbok"
## [25] "pikachu" "raichu"
## [27] "sandshrew" "sandslash"
## [29] "nidoran-f" "nidorina"
## [31] "nidoqueen" "nidoran-m"
## [33] "nidorino" "nidoking"
## [35] "clefairy" "clefable"
## [37] "vulpix" "ninetales"
## [39] "jigglypuff" "wigglytuff"
## [41] "zubat" "golbat"
## [43] "oddish" "gloom"
## [45] "vileplume" "paras"
## [47] "parasect" "venonat"
## [49] "venomoth" "diglett"
## [51] "dugtrio" "meowth"
## [53] "persian" "psyduck"
## [55] "golduck" "mankey"
## [57] "primeape" "growlithe"
## [59] "arcanine" "poliwag"
## [61] "poliwhirl" "poliwrath"
## [63] "abra" "kadabra"
## [65] "alakazam" "machop"
## [67] "machoke" "machamp"
## [69] "bellsprout" "weepinbell"
## [71] "victreebel" "tentacool"
## [73] "tentacruel" "geodude"
## [75] "graveler" "golem"
## [77] "ponyta" "rapidash"
## [79] "slowpoke" "slowbro"
## [81] "magnemite" "magneton"
## [83] "farfetchd" "doduo"
## [85] "dodrio" "seel"
## [87] "dewgong" "grimer"
## [89] "muk" "shellder"
## [91] "cloyster" "gastly"
## [93] "haunter" "gengar"
## [95] "onix" "drowzee"
## [97] "hypno" "krabby"
## [99] "kingler" "voltorb"
## [101] "electrode" "exeggcute"
## [103] "exeggutor" "cubone"
## [105] "marowak" "hitmonlee"
## [107] "hitmonchan" "lickitung"
## [109] "koffing" "weezing"
## [111] "rhyhorn" "rhydon"
## [113] "chansey" "tangela"
## [115] "kangaskhan" "horsea"
## [117] "seadra" "goldeen"
## [119] "seaking" "staryu"
## [121] "starmie" "mr-mime"
## [123] "scyther" "jynx"
## [125] "electabuzz" "magmar"
## [127] "pinsir" "tauros"
## [129] "magikarp" "gyarados"
## [131] "lapras" "ditto"
## [133] "eevee" "vaporeon"
## [135] "jolteon" "flareon"
## [137] "porygon" "omanyte"
## [139] "omastar" "kabuto"
## [141] "kabutops" "aerodactyl"
## [143] "snorlax" "articuno"
## [145] "zapdos" "moltres"
## [147] "dratini" "dragonair"
## [149] "dragonite" "mewtwo"
## [151] "mew" "chikorita"
## [153] "bayleef" "meganium"
## [155] "cyndaquil" "quilava"
## [157] "typhlosion" "totodile"
## [159] "croconaw" "feraligatr"
## [161] "sentret" "furret"
## [163] "hoothoot" "noctowl"
## [165] "ledyba" "ledian"
## [167] "spinarak" "ariados"
## [169] "crobat" "chinchou"
## [171] "lanturn" "pichu"
## [173] "cleffa" "igglybuff"
## [175] "togepi" "togetic"
## [177] "natu" "xatu"
## [179] "mareep" "flaaffy"
## [181] "ampharos" "bellossom"
## [183] "marill" "azumarill"
## [185] "sudowoodo" "politoed"
## [187] "hoppip" "skiploom"
## [189] "jumpluff" "aipom"
## [191] "sunkern" "sunflora"
## [193] "yanma" "wooper"
## [195] "quagsire" "espeon"
## [197] "umbreon" "murkrow"
## [199] "slowking" "misdreavus"
## [201] "unown" "wobbuffet"
## [203] "girafarig" "pineco"
## [205] "forretress" "dunsparce"
## [207] "gligar" "steelix"
## [209] "snubbull" "granbull"
## [211] "qwilfish" "scizor"
## [213] "shuckle" "heracross"
## [215] "sneasel" "teddiursa"
## [217] "ursaring" "slugma"
## [219] "magcargo" "swinub"
## [221] "piloswine" "corsola"
## [223] "remoraid" "octillery"
## [225] "delibird" "mantine"
## [227] "skarmory" "houndour"
## [229] "houndoom" "kingdra"
## [231] "phanpy" "donphan"
## [233] "porygon2" "stantler"
## [235] "smeargle" "tyrogue"
## [237] "hitmontop" "smoochum"
## [239] "elekid" "magby"
## [241] "miltank" "blissey"
## [243] "raikou" "entei"
## [245] "suicune" "larvitar"
## [247] "pupitar" "tyranitar"
## [249] "lugia" "ho-oh"
## [251] "celebi" "treecko"
## [253] "grovyle" "sceptile"
## [255] "torchic" "combusken"
## [257] "blaziken" "mudkip"
## [259] "marshtomp" "swampert"
## [261] "poochyena" "mightyena"
## [263] "zigzagoon" "linoone"
## [265] "wurmple" "silcoon"
## [267] "beautifly" "cascoon"
## [269] "dustox" "lotad"
## [271] "lombre" "ludicolo"
## [273] "seedot" "nuzleaf"
## [275] "shiftry" "taillow"
## [277] "swellow" "wingull"
## [279] "pelipper" "ralts"
## [281] "kirlia" "gardevoir"
## [283] "surskit" "masquerain"
## [285] "shroomish" "breloom"
## [287] "slakoth" "vigoroth"
## [289] "slaking" "nincada"
## [291] "ninjask" "shedinja"
## [293] "whismur" "loudred"
## [295] "exploud" "makuhita"
## [297] "hariyama" "azurill"
## [299] "nosepass" "skitty"
## [301] "delcatty" "sableye"
## [303] "mawile" "aron"
## [305] "lairon" "aggron"
## [307] "meditite" "medicham"
## [309] "electrike" "manectric"
## [311] "plusle" "minun"
## [313] "volbeat" "illumise"
## [315] "roselia" "gulpin"
## [317] "swalot" "carvanha"
## [319] "sharpedo" "wailmer"
## [321] "wailord" "numel"
## [323] "camerupt" "torkoal"
## [325] "spoink" "grumpig"
## [327] "spinda" "trapinch"
## [329] "vibrava" "flygon"
## [331] "cacnea" "cacturne"
## [333] "swablu" "altaria"
## [335] "zangoose" "seviper"
## [337] "lunatone" "solrock"
## [339] "barboach" "whiscash"
## [341] "corphish" "crawdaunt"
## [343] "baltoy" "claydol"
## [345] "lileep" "cradily"
## [347] "anorith" "armaldo"
## [349] "feebas" "milotic"
## [351] "castform" "kecleon"
## [353] "shuppet" "banette"
## [355] "duskull" "dusclops"
## [357] "tropius" "chimecho"
## [359] "absol" "wynaut"
## [361] "snorunt" "glalie"
## [363] "spheal" "sealeo"
## [365] "walrein" "clamperl"
## [367] "huntail" "gorebyss"
## [369] "relicanth" "luvdisc"
## [371] "bagon" "shelgon"
## [373] "salamence" "beldum"
## [375] "metang" "metagross"
## [377] "regirock" "regice"
## [379] "registeel" "latias"
## [381] "latios" "kyogre"
## [383] "groudon" "rayquaza"
## [385] "jirachi" "deoxys-normal"
## [387] "turtwig" "grotle"
## [389] "torterra" "chimchar"
## [391] "monferno" "infernape"
## [393] "piplup" "prinplup"
## [395] "empoleon" "starly"
## [397] "staravia" "staraptor"
## [399] "bidoof" "bibarel"
## [401] "kricketot" "kricketune"
## [403] "shinx" "luxio"
## [405] "luxray" "budew"
## [407] "roserade" "cranidos"
## [409] "rampardos" "shieldon"
## [411] "bastiodon" "burmy"
## [413] "wormadam-plant" "mothim"
## [415] "combee" "vespiquen"
## [417] "pachirisu" "buizel"
## [419] "floatzel" "cherubi"
## [421] "cherrim" "shellos"
## [423] "gastrodon" "ambipom"
## [425] "drifloon" "drifblim"
## [427] "buneary" "lopunny"
## [429] "mismagius" "honchkrow"
## [431] "glameow" "purugly"
## [433] "chingling" "stunky"
## [435] "skuntank" "bronzor"
## [437] "bronzong" "bonsly"
## [439] "mime-jr" "happiny"
## [441] "chatot" "spiritomb"
## [443] "gible" "gabite"
## [445] "garchomp" "munchlax"
## [447] "riolu" "lucario"
## [449] "hippopotas" "hippowdon"
## [451] "skorupi" "drapion"
## [453] "croagunk" "toxicroak"
## [455] "carnivine" "finneon"
## [457] "lumineon" "mantyke"
## [459] "snover" "abomasnow"
## [461] "weavile" "magnezone"
## [463] "lickilicky" "rhyperior"
## [465] "tangrowth" "electivire"
## [467] "magmortar" "togekiss"
## [469] "yanmega" "leafeon"
## [471] "glaceon" "gliscor"
## [473] "mamoswine" "porygon-z"
## [475] "gallade" "probopass"
## [477] "dusknoir" "froslass"
## [479] "rotom" "uxie"
## [481] "mesprit" "azelf"
## [483] "dialga" "palkia"
## [485] "heatran" "regigigas"
## [487] "giratina-altered" "cresselia"
## [489] "phione" "manaphy"
## [491] "darkrai" "shaymin-land"
## [493] "arceus" "victini"
## [495] "snivy" "servine"
## [497] "serperior" "tepig"
## [499] "pignite" "emboar"
## [501] "oshawott" "dewott"
## [503] "samurott" "patrat"
## [505] "watchog" "lillipup"
## [507] "herdier" "stoutland"
## [509] "purrloin" "liepard"
## [511] "pansage" "simisage"
## [513] "pansear" "simisear"
## [515] "panpour" "simipour"
## [517] "munna" "musharna"
## [519] "pidove" "tranquill"
## [521] "unfezant" "blitzle"
## [523] "zebstrika" "roggenrola"
## [525] "boldore" "gigalith"
## [527] "woobat" "swoobat"
## [529] "drilbur" "excadrill"
## [531] "audino" "timburr"
## [533] "gurdurr" "conkeldurr"
## [535] "tympole" "palpitoad"
## [537] "seismitoad" "throh"
## [539] "sawk" "sewaddle"
## [541] "swadloon" "leavanny"
## [543] "venipede" "whirlipede"
## [545] "scolipede" "cottonee"
## [547] "whimsicott" "petilil"
## [549] "lilligant" "basculin-red-striped"
## [551] "sandile" "krokorok"
## [553] "krookodile" "darumaka"
## [555] "darmanitan-standard" "maractus"
## [557] "dwebble" "crustle"
## [559] "scraggy" "scrafty"
## [561] "sigilyph" "yamask"
## [563] "cofagrigus" "tirtouga"
## [565] "carracosta" "archen"
## [567] "archeops" "trubbish"
## [569] "garbodor" "zorua"
## [571] "zoroark" "minccino"
## [573] "cinccino" "gothita"
## [575] "gothorita" "gothitelle"
## [577] "solosis" "duosion"
## [579] "reuniclus" "ducklett"
## [581] "swanna" "vanillite"
## [583] "vanillish" "vanilluxe"
## [585] "deerling" "sawsbuck"
## [587] "emolga" "karrablast"
## [589] "escavalier" "foongus"
## [591] "amoonguss" "frillish"
## [593] "jellicent" "alomomola"
## [595] "joltik" "galvantula"
## [597] "ferroseed" "ferrothorn"
## [599] "klink" "klang"
## [601] "klinklang" "tynamo"
## [603] "eelektrik" "eelektross"
## [605] "elgyem" "beheeyem"
## [607] "litwick" "lampent"
## [609] "chandelure" "axew"
## [611] "fraxure" "haxorus"
## [613] "cubchoo" "beartic"
## [615] "cryogonal" "shelmet"
## [617] "accelgor" "stunfisk"
## [619] "mienfoo" "mienshao"
## [621] "druddigon" "golett"
## [623] "golurk" "pawniard"
## [625] "bisharp" "bouffalant"
## [627] "rufflet" "braviary"
## [629] "vullaby" "mandibuzz"
## [631] "heatmor" "durant"
## [633] "deino" "zweilous"
## [635] "hydreigon" "larvesta"
## [637] "volcarona" "cobalion"
## [639] "terrakion" "virizion"
## [641] "tornadus-incarnate" "thundurus-incarnate"
## [643] "reshiram" "zekrom"
## [645] "landorus-incarnate" "kyurem"
## [647] "keldeo-ordinary" "meloetta-aria"
## [649] "genesect" "chespin"
## [651] "quilladin" "chesnaught"
## [653] "fennekin" "braixen"
## [655] "delphox" "froakie"
## [657] "frogadier" "greninja"
## [659] "bunnelby" "diggersby"
## [661] "fletchling" "fletchinder"
## [663] "talonflame" "scatterbug"
## [665] "spewpa" "vivillon"
## [667] "litleo" "pyroar"
## [669] "flabebe" "floette"
## [671] "florges" "skiddo"
## [673] "gogoat" "pancham"
## [675] "pangoro" "furfrou"
## [677] "espurr" "meowstic-male"
## [679] "honedge" "doublade"
## [681] "aegislash-shield" "spritzee"
## [683] "aromatisse" "swirlix"
## [685] "slurpuff" "inkay"
## [687] "malamar" "binacle"
## [689] "barbaracle" "skrelp"
## [691] "dragalge" "clauncher"
## [693] "clawitzer" "helioptile"
## [695] "heliolisk" "tyrunt"
## [697] "tyrantrum" "amaura"
## [699] "aurorus" "sylveon"
## [701] "hawlucha" "dedenne"
## [703] "carbink" "goomy"
## [705] "sliggoo" "goodra"
## [707] "klefki" "phantump"
## [709] "trevenant" "pumpkaboo-average"
## [711] "gourgeist-average" "bergmite"
## [713] "avalugg" "noibat"
## [715] "noivern" "xerneas"
## [717] "yveltal" "zygarde"
## [719] "diancie" "hoopa"
## [721] "volcanion" "rowlet"
## [723] "dartrix" "decidueye"
## [725] "litten" "torracat"
## [727] "incineroar" "popplio"
## [729] "brionne" "primarina"
## [731] "pikipek" "trumbeak"
## [733] "toucannon" "yungoos"
## [735] "gumshoos" "grubbin"
## [737] "charjabug" "vikavolt"
## [739] "crabrawler" "crabominable"
## [741] "oricorio-baile" "cutiefly"
## [743] "ribombee" "rockruff"
## [745] "lycanroc-midday" "wishiwashi-solo"
## [747] "mareanie" "toxapex"
## [749] "mudbray" "mudsdale"
## [751] "dewpider" "araquanid"
## [753] "fomantis" "lurantis"
## [755] "morelull" "shiinotic"
## [757] "salandit" "salazzle"
## [759] "stufful" "bewear"
## [761] "bounsweet" "steenee"
## [763] "tsareena" "comfey"
## [765] "oranguru" "passimian"
## [767] "wimpod" "golisopod"
## [769] "sandygast" "palossand"
## [771] "pyukumuku" "type-null"
## [773] "silvally" "minior-red-meteor"
## [775] "komala" "turtonator"
## [777] "togedemaru" "mimikyu-disguised"
## [779] "bruxish" "drampa"
## [781] "dhelmise" "jangmo-o"
## [783] "hakamo-o" "kommo-o"
## [785] "tapu-koko" "tapu-lele"
## [787] "tapu-bulu" "tapu-fini"
## [789] "cosmog" "cosmoem"
## [791] "solgaleo" "lunala"
## [793] "nihilego" "buzzwole"
## [795] "pheromosa" "xurkitree"
## [797] "celesteela" "kartana"
## [799] "guzzlord" "necrozma"
## [801] "magearna" "marshadow"
## [803] "deoxys-attack" "deoxys-defense"
## [805] "deoxys-speed" "wormadam-sandy"
## [807] "wormadam-trash" "shaymin-sky"
## [809] "giratina-origin" "rotom-heat"
## [811] "rotom-wash" "rotom-frost"
## [813] "rotom-fan" "rotom-mow"
## [815] "castform-sunny" "castform-rainy"
## [817] "castform-snowy" "basculin-blue-striped"
## [819] "darmanitan-zen" "meloetta-pirouette"
## [821] "tornadus-therian" "thundurus-therian"
## [823] "landorus-therian" "kyurem-black"
## [825] "kyurem-white" "keldeo-resolute"
## [827] "meowstic-female" "aegislash-blade"
## [829] "pumpkaboo-small" "pumpkaboo-large"
## [831] "pumpkaboo-super" "gourgeist-small"
## [833] "gourgeist-large" "gourgeist-super"
## [835] "venusaur-mega" "charizard-mega-x"
## [837] "charizard-mega-y" "blastoise-mega"
## [839] "alakazam-mega" "gengar-mega"
## [841] "kangaskhan-mega" "pinsir-mega"
## [843] "gyarados-mega" "aerodactyl-mega"
## [845] "mewtwo-mega-x" "mewtwo-mega-y"
## [847] "ampharos-mega" "scizor-mega"
## [849] "heracross-mega" "houndoom-mega"
## [851] "tyranitar-mega" "blaziken-mega"
## [853] "gardevoir-mega" "mawile-mega"
## [855] "aggron-mega" "medicham-mega"
## [857] "manectric-mega" "banette-mega"
## [859] "absol-mega" "garchomp-mega"
## [861] "lucario-mega" "abomasnow-mega"
## [863] "floette-eternal" "latias-mega"
## [865] "latios-mega" "swampert-mega"
## [867] "sceptile-mega" "sableye-mega"
## [869] "altaria-mega" "gallade-mega"
## [871] "audino-mega" "sharpedo-mega"
## [873] "slowbro-mega" "steelix-mega"
## [875] "pidgeot-mega" "glalie-mega"
## [877] "diancie-mega" "metagross-mega"
## [879] "kyogre-primal" "groudon-primal"
## [881] "rayquaza-mega" "pikachu-rock-star"
## [883] "pikachu-belle" "pikachu-pop-star"
## [885] "pikachu-phd" "pikachu-libre"
## [887] "pikachu-cosplay" "hoopa-unbound"
## [889] "camerupt-mega" "lopunny-mega"
## [891] "salamence-mega" "beedrill-mega"
## [893] "rattata-alola" "raticate-alola"
## [895] "raticate-totem-alola" "pikachu-original-cap"
## [897] "pikachu-hoenn-cap" "pikachu-sinnoh-cap"
## [899] "pikachu-unova-cap" "pikachu-kalos-cap"
## [901] "pikachu-alola-cap" "raichu-alola"
## [903] "sandshrew-alola" "sandslash-alola"
## [905] "vulpix-alola" "ninetales-alola"
## [907] "diglett-alola" "dugtrio-alola"
## [909] "meowth-alola" "persian-alola"
## [911] "geodude-alola" "graveler-alola"
## [913] "golem-alola" "grimer-alola"
## [915] "muk-alola" "exeggutor-alola"
## [917] "marowak-alola" "greninja-battle-bond"
## [919] "greninja-ash" "zygarde-10"
## [921] "zygarde-50" "zygarde-complete"
## [923] "gumshoos-totem" "vikavolt-totem"
## [925] "oricorio-pom-pom" "oricorio-pau"
## [927] "oricorio-sensu" "lycanroc-midnight"
## [929] "wishiwashi-school" "lurantis-totem"
## [931] "salazzle-totem" "minior-orange-meteor"
## [933] "minior-yellow-meteor" "minior-green-meteor"
## [935] "minior-blue-meteor" "minior-indigo-meteor"
## [937] "minior-violet-meteor" "minior-red"
## [939] "minior-orange" "minior-yellow"
## [941] "minior-green" "minior-blue"
## [943] "minior-indigo" "minior-violet"
## [945] "mimikyu-busted" "mimikyu-totem-disguised"
## [947] "mimikyu-totem-busted" "kommo-o-totem"
## [949] "magearna-original"str_detect(data$type_1, "fire")## [1] FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
## [13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [37] TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [49] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
## [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [73] FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
## [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [97] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [109] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [121] FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
## [133] FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [145] FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE
## [157] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [169] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [181] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [193] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [205] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [217] FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [229] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
## [241] FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE
## [253] FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [265] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [277] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [289] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [301] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [313] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE
## [325] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [337] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [349] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [361] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [373] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [385] FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE
## [397] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [409] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [421] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [433] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [445] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [457] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE
## [469] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [481] FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [493] FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE
## [505] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE
## [517] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [529] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [541] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [553] FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [565] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [577] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [589] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [601] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [613] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [625] FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE
## [637] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [649] FALSE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE
## [661] FALSE TRUE TRUE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE
## [673] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [685] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [697] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [709] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [721] TRUE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE
## [733] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE
## [745] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [757] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [769] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE
## [781] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [793] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [805] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE
## [817] FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [829] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE
## [841] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
## [853] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [865] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [877] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [889] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [901] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [913] FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [925] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [937] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [949] FALSEsum(str_detect(data$type_1,"fire"))## [1] 59data %>%
summarise(num_fire =sum(str_detect(data$type_1, "fire")) )## # A tibble: 1 × 1
## num_fire
## <int>
## 1 59data %>%
mutate(col_Fire = str_extract(type_1, "fire")) %>%
select(id, pokemon, col_Fire) %>%
filter(!is.na(col_Fire))## # A tibble: 59 × 3
## id pokemon col_Fire
## <dbl> <chr> <chr>
## 1 4 charmander fire
## 2 5 charmeleon fire
## 3 6 charizard fire
## 4 37 vulpix fire
## 5 38 ninetales fire
## 6 58 growlithe fire
## 7 59 arcanine fire
## 8 77 ponyta fire
## 9 78 rapidash fire
## 10 126 magmar fire
## # ℹ 49 more rowsdata %>%
mutate(col_Dragon = str_replace(type_1, "fire", "dragon")) %>%
select(id, pokemon, col_Dragon) %>%
filter(!is.na(col_Dragon))## # A tibble: 949 × 3
## id pokemon col_Dragon
## <dbl> <chr> <chr>
## 1 1 bulbasaur grass
## 2 2 ivysaur grass
## 3 3 venusaur grass
## 4 4 charmander dragon
## 5 5 charmeleon dragon
## 6 6 charizard dragon
## 7 7 squirtle water
## 8 8 wartortle water
## 9 9 blastoise water
## 10 10 caterpie bug
## # ℹ 939 more rows