如何在R中将日期转换为季度和年份?