Clinical data

Accessing clinical data is a very common task. Given a set of case_ids, the gdc_clinical() function will return a list of four tibbles.

• demographic
• diagnoses
• exposures
• main

case_ids = cases() |> results(size=10) |> ids()
clindat = gdc_clinical(case_ids)
names(clindat)

## [1] "demographic" "diagnoses"   "exposures"   "follow_ups"  "main"

head(clindat[["main"]])

## # A tibble: 6 × 12
##   id                created_datetime updated_datetime case_id state disease_type
##   <chr>             <lgl>            <chr>            <chr>   <chr> <chr>       
## 1 3f5a897d-1eaa-4d… NA               2024-12-19T13:4… 3f5a89… rele… Mature B-Ce…
## 2 0030a28c-81aa-44… NA               2024-12-19T13:5… 0030a2… rele… Mature B-Ce…
## 3 0bf573ac-cd1e-42… NA               2024-12-19T13:5… 0bf573… rele… Mature B-Ce…
## 4 0e251c03-bf86-4e… NA               2024-12-19T13:5… 0e251c… rele… Mature B-Ce…
## 5 0e9fcccc-0630-40… NA               2024-12-19T13:5… 0e9fcc… rele… Mature B-Ce…
## 6 1843c82e-7a35-47… NA               2024-12-19T13:5… 1843c8… rele… Mature B-Ce…
## # ℹ 6 more variables: submitter_id <chr>, days_to_consent <int>,
## #   consent_type <chr>, primary_site <chr>, index_date <chr>,
## #   lost_to_followup <chr>

head(clindat[["diagnoses"]])

## # A tibble: 6 × 32
##   case_id          morphology submitter_id days_to_diagnosis created_datetime   
##   <chr>            <chr>      <chr>                    <int> <dttm>             
## 1 3f5a897d-1eaa-4… Not Repor… TCGA-G8-690…              6383 2024-12-19 19:42:19
## 2 3f5a897d-1eaa-4… 9680/3     TCGA-G8-690…                 0 NA                 
## 3 0030a28c-81aa-4… 9680/3     TCGA-FA-A7Q…                 0 NA                 
## 4 0bf573ac-cd1e-4… 9680/3     TCGA-FA-A6H…                 0 NA                 
## 5 0e251c03-bf86-4… 9680/3     TCGA-GS-A9U…               106 2024-12-19 19:56:23
## 6 0e251c03-bf86-4… 9680/3     TCGA-GS-A9U…                 0 NA                 
## # ℹ 27 more variables: tissue_or_organ_of_origin <chr>, age_at_diagnosis <int>,
## #   primary_diagnosis <chr>, classification_of_tumor <chr>,
## #   tumor_of_origin <chr>, updated_datetime <dttm>, diagnosis_id <chr>,
## #   site_of_resection_or_biopsy <chr>, state <chr>, prior_treatment <chr>,
## #   diagnosis_is_primary_disease <lgl>, synchronous_malignancy <chr>,
## #   last_known_disease_status <lgl>, days_to_last_follow_up <dbl>,
## #   prior_malignancy <chr>, year_of_diagnosis <int>, …

General metadata queries

The GenomicDataCommons package can access the significant clinical, demographic, biospecimen, and annotation information contained in the NCI GDC. The gdc_clinical() function will often be all that is needed, but the API and GenomicDataCommons package make much flexibility if fine-tuning is required.

expands = c("diagnoses","annotations",
             "demographic","exposures")
clinResults = cases() |>
    GenomicDataCommons::select(NULL) |>
    GenomicDataCommons::expand(expands) |>
    results(size=50)
str(clinResults[[1]],list.len=6)

##  chr [1:50] "3f5a897d-1eaa-4d4c-8324-27ac07c90927" ...

# or listviewer::jsonedit(clinResults)

Creating a query

A query of the GDC starts its life in R. Queries follow the four metadata endpoints available at the GDC. In particular, there are four convenience functions that each create GDCQuery objects (actually, specific subclasses of GDCQuery):

• projects()
• cases()
• files()
• annotations()

pquery = projects()

The pquery object is now an object of (S3) class, GDCQuery (and gdc_projects and list). The object contains the following elements:

• fields: This is a character vector of the fields that will be returned when we retrieve data. If no fields are specified to, for example, the projects() function, the default fields from the GDC are used (see default_fields())
• filters: This will contain results after calling the filter() method and will be used to filter results on retrieval.
• facets: A character vector of field names that will be used for aggregating data in a call to aggregations().
• token: A character(1) token from the GDC. See the authentication section for details, but note that, in general, the token is not necessary for metadata query and retrieval, only for actual data download.

