如何折叠R数据帧中的因子水平?