# subset to have only pokemon number, name, height, and weight
pkmnweihei = subset(pkmnweihei, is_default == 1 & species_id <= 721,
select = c(species_id, identifier, height, weight))
# subset to have only pokemon number, name, Type1, Type2, Generation
pkmnstat = subset(pkmnstat,
select = c(X., Name, Type.1, Type.2, Generation, Speed))
# remove duplicate pokedex numbers (alternate forms)
pkmnstat = filter(pkmnstat,
!duplicated(pkmnstat[,"X."]) | (X.==413 | X.==479))
# merge by pokedex number
pkmnstat = rename(pkmnstat, species_id = X.)
pkmn = merge(pkmnstat, pkmnweihei, by = "species_id", all = TRUE)
pkmn = subset(pkmn, select = -c(identifier))
head(pkmn,1)
## species_id Name Type.1 Type.2 Generation Speed height weight
## 1 1 Bulbasaur Grass Poison 1 45 7 69