poke_ext = pokemonextra[pokemonextra[,"Height_m"] > 1, ]
poke_exxt = poke_ext[poke_ext[,"Weight_kg"] > 1 , ]

plot(poke_exxt[, "Type_1"], horiz = TRUE, las = 2)