library(dplyr)
ribao <- full_join(ribao,result,by = '渠道',copy = T) ribao <- full_join(ribao,sec_result,by = '渠道',copy = T) ribao <- full_join(ribao,thr_result,by = '渠道',copy = T)
还有left_join等函数