gsub("[0-9]+\\.+\\ ","",x1)->x1,可以了

> require(stringr)
> x3n<-str_trim(str_sub(x3,1,regexpr(":",x3)-1),side = "both")
> x3n
[1] "Organism" "Organism" "Organism" "Organism"
如果仅限于x3,也可用楼上的方法
> gsub(":[a-z]+","",x3)
[1] "Organism" "Organism" "Organism" "Organism"

x2 x3用gsub如何实现？谢谢！

gsub("\\(Submitter supplied\\) ","",x2)->X2
gsub("Organism:","",x3)->X3

谢谢！
Platform: GPL11154 6 Samples
Platform: GPL10558 28 Samples
Platforms: GPL18149 GPL17077 24 Samples
Platforms: GPL13112 GPL17021 GPL16791 31 Samples
Dataset: GDS4794 Platforms: GPL96 GPL97 GPL570 70 Samples
Dataset: GDS4794 Platforms: GPL96 GPL97 GPL570 110 Samples

把上面这一列分成两列
V1                                                               V2
Platform: GPL11154                                                       6 Samples
Platform: GPL10558                                                      28 Samples
Platforms: GPL18149 GPL17077                                     24 Samples
Platforms: GPL13112 GPL17021 GPL16791                      31 Samples
Dataset: GDS4794 Platforms: GPL96 GPL97 GPL570        70 Samples
Dataset: GDS4794 Platforms: GPL96 GPL97 GPL570        110 Samples




Series Accession: GSE8894        ID: 200008894
Series Accession: GSE67471 ID: 200067471
把上面这一列分成两列
V1                                                         V2
Series Accession: GSE8894                 ID: 200008894
Series Accession: GSE67471               ID: 200067471