如何在R中将1到12之间的数字转换为缩写月份?