# #设置,包括= FALSE ---------------------------------------------------- knitr: opts_chunk设置(缓存= TRUE) # #美元——包括= TRUE,结果=“隐藏”,消息= FALSE,警告= FALSE ------------------ 库(cBioPortalData)库(铁砧 ) ## ----------------------------------------------------------------------------- cbio < - cBioPortal()研究< - getStudies (cbio,buildReport = TRUE)头(研究)# #——消息= FALSE,警告= FALSE ---------------------------------------------- ## 使用要求= FALSE非交互式使用laml < - cBioDataPack(“laml_tcga”,问= FALSE) laml # #——警告= FALSE ------------------------------------------------------------ acc < - cBioPortalData (api = cbio =“hugoGeneSymbol studyId =“acc_tcga genePanelId =“IMPACT341 molecularProfileIds = c(“acc_tcga_rppa”,“acc_tcga_linear_CNA”)acc # # - eval = FALSE --------------------------------------------------------------- # removeCache(“laml_tcga ") ## ---- eval = FALSE --------------------------------------------------------------- # 分离(“~ / .cache / cBioPortalData /") ## ---- 消息= FALSE,警告= FALSE ---------------------------------------------- 库(生存)库(survminer ) ## ----------------------------------------------------------------------------- 表(colData (laml) OS_STATUS美元)类(colData laml OS_MONTHS美元 ) ## ----------------------------------------------------------------------------- collaml < - colData (laml) collaml [collaml OS_MONTHS = =美元”(不可用)”、“OS_MONTHS”)< - NA collaml OS_MONTHS < - as.numeric (collaml OS_MONTHS美元)colData (laml) < - collaml ## ----------------------------------------------------------------------------- 符合< - survfit (Surv (OS_MONTHS,。numeric(substr(OS_STATUS, 1, 1))) ~ SEX, data = colData(laml)) ggsurvplot(fit, data = colData(laml)， risk。表= TRUE ) ## ----------------------------------------------------------------------------- sessionInfo ()