matched_species <- Data frame One %>% semi_join(Data frame Two, by = c("Site", "Species")) %>% count(Site)
matched_species