WAYNE ROONE(ATTACKER)
library(tidyr)
## Warning: package 'tidyr' was built under R version 3.2.5
library(radarchart)
## Warning: package 'radarchart' was built under R version 3.2.5
library(dplyr)
## Warning: package 'dplyr' was built under R version 3.2.5
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
wayne_top10<-read.csv(file.choose())
colnames(wayne_top10)
## [1] "player_api_id" "Dmean_player" "player_name"
## [4] "overall_rating" "potential" "attacking_work_rate"
## [7] "defensive_work_rate" "crossing" "finishing"
## [10] "heading_accuracy" "short_passing" "volleys"
## [13] "dribbling" "curve" "free_kick_accuracy"
## [16] "long_passing" "ball_control" "acceleration"
## [19] "sprint_speed" "agility" "reactions"
## [22] "balance" "shot_power" "jumping"
## [25] "stamina" "strength" "long_shots"
## [28] "aggression" "interceptions" "positioning"
## [31] "vision" "penalties" "marking"
## [34] "standing_tackle" "sliding_tackle" "birthday"
top10<-wayne_top10[,-c(1,2,4,5,7,11,16,19,20,21,22,25,27,28,29,30,33,34,35)]
Wayne and Top10 Closest Players skills Comparsion
PIRLO ANDREA(MIDFEILDER)
pirlo_top10<-read.csv(file.choose())
colnames(pirlo_top10)
## [1] "Dmean_player" "Player_api" "player_name"
## [4] "overall_rating" "potential" "preferred_footleft"
## [7] "preferred_footright" "attacking_work_rate" "defensive_work_rate"
## [10] "crossing" "finishing" "heading_accuracy"
## [13] "short_passing" "volleys" "dribbling"
## [16] "curve" "free_kick_accuracy" "long_passing"
## [19] "ball_control" "acceleration" "sprint_speed"
## [22] "agility" "reactions" "balance"
## [25] "shot_power" "jumping" "stamina"
## [28] "strength" "long_shots" "aggression"
## [31] "interceptions" "positioning" "vision"
## [34] "penalties" "marking" "standing_tackle"
## [37] "sliding_tackle" "gk_diving" "gk_handling"
## [40] "gk_kicking" "gk_positioning" "gk_reflexes"
## [43] "id" "player_name.1" "player_fifa_api_id"
## [46] "birthday" "height" "weight"
top10<-pirlo_top10[,-c(1,2,4,6,7,10,12,14,15,17,19,20,21,22,26,30,37,38,39,40,41,42,43,44,45,47,48)]
Wayne and Top10 Closest Players skills Comparsion
RAMOS SARIGO
ramos_top10<-read.csv(file.choose())
colnames(ramos_top10)
## [1] "Player_api_id" "Dmean_player" "player_name"
## [4] "overall_rating" "potential" "preferred_footleft"
## [7] "preferred_footright" "attacking_work_rate" "defensive_work_rate"
## [10] "crossing" "finishing" "heading_accuracy"
## [13] "short_passing" "volleys" "dribbling"
## [16] "curve" "free_kick_accuracy" "long_passing"
## [19] "ball_control" "acceleration" "sprint_speed"
## [22] "agility" "reactions" "balance"
## [25] "shot_power" "jumping" "stamina"
## [28] "strength" "long_shots" "aggression"
## [31] "interceptions" "positioning" "vision"
## [34] "penalties" "marking" "standing_tackle"
## [37] "sliding_tackle" "gk_diving" "gk_handling"
## [40] "gk_kicking" "gk_positioning" "gk_reflexes"
## [43] "id" "player_name.1" "player_fifa_api_id"
## [46] "birthday" "height" "weight"
top10<-pirlo_top10[,-c(1,2,4,6,7,8,11,13,14,15,16,17,20,21,27,28,30,33,34,38,39,40,41,42,43,44,45,47,48)]
Wayne and Top10 Closest Players skills Comparsion