Basketball Final

Packages and Data

setwd("~/Desktop/MTH 250")
library(tidyverse)

bball <- read.csv("Ball.csv") %>%
  mutate(diff=WL-0.50)
str(bball)
head(bball)

playoff <- read.csv("Ploff.csv")
str(playoff)
head(playoff)

Winning Percentage of NBA Teams

ggplot(data=bball, mapping=aes(y=Teams,x=diff,fill=Conference)) +
  geom_bar(stat="identity",alpha=0.5) +
  geom_vline(xintercept=0,color="black") +
  scale_fill_manual(values=c("blue","red")) +
 scale_x_continuous(breaks=c(-0.10,-0.05,0,0.05,0.10),labels=paste0(c(0.40,0.45,0.50,0.55,0.60)*100,"%"),expand=expansion(mult=0.02)) +
  scale_y_discrete(expand=expansion(mult=0.03)) +
  theme_bw() +
  labs(title="Winning Percentage of all 30 NBA Teams.",subtitle="Vertiacl black line indicates teams win and lose same amount of time.",caption="Note, this data is for franchise history.") +
  labs(x=element_blank(), y=element_blank())

Playoff Appearances

ggplot(data=playoff,mapping=aes(y=Teams,x=Playoff,color=Conference,fill=Conference)) +
  geom_bar(stat="identity",alpha=0.5) +
  scale_color_manual(values=c("blue","red")) +
  scale_fill_manual(values=c("blue","red")) +
   scale_x_continuous(name="Years of Playoff Apperances",expand=expansion(mult=c(0,0.02))) +
  scale_y_discrete(name="NBA Teams",expand=expansion(mult=c(0.01,0.01))) +
  theme_bw()