如何在R data.table对象的另一列中提取最大分组行?