")
###TCGA数据库中33中癌症类型
project <- getGDCprojects()$project_id
project <- project[grep("TCGA-",project...function(g){
ldat <- paired_data[paired_data$miR == g,]
#为了防止配对样本信息错乱,先构造一个配对样本的数据集...# geom_boxplot(aes(fill = Sample), show.legend = FALSE, width = 0.6) + #绘制箱线图展示肿瘤组织和正常组织的两组基因表达整体分布...geom_point(size = 3) + #绘制散点表示单个样本的基因表达信息
geom_line(aes(group = id), color...fp_boxplot,"/",g,"-paired .pdf"),plot = p1,width = 3,height = 3)
})
}
##记录分析的样本信息