Skip to content

Instantly share code, notes, and snippets.

@jalapic

jalapic/open_round1

Last active August 29, 2015 14:25
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save jalapic/5c39d7b5d1e76cca3ea6 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save jalapic/5c39d7b5d1e76cca3ea6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
open_round1
### Open Championship Round 1 scores
openr1$X<-rownames(openr1)
head(openr1)
par<-c(4,4,4,4,5,4,4,3,4,4,3,4,4,5,4,4,4,4)
openr1[,2:19] <- t(apply(openr1[,2:19],1,function(x) x-par))
head(openr1)
library(tidyr)
library(dplyr)
openr1a <- openr1 %>% gather(key,value,2:19)
library(ggplot2)
openr1a$player <- factor(openr1a$player, levels=rev(unique(openr1a$player))) #factor levels
### Plotting
ggplot(openr1a, aes(player, key, fill = factor(value))) +
geom_tile(color='gray77', size=0.5, family="bold", stat="identity", height=1, width=1) +
scale_fill_manual(values = c("orange", "lightgoldenrod1", "white", "lightsteelblue", "dodgerblue", "blue", "blue", "blue")) +
coord_flip() +
scale_x_discrete(expand = c(0, 0)) +
scale_y_discrete(expand = c(0, 0)) +
xlab("") +
ylab("") +
theme(
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_rect(fill=NA, size=0.5, linetype="solid"),
axis.line = element_blank(),
axis.ticks = element_blank(),
axis.text = element_text(color="gray22", size=rel(0.55)),
panel.background = element_rect(fill="white"),
plot.background = element_rect(fill="white"),
legend.position = "none"
)
### Plotting - long wise
openr1b<-openr1a
openr1b$player <- factor(openr1b$player, levels=rev(levels(openr1a$player)))
openr1b$key <- factor(openr1b$key, levels=rev(levels(openr1a$key)))
ggplot(openr1b, aes(player, key, fill = factor(value))) +
geom_tile(color='gray77', size=0.5, family="bold", stat="identity", height=1, width=1) +
scale_fill_manual(values = c("orange", "lightgoldenrod1", "white", "lightsteelblue", "dodgerblue", "blue", "blue", "blue")) +
scale_x_discrete(expand = c(0, 0)) +
scale_y_discrete(expand = c(0, 0)) +
xlab("") +
ylab("") +
theme(
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_rect(fill=NA, size=0.5, linetype="solid"),
axis.line = element_blank(),
axis.ticks = element_blank(),
axis.text = element_text(color="gray22", size=rel(0.65)),
panel.background = element_rect(fill="white"),
plot.background = element_rect(fill="white"),
legend.position = "none",
axis.text.x = element_text(angle=90, vjust=0.5, hjust=0)
)
Raw
openr1.csv
player 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 final
JOHNSON, Dustin 4 3 3 4 3 4 4 3 3 3 3 4 4 4 4 4 4 4 -7
STREB, Robert 3 4 3 4 4 3 4 3 3 5 3 3 4 5 3 4 4 4 -6
GOOSEN, Retief 3 3 5 4 4 4 4 2 4 3 3 3 4 5 4 4 4 3 -6
LAWRIE, Paul 4 3 4 4 4 3 3 3 3 4 3 3 3 5 4 4 5 4 -6
DAY, Jason 4 3 4 4 4 3 4 3 4 3 3 4 4 4 3 4 4 4 -6
JOHNSON, Zach 3 3 4 4 4 3 4 3 3 3 3 4 4 5 4 4 5 3 -6
WILLETT, Danny 3 3 3 4 5 4 4 3 4 2 4 4 3 5 4 4 4 3 -6
NIEBRUGGE, Jordan (a) 3 4 4 3 4 4 5 2 4 3 3 3 5 5 4 4 4 3 -5
NA, Kevin 4 4 3 4 5 4 4 3 3 4 2 4 3 5 4 4 4 3 -5
SCHWARTZEL, Charl 4 5 3 4 4 3 3 3 4 3 3 3 4 4 4 4 5 4 -5
SPIETH, Jordan 3 3 4 4 4 3 3 3 4 4 2 4 5 5 4 4 5 3 -5
OOSTHUIZEN, Louis 4 4 4 4 4 4 3 3 3 4 2 4 5 4 4 4 4 3 -5
OWEN, Greg 3 4 4 4 5 3 4 3 3 4 3 4 5 4 4 4 4 3 -4
JONES, Matt 4 3 4 4 4 4 5 3 4 4 2 4 4 5 3 4 4 3 -4
DONALD, Luke 4 4 3 4 4 3 4 2 4 4 3 4 4 5 4 4 4 4 -4
HOWELL, David 3 4 4 4 5 3 3 2 4 3 3 4 5 4 4 5 4 4 -4
WARREN, Marc 4 4 3 4 4 4 3 2 4 4 4 4 3 4 4 5 4 4 -4
DUNNE, Paul (a) 3 3 4 4 4 4 4 3 3 4 4 4 4 5 4 4 4 4 -3
LINGMERTH, David 3 3 3 3 5 3 3 3 3 4 4 4 4 6 5 4 6 3 -3
LANGASQUE, Romain (a) 4 3 4 5 4 4 4 3 4 4 3 3 4 5 3 3 5 4 -3
LAHIRI, Anirban 3 3 4 4 5 4 3 3 4 4 3 4 5 4 3 4 5 4 -3
FLEETWOOD, Tommy 4 3 4 4 4 3 4 3 4 3 3 4 4 5 5 3 5 4 -3
GRACE, Branden 4 4 4 4 4 3 4 2 4 3 3 4 4 5 4 4 5 4 -3
BJORN, Thomas 4 4 4 3 4 3 4 2 4 5 4 4 4 4 4 4 5 4 -2
LEVY, Alexander 4 3 4 3 5 4 3 4 3 4 2 4 4 5 5 4 5 4 -2
WALL, Anthony 4 4 4 4 4 4 3 3 3 4 3 4 4 5 5 4 4 4 -2
SIMPSON, Webb 4 4 4 4 4 4 3 3 3 4 4 4 4 4 4 4 5 4 -2
SCHNIEDERJANS, Oliver (a) 4 4 3 4 5 3 3 2 6 3 4 4 4 4 4 4 5 4 -2
GARCIA, Sergio 4 4 3 4 5 3 4 3 4 4 3 3 4 5 4 4 5 4 -2
CINK, Stewart 4 4 3 4 5 3 4 3 4 4 3 3 5 4 4 4 5 4 -2
CHALMERS, Greg 3 4 3 5 5 4 4 3 3 4 2 3 4 5 5 4 5 4 -2
KINNEAR, Paul (a) 3 4 3 4 5 4 3 2 3 4 2 4 5 5 4 5 6 4 -2
HATTON, Tyrrell 4 4 4 4 4 4 3 2 5 3 2 5 3 5 4 4 6 4 -2
SIEM, Marcel 4 3 4 4 5 3 3 3 4 4 3 4 4 5 4 4 5 4 -2
BOWDITCH, Steven 4 3 3 4 4 4 4 2 5 3 3 4 4 5 4 4 5 5 -2
SCOTT, Adam 4 4 3 5 4 4 4 3 4 3 3 5 4 5 5 3 4 3 -2
MICKELSON, Phil 4 3 4 3 4 5 4 4 4 3 3 4 4 5 4 4 5 3 -2
CASEY, Paul 4 4 4 5 4 3 4 3 4 3 3 4 5 5 3 4 4 4 -2
LEISHMAN, Marc 3 4 3 4 5 4 4 3 4 3 3 4 5 5 5 4 4 3 -2
KARLBERG, Rikard 4 4 3 4 4 3 4 3 4 3 3 4 4 5 4 5 4 5 -2
DELAET, Graham 4 4 4 4 5 3 4 3 3 4 3 4 4 4 4 4 5 5 -1
LYLE, Sandy 5 4 3 4 6 3 5 3 4 3 2 4 4 5 4 4 4 4 -1
FISHER, Ross 4 5 3 4 4 4 3 3 4 4 3 4 5 4 5 5 4 3 -1
ELS, Ernie 4 4 3 4 6 4 4 3 3 3 4 5 4 4 4 4 4 4 -1
TODD, Brendon 4 4 3 4 4 3 4 3 3 4 2 4 4 7 5 4 5 4 -1
WATSON, Bubba 3 4 4 4 5 4 3 3 4 3 3 4 4 5 5 4 5 4 -1
WESTWOOD, Lee 3 4 5 4 4 3 3 3 4 4 4 3 4 4 4 5 5 5 -1
PALMER, Ryan 4 4 4 4 4 4 4 3 4 4 4 3 3 5 4 4 5 4 -1
KISNER, Kevin 3 4 3 4 4 4 4 3 4 4 5 4 5 5 4 4 4 3 -1
KOEPKA, Brooks 4 4 3 4 5 3 4 3 3 4 3 7 3 4 4 4 5 4 -1
ARNOLD, Scott 4 4 4 4 4 4 3 3 4 4 3 3 4 7 4 4 4 4 -1
TRINGALE, Cameron 3 3 3 4 4 4 3 3 4 4 3 4 4 5 4 7 5 4 -1
CABRERA-BELLO, Rafael 4 3 3 4 4 3 3 3 4 4 3 4 5 6 5 4 5 4 -1
DALY, John 4 4 3 5 4 4 3 3 3 3 4 5 4 4 4 5 5 4 -1
OGILVY, Geoff 3 3 4 4 4 3 4 3 4 3 3 3 5 7 5 5 4 4 -1
FUJITA, Hiroyuki 4 3 4 4 4 4 4 3 4 4 3 4 4 6 4 4 4 4 -1
KAYMER, Martin 4 4 4 4 4 4 4 3 4 3 3 4 5 5 4 4 5 3 -1
KUCHAR, Matt 4 4 4 5 4 3 3 4 4 3 3 4 4 5 4 4 5 4 -1
ROSE, Justin 3 4 4 3 4 4 3 3 4 4 3 4 5 5 4 5 4 5 -1
ENGLISH, Harris 3 4 4 4 4 4 4 3 4 4 4 4 4 4 4 3 5 5 -1
CHESTERS, Ashley (a) 4 4 3 4 4 3 4 3 4 2 3 4 4 5 4 5 5 6 -1
MORRISON, James 5 4 4 4 4 4 3 2 4 3 3 4 4 5 4 5 5 4 -1
RUMFORD, Brett 5 4 3 4 4 3 4 3 4 4 4 4 4 5 4 4 4 4 -1
KNOX, Russell 3 4 4 4 5 4 5 3 3 4 3 4 4 5 4 4 6 3 E
HOFFMAN, Charley 4 4 3 4 5 4 3 3 5 3 3 3 4 6 4 4 6 4 E
MAHAN, Hunter 3 4 3 4 4 3 4 3 4 4 3 4 5 5 5 5 5 4 E
PETTERSSON, Carl 4 4 3 5 5 3 3 3 3 3 2 4 5 6 4 5 6 4 E
MCDOWELL, Graeme 4 4 4 4 5 4 4 3 4 3 2 5 4 5 4 5 4 4 E
REED, Patrick 5 4 4 4 4 4 5 3 4 4 4 4 4 4 4 3 4 4 E
MATSUYAMA, Hideki 3 4 3 4 4 4 4 3 4 5 3 4 4 6 5 4 4 4 E
SENDEN, John 4 4 4 4 4 4 4 3 4 5 2 4 4 5 5 4 4 4 E
DUVAL, David 3 4 3 5 4 4 4 3 4 4 5 4 3 4 4 4 6 4 E
PEPPERELL, Eddie 3 4 4 4 6 3 4 3 4 4 4 3 4 5 4 4 5 4 E
FOX, Ryan 3 4 5 5 4 4 4 2 4 3 3 3 4 6 5 4 5 4 E
RAMSAY, Richie 4 3 4 4 5 4 3 3 4 3 4 3 4 7 4 4 5 4 E
HARRINGTON, Padraig 4 4 5 4 4 3 4 3 4 4 4 3 4 5 4 4 5 4 E
WIESBERGER, Bernd 3 4 4 4 4 4 4 3 4 4 4 4 5 4 3 4 5 5 E
WOODLAND, Gary 3 4 4 4 4 4 4 3 3 3 4 5 5 6 4 4 4 4 E
JAIDEE, Thongchai 4 4 4 4 4 3 4 3 4 4 4 5 4 6 4 4 4 3 E
MOLINARI, Francesco 4 5 4 4 4 3 4 3 4 4 3 5 4 5 4 4 5 3 E
O'MEARA, Mark 3 5 4 4 4 4 4 3 4 4 3 3 4 5 4 5 5 4 E
WALKER, Jimmy 3 4 4 5 4 3 3 3 4 4 3 5 4 5 4 5 5 4 E
DONALDSON, Jamie 4 4 4 4 4 4 5 3 3 3 3 4 5 4 4 4 6 4 E
FOWLER, Rickie 4 4 4 4 5 4 4 4 4 2 3 4 5 5 4 4 4 4 E
SULLIVAN, Andy 4 3 4 5 4 4 3 3 4 3 3 4 5 6 4 4 4 5 E
EDBERG, Pelle 4 5 3 4 5 3 5 3 4 4 4 4 3 5 4 4 4 4 E
HARMAN, Brian 4 4 3 4 5 4 3 3 4 4 5 4 4 5 5 4 4 4 1
EVERY, Matt 4 6 4 5 5 4 3 2 4 6 3 3 5 4 3 4 5 3 1
LOWRY, Shane 5 4 4 5 5 4 3 3 3 3 3 4 3 4 4 4 8 4 1
HORSCHEL, Billy 4 4 4 4 5 4 3 3 4 4 2 4 4 6 4 5 5 4 1
SNEDEKER, Brandt 4 4 4 4 4 4 4 3 4 4 3 5 4 5 4 4 5 4 1
HOLMES, JB 4 4 3 5 4 4 4 3 3 4 3 4 4 4 7 4 5 4 1
TOMIMURA, Shinji 3 4 5 5 5 4 3 3 4 4 2 4 4 5 4 4 5 5 1
POULTER, Ian 4 4 5 4 5 4 4 3 4 3 3 4 5 5 4 4 4 4 1
CLARKE, Darren 3 4 3 4 5 4 5 3 4 4 4 3 4 6 4 5 4 4 1
MANASSERO, Matteo 4 4 4 5 4 3 3 3 3 3 3 4 4 6 5 4 7 4 1
LIPSKY, David 4 3 4 4 6 4 4 3 4 4 3 4 4 4 4 4 6 4 1
LEE, Danny 4 5 4 5 4 3 4 3 4 4 2 4 4 5 5 4 4 5 1
HOFFMANN, Morgan 3 6 4 4 5 3 4 2 4 4 3 4 4 6 4 4 5 4 1
DUFNER, Jason 5 3 3 4 4 3 4 3 4 4 4 5 4 6 4 5 5 3 1
YANG, Gunn (a) 4 4 4 4 4 3 5 3 3 4 3 5 4 6 4 4 5 4 1
GALLACHER, Stephen 3 4 3 4 4 4 4 4 4 4 3 4 5 6 4 4 5 4 1
STENSON, Henrik 4 4 4 4 4 3 4 4 4 3 4 4 5 5 4 4 5 4 1
FURYK, Jim 4 3 4 4 5 4 4 3 4 4 2 4 5 7 5 3 5 3 1
ODA, Koumei 4 3 4 4 5 3 3 2 4 3 4 4 5 6 4 6 5 4 1
APHIBARNRAT, Kiradech 3 4 5 4 5 4 4 3 5 3 3 4 5 4 6 3 4 4 1
BERGER, Daniel 4 4 4 5 3 3 3 3 3 6 3 4 4 5 4 5 5 5 1
DINWIDDIE, Robert 3 5 3 4 4 3 4 3 4 3 4 4 4 5 5 6 5 4 1
HAMILTON, Todd 4 4 3 4 5 4 4 5 4 5 2 5 3 5 4 4 5 4 2
LUITEN, Joost 4 4 4 4 5 4 4 3 4 5 3 5 4 5 4 4 4 4 2
AN, Byeong-Hun 5 4 4 4 4 5 4 2 4 3 3 4 6 5 4 4 5 4 2
DUBUISSON, Victor 4 5 3 4 4 4 4 3 4 5 3 5 4 6 4 4 4 4 2
CURTIS, Ben 4 4 4 4 4 5 4 3 4 4 3 4 5 5 4 4 5 4 2
HEARN, David 4 4 3 5 5 3 4 3 4 3 3 4 3 6 4 6 5 5 2
MOORE, Jonathan 4 5 4 4 4 5 4 3 4 4 3 3 4 7 4 4 4 4 2
HEND, Scott 4 4 4 5 5 4 3 3 4 4 3 3 4 6 4 4 5 5 2
MARTIN, Ben 3 4 4 4 5 4 4 3 4 4 4 4 4 5 5 4 5 4 2
COETZEE, George 4 4 3 4 4 3 4 4 4 4 3 4 4 7 5 4 4 5 2
HENLEY, Russell 4 6 4 4 5 4 4 3 4 3 3 4 4 6 5 3 4 4 2
LANGER, Bernhard 3 3 4 4 4 3 5 3 4 4 3 4 5 5 5 6 5 4 2
MOORE, Ryan 4 4 4 4 5 4 4 3 4 4 3 4 6 5 4 3 5 4 2
IKEDA, Yuta 4 4 4 5 4 3 3 4 3 4 4 4 4 7 4 4 5 4 2
MOLINARI, Edoardo 4 4 4 5 4 3 4 3 4 4 3 4 6 5 5 4 4 4 2
YOUNG, Mark 4 4 4 5 4 3 4 2 5 4 3 4 5 5 4 5 5 4 2
BALCOMBE, Alister (a) 4 4 4 6 5 4 4 3 4 3 3 4 4 5 4 5 4 4 2
FRASER, Marcus 5 4 4 5 4 3 3 4 4 4 4 4 4 5 4 4 5 4 2
HAHN, James 4 4 3 6 6 4 4 2 4 5 3 4 4 6 4 4 4 4 3
TAKAYAMA, Tadahiro 4 4 3 4 6 3 4 3 4 5 3 4 5 5 5 4 4 5 3
ILONEN, Mikko 5 5 4 5 5 3 4 3 4 3 3 4 4 5 5 5 4 4 3
BLAND, Adam 3 4 4 6 5 4 4 3 4 4 4 4 4 5 4 4 5 4 3
AIKEN, Thomas 4 5 4 4 4 4 4 3 5 4 3 5 4 5 4 4 5 4 3
BLIXT, Jonas 4 5 4 4 4 4 4 3 4 4 3 5 4 5 4 5 5 4 3
KJELDSEN, Soren 4 4 4 5 6 3 3 3 3 4 4 4 4 5 5 5 5 4 3
JIMENEZ, Miguel Angel 4 4 4 5 3 4 4 3 4 5 3 4 5 5 5 5 5 3 3
HAAS, Bill 3 4 3 5 6 4 3 3 4 4 3 4 4 5 5 4 7 4 3
LEHMAN, Tom 4 4 4 4 4 3 4 3 4 4 4 3 7 5 4 4 5 5 3
BRADLEY, Keegan 4 4 5 4 5 4 4 3 4 3 3 3 5 6 5 4 5 4 3
WATTEL, Romain 3 3 4 4 5 4 4 4 4 4 2 4 5 6 4 5 6 4 3
WATSON, Tom 5 4 4 4 5 3 4 3 3 3 3 4 6 5 4 6 6 4 4
WOODS, Tiger 5 5 4 4 6 4 5 3 4 5 3 4 4 4 4 4 4 4 4
JACQUELIN, Raphael 3 4 5 5 6 4 4 2 4 4 4 4 5 5 4 4 5 4 4
BROOKS, Daniel 4 4 5 3 6 4 4 3 4 4 2 4 4 6 5 4 5 5 4
LARRAZABAL, Pablo 3 4 5 5 5 4 4 3 5 4 3 4 4 5 4 5 5 4 4
GILLIS, Tom 5 4 3 5 4 4 4 3 4 4 3 4 4 6 4 6 5 4 4
TESHIMA, Taichi 4 4 4 3 6 5 4 3 4 4 3 4 4 5 4 4 7 4 4
PAMPLING, Rod 4 4 4 4 5 4 4 3 4 4 2 4 6 6 5 5 5 4 5
BOYD, Gary 4 4 4 5 4 4 4 3 4 4 2 4 5 5 5 7 5 4 5
STRANGE, Scott 4 3 3 4 5 4 4 3 4 5 3 5 6 5 6 4 5 4 5
STREELMAN, Kevin 6 3 5 5 5 3 4 3 4 4 3 4 5 5 5 5 5 4 6
LEONARD, Justin 3 3 4 4 5 4 4 5 4 5 4 5 5 6 5 4 5 3 6
VAN ZYL, Jaco 4 4 4 4 4 4 4 3 4 4 3 4 7 7 6 4 5 4 7
IWATA, Hiroshi 5 5 4 5 4 3 3 3 4 4 4 6 5 6 5 3 6 4 7
CALCAVECCHIA, Mark 4 4 3 4 5 4 4 3 3 5 4 4 5 5 5 6 9 3 8
WEN-CHONG, Liang 5 4 4 4 6 3 4 4 4 6 4 4 5 6 4 5 4 4 8
TAYLOR, Ben (a) 4 4 4 4 5 4 4 3 5 4 3 5 5 6 4 6 8 4 10
FALDO, Sir Nick 5 4 4 5 5 5 5 3 5 5 3 4 5 8 4 4 5 4 11
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment