如何按R中的列数划分data.table对象行?