df1 %>% 
  filter(data1 %in% df2$data2)
# Here example from SIMBA. Too many results in HbA1c, Weight data contains only completers.
HbA1c_hem_final %>% 
  filter(allocation_no %in% weight_data$allocation_no)