Looking at the actual object (get used to using str()!), note that the query contains no results.

str(pquery)

## List of 4
##  $ fields : chr [1:10] "dbgap_accession_number" "disease_type" "intended_release_date" "name" ...
##  $ filters: NULL
##  $ facets : NULL
##  $ expand : NULL
##  - attr(*, "class")= chr [1:3] "gdc_projects" "GDCQuery" "list"

Retrieving results

[ GDC pagination documentation ]

[ GDC sorting documentation ]

With a query object available, the next step is to retrieve results from the GDC. The GenomicDataCommons package. The most basic type of results we can get is a simple count() of records available that satisfy the filter criteria. Note that we have not set any filters, so a count() here will represent all the project records publicly available at the GDC in the “default” archive”

pcount = count(pquery)
# or
pcount = pquery |> count()
pcount

## [1] 88

The results() method will fetch actual results.

presults = pquery |> results()

These results are returned from the GDC in JSON format and converted into a (potentially nested) list in R. The str() method is useful for taking a quick glimpse of the data.

str(presults)

## List of 9
##  $ id                    : chr [1:10] "CTSP-DLBCL1" "TCGA-BRCA" "TCGA-LUAD" "CPTAC-3" ...
##  $ primary_site          :List of 10
##   ..$ CTSP-DLBCL1          : chr [1:2] "Lymph nodes" "Unknown"
##   ..$ TCGA-BRCA            : chr "Breast"
##   ..$ TCGA-LUAD            : chr "Bronchus and lung"
##   ..$ CPTAC-3              : chr [1:22] "Other and unspecified parts of tongue" "Floor of mouth" "Other and ill-defined sites in lip, oral cavity and pharynx" "Uterus, NOS" ...
##   ..$ APOLLO-LUAD          : chr "Bronchus and lung"
##   ..$ MATCH-B              : chr [1:17] "Small intestine" "Cervix uteri" "Colon" "Parotid gland" ...
##   ..$ CMI-ASC              : chr [1:9] "Heart, mediastinum, and pleura" "Bronchus and lung" "Breast" "Skin" ...
##   ..$ MATCH-C1             : chr [1:6] "Bronchus and lung" "Liver and intrahepatic bile ducts" "Stomach" "Palate" ...
##   ..$ BEATAML1.0-CRENOLANIB: chr "Hematopoietic and reticuloendothelial systems"
##   ..$ CDDP_EAGLE-1         : chr "Bronchus and lung"
##  $ dbgap_accession_number: chr [1:10] "phs001184" NA NA "phs001287" ...
##  $ project_id            : chr [1:10] "CTSP-DLBCL1" "TCGA-BRCA" "TCGA-LUAD" "CPTAC-3" ...
##  $ disease_type          :List of 10
##   ..$ CTSP-DLBCL1          : chr "Mature B-Cell Lymphomas"
##   ..$ TCGA-BRCA            : chr [1:9] "Adenomas and Adenocarcinomas" "Adnexal and Skin Appendage Neoplasms" "Fibroepithelial Neoplasms" "Ductal and Lobular Neoplasms" ...
##   ..$ TCGA-LUAD            : chr [1:4] "Acinar Cell Neoplasms" "Ductal and Lobular Neoplasms" "Adenomas and Adenocarcinomas" "Cystic, Mucinous and Serous Neoplasms"
##   ..$ CPTAC-3              : chr [1:12] "Lipomatous Neoplasms" "Nevi and Melanomas" "Gliomas" "Not Applicable" ...
##   ..$ APOLLO-LUAD          : chr "Adenomas and Adenocarcinomas"
##   ..$ MATCH-B              : chr [1:6] "Neoplasms, NOS" "Epithelial Neoplasms, NOS" "Ductal and Lobular Neoplasms" "Nerve Sheath Tumors" ...
##   ..$ CMI-ASC              : chr "Soft Tissue Tumors and Sarcomas, NOS"
##   ..$ MATCH-C1             : chr [1:3] "Nevi and Melanomas" "Adenomas and Adenocarcinomas" "Neoplasms, NOS"
##   ..$ BEATAML1.0-CRENOLANIB: chr "Myeloid Leukemias"
##   ..$ CDDP_EAGLE-1         : chr "Adenomas and Adenocarcinomas"
##  $ name                  : chr [1:10] "CTSP Diffuse Large B-Cell Lymphoma (DLBCL) CALGB 50303" "Breast Invasive Carcinoma" "Lung Adenocarcinoma" "CPTAC-Brain, Head and Neck, Kidney, Lung, Pancreas, Uterus" ...
##  $ releasable            : logi [1:10] TRUE TRUE TRUE TRUE TRUE FALSE ...
##  $ state                 : chr [1:10] "open" "open" "open" "open" ...
##  $ released              : logi [1:10] TRUE TRUE TRUE TRUE TRUE TRUE ...
##  - attr(*, "row.names")= int [1:10] 1 2 3 4 5 6 7 8 9 10
##  - attr(*, "class")= chr [1:3] "GDCprojectsResults" "GDCResults" "list"

