如何在R中将长字符串拆分成大小相等的子字符串向量?