用r语言创建一个函数 如过这个列变量为numeric就求它的mean和mode 如果不是numeric就直接求mode。