如何通过删除特定列在R中对data.table进行子集化?