如何更改tcga数据条形码行名？

Question

我的tcga数据的条形码，行名，看起来像这样。

TCGA-4P-AA8J-01A-11D-A390-01

我想使用for循环将其更改为此表单。-> TCGA.4P.AA8J.01A

r=c()
for (x in rownames(df)) {
     r <-c(substr(gsub("-",".",x),1,16))
     rownames(df)<-r
     print(r)
   }

.？

Answer 1

substr和gsub都是矢量化的，所以：

rownames(df) <- substr(gsub("-",".",rownames(df)),1,16)

当所有函数都被矢量化时，不需要循环迭代构造。