A default of only 10 records are returned. We can use the size and from arguments to results() to either page through results or to change the number of results. Finally, there is a convenience method, results_all() that will simply fetch all the available results given a query. Note that results_all() may take a long time and return HUGE result sets if not used carefully. Use of a combination of count() and results() to get a sense of the expected data size is probably warranted before calling results_all()

length(ids(presults))

## [1] 10

presults = pquery |> results_all()
length(ids(presults))

## [1] 88

# includes all records
length(ids(presults)) == count(pquery)

## [1] TRUE

Extracting subsets of results or manipulating the results into a more conventional R data structure is not easily generalizable. However, the purrr, rlist, and data.tree packages are all potentially of interest for manipulating complex, nested list structures. For viewing the results in an interactive viewer, consider the listviewer package.

Fields and Values

[ GDC fields documentation ]

Central to querying and retrieving data from the GDC is the ability to specify which fields to return, filtering by fields and values, and faceting or aggregating. The GenomicDataCommons package includes two simple functions, available_fields() and default_fields(). Each can operate on a character(1) endpoint name (“cases”, “files”, “annotations”, or “projects”) or a GDCQuery object.

default_fields('files')

##  [1] "access"                         "acl"                           
##  [3] "average_base_quality"           "average_insert_size"           
##  [5] "average_read_length"            "cancer_dna_fraction"           
##  [7] "channel"                        "chip_id"                       
##  [9] "chip_position"                  "contamination"                 
## [11] "contamination_error"            "created_datetime"              
## [13] "data_category"                  "data_format"                   
## [15] "data_type"                      "error_type"                    
## [17] "experimental_strategy"          "file_autocomplete"             
## [19] "file_id"                        "file_name"                     
## [21] "file_size"                      "genome_doubling"               
## [23] "imaging_date"                   "magnification"                 
## [25] "md5sum"                         "mean_coverage"                 
## [27] "msi_score"                      "msi_status"                    
## [29] "pairs_on_diff_chr"              "plate_name"                    
## [31] "plate_well"                     "platform"                      
## [33] "proc_internal"                  "proportion_base_mismatch"      
## [35] "proportion_coverage_10x"        "proportion_coverage_30x"       
## [37] "proportion_reads_duplicated"    "proportion_reads_mapped"       
## [39] "proportion_targets_no_coverage" "read_pair_number"              
## [41] "revision"                       "stain_type"                    
## [43] "state"                          "state_comment"                 
## [45] "subclonal_genome_fraction"      "submitter_id"                  
## [47] "tags"                           "total_reads"                   
## [49] "tumor_ploidy"                   "tumor_purity"                  
## [51] "type"                           "updated_datetime"              
## [53] "wgs_coverage"

# The number of fields available for files endpoint
length(available_fields('files'))

## [1] 1193

# The first few fields available for files endpoint
head(available_fields('files'))

## [1] "access"                      "acl"                        
## [3] "analysis.analysis_id"        "analysis.analysis_type"     
## [5] "analysis.created_datetime"   "analysis.input_files.access"

The fields to be returned by a query can be specified following a similar paradigm to that of the dplyr package. The select() function is a verb that resets the fields slot of a GDCQuery; note that this is not quite analogous to the dplyr select() verb that limits from already-present fields. We completely replace the fields when using select() on a GDCQuery.

# Default fields here
qcases = cases()
qcases$fields

##  [1] "aliquot_ids"              "analyte_ids"             
##  [3] "case_autocomplete"        "case_id"                 
##  [5] "consent_type"             "created_datetime"        
##  [7] "days_to_consent"          "days_to_lost_to_followup"
##  [9] "diagnosis_ids"            "disease_type"            
## [11] "index_date"               "lost_to_followup"        
## [13] "portion_ids"              "primary_site"            
## [15] "sample_ids"               "slide_ids"               
## [17] "state"                    "submitter_aliquot_ids"   
## [19] "submitter_analyte_ids"    "submitter_diagnosis_ids" 
## [21] "submitter_id"             "submitter_portion_ids"   
## [23] "submitter_sample_ids"     "submitter_slide_ids"     
## [25] "updated_datetime"

# set up query to use ALL available fields
# Note that checking of fields is done by select()
qcases = cases() |> GenomicDataCommons::select(available_fields('cases'))
head(qcases$fields)

