如何根据R的data.table对象中的另一个分类列找到类别的比例?