问如何加快创建对象和应用函数的重复任务？

提问于 2018-06-08 01:52:22

回答 1关注 0查看 144

我正在尝试加快以下任务：

# For retrieving Cancer Genome Atlas RNAseq data

library(RTCGA.rnaseq)



# Extract information from sample ID about what kind of samples are in the dataset. 01 means tumor, 06 means metastatic tumor, 10 means healthy etc.

SKCM_sampletype <- as.factor(substr(x = SKCM.rnaseq$bcr_patient_barcode, 14, 15))
summary(SKCM_sampletype)

  01  06 
   1 367 

# Other objects I like to apply this function are (I have 30some objects but showing few below:
# (ACC.rnaseq,BLCA.rnaseq,BRCA.rnaseq,CESC.rnaseq,CHOL.rnaseq,COAD.rnaseq)

我想要做的是拥有一段代码，它将通过一系列对象并执行substring和summary功能。我还想把所有的summary统计数据和图表合并成一个如下所示的图表：