如何根据类别在 R 中创建 ID 列?