
下面这个流程是下载这个网站公开数据的方法,使用到的工具是TCGAbiolinks(https://github.com/BioinformaticsFMRP/TCGAbiolinks),
主要是两种RNA表达谱数据和基因突变maf数据
conda create -n R4 -c conda-forge -y r-essentials r-base r-devtools
conda activate R4
Rinstall.packages("BiocManager")
BiocManager::install("BioinformaticsFMRP/TCGAbiolinksGUI.data")
BiocManager::install("BioinformaticsFMRP/TCGAbiolinks") ## 致敬开发者批量下载代码
library(TCGAbiolinks)
projects <- getGDCprojects()
projects <- projects$project_id
TCGA_dowload<-function(x,dirpath){
query.exp <-GDCquery(
project = x,
data.category = "Transcriptome Profiling",
data.type = "Gene Expression Quantification",
workflow.type = "STAR - Counts""
)
query.maf <- GDCquery(
project = x,
data.category = "Simple Nucleotide Variation",
access = "open"
)
GDCdownload(query.exp)
Exp <- GDCprepare(query = query.exp)
Maf <- GDCprepare(query = query.maf)
saveRDS(Exp,file = paste0(dirpath,x,"_exp.rds"))
saveRDS(Maf,file = paste0(dirpath,x,"_maf.rds"))
}
## 批量下载数据
for (i in projects) {
print(i)
try(TCGA_dowload(i,dirpath = "./TCGAbiolinks_data/"),silent = T)
}下载数据说明
TCGA_ACC_Exp<-readRDA("TCGA-ACC_exp.rds") ##注意文件路径要正确
TCGA_ACC_Exp_unstrand<-SummarizedExperiment::assay(TCGA_ACC_Exp,1)TCGA_ACC_clinData<-SummarizedExperiment::colData(TCGA_ACC_Exp)One More Thing......