r语言求各列数据标准差