mikeleeco/draft_odds.png

## draft_odds.png

      
    Raw
  

              draft_odds.png
            
          
## odds.csv

          
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
            11
            12
            13
            14

            
              PHI
              0.268
              0.226
              0.182
              0.324

            
              LAL
              0.197
              0.187
              0.171
              0.32
              0.125

            
              BOS
              0.156
              0.157
              0.156
              0.224
              0.265
              0.042

            
              PHX
              0.12
              0.127
              0.133
              0.098
              0.349
              0.16
              0.013

            
              MIN
              0.089
              0.098
              0.108
              
              0.261
              0.358
              0.083
              0.003

            
              NOP
              0.064
              0.072
              0.081
              
              
              0.44
              0.302
              0.04
              0.001

            
              DEN
              0.061
              0.069
              0.08
              
              
              0.602
              0.178
              0.01
              0

            
              SAC
              
              0.011
              0.023
              0.034
              
              
              0.727
              0.194
              0.011
              0

            
              TOR
              
              0.001
              0.004
              
              
              0.052
              0.795
              0.143
              0.005
              0

            
              MIL
              0.019
              0.02
              0.026
              
              
              0.846
              0.087
              0.002
              0

            
              ORL
              0.008
              0.01
              0.011
              
              
              0.908
              0.062
              0.001

            
              UTA
              0.007
              0.009
              0.01
              
              
              0.936
              0.038
              0

            
              WAS
              0.006
              0.007
              0.008
              
              
              0.961
              0.018

            
              CHI
              0.005
              0.006
              0.007
              
              
              0.982

## odds.R
#devtools::install_github("hadley/ggplot2")
#devtools::install_github("hadley/tidyr")
library(ggplot2)
library(tidyr)
library(RColorBrewer)
odds <- read.csv("odds.csv")
odds <- gather(odds, X)
odds[,2] <- substring(odds[,2], 2)
colnames(odds) <- c("Team","Pick","Probability")
odds$Pick <- as.numeric(odds$Pick)
odds$Team <- as.character(odds$Team)
odds$Team <- factor(odds$Team, levels = odds[1:14,1])
odds$Team <- factor(odds$Team, levels=rev(levels(odds$Team)))
odds$Pick <- factor(odds$Pick, levels = 1:14)
getPalette = colorRampPalette(brewer.pal(11, "Spectral"))(14)
odds$Probability <- ifelse(is.na(odds$Probability),0,odds$Probability)

g <- ggplot(odds, aes(Team))
g <- g + geom_bar(aes(x = Team, y = Probability, fill = Pick),alpha=0.9,stat="identity")
g <- g + scale_y_continuous(breaks = seq(0, 1, by = 0.1),1,name="Probability", labels=scales::percent) +
    labs(x=NULL, y=NULL, title="2016 NBA Draft Lottery Probabilities",
         subtitle = "After tiebreakers and trades. Trades with protections are indicated by a black border, and the receiving team is named. Based on 100,000 simulations",
         caption="Reproduced by: @mikeleeco                  Original: @dsparks                  Source: http://www.nba.com/celtics/news/sidebar/2016-draft-lottery-qa") +
    coord_flip() +
    scale_fill_manual(values = getPalette)

g <- g  + theme(
  axis.text.x = element_text(size=14,margin=margin(b=5),color = "black"),
  axis.title.x = element_text(size=16),
  plot.subtitle = element_text(size=14),
  plot.caption = element_text(size=16,margin = margin(t=20),face = "italic", hjust = .5),
  axis.text.y = element_text(size=18,margin = margin(r=-40),colour = "black"),
  axis.ticks.y=element_blank(),
  axis.ticks.x=element_blank(),
  plot.title = element_text(size=30,margin = margin(b=10)),
  panel.border=element_blank(),
  panel.grid.major.x=element_line(color="#2b2b2b", linetype="dotted", size=0.15),
  panel.grid.major.y=element_blank(),
  legend.text = element_text(size=14),
  legend.title = element_text(size=18),
  legend.key = element_rect(fill="#DCDCDC",colour = "#DCDCDC"),
  legend.background = element_rect(fill="#DCDCDC"),
  panel.background = element_rect(fill="#DCDCDC"),
  plot.background = element_rect(fill="#DCDCDC")
)
g <- g + annotate("text", x = (13.45+12.55)/2, y = .6, alpha = 1,color="black", label="to PHI", size= rel(7))+
         annotate("rect", xmin = 12.55, xmax = 13.45, ymin = .555, ymax = 1, alpha = .3,color="black") +
         annotate("text", x = (2.45+1.55)/2, y = .1, alpha = 1,color="black", label="to PHX", size= rel(7)) +
         annotate("rect", xmin = 1.55, xmax = 2.45, ymin = .021, ymax = 1, alpha = .3,color="black") +
         annotate("text", x = (7.45+6.55)/2, y = .95, alpha = 1,color="black", label="to CHI >", size= rel(7)) +
         annotate("rect", xmin = 6.55, xmax = 7.45, ymin = .999, ymax = 1, alpha = .3,color="black")
