如何提取R中的拆分字符串元素?