library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.0 v dplyr 1.0.5
## v tidyr 1.1.3 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(janitor)
##
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.test
When I play FIFA on season mode, I often struggle to sign players due to financial constraints and having no proper idea of which players to sign. The objective of this research is to find those players on FIFA 22 who have a lot of potential for growth while still being cheap to acquire.
df <- read.csv("~/DataBEL/fifa-22/players_22.csv", encoding = "UTF-8") %>%
clean_names()
df %>%
mutate(grow = potential - overall) %>%
ggplot() +
geom_jitter(aes(x = age, y = grow), color = "blue") +
labs(title = "Players' Expected Growth diminishes as they age",
x = "Age",
y = "Expected Growth") +
theme_bw() +
theme(plot.title = element_text(hjust = 0.5))
It can be observed in the chart above that as players age their potential for growth declines.
df_growth <- df %>%
mutate(grow = potential - overall) %>%
select(short_name, long_name, grow, overall, potential, club_name,
club_position, age, player_positions, league_name,
value_eur) %>%
arrange(desc(grow)) %>%
head(100)
df_growth[,c("short_name", "grow", "overall","potential", "club_name")] %>%
arrange(desc(potential))
## short_name grow overall potential club_name
## 1 Kayky 21 66 87 Manchester City
## 2 D. Scarlett 23 63 86 Tottenham Hotspur
## 3 R. Lavia 23 62 85 Manchester City
## 4 L. Delap 21 64 85 Manchester City
## 5 A. Hackford 25 59 84 Sheffield United
## 6 H. Mejbri 22 62 84 Manchester United
## 7 S. Shoretire 22 62 84 Manchester United
## 8 L. Barry 21 63 84 Ipswich Town
## 9 C. Chukwuemeka 21 63 84 Aston Villa
## 10 R. van den Berg 24 59 83 PEC Zwolle
## 11 D. Touré 23 60 83 Watford
## 12 T. Nakai 22 61 83 Real Madrid CF
## 13 M. Azeez 21 62 83 Portsmouth
## 14 Fabio Blanco 21 62 83 Eintracht Frankfurt
## 15 A. Devine 25 57 82 Tottenham Hotspur
## 16 N. Collins 22 60 82 Borussia Dortmund
## 17 E. Gebreyesus 21 61 82 Olympique de Marseille
## 18 E. Poku 21 61 82 AZ Alkmaar
## 19 A. Robertson 23 58 81 Ross County FC
## 20 L. Bogarde 23 58 81 Aston Villa
## 21 C. Boyce-Clarke 22 59 81 Reading
## 22 Hugo Bueno 22 59 81 Wolverhampton Wanderers
## 23 T. Onyango 21 60 81 Everton
## 24 B. Kalkan 24 56 80 Kasimpasa SK
## 25 J. Marshall-Rutty 22 58 80 Toronto FC
## 26 Christian Marques 22 58 80 Wolverhampton Wanderers
## 27 W. Gnonto 22 58 80 FC Zürich
## 28 J. Riasco 22 58 80 Deportivo La Guaira FC
## 29 C. Wiggett 21 59 80 Newcastle United
## 30 K. Urbanski 25 54 79 Bologna
## 31 D. Ovando 21 58 79 CD Huachipato
## 32 I. Kaczmarski 21 58 79 Raków Czestochowa
## 33 A. Németh 21 58 79 KRC Genk
## 34 A. Moran 21 58 79 Brighton & Hove Albion
## 35 B. Chrisene 25 53 78 Aston Villa
## 36 Á. Lezama 22 56 78 AC Mineros de Guayana
## 37 K. Habibullah 22 56 78 Vancouver Whitecaps FC
## 38 B. Koumetio 21 57 78 Liverpool
## 39 Marcelo Pitaluga 21 57 78 Liverpool
## 40 J. Baptiste 21 57 78 West Ham United
## 41 C. Brady 26 51 77 Chicago Fire Football Club
## 42 A. Denholm 25 52 77 Heart of Midlothian
## 43 S. Denham 23 54 77 St. Johnstone FC
## 44 M. Lazo 22 55 77 FBC Melgar
## 45 Y. Djiga 22 55 77 FC Basel 1893
## 46 J. Hernández 22 55 77 Gallos Blancos de Querétaro
## 47 C. Thiam 21 56 77 SV Zulte Waregem
## 48 D. Csontos 21 56 77 Ferencvárosi TC
## 49 Lee Young Joon 21 56 77 Suwon FC
## 50 H. Diarra 21 56 77 RC Strasbourg Alsace
## 51 J. Herrera 23 53 76 Club Bolívar
## 52 J. Guadagno 23 53 76 F.C. København
## 53 N. Muci 23 53 76 FC Lugano
## 54 J. Eng 23 53 76 Vålerenga Fotball
## 55 R. Richards 22 54 76 West Bromwich Albion
## 56 N. Wassberg 22 54 76 SK Brann
## 57 I. Çelik 22 54 76 Adana Demirspor
## 58 A. Ordoñez 22 54 76 FC Cincinnati
## 59 K. Sow 22 54 76 FC Lausanne-Sport
## 60 G. Yow 21 55 76 D.C. United
## 61 S. Jatta 21 55 76 Vålerenga Fotball
## 62 T. Silic 21 55 76 Hajduk Split
## 63 A. Besio 21 55 76 FC St. Gallen 1879
## 64 M. Løvik 21 55 76 Molde FK
## 65 R. O'Kane 24 51 75 Dundalk FC
## 66 J. Assi 23 52 75 Club de Foot Montréal
## 67 A. Al Hassan 23 52 75 Al Fateh
## 68 S. Aas 23 52 75 Odds BK
## 69 K. N'Mai 23 52 75 Salford City
## 70 N. Rupp 23 52 75 FC Luzern
## 71 V. Torop 22 53 75 PFC CSKA Moscow
## 72 J. Kenny 22 53 75 Sligo Rovers
## 73 A. Leone 22 53 75 Los Angeles FC
## 74 A. Kozubal 21 54 75 Lech Poznan
## 75 T. Ernst 21 54 75 VfL Bochum 1848
## 76 O. Cisneros 25 49 74 Sporting Kansas City
## 77 K. Paulsen 24 50 74 Viking FK
## 78 O. Sivertsen 23 51 74 Kristiansund BK
## 79 J. Nieuwenhuizen 23 51 74 Melbourne City FC
## 80 J. Abankwah 23 51 74 St. Patrick's Athletic
## 81 G. Slonina 22 52 74 Chicago Fire Football Club
## 82 M. Williamsen 21 53 74 Kristiansund BK
## 83 D. Watson 21 53 74 Dundee United
## 84 J. O'Connor 21 53 74 Hibernian
## 85 A. Qasem 21 53 74 IF Elfsborg
## 86 J. Orpik 21 53 74 Jagiellonia Bialystok
## 87 N. Angulo 21 53 74 LDU Quito
## 88 F. Emmings 25 48 73 Minnesota United FC
## 89 M. Campagna 24 49 73 Vancouver Whitecaps FC
## 90 J. Casas Jr. 23 50 73 Chicago Fire Football Club
## 91 R. Khaleel 22 51 73 Crawley Town
## 92 M. Emilsen 22 51 73 Vålerenga Fotball
## 93 A. Wikman 22 51 73 IK Sirius
## 94 C. Garcia 21 52 73 Real Salt Lake
## 95 P. Johansen 21 52 73 Sandefjord Fotball
## 96 R. Duncan 21 52 73 Aberdeen
## 97 A. Emakhu 23 49 72 Shamrock Rovers
## 98 G. Fuentes 22 50 72 Club Deportivo Palestino
## 99 H. Jewitt-White 22 50 72 Portsmouth
## 100 N. Saliba 22 47 69 Club de Foot Montréal
Due to the fact that these players’ potentials are quite mediocre and not high enough for the players to become world class soccer players, we shall narrow it down to players who have the potential of exceeding 85 or more ratings. Since our objective is to acquire these players for cheap, we shall focus on players (with huge potential) who are worth less than 30 million euros. This group of talented cheap players shall be called the Cheap Footy Talent.
df_growth <- df %>%
filter(potential >= 85) %>%
filter(value_eur <= 30000000) %>%
mutate(grow = potential - overall) %>%
select(short_name, long_name, grow, overall, potential, club_name,
club_position, age, player_positions, league_name,
value_eur) %>%
arrange(desc(grow)) %>%
head(100)
df_growth[,c("short_name", "grow", "overall","potential", "club_name")] %>%
arrange(desc(grow))
## short_name grow overall potential club_name
## 1 D. Scarlett 23 63 86 Tottenham Hotspur
## 2 R. Lavia 23 62 85 Manchester City
## 3 Kayky 21 66 87 Manchester City
## 4 L. Delap 21 64 85 Manchester City
## 5 C. Clark 20 66 86 New York Red Bulls
## 6 L. Stergiou 19 67 86 FC St. Gallen 1879
## 7 F. Carvalho 19 67 86 Fulham
## 8 Gavi 19 66 85 FC Barcelona
## 9 B. Šeško 18 68 86 FC Red Bull Salzburg
## 10 A. Vranckx 18 67 85 VfL Wolfsburg
## 11 Talles Magno 18 67 85 New York City FC
## 12 M. Juwara 18 67 85 Crotone
## 13 N. Rovella 17 70 87 Genoa
## 14 S. Esposito 17 68 85 FC Basel 1893
## 15 K. Kozlowski 17 68 85 Pogon Szczecin
## 16 A. Diallo 17 68 85 Manchester United
## 17 L. Netz 17 68 85 Borussia Mönchengladbach
## 18 S. Biuk 17 68 85 Hajduk Split
## 19 M. Vandevoordt 16 71 87 KRC Genk
## 20 F. Pellistri 16 70 86 Deportivo Alavés
## 21 Francisco Conceição 16 70 86 FC Porto
## 22 R. Cherki 15 73 88 Olympique Lyonnais
## 23 S. Giménez 15 71 86 Cruz Azul
## 24 Y. Demir 15 70 85 FC Barcelona
## 25 Fábio Silva 15 70 85 Wolverhampton Wanderers
## 26 O. Popescu 15 70 85 FCSB (Steaua)
## 27 Ansu Fati 14 76 90 FC Barcelona
## 28 G. Raspadori 14 74 88 U.S. Sassuolo Calcio
## 29 H. Elliott 14 73 87 Liverpool
## 30 B. Gilmour 14 72 86 Norwich City
## 31 Gonçalo Ramos 14 72 86 SL Benfica
## 32 A. Bella Kotchap 14 71 85 VfL Bochum 1848
## 33 K. Adeyemi 14 71 85 FC Red Bull Salzburg
## 34 T. Nianzou 14 71 85 FC Bayern München
## 35 T. Kubo 13 75 88 RCD Mallorca
## 36 J. Musiala 13 75 88 FC Bayern München
## 37 C. Tzolis 13 74 87 Norwich City
## 38 A. Sima 13 73 86 Stoke City
## 39 L. Morales 13 72 85 Club Atlético Lanús
## 40 Fábio Vieira 13 72 85 FC Porto
## 41 M. Vuškovic 13 72 85 Hamburger SV
## 42 Gabriel Martinelli 12 76 88 Arsenal
## 43 J. Gvardiol 12 75 87 RB Leipzig
## 44 T. Almada 12 74 86 Vélez Sarsfield
## 45 P. De la Vega 12 74 86 Club Atlético Lanús
## 46 Nico Melamed 12 74 86 RCD Espanyol de Barcelona
## 47 Diogo Costa 12 73 85 FC Porto
## 48 C. Jones 12 73 85 Liverpool
## 49 Marcos Antonio 12 73 85 Shakhtar Donetsk
## 50 M. Olise 12 73 85 Crystal Palace
## 51 Gustavo Assunção 12 73 85 Galatasaray SK
## 52 B. Brobbey 12 73 85 RB Leipzig
## 53 A. Velasco 12 73 85 Club Atlético Independiente
## 54 D. Rensch 12 73 85 Ajax
## 55 I. Moriba 12 73 85 RB Leipzig
## 56 E. Camavinga 11 78 89 Real Madrid CF
## 57 F. Wirtz 11 78 89 Bayer 04 Leverkusen
## 58 J. Doku 11 77 88 Stade Rennais FC
## 59 N. Madueke 11 77 88 PSV
## 60 A. Hložek 11 76 87 AC Sparta Praha
## 61 J. Timber 11 75 86 Ajax
## 62 A. Lunin 11 74 85 Real Madrid CF
## 63 J. Bogle 11 74 85 Sheffield United
## 64 Nuno Mendes 10 78 88 Paris Saint-Germain
## 65 D. Szoboszlai 10 77 87 RB Leipzig
## 66 C. Hudson-Odoi 10 77 87 Chelsea
## 67 M. Damsgaard 10 77 87 U.C. Sampdoria
## 68 G. Reyna 10 77 87 Borussia Dortmund
## 69 E. Smith Rowe 10 76 86 Arsenal
## 70 Bryan Gil 10 76 86 Tottenham Hotspur
## 71 M. Solomon 10 76 86 Shakhtar Donetsk
## 72 Tete 10 76 86 Shakhtar Donetsk
## 73 Gonçalo Inácio 10 76 86 Sporting CP
## 74 T. Tomiyasu 10 75 85 Arsenal
## 75 Rúben Vinagre 10 75 85 Sporting CP
## 76 O. Skipp 10 75 85 Tottenham Hotspur
## 77 Álex Centelles 10 75 85 Unión Deportiva Almería
## 78 M. Simakan 10 75 85 RB Leipzig
## 79 J. Álvarez 10 75 85 River Plate
## 80 M. Ihattaren 10 75 85 U.C. Sampdoria
## 81 D. Hancko 10 75 85 AC Sparta Praha
## 82 Moncayola 10 75 85 CA Osasuna
## 83 C. De Ketelaere 10 75 85 Club Brugge KV
## 84 Daniel Bragança 10 75 85 Sporting CP
## 85 S. Tonali 9 77 86 AC Milan
## 86 Eric García 9 77 86 FC Barcelona
## 87 M. Kudus 9 77 86 Ajax
## 88 L. Suárez 9 77 86 Granada CF
## 89 R. Araujo 9 77 86 FC Barcelona
## 90 B. White 9 76 85 Arsenal
## 91 O. Kabak 9 76 85 Norwich City
## 92 M. Boadu 9 76 85 AS Monaco
## 93 Riqui Puig 9 76 85 FC Barcelona
## 94 Trincão 9 76 85 Wolverhampton Wanderers
## 95 S. Dest 9 76 85 FC Barcelona
## 96 D. Núñez 9 76 85 SL Benfica
## 97 Matheus Nunes 9 76 85 Sporting CP
## 98 I. Konaté 8 78 86 Liverpool
## 99 W. Fofana 8 78 86 Leicester City
## 100 B. Godfrey 8 77 85 Everton
Dane Pharell Scarlett is the man to sign if you want to get a talented player who has a lot of room for growth. Moreover, he is not expensive as he is currently worth about 1,500,000 euros.
df_growth %>%
select(short_name, age, potential, value_eur,player_positions) %>%
arrange(value_eur)
## short_name age potential value_eur player_positions
## 1 R. Lavia 17 85 1200000 CDM
## 2 D. Scarlett 17 86 1500000 ST
## 3 L. Delap 18 85 1900000 ST
## 4 Gavi 16 85 2100000 CM
## 5 C. Clark 18 86 2400000 CAM, CM
## 6 L. Stergiou 19 86 2500000 CB
## 7 F. Carvalho 18 86 2600000 CAM
## 8 A. Vranckx 18 85 2600000 CM, CDM
## 9 Talles Magno 19 85 2600000 LM, CF
## 10 Kayky 18 87 2700000 RW
## 11 M. Juwara 19 85 2700000 ST
## 12 L. Netz 18 85 2900000 LB, LM
## 13 K. Kozlowski 17 85 3000000 CAM, CM
## 14 B. Šeško 18 86 3100000 ST
## 15 S. Esposito 18 85 3100000 ST, CAM
## 16 A. Diallo 18 85 3100000 RM
## 17 S. Biuk 18 85 3100000 LM, LW
## 18 Y. Demir 18 85 3700000 CAM, RM
## 19 Fábio Silva 18 85 3700000 ST
## 20 O. Popescu 18 85 3700000 LW, RW
## 21 Francisco Conceição 18 86 4000000 RM
## 22 N. Rovella 19 87 4100000 CM, CDM
## 23 F. Pellistri 19 86 4100000 RM
## 24 A. Bella Kotchap 19 85 4200000 CB
## 25 T. Nianzou 19 85 4200000 CB, CDM
## 26 M. Vandevoordt 19 87 4300000 GK
## 27 S. Giménez 20 86 4500000 ST, CF, CAM
## 28 K. Adeyemi 19 85 4500000 ST
## 29 L. Morales 21 85 5000000 GK
## 30 M. Vuškovic 19 85 5000000 CB
## 31 B. Gilmour 20 86 5500000 CM, CDM
## 32 Gonçalo Ramos 20 86 5500000 CF, ST
## 33 Fábio Vieira 21 85 6000000 CAM, RM
## 34 Diogo Costa 21 85 6500000 GK
## 35 R. Cherki 17 88 7000000 RW, LW
## 36 H. Elliott 18 87 7000000 RW, CM
## 37 M. Olise 19 85 7000000 CAM, RM, LM
## 38 Gustavo Assunção 21 85 7000000 CDM, CM
## 39 A. Velasco 18 85 7000000 LM, LW, ST
## 40 D. Rensch 18 85 7000000 RB
## 41 I. Moriba 18 85 7000000 CM
## 42 A. Sima 20 86 7500000 RM, ST
## 43 C. Jones 20 85 7500000 CM
## 44 Marcos Antonio 21 85 7500000 CM, CDM
## 45 B. Brobbey 19 85 7500000 ST
## 46 A. Lunin 22 85 8000000 GK
## 47 J. Bogle 20 85 9000000 RWB, RB
## 48 C. Tzolis 19 87 10000000 LM, RM, ST
## 49 T. Almada 20 86 10000000 CAM, LW, RW
## 50 P. De la Vega 20 86 10000000 RW, LW, RM
## 51 Nico Melamed 20 86 10000000 LM, CAM, RM
## 52 G. Raspadori 21 88 10500000 ST
## 53 J. Timber 20 86 11500000 CB, RB
## 54 O. Skipp 20 85 11500000 CDM, CM
## 55 D. Hancko 23 85 11500000 CB, LB
## 56 T. Tomiyasu 22 85 12000000 CB, RB
## 57 Rúben Vinagre 22 85 12000000 LWB, LB
## 58 Álex Centelles 21 85 12000000 LB
## 59 M. Simakan 21 85 12000000 CB, RB
## 60 M. Ihattaren 19 85 12000000 CAM, RM, CM
## 61 Moncayola 23 85 12000000 CDM, CM
## 62 J. Gvardiol 19 87 12500000 CB, LB
## 63 J. Álvarez 21 85 12500000 RW, CF
## 64 C. De Ketelaere 20 85 12500000 LW, CAM, ST
## 65 Daniel Bragança 22 85 12500000 CM
## 66 J. Musiala 18 88 13000000 CAM, LM
## 67 T. Kubo 20 88 13500000 RM, CM, CAM
## 68 Gonçalo Inácio 19 86 15000000 CB
## 69 B. White 23 85 15500000 CB, CM
## 70 O. Kabak 21 85 15500000 CB
## 71 S. Dest 20 85 15500000 RB, RM
## 72 A. Hložek 18 87 16000000 ST, LM, RM
## 73 E. Smith Rowe 20 86 16500000 CAM
## 74 Bryan Gil 20 86 16500000 LM, RM, CAM
## 75 M. Boadu 20 85 16500000 ST
## 76 M. Solomon 21 86 17000000 RM, LM, CAM
## 77 Tete 21 86 17000000 RM
## 78 Riqui Puig 21 85 17000000 CM
## 79 Trincão 21 85 17000000 RW, RM
## 80 D. Núñez 22 85 17000000 ST
## 81 Matheus Nunes 22 85 17000000 CM
## 82 Ansu Fati 18 90 17500000 LW
## 83 Gabriel Martinelli 20 88 18000000 LM, LW
## 84 Eric García 20 86 21500000 CB
## 85 G. Reyna 18 87 22000000 CAM, LM, RM
## 86 R. Araujo 22 86 22000000 CB
## 87 B. Godfrey 23 85 22000000 CB, LB
## 88 S. Tonali 21 86 22500000 CDM, CM
## 89 J. Doku 19 88 23000000 RW, RM
## 90 N. Madueke 19 88 23000000 RM, ST
## 91 D. Szoboszlai 20 87 23000000 CAM, LM
## 92 C. Hudson-Odoi 20 87 23000000 RW, LW
## 93 M. Damsgaard 20 87 23000000 LM, LW
## 94 M. Kudus 20 86 23000000 CAM, CM
## 95 L. Suárez 23 86 23500000 ST, LM, CAM
## 96 Nuno Mendes 19 88 29000000 LWB, LB, LM
## 97 W. Fofana 20 86 29000000 CB
## 98 E. Camavinga 18 89 29500000 CM, CDM
## 99 F. Wirtz 18 89 29500000 CAM, CM
## 100 I. Konaté 22 86 29500000 CB
df_growth %>%
count(league_name) %>%
arrange(desc(n)) %>%
head(10) %>%
ggplot() +
geom_col(aes(x = reorder(league_name, -n), y = n), fill = "blue") +
labs(title = "Top 10 leagues with the most footy talent on FIFA 22", x = "League", y = "Number of Talent") +
theme_bw() +
theme(plot.title =element_text(hjust = 0.5),
axis.text.x = element_text(angle = 60, hjust = 1))
The Premier League is where the best talents lie. Followed by the Spanish Pimera Division. Italian Serie A comes in third place.