R函数选择excle数据