A wild R package appears! Pokemon/Gameboy inspired plots in R

I have to comute quite long every day and I always try to keep occupied with little projects. One of my first projects was to increase my knowledge on how to create R packages. The result of it is Rokemon, a Pokemon/Game Boy inspired package. In this post, I will briefly introduce some functionalities of the package and illustrate how incredible useful it can be. A similar introduction can also be found on github. The package is only available via github so far. #install.packages(devtools) devtools::install_github("schochastics/Rokemon") #used packages library(Rokemon) library(tidyverse) # for data wrangling The Package comes with a dataset on 801 pokemon with a rich set of attributes. data(pokemon) glimpse(pokemon) ## Observations: 801 ## Variables: 41 ## $ pokedex_number 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 1 ## $ name "Bulbasaur", "Ivysaur", "Venusaur", "Charman ## $ japanese_name "Fushigidaneフシギダネ", "Fushigisouフシギソウ", "Fush ## $ type1 "grass", "grass", "grass", "fire", "fire", " ## $ type2 "poison", "poison", "poison", NA, NA, "flyin ## $ classfication "Seed Pokémon", "Seed Pokémon", "Seed Pokémo ## $ height_m 0.7, 1.0, 2.0, 0.6, 1.1, 1.7, 0.5, 1.0, 1.6, ## $ weight_kg 6.9, 13.0, 100.0, 8.5, 19.0, 90.5, 9.0, 22.5 ## $ generation 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ## $ is_legendary 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ## $ attack 49, 62, 100, 52, 64, 104, 48, 63, 103, 30, 2 ## $ defense 49, 63, 123, 43, 58, 78, 65, 80, 120, 35, 55 ## $ hp 45, 60, 80, 39, 58, 78, 44, 59, 79, 45, 50, ## $ speed 45, 60, 80, 65, 80, 100, 43, 58, 78, 45, 30, ## $ sp_attack 65, 80, 122, 60, 80, 159, 50, 65, 135, 20, 2 ## $ sp_defense 65, 80, 120, 50, 65, 115, 64, 80, 115, 20, 2 ## $ base_total 318, 405, 625, 309, 405, 634, 314, 405, 630, ## $ abilities [, % summarise_at(vars(attack:speed),mean) %>% gather(stat,value,attack:speed) %>% ggplot(aes(x=type1,y=value,fill=type1))+ geom_col()+ scale_fill_poketype(name="")+ facet_wrap(~stat)+ theme_gameboy()+ guides(fill = guide_legend(ncol = 9))+ theme(axis.text.x = element_blank(), axis.ticks.x= element_blank())+ labs(x="",y="") The package includes some more functions and color palettes. To use them, checkout the README of the github repo.

Pokémon Emerald - Wikipedia

Wild Encounters (Gengar) – Pixel Package

The Population of Kanto in Pokemon Red and Blue [OC] : r

Soapbox: It's Time For A Pokémon Trading Card Game Reboot On

A brief history of Pokémon

Pokémon Yellow Version - Bulbapedia, the community-driven Pokémon

Wild Encounters (Charizard) (Normal/Shiny) – Pixel Package

Gameboy Advance SP - Gundam Inspired #2 : r/Gameboy

Wild Encounters (Blastoise) (Normal/Shiny) – Pixel Package

All The Big Pokémon Games, Ranked From Worst To Best

I finished my Pokemon Game Collection! : r/pokemon

Pokemon XD Gale of Darkness Nintendo GameCube Game Case Disc Cube

Game Freak Had Plans For 65,535 Versions Of The Original Pokémon