R程序strsplit函数拆分保留前两个组成新数据