spelling
update join logic with dplyr