Week 4 Discussion
Eddie Xu
2024-09-17
Top 10 Strongest Legendary Pokemon
Hello, I dedicated this weekly discussion to my friend. I had a debate with my friend about Pokemon and we were arguing what is the strongest legendary Pokemon out there (my answer was Mewtwo). With that in mind, the data visualization I created is targeted towards general audiences, particularly younger kids. With tidyverse packages, I created a simple horizontal bar graph in a descending order to show the top 10 strongest legendary Pokemon to indicate the power stats. The graph is very simple and is easy for audiences to understand. The length of each bar is determined by the power stats.
pkmn_data <- read.csv('../Resources/Pokemon_data.csv')
# filter only legendary pokemon
legendary_pkmn <- pkmn_data %>%
filter(Legendary == 'True')
legendary_pkmn## X. Name Type.1 Type.2 Total HP Attack Defense
## 1 144 Articuno Ice Flying 580 90 85 100
## 2 145 Zapdos Electric Flying 580 90 90 85
## 3 146 Moltres Fire Flying 580 90 100 90
## 4 150 Mewtwo Psychic 680 106 110 90
## 5 150 MewtwoMega Mewtwo X Psychic Fighting 780 106 190 100
## 6 150 MewtwoMega Mewtwo Y Psychic 780 106 150 70
## 7 243 Raikou Electric 580 90 85 75
## 8 244 Entei Fire 580 115 115 85
## 9 245 Suicune Water 580 100 75 115
## 10 249 Lugia Psychic Flying 680 106 90 130
## 11 250 Ho-oh Fire Flying 680 106 130 90
## 12 377 Regirock Rock 580 80 100 200
## 13 378 Regice Ice 580 80 50 100
## 14 379 Registeel Steel 580 80 75 150
## 15 380 Latias Dragon Psychic 600 80 80 90
## 16 380 LatiasMega Latias Dragon Psychic 700 80 100 120
## 17 381 Latios Dragon Psychic 600 80 90 80
## 18 381 LatiosMega Latios Dragon Psychic 700 80 130 100
## 19 382 Kyogre Water 670 100 100 90
## 20 382 KyogrePrimal Kyogre Water 770 100 150 90
## 21 383 Groudon Ground 670 100 150 140
## 22 383 GroudonPrimal Groudon Ground Fire 770 100 180 160
## 23 384 Rayquaza Dragon Flying 680 105 150 90
## 24 384 RayquazaMega Rayquaza Dragon Flying 780 105 180 100
## 25 385 Jirachi Steel Psychic 600 100 100 100
## 26 386 DeoxysNormal Forme Psychic 600 50 150 50
## 27 386 DeoxysAttack Forme Psychic 600 50 180 20
## 28 386 DeoxysDefense Forme Psychic 600 50 70 160
## 29 386 DeoxysSpeed Forme Psychic 600 50 95 90
## 30 480 Uxie Psychic 580 75 75 130
## 31 481 Mesprit Psychic 580 80 105 105
## 32 482 Azelf Psychic 580 75 125 70
## 33 483 Dialga Steel Dragon 680 100 120 120
## 34 484 Palkia Water Dragon 680 90 120 100
## 35 485 Heatran Fire Steel 600 91 90 106
## 36 486 Regigigas Normal 670 110 160 110
## 37 487 GiratinaAltered Forme Ghost Dragon 680 150 100 120
## 38 487 GiratinaOrigin Forme Ghost Dragon 680 150 120 100
## 39 491 Darkrai Dark 600 70 90 90
## 40 492 ShayminLand Forme Grass 600 100 100 100
## 41 492 ShayminSky Forme Grass Flying 600 100 103 75
## 42 493 Arceus Normal 720 120 120 120
## 43 494 Victini Psychic Fire 600 100 100 100
## 44 638 Cobalion Steel Fighting 580 91 90 129
## 45 639 Terrakion Rock Fighting 580 91 129 90
## 46 640 Virizion Grass Fighting 580 91 90 72
## 47 641 TornadusIncarnate Forme Flying 580 79 115 70
## 48 641 TornadusTherian Forme Flying 580 79 100 80
## 49 642 ThundurusIncarnate Forme Electric Flying 580 79 115 70
## 50 642 ThundurusTherian Forme Electric Flying 580 79 105 70
## 51 643 Reshiram Dragon Fire 680 100 120 100
## 52 644 Zekrom Dragon Electric 680 100 150 120
## 53 645 LandorusIncarnate Forme Ground Flying 600 89 125 90
## 54 645 LandorusTherian Forme Ground Flying 600 89 145 90
## 55 646 Kyurem Dragon Ice 660 125 130 90
## 56 646 KyuremBlack Kyurem Dragon Ice 700 125 170 100
## 57 646 KyuremWhite Kyurem Dragon Ice 700 125 120 90
## 58 716 Xerneas Fairy 680 126 131 95
## 59 717 Yveltal Dark Flying 680 126 131 95
## 60 718 Zygarde50% Forme Dragon Ground 600 108 100 121
## 61 719 Diancie Rock Fairy 600 50 100 150
## 62 719 DiancieMega Diancie Rock Fairy 700 50 160 110
## 63 720 HoopaHoopa Confined Psychic Ghost 600 80 110 60
## 64 720 HoopaHoopa Unbound Psychic Dark 680 80 160 60
## 65 721 Volcanion Fire Water 600 80 110 120
## Sp..Atk Sp..Def Speed Generation Legendary
## 1 95 125 85 1 True
## 2 125 90 100 1 True
## 3 125 85 90 1 True
## 4 154 90 130 1 True
## 5 154 100 130 1 True
## 6 194 120 140 1 True
## 7 115 100 115 2 True
## 8 90 75 100 2 True
## 9 90 115 85 2 True
## 10 90 154 110 2 True
## 11 110 154 90 2 True
## 12 50 100 50 3 True
## 13 100 200 50 3 True
## 14 75 150 50 3 True
## 15 110 130 110 3 True
## 16 140 150 110 3 True
## 17 130 110 110 3 True
## 18 160 120 110 3 True
## 19 150 140 90 3 True
## 20 180 160 90 3 True
## 21 100 90 90 3 True
## 22 150 90 90 3 True
## 23 150 90 95 3 True
## 24 180 100 115 3 True
## 25 100 100 100 3 True
## 26 150 50 150 3 True
## 27 180 20 150 3 True
## 28 70 160 90 3 True
## 29 95 90 180 3 True
## 30 75 130 95 4 True
## 31 105 105 80 4 True
## 32 125 70 115 4 True
## 33 150 100 90 4 True
## 34 150 120 100 4 True
## 35 130 106 77 4 True
## 36 80 110 100 4 True
## 37 100 120 90 4 True
## 38 120 100 90 4 True
## 39 135 90 125 4 True
## 40 100 100 100 4 True
## 41 120 75 127 4 True
## 42 120 120 120 4 True
## 43 100 100 100 5 True
## 44 90 72 108 5 True
## 45 72 90 108 5 True
## 46 90 129 108 5 True
## 47 125 80 111 5 True
## 48 110 90 121 5 True
## 49 125 80 111 5 True
## 50 145 80 101 5 True
## 51 150 120 90 5 True
## 52 120 100 90 5 True
## 53 115 80 101 5 True
## 54 105 80 91 5 True
## 55 130 90 95 5 True
## 56 120 90 95 5 True
## 57 170 100 95 5 True
## 58 131 98 99 6 True
## 59 131 98 99 6 True
## 60 81 95 95 6 True
## 61 100 150 50 6 True
## 62 160 110 110 6 True
## 63 150 130 70 6 True
## 64 170 130 80 6 True
## 65 130 90 70 6 Truelegend_top_10 <- legendary_pkmn %>%
arrange(desc(Total)) %>%
slice(1:10)
# top 10 legendary pokemon
legendary_pkmn_bar_graph <- legend_top_10 %>%
mutate(name = fct_reorder(Name, Total)) %>%
ggplot( aes(x = name, y = Total)) +
geom_bar(stat="identity", fill="lightblue") +
geom_text(aes(label = Total), position = position_stack(vjust = .9), colour = "black") +
coord_flip() +
ggtitle("Top 10 Strongest Legendary Pokemon") +
xlab("Name") +
ylab("Power Stats") +
theme_minimal()
legendary_pkmn_bar_graph