R语言之merge函数案例