g
	1	2	3	4	5	6	7	8	9	10	11	12	13	14
PHI	0.268	0.226	0.182	0.324
LAL	0.197	0.187	0.171	0.32	0.125
BOS	0.156	0.157	0.156	0.224	0.265	0.042
PHX	0.12	0.127	0.133	0.098	0.349	0.16	0.013
MIN	0.089	0.098	0.108		0.261	0.358	0.083	0.003
NOP	0.064	0.072	0.081			0.44	0.302	0.04	0.001
DEN	0.061	0.069	0.08				0.602	0.178	0.01	0
SAC		0.011	0.023	0.034				0.727	0.194	0.011	0
TOR		0.001	0.004					0.052	0.795	0.143	0.005	0
MIL	0.019	0.02	0.026							0.846	0.087	0.002	0
ORL	0.008	0.01	0.011								0.908	0.062	0.001
UTA	0.007	0.009	0.01									0.936	0.038	0
WAS	0.006	0.007	0.008										0.961	0.018
CHI	0.005	0.006	0.007											0.982
	#devtools::install_github("hadley/ggplot2")
	#devtools::install_github("hadley/tidyr")
	library(ggplot2)
	library(tidyr)
	library(RColorBrewer)
	odds <- read.csv("odds.csv")
	odds <- gather(odds, X)
	odds[,2] <- substring(odds[,2], 2)
	colnames(odds) <- c("Team","Pick","Probability")
	odds$Pick <- as.numeric(odds$Pick)
	odds$Team <- as.character(odds$Team)
	odds$Team <- factor(odds$Team, levels = odds[1:14,1])
	odds$Team <- factor(odds$Team, levels=rev(levels(odds$Team)))
	odds$Pick <- factor(odds$Pick, levels = 1:14)
	getPalette = colorRampPalette(brewer.pal(11, "Spectral"))(14)
	odds$Probability <- ifelse(is.na(odds$Probability),0,odds$Probability)

	g <- ggplot(odds, aes(Team))
	g <- g + geom_bar(aes(x = Team, y = Probability, fill = Pick),alpha=0.9,stat="identity")
	g <- g + scale_y_continuous(breaks = seq(0, 1, by = 0.1),1,name="Probability", labels=scales::percent) +
	labs(x=NULL, y=NULL, title="2016 NBA Draft Lottery Probabilities",
	subtitle = "After tiebreakers and trades. Trades with protections are indicated by a black border, and the receiving team is named. Based on 100,000 simulations",
	caption="Reproduced by: @mikeleeco Original: @dsparks Source: http://www.nba.com/celtics/news/sidebar/2016-draft-lottery-qa") +
	coord_flip() +
	scale_fill_manual(values = getPalette)

	g <- g + theme(
	axis.text.x = element_text(size=14,margin=margin(b=5),color = "black"),
	axis.title.x = element_text(size=16),
	plot.subtitle = element_text(size=14),
	plot.caption = element_text(size=16,margin = margin(t=20),face = "italic", hjust = .5),
	axis.text.y = element_text(size=18,margin = margin(r=-40),colour = "black"),
	axis.ticks.y=element_blank(),
	axis.ticks.x=element_blank(),
	plot.title = element_text(size=30,margin = margin(b=10)),
	panel.border=element_blank(),
	panel.grid.major.x=element_line(color="#2b2b2b", linetype="dotted", size=0.15),
	panel.grid.major.y=element_blank(),
	legend.text = element_text(size=14),
	legend.title = element_text(size=18),
	legend.key = element_rect(fill="#DCDCDC",colour = "#DCDCDC"),
	legend.background = element_rect(fill="#DCDCDC"),
	panel.background = element_rect(fill="#DCDCDC"),
	plot.background = element_rect(fill="#DCDCDC")
	)
	g <- g + annotate("text", x = (13.45+12.55)/2, y = .6, alpha = 1,color="black", label="to PHI", size= rel(7))+
	annotate("rect", xmin = 12.55, xmax = 13.45, ymin = .555, ymax = 1, alpha = .3,color="black") +
	annotate("text", x = (2.45+1.55)/2, y = .1, alpha = 1,color="black", label="to PHX", size= rel(7)) +
	annotate("rect", xmin = 1.55, xmax = 2.45, ymin = .021, ymax = 1, alpha = .3,color="black") +
	annotate("text", x = (7.45+6.55)/2, y = .95, alpha = 1,color="black", label="to CHI >", size= rel(7)) +
	annotate("rect", xmin = 6.55, xmax = 7.45, ymin = .999, ymax = 1, alpha = .3,color="black")
	g