如何将R中的数据帧随机分成多个部分?