## [1] "case_id"                       "aliquot_ids"                  
## [3] "analyte_ids"                   "annotations.annotation_id"    
## [5] "annotations.case_id"           "annotations.case_submitter_id"

Finding fields of interest is such a common operation that the GenomicDataCommons includes the grep_fields() function. See the appropriate help pages for details.

Facets and aggregation

[ GDC facet documentation ]

The GDC API offers a feature known as aggregation or faceting. By specifying one or more fields (of appropriate type), the GDC can return to us a count of the number of records matching each potential value. This is similar to the R table method. Multiple fields can be returned at once, but the GDC API does not have a cross-tabulation feature; all aggregations are only on one field at a time. Results of aggregation() calls come back as a list of data.frames (actually, tibbles).

# total number of files of a specific type
res = files() |> facet(c('type','data_type')) |> aggregations()
res$type

##    doc_count                           key
## 1     210085    annotated_somatic_mutation
## 2     187860                 aligned_reads
## 3     163285          structural_variation
## 4     154651       simple_somatic_mutation
## 5      91219           copy_number_segment
## 6      53336               gene_expression
## 7      40608      masked_methylation_array
## 8      40317   aggregated_somatic_mutation
## 9      39824          copy_number_estimate
## 10     38106              mirna_expression
## 11     34268                   slide_image
## 12     27437        biospecimen_supplement
## 13     24236    submitted_genotyping_array
## 14     23135     simple_germline_variation
## 15     22313       masked_somatic_mutation
## 16     20304        methylation_beta_value
## 17     16812    copy_number_auxiliary_file
## 18     14955           clinical_supplement
## 19     11324              pathology_report
## 20      7906            protein_expression
## 21      1426    submitted_expression_array
## 22       132 secondary_expression_analysis

Using aggregations() is an also easy way to learn the contents of individual fields and forms the basis for faceted search pages.

Filtering

[ GDC filtering documentation ]

The GenomicDataCommons package uses a form of non-standard evaluation to specify R-like queries that are then translated into an R list. That R list is, upon calling a method that fetches results from the GDC API, translated into the appropriate JSON string. The R expression uses the formula interface as suggested by Hadley Wickham in his vignette on non-standard evaluation

It’s best to use a formula because a formula captures both the expression to evaluate and the environment where the evaluation occurs. This is important if the expression is a mixture of variables in a data frame and objects in the local environment [for example].

For the user, these details will not be too important except to note that a filter expression must begin with a “~”.

qfiles = files()
qfiles |> count() # all files

## [1] 1223539

To limit the file type, we can refer back to the section on faceting to see the possible values for the file field “type”. For example, to filter file results to only “gene_expression” files, we simply specify a filter.

qfiles = files() |> filter( type == 'gene_expression')
# here is what the filter looks like after translation
str(get_filter(qfiles))

## List of 2
##  $ op     : 'scalar' chr "="
##  $ content:List of 2
##   ..$ field: chr "type"
##   ..$ value: chr "gene_expression"

What if we want to create a filter based on the project (‘TCGA-OVCA’, for example)? Well, we have a couple of possible ways to discover available fields. The first is based on base R functionality and some intuition.

grep('pro',available_fields('files'),value=TRUE) |> 
    head()

## [1] "analysis.input_files.proc_internal"              
## [2] "analysis.input_files.proportion_base_mismatch"   
## [3] "analysis.input_files.proportion_coverage_10x"    
## [4] "analysis.input_files.proportion_coverage_30x"    
## [5] "analysis.input_files.proportion_reads_duplicated"
## [6] "analysis.input_files.proportion_reads_mapped"

Interestingly, the project information is “nested” inside the case. We don’t need to know that detail other than to know that we now have a few potential guesses for where our information might be in the files records. We need to know where because we need to construct the appropriate filter.

files() |> 
    facet('cases.project.project_id') |> 
    aggregations() |> 
    head()

