Re-order samples in a TIRTLseqDataSet object

Usage

reorder_samples(data, samples)

Arguments

data

a TIRTLseqDataSet object

samples

the samples of 'data', in their desired order.

Either:

1. A numeric vector of indices

2. A character vector of sample names

3. A character vector of metadata conditions where each entry is of the form "column==value"

Value

A TIRTLseqDataSet object with re-ordered samples.

Details

This function changes the order of the samples in a TIRTLseqDataSet object to the order that the user specifies.

See also

Other data_wrangling: add_metadata(), filter_dataset()

Examples

load_example_data(dataset = "SJTRC_longitudinal")
#> Example data already loaded into object: 'SJTRC_longitudinal'
print(SJTRC_longitudinal$meta)
#> # A tibble: 6 × 5
#>   sample_id  marker timepoint version label                                     
#>   <chr>      <chr>  <chr>     <chr>   <chr>                                     
#> 1 cd4_tp1_v2 cd4    tp1       v2      marker: cd4 | timepoint: tp1 | version: v2
#> 2 cd4_tp2_v2 cd4    tp2       v2      marker: cd4 | timepoint: tp2 | version: v2
#> 3 cd4_tp3_v2 cd4    tp3       v2      marker: cd4 | timepoint: tp3 | version: v2
#> 4 cd8_tp1_v2 cd8    tp1       v2      marker: cd8 | timepoint: tp1 | version: v2
#> 5 cd8_tp2_v2 cd8    tp2       v2      marker: cd8 | timepoint: tp2 | version: v2
#> 6 cd8_tp3_v2 cd8    tp3       v2      marker: cd8 | timepoint: tp3 | version: v2
new_order = names(SJTRC_longitudinal$data) %>% rev()
print(new_order)
#> [1] "cd8_tp3_v2" "cd8_tp2_v2" "cd8_tp1_v2" "cd4_tp3_v2" "cd4_tp2_v2"
#> [6] "cd4_tp1_v2"
SJTRC_longitudinal = reorder_samples(SJTRC_longitudinal, new_order)
print(SJTRC_longitudinal$meta)
#> # A tibble: 6 × 5
#>   sample_id  marker timepoint version label                                     
#>   <chr>      <chr>  <chr>     <chr>   <chr>                                     
#> 1 cd8_tp3_v2 cd8    tp3       v2      marker: cd8 | timepoint: tp3 | version: v2
#> 2 cd8_tp2_v2 cd8    tp2       v2      marker: cd8 | timepoint: tp2 | version: v2
#> 3 cd8_tp1_v2 cd8    tp1       v2      marker: cd8 | timepoint: tp1 | version: v2
#> 4 cd4_tp3_v2 cd4    tp3       v2      marker: cd4 | timepoint: tp3 | version: v2
#> 5 cd4_tp2_v2 cd4    tp2       v2      marker: cd4 | timepoint: tp2 | version: v2
#> 6 cd4_tp1_v2 cd4    tp1       v2      marker: cd4 | timepoint: tp1 | version: v2