data_4d <- rbind(data_old,data_new) %>%
  filter(!is.na(play_type)) %>% mutate(
    nyt = if_else(
      ydstogo==1 |
        (ydstogo==2 & yardline_100<=72) |
        (ydstogo==3 & yardline_100<=60) |
        (ydstogo==4 & yardline_100<=55 & yardline_100>=29) |
        (ydstogo==5 & yardline_100<=50 & yardline_100>=33) |
        (ydstogo==6 & yardline_100<=47 & yardline_100>=35) |
        (ydstogo==7 & yardline_100<=44 & yardline_100>=36) |
        (ydstogo==8 & yardline_100<=41 & yardline_100>=37) |
        (ydstogo==9 & yardline_100<=38 & yardline_100>=38),1,0
    ))