Table_filtering_and_joining_with_R