## $cases.project.project_id
##    doc_count                       key
## 1     100017                   CPTAC-3
## 2      70776                 TCGA-BRCA
## 3      54096                     FM-AD
## 4      59326                MP2PRT-ALL
## 5      52156                TARGET-AML
## 6      36224                 TCGA-LUAD
## 7      34816                 TCGA-HNSC
## 8      33337                 TCGA-UCEC
## 9      43656                 HCMI-CMDC
## 10     32864                   TCGA-OV
## 11     34535                 TCGA-KIRC
## 12     33411                 TCGA-THCA
## 13     33453                  TCGA-LGG
## 14     30326                  TCGA-GBM
## 15     32614                 TCGA-LUSC
## 16     31915                 TCGA-PRAD
## 17     31338                 TCGA-BLCA
## 18     31088                 TCGA-STAD
## 19     28900                 TCGA-COAD
## 20     28203                 TCGA-SKCM
## 21     34109             MMRF-COMMPASS
## 22     23930                 TCGA-LIHC
## 23     19315                 TCGA-CESC
## 24     18117             TARGET-ALL-P2
## 25     18618                 TCGA-KIRP
## 26     16252                 TCGA-SARC
## 27     18140                 REBC-THYR
## 28     12335                CGCI-BLGSP
## 29     16794         BEATAML1.0-COHORT
## 30     13513                TARGET-NBL
## 31     12853                 TCGA-PAAD
## 32     12851                 TCGA-TGCT
## 33     11823                 TCGA-PCPG
## 34     14457                  CCDI-MCI
## 35     11120                 TCGA-ESCA
## 36     10274                 TCGA-READ
## 37      7968                 TCGA-THYM
## 38      8839                 TCGA-LAML
## 39      9244                   CPTAC-2
## 40      6415                 TARGET-WT
## 41      6997             CGCI-HTMCP-CC
## 42      5993                 TCGA-KICH
## 43      5789                  TCGA-ACC
## 44      5511                 TCGA-MESO
## 45      5509                  TCGA-UVM
## 46      5454                   CMI-MBC
## 47      4239                 TARGET-OS
## 48      5286              NCICCR-DLBCL
## 49      3720                  TCGA-UCS
## 50      4127             TARGET-ALL-P3
## 51      3141                 TCGA-DLBC
## 52      3171                 TCGA-CHOL
## 53      2062          CGCI-HTMCP-DLBCL
## 54      2257                 MP2PRT-WT
## 55      2058               APOLLO-LUAD
## 56      1826 EXCEPTIONAL_RESPONDERS-ER
## 57      1801                WCDT-MCRPC
## 58      1796              CDDP_EAGLE-1
## 59      1655                 APOLLO-OV
## 60      1628                  OHSU-CNL
## 61      1419                   MATCH-I
## 62      1036                 TARGET-RT
## 63      1147             CGCI-HTMCP-LC
## 64      1305                   CMI-MPC
## 65      1091                   MATCH-W
## 66      1090                 MATCH-Z1A
## 67       980                  MATCH-S1
## 68       896       ORGANOID-PANCREATIC
## 69       891                 MATCH-Z1D
## 70       852                   MATCH-Q
## 71       806                   CMI-ASC
## 72       810                   MATCH-B
## 73       783                   MATCH-Y
## 74       700                   MATCH-R
## 75       694                 MATCH-Z1B
## 76       680                   MATCH-P
## 77       660                 MATCH-Z1I
## 78       553               CTSP-DLBCL1
## 79       547     BEATAML1.0-CRENOLANIB
## 80       545                   MATCH-U
## 81       510                   MATCH-N
## 82       509                   MATCH-H
## 83       339                  TRIO-CRU
## 84       263                  MATCH-C1
## 85       185               TARGET-CCSK
## 86       107             TARGET-ALL-P1
## 87        61                  MATCH-S2
## 88        42            VAREPOP-APOLLO

We note that cases.project.project_id looks like it is a good fit. We also note that TCGA-OV is the correct project_id, not TCGA-OVCA. Note that unlike with dplyr and friends, the filter() method here replaces the filter and does not build on any previous filters.

qfiles = files() |>
    filter( cases.project.project_id == 'TCGA-OV' & type == 'gene_expression')
str(get_filter(qfiles))

## List of 2
##  $ op     : 'scalar' chr "and"
##  $ content:List of 2
##   ..$ :List of 2
##   .. ..$ op     : 'scalar' chr "="
##   .. ..$ content:List of 2
##   .. .. ..$ field: chr "cases.project.project_id"
##   .. .. ..$ value: chr "TCGA-OV"
##   ..$ :List of 2
##   .. ..$ op     : 'scalar' chr "="
##   .. ..$ content:List of 2
##   .. .. ..$ field: chr "type"
##   .. .. ..$ value: chr "gene_expression"

qfiles |> count()

## [1] 868

Asking for a count() of results given these new filter criteria gives r qfiles |> count() results. Filters can be chained (or nested) to accomplish the same effect as multiple & conditionals. The count() below is equivalent to the & filtering done above.

qfiles2 = files() |>
    filter( cases.project.project_id == 'TCGA-OV') |> 
    filter( type == 'gene_expression') 
qfiles2 |> count()

## [1] 868

(qfiles |> count()) == (qfiles2 |> count()) #TRUE

