Inner Join Using Merge In R