win totals first 20 games roy era

win_total_roy_era.csv

code . . .

## libraries 
library(ggplot2)
library(hrbrthemes)
library(directlabels)

#code
ggplot(charts.data, aes(x=G, y=W)) +
  geom_line(aes(color=Product)) +
  scale_x_continuous(breaks=seq(1,20,1)) + 
  scale_y_continuous(breaks=seq(0,20,5)) + 
  labs(x="Game number (first 20 games)", y="Win Total") +
  ggtitle("Carolina: Total Wins in First 20 Games by Season in Roy Williams Era (Since 2003-04)",
  subtitle="Tar Heels are 10-10 in the first 20 games in 2019-20. Best record in first 20 games is 19-1 in 2007-2008 season.") +
  geom_dl(aes(label=Product, color=Product)
                    , method = list("last.polygons")) + 
                    theme_ipsum()