## [1] TRUE

Generating a manifest for bulk downloads is as simple as asking for the manifest from the current query.

manifest_df = qfiles |> manifest()
head(manifest_df)

## # A tibble: 6 × 17
##   id         data_format access file_name submitter_id data_category acl_1 type 
##   <chr>      <chr>       <chr>  <chr>     <chr>        <chr>         <chr> <chr>
## 1 5ddd131a-… TSV         open   4ca1b467… 218940cf-3d… Transcriptom… open  gene…
## 2 1e672928-… TSV         contr… 0538f774… 4ee1b5a0-dc… Transcriptom… phs0… gene…
## 3 8a259184-… TSV         open   0538f774… 03348d9e-70… Transcriptom… open  gene…
## 4 6744739b-… TSV         contr… d905f784… a5c6bf95-75… Transcriptom… phs0… gene…
## 5 6fe4ca5a-… TSV         open   d905f784… fecaad85-14… Transcriptom… open  gene…
## 6 7b7db66b-… TSV         contr… c1727ac9… fe265143-82… Transcriptom… phs0… gene…
## # ℹ 9 more variables: platform <chr>, file_size <int>, created_datetime <chr>,
## #   md5sum <chr>, updated_datetime <chr>, file_id <chr>, data_type <chr>,
## #   state <chr>, experimental_strategy <chr>

Note that we might still not be quite there. Looking at filenames, there are suspiciously named files that might include “FPKM”, “FPKM-UQ”, or “counts”. Another round of grep and available_fields, looking for “type” turned up that the field “analysis.workflow_type” has the appropriate filter criteria.

qfiles = files() |> filter( ~ cases.project.project_id == 'TCGA-OV' &
                            type == 'gene_expression' &
                            access == "open" &
                            analysis.workflow_type == 'STAR - Counts')
manifest_df = qfiles |> manifest()
nrow(manifest_df)

## [1] 433

The GDC Data Transfer Tool can be used (from R, transfer() or from the command-line) to orchestrate high-performance, restartable transfers of all the files in the manifest. See the bulk downloads section for details.

Data downloads via the GDC API

The gdcdata function takes a character vector of one or more file ids. A simple way of producing such a vector is to produce a manifest data frame and then pass in the first column, which will contain file ids.

fnames = gdcdata(manifest_df$id[1:2],progress=FALSE)

Note that for controlled-access data, a GDC authentication token is required. Using the BiocParallel package may be useful for downloading in parallel, particularly for large numbers of smallish files.

Bulk downloads

The bulk download functionality is only efficient (as of v1.2.0 of the GDC Data Transfer Tool) for relatively large files, so use this approach only when transferring BAM files or larger VCF files, for example. Otherwise, consider using the approach shown above, perhaps in parallel.

# Requires gcd_client command-line utility to be isntalled
# separately. 
fnames = gdcdata(manifest_df$id[3:10], access_method = 'client')

BAM slicing

How many cases are there per project_id?

res = cases() |> facet("project.project_id") |> aggregations()
head(res)

