如何在R数据框中添加新列,其计数基于因子列?