library (tidyverse)      
 df1 %>%
        left_join(df2 %>% mutate(present = T)) %>% 
        replace_na(list("present"= F))