Creating a TI method: Wrapping trajectories

Wouter Saelens

Robrecht Cannoodt

2021-03-23

Common trajectory model

dynwrap always represents trajectories in the same way, as illustrated here with a tree trajectory

## # A tibble: 5 x 4
##   from        to          length directed
##   <chr>       <chr>        <dbl> <lgl>   
## 1 Milestone_A Milestone_B    1   FALSE   
## 2 Milestone_B Milestone_C    2   FALSE   
## 3 Milestone_B Milestone_D    1   FALSE   
## 4 Milestone_C Milestone_E    1   FALSE   
## 5 Milestone_C Milestone_F    1.5 FALSE
## # A tibble: 10 x 3
##    cell_id milestone_id percentage
##    <chr>   <chr>             <dbl>
##  1 Cell_a  Milestone_B      0.552 
##  2 Cell_a  Milestone_C      0.448 
##  3 Cell_b  Milestone_C      0.0525
##  4 Cell_b  Milestone_E      0.948 
##  5 Cell_c  Milestone_B      0.384 
##  6 Cell_c  Milestone_C      0.616 
##  7 Cell_d  Milestone_B      0.0166
##  8 Cell_d  Milestone_D      0.983 
##  9 Cell_e  Milestone_C      0.0624
## 10 Cell_e  Milestone_F      0.938
## # A tibble: 10 x 4
##    cell_id from        to          percentage
##    <chr>   <chr>       <chr>            <dbl>
##  1 Cell_a  Milestone_B Milestone_C      0.448
##  2 Cell_b  Milestone_C Milestone_E      0.948
##  3 Cell_c  Milestone_B Milestone_C      0.616
##  4 Cell_d  Milestone_B Milestone_D      0.983
##  5 Cell_e  Milestone_C Milestone_F      0.938
##  6 Cell_f  Milestone_C Milestone_E      0.119
##  7 Cell_g  Milestone_C Milestone_F      0.880
##  8 Cell_h  Milestone_C Milestone_F      0.265
##  9 Cell_i  Milestone_B Milestone_C      0.148
## 10 Cell_j  Milestone_C Milestone_E      0.669
## # A tibble: 3 x 3
##   divergence_id milestone_id is_start
##   <chr>         <chr>        <lgl>   
## 1 Divergence_1  Milestone_B  TRUE    
## 2 Divergence_1  Milestone_C  FALSE   
## 3 Divergence_1  Milestone_D  FALSE

Direct wrapping

These three objects (with either milestone percentages or progressions) are enough to form a trajectory using add_trajectory.

trajectory <- wrap_data(cell_ids = cell_ids) %>% 
  add_trajectory(
    milestone_network = milestone_network, 
    milestone_percentages = milestone_percentages,
    divergence_regions = divergence_regions
  )

Indirect wrapping

Often, you don’t want to directly output the milestone network and percentages, but want to output an alternative representation that is converted by dynwrap to the common representation:

Check out the reference documentation for an overview and examples of the different wrappers