## ----------------------------------------------------------------------------- 库(GenomicDataCommons,悄悄地= TRUE ) ## ----------------------------------------------------------------------------- q =文件()% > % GenomicDataCommons::过滤器(cases.project。project_id = =‘TCGA-COAD & data_type = =“对齐读取”& experimental_strategy = =“RNA-Seq”& data_format = =“砰 ') ## ----------------------------------------------------------------------------- 计数(问 ) ## ----------------------------------------------------------------------------- 清单(问 ) ## ----------------------------------------------------------------------------- all_fields = available_fields(文件())# #----------------------------------------------------------------------------- grep(“种族|民族”,all_fields价值= TRUE ) ## ----------------------------------------------------------------------------- available_values(“文件”、“cases.demographic.ethnicity”)available_values (cases.demographic.race‘文件’。 ") ## ----------------------------------------------------------------------------- q_white_only q = % > % GenomicDataCommons:过滤器(cases.demographic.race = =‘白’)数(q_white_only)清单(q_white_only ) ## ----------------------------------------------------------------------------- 库(宠物猫)图书馆(dplyr)图书馆(GenomicDataCommons)情况下()% > % GenomicDataCommons::过滤器(~ project.program.name = =, TCGA的& files.experimental_strategy = = RNA-Seq) % > %方面(c(“files.created_datetime”))% > %聚合 () %>% .[[ 1]] % > % as_tibble () % > % dplyr::安排(dplyr: desc(关键))