## $project.project_id
##    doc_count                       key
## 1      18004                     FM-AD
## 2       3093                  CCDI-MCI
## 3       2492                TARGET-AML
## 4       1683                   CPTAC-3
## 5       1587             TARGET-ALL-P2
## 6       1510                MP2PRT-ALL
## 7       1132                TARGET-NBL
## 8       1098                 TCGA-BRCA
## 9        995             MMRF-COMMPASS
## 10       826         BEATAML1.0-COHORT
## 11       804                 HCMI-CMDC
## 12       652                 TARGET-WT
## 13       617                  TCGA-GBM
## 14       608                   TCGA-OV
## 15       585                 TCGA-LUAD
## 16       560                 TCGA-UCEC
## 17       537                 TCGA-KIRC
## 18       528                 TCGA-HNSC
## 19       516                  TCGA-LGG
## 20       507                 TCGA-THCA
## 21       504                 TCGA-LUSC
## 22       500                 TCGA-PRAD
## 23       489              NCICCR-DLBCL
## 24       470                 TCGA-SKCM
## 25       461                 TCGA-COAD
## 26       449                 REBC-THYR
## 27       443                 TCGA-STAD
## 28       412                 TCGA-BLCA
## 29       383                 TARGET-OS
## 30       377                 TCGA-LIHC
## 31       342                   CPTAC-2
## 32       339                  TRIO-CRU
## 33       324                CGCI-BLGSP
## 34       307                 TCGA-CESC
## 35       291                 TCGA-KIRP
## 36       263                 TCGA-TGCT
## 37       261                 TCGA-SARC
## 38       212             CGCI-HTMCP-CC
## 39       200                   CMI-MBC
## 40       200                 TCGA-LAML
## 41       191             TARGET-ALL-P3
## 42       185                 TCGA-ESCA
## 43       185                 TCGA-PAAD
## 44       179                 TCGA-PCPG
## 45       176                  OHSU-CNL
## 46       172                 TCGA-READ
## 47       124                 TCGA-THYM
## 48       113                 TCGA-KICH
## 49       101                WCDT-MCRPC
## 50        92                  TCGA-ACC
## 51        87               APOLLO-LUAD
## 52        87                 TCGA-MESO
## 53        84 EXCEPTIONAL_RESPONDERS-ER
## 54        80                  TCGA-UVM
## 55        70                 APOLLO-OV
## 56        70          CGCI-HTMCP-DLBCL
## 57        70       ORGANOID-PANCREATIC
## 58        69                 TARGET-RT
## 59        63                   CMI-MPC
## 60        60                   MATCH-I
## 61        58                 TCGA-DLBC
## 62        57                  TCGA-UCS
## 63        56     BEATAML1.0-CRENOLANIB
## 64        52                 MP2PRT-WT
## 65        51                 TCGA-CHOL
## 66        50              CDDP_EAGLE-1
## 67        45               CTSP-DLBCL1
## 68        45                   MATCH-W
## 69        45                 MATCH-Z1A
## 70        41                  MATCH-S1
## 71        39             CGCI-HTMCP-LC
## 72        36                   CMI-ASC
## 73        36                 MATCH-Z1D
## 74        35                   MATCH-Q
## 75        33                   MATCH-B
## 76        31                   MATCH-Y
## 77        29                 MATCH-Z1B
## 78        28                   MATCH-P
## 79        28                   MATCH-R
## 80        26                 MATCH-Z1I
## 81        24             TARGET-ALL-P1
## 82        23                   MATCH-U
## 83        21                   MATCH-H
## 84        21                   MATCH-N
## 85        13               TARGET-CCSK
## 86        11                  MATCH-C1
## 87         7            VAREPOP-APOLLO
## 88         3                  MATCH-S2

library(ggplot2)
ggplot(res$project.project_id,aes(x = key, y = doc_count)) +
    geom_bar(stat='identity') +
    theme(axis.text.x = element_text(angle = 45, hjust = 1))

How many cases are included in all TARGET projects?

cases() |> filter(~ project.program.name=='TARGET') |> count()

## [1] 6543

How many cases are included in all TCGA projects?

cases() |> filter(~ project.program.name=='TCGA') |> count()

## [1] 11428

What is the breakdown of sample types in TCGA-BRCA?

# The need to do the "&" here is a requirement of the
# current version of the GDC API. I have filed a feature
# request to remove this requirement.
resp = cases() |> filter(~ project.project_id=='TCGA-BRCA' &
                              project.project_id=='TCGA-BRCA' ) |>
    facet('samples.sample_type') |> aggregations()
resp$samples.sample_type

##   doc_count                  key
## 1      1098        primary tumor
## 2      1023 blood derived normal
## 3       162  solid tissue normal
## 4         7           metastatic

Fetch all samples in TCGA-BRCA that use “Solid Tissue” as a normal.

# The need to do the "&" here is a requirement of the
# current version of the GDC API. I have filed a feature
# request to remove this requirement.
resp = cases() |> filter(~ project.project_id=='TCGA-BRCA' &
                              samples.sample_type=='Solid Tissue Normal') |>
    GenomicDataCommons::select(c(default_fields(cases()),'samples.sample_type')) |>
    response_all()
count(resp)

## [1] 162

res = resp |> results()
str(res[1],list.len=6)

## List of 1
##  $ id: chr [1:162] "f062cbd0-2426-40ac-a4be-e74ac61fa2a7" "9da462b0-93c2-4305-89f6-7199a30399a7" "f130f376-5801-40f9-975d-a7e2f7b5670d" "a1093598-d3a8-4ffe-83fc-bc7d1faff7e5" ...

head(ids(resp))

## [1] "f062cbd0-2426-40ac-a4be-e74ac61fa2a7"
## [2] "9da462b0-93c2-4305-89f6-7199a30399a7"
## [3] "f130f376-5801-40f9-975d-a7e2f7b5670d"
## [4] "a1093598-d3a8-4ffe-83fc-bc7d1faff7e5"
## [5] "92b5de82-0221-4df1-8094-80f40c0bb4fa"
## [6] "659b0170-e914-45ff-aa55-fcb8d3dc7b8a"

Get all TCGA case ids that are female

