Pokémon Power
The Wolfram Knowledgebase contains information on popular culture icons as well as scientific knowledge. Here, various physical characteristics (attack and defense points, weight, color) of the Pokémon menagerie are explored, contrasted, and visualized using the built-in entity framework.
Plot the distributions of attack and defense points in all Pokémon.
![Click for copyable input](assets.en/pokemon-power/In_78.png)
PairedHistogram[EntityValue["Pokemon", "Attack"],
EntityValue["Pokemon", "Defense"],
ChartLabels -> {"attack", "defense"},
ChartStyle -> {{LightOrange, LightBlue}, None}]
![](assets.en/pokemon-power/O_59.png)
Create a Dataset of attack vs. defense points for Generation VI Pokémon and plot them against each other.
![Click for copyable input](assets.en/pokemon-power/In_79.png)
stat = EntityValue[Entity[
"Pokemon", {
"Generation" -> Entity[
"PokemonGeneration", "GenerationVI"]}], {"Attack", "Defense"},
"Dataset"];
![Click for copyable input](assets.en/pokemon-power/In_80.png)
ListPlot[stat,
PlotStyle -> Directive[Opacity[0.5], Orange, PointSize[Medium]],
AxesLabel -> Automatic, LabelingFunction -> None]
![](assets.en/pokemon-power/O_60.png)
Compare and plot the average weights of Pokémon over different generations.
![Click for copyable input](assets.en/pokemon-power/In_81.png)
wg = Normal[
GroupBy[Rule @@@ EntityValue["Pokemon", {"Generation", "Weight"}],
First -> Last, Mean]]
![](assets.en/pokemon-power/O_61.png)
![Click for copyable input](assets.en/pokemon-power/In_82.png)
BarChart3D[wg[[All, 2]], ChartLegends -> wg[[All, 1]],
ChartStyle -> 24]
![](assets.en/pokemon-power/O_62.png)
Use an implicitly defined entity class to find the three heaviest Pokémon.
![Click for copyable input](assets.en/pokemon-power/In_83.png)
EntityList[EntityClass["Pokemon", {"Weight" -> TakeLargest[3]}]]
![](assets.en/pokemon-power/O_63.png)
![Click for copyable input](assets.en/pokemon-power/In_84.png)
EntityList[EntityClass["Pokemon", {"Weight" -> TakeLargest[3]}]];
EntityValue[%, "Generation"]
![](assets.en/pokemon-power/O_64.png)
Use an implicitly defined entity class to find the yellow Pokémon weighing between 50 and 100 kg.
![Click for copyable input](assets.en/pokemon-power/In_85.png)
yellowMidweights = EntityList[
Entity["Pokemon", {"PokedexColor" -> "Yellow", "Weight" -> Between[{
Quantity[50, "Kilograms"],
Quantity[100, "Kilograms"]}]}]]
![](assets.en/pokemon-power/O_65.png)
Create a collage of these Pokémon characters with sizes based on their weights.
![Click for copyable input](assets.en/pokemon-power/In_86.png)
ImageCollage[
Rule @@@ EntityValue[yellowMidweights, {"Weight", "Image"}],
Background -> White]
![](assets.en/pokemon-power/O_66.png)
Compare colors of Pokémon in original (Generation I) and newest (Generation VI) groups.
![](assets.en/pokemon-power/O_67.png)