David & Duke Johnson

[guga31bb]

pbp <- readRDS(url("https://raw.githubusercontent.com/guga31bb/nflfastR-data/master/data/play_by_play_2020.rds"))
pbp %>%
  filter(posteam == "HOU", name == "D.Johnson", week == 15) %>%
  select(desc, rusher_jersey_number)

  desc                                                                                        rusher_jersey_numb~
  <chr>                                                                                                     <int>
1 (14:55) (Shotgun) 31-D.Johnson left tackle to HOU 31 for 8 yards (54-A.Walker).                              25
2 (13:47) 31-D.Johnson left end to HOU 41 for 6 yards (27-X.Rhodes).                                           25
3 (13:11) (Shotgun) 63-R.Johnson reported in as eligible.  31-D.Johnson right tackle to HOU ~                  25