如何在 R 数据框列中找到每个类别的百分比?