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

Por um escritor misterioso

Last updated 22 dezembro 2024

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.