cases() |>
  GenomicDataCommons::filter(~ project.program.name == 'TCGA' &
    "cases.demographic.gender" %in% "female") |>
      GenomicDataCommons::results(size = 4) |>
        ids()

## [1] "0030a28c-81aa-44b0-8be0-b35e1dcbf98c"
## [2] "0e251c03-bf86-4ed8-b45d-3cbc97160502"
## [3] "0e9fcccc-0630-408d-a121-2c6413824cb7"
## [4] "1f971af1-6772-4fe6-8d35-bbe527a037fe"

Get all TCGA-COAD case ids that are NOT female

cases() |>
  GenomicDataCommons::filter(~ project.project_id == 'TCGA-COAD' &
    "cases.demographic.gender" %exclude% "female") |>
      GenomicDataCommons::results(size = 4) |>
        ids()

## [1] "265d7b06-65fe-42c5-ad21-e6b160e94718"
## [2] "d655bbf6-c710-411d-aff5-ceb0fb6e6680"
## [3] "4f601d7b-8db1-4c6d-9374-21dcd804980d"
## [4] "c085da47-d634-491a-80ea-514e5a231f70"

Get all TCGA cases that are missing gender

cases() |>
  GenomicDataCommons::filter(~ project.program.name == 'TCGA' &
    missing("cases.demographic.gender")) |>
      GenomicDataCommons::results(size = 4) |>
        ids()

## [1] "1ec1e2c4-ba2c-40fc-b5e1-e8f6e38caec6"
## [2] "24506980-2857-4069-9af3-79ce4527eb00"
## [3] "4263949c-f962-40dd-9998-02ad3fba4537"
## [4] "44f10972-9f1f-4f7d-b8a0-0062c961001b"

Get all TCGA cases that are NOT missing gender

cases() |>
  GenomicDataCommons::filter(~ project.program.name == 'TCGA' &
    !missing("cases.demographic.gender")) |>
      GenomicDataCommons::results(size = 4) |>
        ids()

## [1] "3f5a897d-1eaa-4d4c-8324-27ac07c90927"
## [2] "0030a28c-81aa-44b0-8be0-b35e1dcbf98c"
## [3] "0bf573ac-cd1e-42d8-90cf-b30d7b08679c"
## [4] "0e251c03-bf86-4ed8-b45d-3cbc97160502"

How many of each type of file are available?

res = files() |> facet('type') |> aggregations()
res$type

##    doc_count                           key
## 1     210085    annotated_somatic_mutation
## 2     187860                 aligned_reads
## 3     163285          structural_variation
## 4     154651       simple_somatic_mutation
## 5      91219           copy_number_segment
## 6      53336               gene_expression
## 7      40608      masked_methylation_array
## 8      40317   aggregated_somatic_mutation
## 9      39824          copy_number_estimate
## 10     38106              mirna_expression
## 11     34268                   slide_image
## 12     27437        biospecimen_supplement
## 13     24236    submitted_genotyping_array
## 14     23135     simple_germline_variation
## 15     22313       masked_somatic_mutation
## 16     20304        methylation_beta_value
## 17     16812    copy_number_auxiliary_file
## 18     14955           clinical_supplement
## 19     11324              pathology_report
## 20      7906            protein_expression
## 21      1426    submitted_expression_array
## 22       132 secondary_expression_analysis

ggplot(res$type,aes(x = key,y = doc_count)) + geom_bar(stat='identity') +
    theme(axis.text.x = element_text(angle = 45, hjust = 1))

Find gene-level RNA-seq quantification files for GBM

q = files() |>
    GenomicDataCommons::select(available_fields('files')) |>
    filter(~ cases.project.project_id=='TCGA-GBM' &
               data_type=='Gene Expression Quantification')
q |> facet('analysis.workflow_type') |> aggregations()

## list()

# so need to add another filter
file_ids = q |> filter(~ cases.project.project_id=='TCGA-GBM' &
                            data_type=='Gene Expression Quantification' &
                            analysis.workflow_type == 'STAR - Counts') |>
    GenomicDataCommons::select('file_id') |>
    response_all() |>
    ids()

Get all BAM file ids from TCGA-GBM

I need to figure out how to do slicing reproducibly in a testing environment and for vignette building.

q = files() |>
    GenomicDataCommons::select(available_fields('files')) |>
    filter(~ cases.project.project_id == 'TCGA-GBM' &
               data_type == 'Aligned Reads' &
               experimental_strategy == 'RNA-Seq' &
               data_format == 'BAM')
file_ids = q |> response_all() |> ids()

bamfile = slicing(file_ids[1],regions="chr12:6534405-6538375",token=gdc_token())
library(GenomicAlignments)
aligns = readGAlignments(bamfile)