df <- data.frame( Date = c("2017-02-23", "2017-02-23", "2017-02-24", "2017-02-24", "2017-02-25", "2017-02-25", "2017-02-25"),
                     var = c(2, NA, 1, 1,1, 7, 4))

df %>% filter(Date[var  == 7])