04-cowboys.Rmd

# Project Dallas Cowboys
<p>
Dallas Cowboys offense play calling
</p> 

```{r, dallas_cowboys_23_24, echo=FALSE,results = 'hide', warning = FALSE,message=FALSE, fig.height=5,fig.width=10 ,fig.align = 'center', dpi=1080} 

library(cowplot)
library(ggplot2)
library(lubridate)
library(tidyverse) 
library(readxl) 
library(gridExtra)

cowboys<-read_excel("C:/Users/jenze/Downloads/cowboys.xlsx")

ggplot(cowboys, mapping=aes(x=week, y=difference))+
  geom_line(size=2, color='black') +
  geom_hline(yintercept = 0, linetype="dashed")+
  labs(title = "Dallas Cowboys 2023-24 Season",subtitle = "Rushing vs Passing Attempts",
       x="Weeks and PlayOff Game", y="<<||More Passing - More Rushing||>>",
       caption = "The cowboys rushed more than passing in week 1 & 2 and then chose passing for the rest of the season\nincluding their playoff game aganist the packers where Dak threw 60 times in their home loss.\njamesstats.github.io/blog")+
  theme_bw() +
  facet_wrap(~final) +
  theme(plot.title = element_text(face = "bold",color="blue"),plot.subtitle = element_text(face = "italic"),
        plot.caption = element_text(face = "italic"),strip.text.x.top = element_text(face = "bold"),
        axis.text = element_text(face = "bold"),axis.title.y.left = element_text(face = "bold"),
        axis.title.x = element_text(face = "italic")) 

```