NFL 2024 First Round Mock Draft Charts

NFL Mock Draft Analysis

This is a document containing charts showing how different players have moved around my Monday Mock Drafts. All data is my own as all drafts were created by me.

NFL Combine

The NFL Combine (Feb 29th - Mar 3rd 2024) took place between mocks 6 and 7. The dotted red line represents the combine for easy viewing.

Players not picked in every draft

Whenever a player is not picked in the first round, I give them a draft position of 50 (Middle of the Second). This works best both in the charts as its noticeable in the charts as well as for calculating ADP as I have only been doing one round mocks.

Player ADP

Player ADP (Average Draft Position) is indicated by the blue dotted line on each graph.

Quarterbacks

qb_data <- qb_data %>%
  rename(`1` = `caleb_williams`) %>%
  rename(`jj_mccarthy` = `jj_mc_carthy`)

qb1 <- ggplot(qb_data, aes(x = mock , y= "1"))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Caleb Williams Draft Position")+
  theme_minimal() 
  
qb2 <- ggplot(qb_data, aes(x = mock , y= drake_maye))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
   geom_hline(yintercept = mean(qb_data$drake_maye), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Drake Maye Draft Position")+
  theme_minimal() 
  
qb3 <- ggplot(qb_data, aes(x = mock , y= jayden_daniels))+
  geom_point(size=2)+
  geom_line()+
  labs(x = "Mock Draft", y = "Pick Number", title = "Jayden Daniels Draft Position")+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
   geom_hline(yintercept = mean(qb_data$jayden_daniels), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  theme_minimal() 

qb4 <- ggplot(qb_data, aes(x = mock , y= jj_mccarthy))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
   geom_hline(yintercept = mean(qb_data$jj_mccarthy), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "JJ McCarthy Draft Position")+
  theme_minimal() 

qb5 <- ggplot(qb_data, aes(x = mock , y= bo_nix))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
   geom_hline(yintercept = mean(qb_data$bo_nix), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Bo Nix Draft Position")+
  theme_minimal() 

qb6 <- ggplot(qb_data, aes(x = mock , y= michael_penix))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
   geom_hline(yintercept = mean(qb_data$michael_penix), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Michael Penix Draft Position")+
  theme_minimal() 

grid.arrange(qb1, qb2, qb3, qb4, qb5, qb6, ncol = 2)

Wide Recievers

wr1 <- ggplot(wr_data, aes(x = mock , y= mhj))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
   geom_hline(yintercept = mean(wr_data$mhj), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Marvin Harrison Jr Draft Position")+
  theme_minimal() 
  
wr2 <- ggplot(wr_data, aes(x = mock , y= malik_nabers))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(wr_data$malik_nabers), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Malik Nabers Draft Position")+
  theme_minimal() 
  
wr3 <- ggplot(wr_data, aes(x = mock , y= rome_odunze))+
  geom_point(size=2)+
  geom_line()+
  labs(x = "Mock Draft", y = "Pick Number", title = "Rome Odunze Draft Position")+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(wr_data$rome_odunze), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  theme_minimal() 

wr4 <- ggplot(wr_data, aes(x = mock,y= brian_thomas_jr))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(wr_data$brian_thomas_jr), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Brian Thomas Jr Draft Position")+
  theme_minimal() 

wr5 <- ggplot(wr_data, aes(x = mock , y= ad_mitchell))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(wr_data$ad_mitchell), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "AD Mitchell Draft Position")+
  theme_minimal() 

wr6 <- ggplot(wr_data, aes(x = mock , y= ladd_mc_conkey))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(wr_data$ladd_mc_conkey), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Ladd McConkey Draft Position")+
  theme_minimal() 

wr7 <- ggplot(wr_data, aes(x = mock , y= xavier_worthy))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(wr_data$xavier_worthy), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Xavier Worthy Draft Position")+
  theme_minimal() 

wr8 <- ggplot(wr_data, aes(x = mock , y= keon_coleman))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(wr_data$keon_coleman), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Keon Coleman Draft Position")+
  theme_minimal() 

grid.arrange(wr1, wr2, wr3, wr4, wr5, wr6, wr7, wr8, ncol = 2)

Offensive Tackles

ot1 <- ggplot(ot_data, aes(x = mock , y= joe_alt))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(ot_data$joe_alt), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Joe Alt Draft Position")+
  theme_minimal() 
  
ot2 <- ggplot(ot_data, aes(x = mock , y= olu_fashanu))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(ot_data$olu_fashanu), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Olu Fashanu Draft Position")+
  theme_minimal() 
  
ot3 <- ggplot(ot_data, aes(x = mock , y= taliese_fuaga))+
  geom_point(size=2)+
  geom_line()+
  labs(x = "Mock Draft", y = "Pick Number", title = "Taliese Fuaga Draft Position")+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(ot_data$taliese_fuaga), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  theme_minimal() 

ot4 <- ggplot(ot_data, aes(x = mock,y= troy_fautanu))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(ot_data$troy_fautanu), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Troy Fautanu Draft Position")+
  theme_minimal() 

ot5 <- ggplot(ot_data, aes(x = mock , y= jc_latham))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(ot_data$jc_latham), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "JC Latham Draft Position")+
  theme_minimal() 

ot6 <- ggplot(ot_data, aes(x = mock , y= amarius_mims))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(ot_data$amarius_mims), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Amarius Mims Draft Position")+
  theme_minimal() 

ot7 <- ggplot(ot_data, aes(x = mock , y= tyler_guyton))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(ot_data$tyler_guyton), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Tyler Guyton Draft Position")+
  theme_minimal() 

ot8 <- ggplot(ot_data, aes(x = mock , y= jordan_morgan))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(ot_data$jordan_morgan), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Jordan Morgan Draft Position")+
  theme_minimal() 

grid.arrange(ot1, ot2, ot3, ot4, ot5, ot6, ot7, ot8, ncol = 2)

Interior Offensive Line

iol1 <- ggplot(iol_data, aes(x = mock , y= jaxon_powers_johnson))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(iol_data$jaxon_powers_johnson), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Jackson Powers Johnson Draft Position")+
  theme_minimal() 

iol2 <- ggplot(iol_data, aes(x = mock , y= graham_barton))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(iol_data$graham_barton), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Graham Barton Draft Position")+
  theme_minimal() 

iol3 <- ggplot(iol_data, aes(x = mock , y= zach_frazier))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(iol_data$zach_frazier), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Zach Frazier Draft Position")+
  theme_minimal() 

grid.arrange(iol1, iol2, iol3, ncol = 2)

Interior Defensive Line

idl2 <- ggplot(idl_data, aes(x = mock , y= byron_murphy))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(idl_data$byron_murphy), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Byron Murphy Draft Position")+
  theme_minimal() 

idl1 <- ggplot(idl_data, aes(x = mock , y= jer_zhan_newton))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(idl_data$jer_zhan_newton), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Jer'Zhan Newton Draft Position")+
  theme_minimal() 

grid.arrange(idl1, idl2, ncol = 2)

Edge Rushers

ed1 <- ggplot(edge_data, aes(x = mock , y= dallas_turner))+
  geom_point(size=2)+
  geom_line()+
  labs(x = "Mock Draft", y = "Pick Number", title = "Dallas Turner Draft Position")+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(edge_data$dallas_turner), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  theme_minimal() 

ed2 <- ggplot(edge_data, aes(x = mock,y= jared_verse))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(edge_data$jared_verse), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Jared Verse Draft Position")+
  theme_minimal() 

ed3 <- ggplot(edge_data, aes(x = mock , y= laiatu_latu))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(edge_data$laiatu_latu), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Laiatu Latu Draft Position")+
  theme_minimal() 

ed4 <- ggplot(edge_data, aes(x = mock , y= chop_robinson))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(edge_data$chop_robinson), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Chop Robinson Draft Position")+
  theme_minimal() 

ed5 <- ggplot(edge_data, aes(x = mock , y= darius_robinson))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(edge_data$darius_robinson), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Darius Robinson Draft Position")+
  theme_minimal() 

ed6 <- ggplot(edge_data, aes(x = mock , y= bralen_trice))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(edge_data$bralen_trice), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Bralen Trice Draft Position")+
  theme_minimal() 

grid.arrange(ed1, ed2, ed3, ed4, ed5, ed6, ncol = 2)

Linebackers

lb1 <- ggplot(lb_data, aes(x = mock , y= payton_wilson))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(lb_data$payton_wilson), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Payton Wilson Draft Position")+
  theme_minimal() 

grid.arrange(lb1, ncol = 2)

Defensive Backs

db1 <- ggplot(db_data, aes(x = mock , y= quiyon_mitchell))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(db_data$quiyon_mitchell), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Quinyon Mitchell Draft Position")+
  theme_minimal() 
  
db2 <- ggplot(db_data, aes(x = mock , y= terrion_arnold))+
  geom_point(size=2)+
  geom_line()+
  labs(x = "Mock Draft", y = "Pick Number", title = "Terrion Arnold Draft Position")+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(db_data$terrion_arnold), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  theme_minimal() 

db3 <- ggplot(db_data, aes(x = mock,y= cooper_de_jean))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(db_data$cooper_de_jean), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Cooper DeJean Draft Position")+
  theme_minimal() 

db4 <- ggplot(db_data, aes(x = mock , y= nate_wiggins))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(db_data$nate_wiggins), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Nate Wiggins Draft Position")+
  theme_minimal() 

db5 <- ggplot(db_data, aes(x = mock , y= kool_aid_mc_kinstry))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(db_data$kool_aid_mc_kinstry), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Kool-Aid McKinstry Draft Position")+
  theme_minimal() 

db6 <- ggplot(db_data, aes(x = mock , y= ennis_rakestraw_jr))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(db_data$ennis_rakestraw_jr), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "Ennis Rakestraw Jr Draft Position")+
  theme_minimal() 

db7 <- ggplot(db_data, aes(x = mock , y= tj_tampa))+
  geom_point(size=2)+
  geom_line()+
  geom_vline(xintercept = 6.5, linetype = "dashed", color = "red", label = "NFL Combine", label.position = "above", label.hjust = 0.5) +
  geom_hline(yintercept = mean(db_data$tj_tampa), linetype = "dotted", color = "blue", label = "Average", label.position = "right", label.hjust = 0.5) +
  labs(x = "Mock Draft", y = "Pick Number", title = "TJ Tampa Draft Position")+
  theme_minimal() 

grid.arrange(db1, db2, db3, db4, db5, db6, db7, ncol = 2)