r语言导出数据_r语言将某列不为1的数赋值为0