r语言提取某一列中的数字