如何在R中创建一个随机的月份样本?