library(dplyr)
##
## 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
df <- read.csv("http://www.football-data.co.uk/mmz4281/1516/E0.csv", stringsAsFactors = FALSE)
head(df)
## Div Date HomeTeam AwayTeam FTHG FTAG FTR HTHG HTAG HTR
## 1 E0 08/08/15 Bournemouth Aston Villa 0 1 A 0 0 D
## 2 E0 08/08/15 Chelsea Swansea 2 2 D 2 1 H
## 3 E0 08/08/15 Everton Watford 2 2 D 0 1 A
## 4 E0 08/08/15 Leicester Sunderland 4 2 H 3 0 H
## 5 E0 08/08/15 Man United Tottenham 1 0 H 1 0 H
## 6 E0 08/08/15 Norwich Crystal Palace 1 3 A 0 1 A
## Referee HS AS HST AST HF AF HC AC HY AY HR AR B365H B365D B365A
## 1 M Clattenburg 11 7 2 3 13 13 6 3 3 4 0 0 2.00 3.6 4.00
## 2 M Oliver 11 18 3 10 15 16 4 8 1 3 1 0 1.36 5.0 11.00
## 3 M Jones 10 11 5 5 7 13 8 2 1 2 0 0 1.70 3.9 5.50
## 4 L Mason 19 10 8 5 13 17 6 3 2 4 0 0 1.95 3.5 4.33
## 5 J Moss 9 9 1 4 12 12 1 2 2 3 0 0 1.65 4.0 6.00
## 6 S Hooper 17 11 6 7 14 20 1 4 1 0 0 0 2.55 3.3 3.00
## BWH BWD BWA IWH IWD IWA LBH LBD LBA PSH PSD PSA WHH WHD
## 1 2.00 3.30 3.70 2.10 3.3 3.30 2.05 3.3 4.0 1.95 3.65 4.27 1.91 3.5
## 2 1.40 4.75 9.00 1.33 4.8 8.30 1.40 4.5 10.0 1.39 4.92 10.39 1.40 4.0
## 3 1.70 3.50 5.00 1.70 3.6 4.70 1.75 3.8 5.0 1.70 3.95 5.62 1.73 3.5
## 4 2.00 3.30 3.75 2.00 3.3 3.60 2.00 3.4 4.2 1.99 3.48 4.34 2.00 3.1
## 5 1.65 4.00 5.50 1.65 3.6 5.10 1.67 4.0 5.5 1.65 4.09 5.90 1.62 3.6
## 6 2.60 3.20 2.70 2.40 3.2 2.85 2.62 3.2 2.9 2.52 3.35 3.08 2.60 3.1
## WHA VCH VCD VCA Bb1X2 BbMxH BbAvH BbMxD BbAvD BbMxA BbAvA BbOU
## 1 4.00 2.00 3.50 4.20 45 2.10 1.96 3.65 3.48 4.33 3.98 43
## 2 10.00 1.40 5.00 9.50 45 1.43 1.37 5.00 4.66 11.26 9.57 43
## 3 5.00 1.73 3.90 5.40 45 1.75 1.69 4.00 3.76 5.77 5.25 44
## 4 2.70 2.00 3.40 4.33 45 2.03 1.96 3.50 3.37 4.52 4.06 43
## 5 6.00 1.67 4.00 5.75 42 1.71 1.63 4.20 3.90 6.50 5.65 40
## 6 2.88 2.60 3.25 3.00 45 2.63 2.53 3.42 3.21 3.11 2.92 43
## BbMx.2.5 BbAv.2.5 BbMx.2.5.1 BbAv.2.5.1 BbAH BbAHh BbMxAHH BbAvAHH
## 1 2.11 2.02 1.88 1.79 26 -0.5 1.98 1.93
## 2 1.88 1.80 2.07 1.99 27 -1.5 2.24 2.16
## 3 1.93 1.84 2.03 1.96 26 -1.0 2.28 2.18
## 4 2.27 2.18 1.73 1.67 26 -0.5 2.00 1.95
## 5 1.86 1.79 2.13 2.01 26 -1.0 2.20 2.09
## 6 2.25 2.18 1.75 1.67 27 0.0 1.83 1.78
## BbMxAHA BbAvAHA PSCH PSCD PSCA
## 1 1.99 1.92 1.82 3.88 4.70
## 2 1.80 1.73 1.37 5.04 10.88
## 3 1.76 1.71 1.75 3.76 5.44
## 4 1.96 1.90 1.79 3.74 5.10
## 5 1.82 1.78 1.64 4.07 6.04
## 6 2.17 2.08 2.46 3.39 3.14
sMatch <- paste(df$HomeTeam, df$AwayTeam, sep = "-")
sTeams <- unique(c(df$HomeTeam, df$AwayTeam)) %>% sort
sts <- select(df, HS, AS, HST, AST)
head(sts)
## HS AS HST AST
## 1 11 7 2 3
## 2 11 18 3 10
## 3 10 11 5 5
## 4 19 10 8 5
## 5 9 9 1 4
## 6 17 11 6 7
shts <- mutate(sts, sMatch)
head(shts)
## HS AS HST AST sMatch
## 1 11 7 2 3 Bournemouth-Aston Villa
## 2 11 18 3 10 Chelsea-Swansea
## 3 10 11 5 5 Everton-Watford
## 4 19 10 8 5 Leicester-Sunderland
## 5 9 9 1 4 Man United-Tottenham
## 6 17 11 6 7 Norwich-Crystal Palace
shts %>% select(sMatch, everything())
## sMatch HS AS HST AST
## 1 Bournemouth-Aston Villa 11 7 2 3
## 2 Chelsea-Swansea 11 18 3 10
## 3 Everton-Watford 10 11 5 5
## 4 Leicester-Sunderland 19 10 8 5
## 5 Man United-Tottenham 9 9 1 4
## 6 Norwich-Crystal Palace 17 11 6 7
## 7 Arsenal-West Ham 22 8 6 4
## 8 Newcastle-Southampton 9 15 4 5
## 9 Stoke-Liverpool 7 8 1 3
## 10 West Brom-Man City 9 19 2 7
## 11 Aston Villa-Man United 5 9 1 2
## 12 Southampton-Everton 17 10 4 4
## 13 Sunderland-Norwich 6 19 2 6
## 14 Swansea-Newcastle 19 4 6 2
## 15 Tottenham-Stoke 13 16 7 7
## 16 Watford-West Brom 16 6 5 0
## 17 West Ham-Leicester 10 11 3 6
## 18 Crystal Palace-Arsenal 11 20 4 7
## 19 Man City-Chelsea 18 10 8 3
## 20 Liverpool-Bournemouth 18 13 2 2
## 21 Crystal Palace-Aston Villa 16 11 6 2
## 22 Leicester-Tottenham 13 19 2 6
## 23 Man United-Newcastle 20 7 8 0
## 24 Norwich-Stoke 21 6 7 1
## 25 Sunderland-Swansea 10 20 2 9
## 26 West Ham-Bournemouth 10 15 4 7
## 27 Everton-Man City 10 16 1 9
## 28 Watford-Southampton 13 14 0 5
## 29 West Brom-Chelsea 15 15 6 5
## 30 Arsenal-Liverpool 19 15 5 8
## 31 Aston Villa-Sunderland 21 7 6 3
## 32 Bournemouth-Leicester 5 4 2 2
## 33 Chelsea-Crystal Palace 26 13 9 6
## 34 Liverpool-West Ham 13 12 1 5
## 35 Man City-Watford 18 7 5 0
## 36 Newcastle-Arsenal 1 22 0 9
## 37 Stoke-West Brom 13 15 5 5
## 38 Tottenham-Everton 20 8 6 3
## 39 Southampton-Norwich 23 6 8 1
## 40 Swansea-Man United 9 11 4 4
## 41 Arsenal-Stoke 29 9 12 4
## 42 Crystal Palace-Man City 10 21 2 7
## 43 Everton-Chelsea 14 15 9 2
## 44 Man United-Liverpool 9 8 3 4
## 45 Norwich-Bournemouth 12 7 4 2
## 46 Watford-Swansea 17 8 6 3
## 47 West Brom-Southampton 8 14 1 4
## 48 Leicester-Aston Villa 21 11 6 4
## 49 Sunderland-Tottenham 12 15 2 4
## 50 West Ham-Newcastle 17 14 3 4
## 51 Aston Villa-West Brom 13 11 3 6
## 52 Bournemouth-Sunderland 15 9 5 2
## 53 Chelsea-Arsenal 22 9 7 2
## 54 Man City-West Ham 27 6 8 3
## 55 Newcastle-Watford 15 13 5 4
## 56 Stoke-Leicester 11 12 4 5
## 57 Swansea-Everton 12 17 3 2
## 58 Liverpool-Norwich 23 7 7 2
## 59 Southampton-Man United 15 10 8 3
## 60 Tottenham-Crystal Palace 22 12 6 4
## 61 Leicester-Arsenal 16 26 7 12
## 62 Liverpool-Aston Villa 21 10 12 4
## 63 Man United-Sunderland 12 9 7 4
## 64 Newcastle-Chelsea 11 16 5 4
## 65 Southampton-Swansea 18 11 7 4
## 66 Stoke-Bournemouth 8 11 5 6
## 67 Tottenham-Man City 15 22 8 8
## 68 West Ham-Norwich 19 16 7 7
## 69 Watford-Crystal Palace 15 16 2 3
## 70 West Brom-Everton 9 12 4 4
## 71 Aston Villa-Stoke 13 12 2 5
## 72 Bournemouth-Watford 12 11 6 2
## 73 Chelsea-Southampton 10 13 3 5
## 74 Crystal Palace-West Brom 21 7 8 2
## 75 Man City-Newcastle 23 6 11 4
## 76 Norwich-Leicester 17 16 2 5
## 77 Sunderland-West Ham 12 20 3 6
## 78 Arsenal-Man United 12 9 5 5
## 79 Everton-Liverpool 14 13 4 4
## 80 Swansea-Tottenham 11 19 2 11
## 81 Chelsea-Aston Villa 9 8 3 1
## 82 Crystal Palace-West Ham 6 24 1 4
## 83 Everton-Man United 12 10 3 7
## 84 Man City-Bournemouth 15 5 11 1
## 85 Southampton-Leicester 14 26 6 7
## 86 Tottenham-Liverpool 13 12 4 3
## 87 Watford-Arsenal 8 17 1 6
## 88 West Brom-Sunderland 8 9 1 2
## 89 Newcastle-Norwich 11 18 6 6
## 90 Swansea-Stoke 14 9 2 2
## 91 Arsenal-Everton 20 10 5 5
## 92 Aston Villa-Swansea 9 11 3 4
## 93 Leicester-Crystal Palace 12 9 3 4
## 94 Norwich-West Brom 16 7 3 4
## 95 Stoke-Watford 12 13 1 3
## 96 West Ham-Chelsea 12 8 5 4
## 97 Bournemouth-Tottenham 11 14 3 9
## 98 Liverpool-Southampton 15 8 2 3
## 99 Man United-Man City 6 6 1 1
## 100 Sunderland-Newcastle 9 21 3 8
## 101 Chelsea-Liverpool 8 16 2 7
## 102 Crystal Palace-Man United 10 5 5 1
## 103 Man City-Norwich 21 5 5 3
## 104 Newcastle-Stoke 15 9 6 2
## 105 Swansea-Arsenal 8 15 3 5
## 106 Watford-West Ham 20 8 5 3
## 107 West Brom-Leicester 14 13 6 5
## 108 Everton-Sunderland 15 17 8 9
## 109 Southampton-Bournemouth 11 16 2 2
## 110 Tottenham-Aston Villa 17 13 6 2
## 111 Bournemouth-Newcastle 20 2 5 1
## 112 Leicester-Watford 12 8 6 4
## 113 Man United-West Brom 13 4 3 0
## 114 Norwich-Swansea 9 8 5 0
## 115 Stoke-Chelsea 8 19 2 4
## 116 Sunderland-Southampton 9 11 3 4
## 117 West Ham-Everton 16 13 5 4
## 118 Arsenal-Tottenham 10 14 4 4
## 119 Aston Villa-Man City 3 13 0 3
## 120 Liverpool-Crystal Palace 22 9 4 4
## 121 Chelsea-Norwich 21 4 7 2
## 122 Everton-Aston Villa 16 10 9 3
## 123 Man City-Liverpool 11 14 3 9
## 124 Newcastle-Leicester 9 18 1 7
## 125 Southampton-Stoke 16 16 1 4
## 126 Swansea-Bournemouth 11 16 4 4
## 127 Watford-Man United 10 13 5 6
## 128 West Brom-Arsenal 4 11 1 3
## 129 Tottenham-West Ham 22 10 12 4
## 130 Crystal Palace-Sunderland 19 12 7 4
## 131 Aston Villa-Watford 12 14 6 6
## 132 Bournemouth-Everton 19 11 10 6
## 133 Crystal Palace-Newcastle 19 7 8 2
## 134 Leicester-Man United 7 10 3 2
## 135 Man City-Southampton 16 12 9 8
## 136 Sunderland-Stoke 18 7 5 3
## 137 Liverpool-Swansea 10 8 2 0
## 138 Norwich-Arsenal 7 12 2 3
## 139 Tottenham-Chelsea 9 5 4 1
## 140 West Ham-West Brom 17 7 6 3
## 141 Arsenal-Sunderland 16 11 7 4
## 142 Chelsea-Bournemouth 19 15 6 5
## 143 Man United-West Ham 21 9 1 2
## 144 Southampton-Aston Villa 23 9 5 2
## 145 Stoke-Man City 7 11 4 4
## 146 Swansea-Leicester 10 16 2 5
## 147 Watford-Norwich 14 6 7 1
## 148 West Brom-Tottenham 11 9 4 3
## 149 Newcastle-Liverpool 6 10 1 1
## 150 Everton-Crystal Palace 19 14 4 5
## 151 Bournemouth-Man United 11 11 5 5
## 152 Crystal Palace-Southampton 12 15 5 3
## 153 Man City-Swansea 13 13 5 7
## 154 Norwich-Everton 9 15 2 3
## 155 Sunderland-Watford 14 13 2 6
## 156 West Ham-Stoke 22 12 9 3
## 157 Aston Villa-Arsenal 18 8 2 4
## 158 Liverpool-West Brom 28 4 8 2
## 159 Tottenham-Newcastle 20 8 8 4
## 160 Leicester-Chelsea 9 11 5 5
## 161 Chelsea-Sunderland 17 11 7 3
## 162 Everton-Leicester 13 10 5 5
## 163 Man United-Norwich 11 6 2 4
## 164 Newcastle-Aston Villa 8 10 4 7
## 165 Southampton-Tottenham 11 13 4 6
## 166 Stoke-Crystal Palace 26 12 5 3
## 167 West Brom-Bournemouth 6 16 2 7
## 168 Swansea-West Ham 21 11 2 2
## 169 Watford-Liverpool 6 12 5 4
## 170 Arsenal-Man City 8 20 5 6
## 171 Aston Villa-West Ham 5 10 8 4
## 172 Bournemouth-Crystal Palace 10 8 4 0
## 173 Chelsea-Watford 17 12 2 3
## 174 Liverpool-Leicester 25 7 4 3
## 175 Man City-Sunderland 19 11 9 3
## 176 Newcastle-Everton 10 20 1 7
## 177 Southampton-Arsenal 15 7 5 4
## 178 Stoke-Man United 13 11 3 6
## 179 Swansea-West Brom 7 9 2 3
## 180 Tottenham-Norwich 15 11 10 3
## 181 Arsenal-Bournemouth 13 10 6 3
## 182 Crystal Palace-Swansea 10 5 2 3
## 183 Everton-Stoke 15 8 3 5
## 184 Man United-Chelsea 12 8 2 3
## 185 Norwich-Aston Villa 9 6 4 3
## 186 Watford-Tottenham 9 10 1 3
## 187 West Brom-Newcastle 22 7 5 2
## 188 West Ham-Southampton 13 15 5 4
## 189 Leicester-Man City 11 21 4 5
## 190 Sunderland-Liverpool 8 17 3 6
## 191 Arsenal-Newcastle 16 15 3 6
## 192 Leicester-Bournemouth 16 9 2 0
## 193 Man United-Swansea 19 9 6 4
## 194 Norwich-Southampton 10 10 1 4
## 195 Sunderland-Aston Villa 13 8 6 3
## 196 Watford-Man City 11 16 3 5
## 197 West Brom-Stoke 16 10 5 3
## 198 West Ham-Liverpool 18 23 10 2
## 199 Crystal Palace-Chelsea 8 10 4 4
## 200 Everton-Tottenham 12 19 3 4
## 201 Aston Villa-Crystal Palace 13 9 3 1
## 202 Bournemouth-West Ham 11 10 4 5
## 203 Newcastle-Man United 14 12 6 4
## 204 Chelsea-West Brom 14 13 2 6
## 205 Liverpool-Arsenal 22 14 6 5
## 206 Man City-Everton 22 7 5 2
## 207 Southampton-Watford 15 4 7 1
## 208 Stoke-Norwich 14 5 4 2
## 209 Swansea-Sunderland 10 7 5 5
## 210 Tottenham-Leicester 21 10 5 2
## 211 Aston Villa-Leicester 14 12 5 5
## 212 Bournemouth-Norwich 15 10 8 3
## 213 Chelsea-Everton 14 9 7 4
## 214 Man City-Crystal Palace 17 9 4 3
## 215 Newcastle-West Ham 23 10 10 3
## 216 Southampton-West Brom 9 9 5 0
## 217 Tottenham-Sunderland 26 5 11 2
## 218 Liverpool-Man United 19 7 4 1
## 219 Stoke-Arsenal 14 8 6 3
## 220 Swansea-Watford 10 13 2 2
## 221 Crystal Palace-Tottenham 11 24 3 11
## 222 Leicester-Stoke 15 3 5 2
## 223 Man United-Southampton 8 7 1 2
## 224 Norwich-Liverpool 6 13 5 7
## 225 Sunderland-Bournemouth 10 15 5 5
## 226 Watford-Newcastle 13 11 5 2
## 227 West Brom-Aston Villa 4 15 0 4
## 228 West Ham-Man City 10 16 3 3
## 229 Arsenal-Chelsea 9 12 1 6
## 230 Everton-Swansea 20 7 2 5
## 231 Arsenal-Southampton 21 14 11 3
## 232 Crystal Palace-Bournemouth 14 8 3 4
## 233 Leicester-Liverpool 13 14 6 2
## 234 Man United-Stoke 15 10 5 0
## 235 Norwich-Tottenham 10 17 2 6
## 236 Sunderland-Man City 11 6 2 2
## 237 West Brom-Swansea 17 18 7 4
## 238 West Ham-Aston Villa 25 6 6 2
## 239 Everton-Newcastle 18 7 7 3
## 240 Watford-Chelsea 12 12 3 4
## 241 Aston Villa-Norwich 10 12 3 4
## 242 Liverpool-Sunderland 16 7 5 2
## 243 Man City-Leicester 22 14 4 7
## 244 Newcastle-West Brom 19 7 7 0
## 245 Southampton-West Ham 8 18 2 2
## 246 Stoke-Everton 11 14 3 6
## 247 Swansea-Crystal Palace 19 12 3 2
## 248 Tottenham-Watford 26 3 9 0
## 249 Bournemouth-Arsenal 17 10 4 5
## 250 Chelsea-Man United 16 17 5 7
## 251 Bournemouth-Stoke 11 11 2 6
## 252 Chelsea-Newcastle 15 10 5 4
## 253 Crystal Palace-Watford 14 10 7 3
## 254 Everton-West Brom 34 5 6 1
## 255 Norwich-West Ham 13 11 3 6
## 256 Sunderland-Man United 21 12 5 6
## 257 Swansea-Southampton 13 13 2 5
## 258 Arsenal-Leicester 24 7 6 3
## 259 Aston Villa-Liverpool 6 11 1 9
## 260 Man City-Tottenham 19 6 4 3
## 261 Leicester-Norwich 13 9 3 1
## 262 Southampton-Chelsea 7 16 2 4
## 263 Stoke-Aston Villa 11 5 3 1
## 264 Watford-Bournemouth 14 11 1 3
## 265 West Brom-Crystal Palace 11 15 5 2
## 266 West Ham-Sunderland 9 13 3 4
## 267 Tottenham-Swansea 34 10 14 4
## 268 Man United-Arsenal 7 13 5 5
## 269 Aston Villa-Everton 14 10 5 7
## 270 Bournemouth-Southampton 9 6 4 1
## 271 Leicester-West Brom 22 11 5 3
## 272 Norwich-Chelsea 13 10 2 2
## 273 Sunderland-Crystal Palace 17 13 6 5
## 274 Arsenal-Swansea 18 11 4 2
## 275 Liverpool-Man City 11 4 7 2
## 276 Man United-Watford 14 13 3 3
## 277 Stoke-Newcastle 9 5 2 3
## 278 West Ham-Tottenham 14 9 3 2
## 279 Chelsea-Stoke 20 16 7 5
## 280 Everton-West Ham 15 17 8 5
## 281 Man City-Aston Villa 22 2 9 1
## 282 Newcastle-Bournemouth 14 16 3 5
## 283 Southampton-Sunderland 16 11 5 3
## 284 Swansea-Norwich 10 8 3 3
## 285 Tottenham-Arsenal 26 10 11 4
## 286 Watford-Leicester 11 14 4 7
## 287 Crystal Palace-Liverpool 14 19 4 5
## 288 West Brom-Man United 9 7 2 1
## 289 Bournemouth-Swansea 12 12 4 4
## 290 Norwich-Man City 5 15 0 3
## 291 Stoke-Southampton 13 11 2 4
## 292 Aston Villa-Tottenham 11 19 2 8
## 293 Leicester-Newcastle 10 13 1 2
## 294 Chelsea-West Ham 22 13 5 6
## 295 Crystal Palace-Leicester 12 8 4 3
## 296 Everton-Arsenal 8 11 2 3
## 297 Swansea-Aston Villa 10 12 1 2
## 298 Watford-Stoke 9 9 4 6
## 299 West Brom-Norwich 10 7 0 1
## 300 Man City-Man United 26 5 2 3
## 301 Newcastle-Sunderland 17 14 8 4
## 302 Southampton-Liverpool 16 18 5 9
## 303 Tottenham-Bournemouth 17 2 8 0
## 304 Arsenal-Watford 19 6 12 2
## 305 Aston Villa-Chelsea 15 11 4 8
## 306 Bournemouth-Man City 11 15 2 7
## 307 Liverpool-Tottenham 15 18 7 5
## 308 Norwich-Newcastle 13 13 6 5
## 309 Stoke-Swansea 12 12 5 3
## 310 Sunderland-West Brom 22 3 7 0
## 311 West Ham-Crystal Palace 18 12 6 5
## 312 Leicester-Southampton 11 10 4 2
## 313 Man United-Everton 10 7 2 1
## 314 Aston Villa-Bournemouth 6 12 1 3
## 315 Crystal Palace-Norwich 13 13 6 4
## 316 Man City-West Brom 13 13 4 2
## 317 Southampton-Newcastle 20 5 6 3
## 318 Swansea-Chelsea 12 8 6 2
## 319 Watford-Everton 13 12 5 7
## 320 West Ham-Arsenal 19 11 7 6
## 321 Liverpool-Stoke 14 10 6 3
## 322 Sunderland-Leicester 15 17 1 7
## 323 Tottenham-Man United 16 5 8 1
## 324 Crystal Palace-Everton 18 9 6 5
## 325 Chelsea-Man City 11 11 4 8
## 326 Everton-Southampton 7 18 2 4
## 327 Man United-Aston Villa 13 7 4 1
## 328 Newcastle-Swansea 12 11 7 1
## 329 Norwich-Sunderland 19 8 6 3
## 330 West Brom-Watford 16 11 4 4
## 331 Arsenal-Crystal Palace 21 7 6 2
## 332 Bournemouth-Liverpool 18 19 5 6
## 333 Leicester-West Ham 6 19 2 4
## 334 Stoke-Tottenham 12 23 2 6
## 335 Newcastle-Man City 5 9 3 5
## 336 Liverpool-Everton 37 3 13 0
## 337 Man United-Crystal Palace 16 5 10 0
## 338 West Ham-Watford 18 7 7 4
## 339 Arsenal-West Brom 16 8 7 1
## 340 Aston Villa-Southampton 16 17 7 7
## 341 Bournemouth-Chelsea 13 16 4 4
## 342 Liverpool-Newcastle 13 6 4 3
## 343 Man City-Stoke 11 14 6 2
## 344 Leicester-Swansea 18 9 9 1
## 345 Sunderland-Arsenal 12 20 3 7
## 346 Tottenham-West Brom 19 16 2 3
## 347 Arsenal-Norwich 14 12 3 3
## 348 Everton-Bournemouth 12 16 5 2
## 349 Newcastle-Crystal Palace 10 9 4 3
## 350 Stoke-Sunderland 11 14 3 5
## 351 Watford-Aston Villa 18 7 6 2
## 352 West Brom-West Ham 15 8 5 4
## 353 Man United-Leicester 21 14 6 3
## 354 Southampton-Man City 14 6 7 5
## 355 Swansea-Liverpool 18 11 9 3
## 356 Chelsea-Tottenham 13 16 5 5
## 357 Aston Villa-Newcastle 2 9 0 3
## 358 Bournemouth-West Brom 12 12 4 4
## 359 Crystal Palace-Stoke 17 12 4 3
## 360 Leicester-Everton 32 9 8 5
## 361 Norwich-Man United 8 15 2 2
## 362 Sunderland-Chelsea 15 9 4 8
## 363 West Ham-Swansea 25 13 7 6
## 364 Liverpool-Watford 19 14 5 3
## 365 Man City-Arsenal 14 5 3 2
## 366 Tottenham-Southampton 20 10 6 2
## 367 West Ham-Man United 20 3 6 2
## 368 Liverpool-Chelsea 28 13 9 7
## 369 Norwich-Watford 18 12 6 7
## 370 Sunderland-Everton 14 17 8 6
## 371 Arsenal-Aston Villa 16 5 7 2
## 372 Chelsea-Leicester 17 18 4 5
## 373 Everton-Norwich 15 10 8 2
## 374 Newcastle-Tottenham 19 17 10 5
## 375 Southampton-Crystal Palace 18 16 5 4
## 376 Stoke-West Ham 7 20 4 7
## 377 Swansea-Man City 4 18 1 5
## 378 Watford-Sunderland 21 6 6 4
## 379 West Brom-Liverpool 13 7 1 3
## 380 Man United-Bournemouth 12 7 5 0
home <- select(df, HomeTeam, HS)
Away <- select(df, AwayTeam, AS)
library(ggplot2)
library(ggrepel)
h <- select(df, HomeTeam, AwayTeam, HS, AS, HST)
ars <- filter(h, HomeTeam == "Arsenal")
chelsea <- filter(h, HomeTeam == "Chelsea")
tots <- filter(h, HomeTeam == "Tottenham")
symbols(ars$HS, ars$AS, squares = sqrt(ars$HST/pi),inches=0.35, fg="white", bg="red", xlab="HS", ylab="AS")
text(ars$HS, ars$AS, ars$AwayTeam, cex=0.75)
title("Arsenal Home Shots vs Away Shots")
symbols(chelsea$HS, chelsea$AS, squares = sqrt(chelsea$HST/pi),inches=0.35, fg="white", bg="blue", xlab="HS", ylab="AS")
text(chelsea$HS, chelsea$AS, chelsea$AwayTeam, cex=0.75)
title ("Chelsea Home Shots vs Away Shots")
symbols(tots$HS, tots$AS, squares = sqrt(tots$HST/pi),inches=0.35, fg="white", bg="grey", xlab="HS", ylab="AS")
text(tots$HS, tots$AS, tots$AwayTeam, cex=0.75)
title ("Tottenham Home Shots vs Away Shots")
